1、首先打开VB6.0,选择“标准EXE”。
2、然后按下键盘上的“Ctrl+T”来选择部件。
3、在其中找到“Microsoft Multimedia Control 6.0”选项。
4、点击左侧的小框框来选中。
5、点击对话框下部的确定按钮来完成添加。
6、此时,工具箱内就会出现小部件。
7、点击小部件,然后在窗体中画出小部件。
8、画完后,展现效果图。
9、关于MMcontrol的设置可以在右侧进行。
10、就这样,MMcontrol添加成功,可以为它书写代码了。
Public IsExists As BooleanPrivate Sub Command1_Click()
Dim lbl As Label
If IsExists = False Then
Set lbl = Me.Controls.Add("VB.Label", "lbl")
IsExists = True
lbl.Caption = "Label1"
lbl.Top = 200
lbl.Width = 7000
lbl.Visible = True
End If
End Sub
Private WithEvents Object As TextBoxPrivate Sub Command1_Click()
For i = 1 To 3
Set Object = Form1.Controls.Add("VB.textbox", "text" &i)
With Object
.Visible = True
.Text = "动态文本"
.Width = 1000
.Height = 500
.Top = Form1.Height / 2 - 100
.Left = 1000 * i
End With
Next i
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)