1、首先打開VB6.0,選擇“標(biāo)準(zhǔn)EXE”。
成都創(chuàng)新互聯(lián)公司主營察哈爾右翼后網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,成都APP應(yīng)用開發(fā),察哈爾右翼后h5成都微信小程序搭建,察哈爾右翼后網(wǎng)站營銷推廣歡迎察哈爾右翼后等地區(qū)企業(yè)咨詢
2、然后按下鍵盤上的“Ctrl+T”來選擇部件。
3、在其中找到“Microsoft Multimedia Control 6.0”選項(xiàng)。
4、點(diǎn)擊左側(cè)的小框框來選中。
5、點(diǎn)擊對話框下部的確定按鈕來完成添加。
6、此時(shí),工具箱內(nèi)就會出現(xiàn)小部件。
7、點(diǎn)擊小部件,然后在窗體中畫出小部件。
8、畫完后,展現(xiàn)效果圖。
9、關(guān)于MMcontrol的設(shè)置可以在右側(cè)進(jìn)行。
10、就這樣,MMcontrol添加成功,可以為它書寫代碼了。
Private WithEvents NewTextBox As TextBox
'通過使用WithEvents關(guān)鍵字聲明一個(gè)對象變量為新的命令按鈕
Private Sub Command1_Click()
If NewTextBox Is Nothing Then
Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)
NewTextBox.Move 200, 200
NewTextBox.Width = Form1.Width - 450
NewTextBox.Height = Form1.Height - 1400
NewTextBox.Visible = True
End If
End Sub
Private Sub Command2_Click()
If NewTextBox Is Nothing Then
Exit Sub
Else
Controls.Remove NewTextBox
Set NewTextBox = Nothing
End If
End Sub
工具箱右鍵單擊——選擇項(xiàng)……——選擇.net組件或com組件——點(diǎn)擊“瀏覽”選擇控件dll文件,然后工具箱中就會出現(xiàn)新加的控件