主页 > 其它问答 > > (vb怎么做控件)vb中怎么添加控件
最佳回答 最佳答案

本回答由网友推荐

利欲熏心

问题:你那里面好像什么都没找到啊
利用vb自制ocx控件刘明(07/15/1999)如今OCX控件在编程中已占领了很重要的地位,我们可以利用OCX控件完成一些相当复杂的编程操作。
同时OCX控件还有利于主程序的简单化、功能的重用、隐藏程序实现细节、便于升级、传播方便等优点。
现在我们可以利用VB50方便地制作出自己的OCX控件供我们在编程中使用,同时还可以把它送给你周围喜欢编程的朋友!下面列出制作OCX控件的步骤:
一:
新建OCX打开VB50选择新建工程在对话框中选择ActiveX控件,打开后会见一空的文档,这就是OCX控件的初始界面。
想看一看空OCX控件的效果吗?选择“添加工程”选中标准EXE,这时你就可以像调用其它控件一样在左边的工具栏里选择刚才新建的OCX控件图标,放在标准的EXE文档中看一看有什么效果!(什么也没有!)自然因为刚才的OCX文档是空的嘛。
二:
创建界面一般我们用VB创建OCX控件都是在我们的控件里添加其它的控件来组合成一个完整的控件(也可以让它只完成某种算法),比如:你可以在上面添加一按钮、编辑框,这时你再用第一部的方法看一看效果,是不是控件上多了一个按钮和一个编辑框。
三:
OCX属性一个OCX控件有许多的属性,比如控件背景是否透明(BackStyle),控件是否可以获得焦点(CanGetFocus)等。
这些属性都可以在控件的“属性框”中找到。
四:
添加事件一个控件有很多事件,如:Click、MouseDown、MouseUp、MouseMove等。
要触发这些事件都需要你加入代码。
在控件的声明处加入PublicEventClick()就表明该控件有一“Click”事件。
自己编写的控件有什么事件就在声明处加几条事件。
关于触发事件是使用“RaiseEvent”语句来完成的,如:RaiseEvent事件名(参数)。
五:
用户属性一个控件应有许多属性供用户设置,如:控件的背景色、控件要显示的图形等。
它们通常用PropertyGet和PropertyLet两条语句来完成。
前者表示给用户显示一个属性的值,后者表示用户设置一个属性的值。
六:
保存属性和读取属性当属性被用户更改后需要将该属性值保存,以便控件运行时读取更改后的属性值。
它们分别用ReadProperty和WriteProperty两种方法来完成。
前者表示读取一个属性值,后者表示写入一个属性值。
好了,一个简单的OCX控件制作方法大概就需要以上几步就可完成。
有兴趣的朋友不妨一试。

赞同 (13673)

反对 (835)

其它回答
陪我吹吹风

问题:我做了一个控件,但怎样也能,做出一个控件的事件?(例如:单击事件等等)请你,请教谢谢
Tabstrip应用实例:
创建选项卡式对话框TabStrip控件用来创建包含多个选项卡的对话框。
选项卡之间通常具有一定关系,属于某一大类,因此需要将它与其它选项卡放在同一对话框中。
在该应用实例中,创建了用来设置RichTextBox的字体和缩进的选项卡式对话框。
代码分别如下:
PrivateSuboptBullet_Click()'Form对象的ScaleMode被设置为“缇”。
=500=TrueEndSubPrivateSuboptNormal_Click()=FalseEndSub在Load事件中使用Move方法放置Frame控件为了在客户区上放置Frame控件,可以在Form对象的Load事件中使用Move方法,如下所示:
PrivateSubForm_Load()'TabStrip名为“tabRTF”。
'Frame控件名为“fraTab”。
Fori=0TofraTabCount-1WithfraTab(i)MovetabRTFClientLeft,_tabRTFClientTop,_tabRTFClientWidth,_tabRTFClientHeightEndWithNextI'将第一个fraTab控件显示在最前面。
fraTab(0)ZOrder0EndSub看了你的问题感觉你应该还是个初学者吧,你现在不是要学怎么开发控件,最好把api学好,当你到一定程度的时候自然懂的,,如果非要学开发其实也没什么难的,新建一个activex控件工程,拉个textbox,自己编写代码

赞同 (14711)

反对 (704)

寄笑颜

给你一个示例,该示例动态创建20个文本框,但必须在开始设计时,在窗体放置一个文本框,并命名为Text!(0)即可。
等会发给你。
PrivateSubCommand1_Click()DimAAsInteger,BAsIntegerA=1B=0ForI=1To20LoadText1(I)Text1(I)Visible=TrueText1(I)Top=A*360Text1(I)Left=120+(B)*1220IfIMod5=0ThenA=A+1B=0ElseB=B+1EndIfNextILabel1Visible=TrueCommand1Enabled=FalseEndSubPrivateSubForm_Load()Text1(0)Text=""Label1Visible=FalseCommand1Enabled=TrueEndSub其实特别简单先创建数组控件,再使用加载进去就行。
publicisexistsasbooleanprivatesubcommand1_click()dimlblaslabelifisexists=falsethensetlbl=mecontrolsadd("vblabel","lbl")isexists=truelblcaption="label1"lbltop=200lblwidth=7000lblvisible=trueendifendsub

赞同 (26455)

反对 (80)

夜里等你

