从品牌网站建设到网络营销策划,从策略到执行的一站式服务
步骤如下:
创新互联公司于2013年开始,先为丰满等服务建站,丰满等地企业,进行企业商务咨询服务。为丰满企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
1. 先到C:\WINDOWS\system32目录下看看你的系统里是否已经有了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,选择“标准EXE”。
2、然后按下键盘上的“Ctrl+T”来选择部件。
3、在其中找到“Microsoft Multimedia Control 6.0”选项。
4、点击左侧的小框框来选中。
5、点击对话框下部的确定按钮来完成添加。
6、此时,工具箱内就会出现小部件。
7、点击小部件,然后在窗体中画出小部件。
8、画完后,展现效果图。
9、关于MMcontrol的设置可以在右侧进行。
10、就这样,MMcontrol添加成功,可以为它书写代码了。
Private WithEvents NewTextBox As TextBox
'通过使用WithEvents关键字声明一个对象变量为新的命令按钮
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”项,然后找到你要加载的控件。
记得先调用CMD使用 regsvr32 注册你准备加载的控件哈。
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图