1、首先打開(kāi)VB6.0,選擇“標(biāo)準(zhǔn)EXE”。

成都創(chuàng)新互聯(lián)公司主營(yíng)察哈爾右翼后網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,成都APP應(yīng)用開(kāi)發(fā),察哈爾右翼后h5成都微信小程序搭建,察哈爾右翼后網(wǎng)站營(yíng)銷(xiāo)推廣歡迎察哈爾右翼后等地區(qū)企業(yè)咨詢
2、然后按下鍵盤(pán)上的“Ctrl+T”來(lái)選擇部件。
3、在其中找到“Microsoft Multimedia Control 6.0”選項(xiàng)。
4、點(diǎn)擊左側(cè)的小框框來(lái)選中。
5、點(diǎn)擊對(duì)話框下部的確定按鈕來(lái)完成添加。
6、此時(shí),工具箱內(nèi)就會(huì)出現(xiàn)小部件。
7、點(diǎn)擊小部件,然后在窗體中畫(huà)出小部件。
8、畫(huà)完后,展現(xiàn)效果圖。
9、關(guān)于MMcontrol的設(shè)置可以在右側(cè)進(jìn)行。
10、就這樣,MMcontrol添加成功,可以為它書(shū)寫(xiě)代碼了。
Private WithEvents NewTextBox As TextBox
'通過(guò)使用WithEvents關(guān)鍵字聲明一個(gè)對(duì)象變量為新的命令按鈕
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文件,然后工具箱中就會(huì)出現(xiàn)新加的控件
網(wǎng)站題目:vb.net如何添加部件,vb怎么添加框架控件
網(wǎng)站路徑:http://chinadenli.net/article29/dseejjh.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站設(shè)計(jì)公司、搜索引擎優(yōu)化、網(wǎng)站內(nèi)鏈、網(wǎng)站營(yíng)銷(xiāo)、網(wǎng)站排名、微信小程序
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)