|
楼主 |
发表于 2020-1-20 23:48
|
显示全部楼层
- Private Sub ComboBox1_Change()
- h = h + 15
- Set mylabb = Frame1.Controls.Add("Forms.label.1", "labb")
- Set mytxt = Frame1.Controls.Add("Forms.TextBox.1", "labb")
- Set mylabb1 = Frame1.Controls.Add("Forms.label.1", "labb")
- Set mybtn = Frame1.Controls.Add("Forms.CommandButton.1", "labb")
- mylabb.Width = 110: mytxt.Width = 50: mylabb1.Width = 20: mybtn.Width = 25
- mylabb.Height = 10: mytxt.Height = 14: mylabb1.Height = 10: mybtn.Height = 14
- mylabb.Left = 10: mytxt.Left = 120: mylabb1.Left = 172: mybtn.Left = 200
- mylabb.Top = h - 10: mytxt.Top = h - 13.5: mylabb1.Top = h - 10: mybtn.Top = h - 13.5
- mylabb.Caption = ComboBox1.Value & ":": mylabb1.Caption = "万元": mybtn.Caption = "删除"
- End Sub
复制代码
|
|