问题:怎么添加,百度过了,理解能力问题,居然看不懂,呵呵高手举个看得懂的实例。
简单点的,就以向工具箱内加一个差不多的command控件为例吧。
与本身的按钮控件差不多就成一楼说的是VB6。
0吗,还是不懂,不是加载像webbrowser那样的控件,是指自己做一个控件,然后把它放到工具箱里`````
OCX控件???
在VB控件条上鼠标右键出现的菜单上选《部件》出现界面的右边中间有一个《浏览》按钮然后加载控件就有了如果是没有编译的*CTL文件在工程管理器(VB程序界面上右上角,显示一大堆窗体和模块的名字那里)在这个框里面点右键→添加→添加用户控件切换到现存(这个界面可以选择新建现存)。
应该可以了吧个人建议如果有控件的原代码建议用添加CTL来添加控件,不需要注册新建的控件了在工程资源管理器里面,在form1上面点鼠标右键,点增加>增加用户控件>选择现存选项卡>找到自己制作的控件文件路径并打开,就可以了啊!
在控件工具栏上右键,单击组件(好像是组件),然后在弹出的窗口里面找你的控件。
如果找不到,把这个窗口关闭,再把你的控件复制到c:\windows\system32,然后再用上面的方法打开刚才那个窗口,选择你的控件,打勾在它前面,确定如果还是不行,选浏览(好像是浏览吧?)然后找到你的控件的位置,确定。
我用的是英文的vb,所以……呵呵,有的地方不记得是什么字了,不过大概就这个意思吧

赞同 (88282)

反对 (195)

邪少〃

DateTimePicker控件使您可以提供格式化的日期字段,使得进行日期选择很容易。
另外,用户还可以从类似于MonthView控件的下拉式日历界面中选择日期。
DateTimePicker控件,有两种操作模式:
下拉式日历模式(缺省)—允许用户显示一种能够用来选择日期的下拉式日历。
时间格式模式—允许用户在日期显示中选择一个字段(例如:月、日、年等等),按下控件右边的上下箭头来设置它的值。
可以自定义控件的下拉式日历的外观。
使用各种颜色属性,例如CalendarBackColor、CalendarForeColor、、和,允许创建属于您自己的颜色方案。
DateTimePicker控件是ActiveX控件组的一部分,包含在MSCOMCT2OCX文件中。
要在应用程序中使用DateTimePicker控件,须将MSCOMCT2OCX文件加入到工程之中。
添加方式:
工程->部件->microsoftwindowscommoncontrols-260

赞同 (15732)

反对 (939)

一树摇光

问题:我知道如何用控件在组合成一个自制的按钮我想问有什么简便的办法可以快速的创建自制的按钮我不想一个一个的复制再说要改的时候也比较麻烦啊请问谁知道告诉我一下啊
什么意思??
是你的这个自定义控件需要在多个工程里使用吗?
如果是,那么你有二个选择。

1、建立一个OCX工程,然后把这个按钮放到里面,编译为OCX,然后其它工程就可以添加使用了。
控件修改编译后,其它工程里引用的就是新的。

2、随便做一个工程,然后做好这个按钮来。
代码需要全部放到控件里或再加一个BAS文件都可以。
使用时,在工程里添加这个控件文件(如果有BAS文件则还需要添加),不要把控件文件复制到当前工程目录下,使用相对引用路径,如果你需要修改这个控件时,只需修改前面那个工程,保存后,然后把所引用于这个控件的工程重新打开,就是新版控件了。

赞同 (36720)

反对 (439)

手指浪潮

不知道你的准确意思,是想在一行按固定间距显示图形控件,并依次设置控件的shape的属性为1——5。
如果是:
按下法:
在窗口放置一个图形控件,名为shape1,index为0PrivateSubForm_Click()FontSize=12CurrentX=350Print"0";Fori=1To5loadshape1(i)shape1(i)visible=trueShape1(i)Left=Shape1(i-1)Left+1050Shape1(i)Shape=iCurrentX=CurrentX+750Printi;NextiEndSub

赞同 (49340)

反对 (508)

崂山仙

在控件工具栏上右键,单击组件(好像是组件),然后在弹出的窗口里面找你的控件。
如果找不到,把这个窗口关闭,再把你的控件复制到C:\windows\system32,然后再用上面的方法打开刚才那个窗口,选择你的控件,打勾在它前面,确定如果还是不行,选浏览(好像是浏览吧?)然后找到你的控件的位置,确定。
我用的是英文的VB,所以……呵呵,有的地方不记得是什么字了,不过大概就这个意思吧

赞同 (59854)

反对 (477)

漫前路

可通过设置控件visible属性为false来隐藏控件。
范例代码如下:
privatesubcommand1_click()text1visible=falseendsub点击command1按钮,text1控件将被隐藏。
备注:
控件visible属性为可见性,visibe属性取值为true则控件显示;
visible属性取值为false,则控件隐藏。

赞同 (69568)

反对 (891)

心尚温

最简单的办法就是自定义控件,以窗体作为自定义控件背景,其他的你自己画。
再拖过去用就可以把它设置成透明了。

赞同 (75404)

反对 (962)

相关百科

(拓印包怎么做视频)怎样做拓片

准备印泥、宽胶带、白纸。 把印泥均匀的涂抹到发动机号上,然后用宽胶带仔细的粘到发动机号(印泥上),用手抚平一下,随后揭下来,粘到白纸上,即大...全文

等你回答

换一换