步驟如下:
創(chuàng)新互聯(lián)公司于2013年開始,先為豐滿等服務(wù)建站,豐滿等地企業(yè),進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為豐滿企業(yè)網(wǎng)站制作PC+手機+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。
1. 先到C:\WINDOWS\system32目錄下看看你的系統(tǒng)里是否已經(jīng)有了MSADODC.ocx和MSDATGRD.ocx這兩個文件(多半是沒有的),要是有了就直接看第2步吧。
然后放到C:\WINDOWS\system32目錄下。
2. 在VS 2005中注冊MSADODC.ocx和MSDATGRD.ocx這兩個控件。在VS 2005中點擊"Tools" -- "Visual Studio 2005 Command Prompt",輸入如下命令即可:
regsvr32 msadodc.ocx
regsvr32 msdatgrd.ocx
1、首先打開VB6.0,選擇“標(biāo)準(zhǔn)EXE”。
2、然后按下鍵盤上的“Ctrl+T”來選擇部件。
3、在其中找到“Microsoft Multimedia Control 6.0”選項。
4、點擊左側(cè)的小框框來選中。
5、點擊對話框下部的確定按鈕來完成添加。
6、此時,工具箱內(nèi)就會出現(xiàn)小部件。
7、點擊小部件,然后在窗體中畫出小部件。
8、畫完后,展現(xiàn)效果圖。
9、關(guān)于MMcontrol的設(shè)置可以在右側(cè)進(jìn)行。
10、就這樣,MMcontrol添加成功,可以為它書寫代碼了。
Private WithEvents NewTextBox As TextBox
'通過使用WithEvents關(guān)鍵字聲明一個對象變量為新的命令按鈕
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
Dim?Bt?as?New?Button
Bt.Size=New?Size(100,100)
Bt.Location=New?Point(100,100)
Bt.Text="New?Button"
Me.Controls.Add(Bt)
點擊菜單:項目=》添加引用 彈出窗口后選擇“COM”項,然后找到你要加載的控件。
記得先調(diào)用CMD使用 regsvr32 注冊你準(zhǔn)備加載的控件哈。