三九宝宝网宝宝百科宝宝知识

怎么用vb6 0编ActiveX控件

01月13日 编辑 39baobao.com

[android自定义控件怎么实现动态绘制]代码: public class MyView extends View { //坐标轴原点的位置 private int xPoint=60; private int yPoint=260; //刻度长度 private int xScale=8; //8个单位构成一个刻度...+阅读

都四级了。还0分悬赏~小气了点吧。 创建一个ActiveX控件工程 在“文件”选单中选择“新建工程”,然后双击“ActiveX控件”图标,生成一个控件工程项目(缺省名UserControl1)。此时设计窗口显示一个类似于窗体的界面(无边框),其属性窗口也类似于窗体的属性窗口,只是有很多熟悉的属性没有了,且还有一些一般窗体不具有的属性。选取“工程选单”最下面的“UserControl1属性”项,在出现的对话框中改工程名称为“MyControl”。

在属性窗口中改控件名称为“MyTime”。 到这里,就初步建立好了一个active控件工程。然后,我们来设计界面,我们加入一个timer(timer1)控件和一个label 控件,将timer1的“Interval”属性为1000,然后在Timer1_Timer()过程中加入如下代码: lblTime.Caption = Time 'Time 返回系统当前时间 现在将工程保存一下。由于控件工程不能独立运行,我们创建一个新的工程来测试一下设计的新控件。

选取“文件”选单上的“添加工程”,注意不要用“打开工程”或“新建工程”,那样会关闭控件工程。创建一个“Standard exe”工程,并将控件工程的设计窗口关闭,这时会发现在控件工具栏的最下边出现了一个名为“MyTime”的新控件。将其放至Form1窗体内,窗体上会出现一行文字,显示的正是当前时间,这就是新创建的MyTime的实例“MyTime1”。

然后把我们后来加的那个工程设置为启动工程,这样,按F5运行看看效果吧。到这里,我们就初步实现了一个最基镜腶xtive控件。下面我们介绍一些高级的东西。 2、添加属性 为我们的控件添加Interval属性,使的我们可以设置timer的间隔。步骤如下: 选择菜单“工程”》添加用户控件》vb Axtivex控件界面向导,然后点击打开按钮,在出现的界面中单击下一步,出现如下界面: 这里左边显示的是可用的属性,右边显示的是所有已经选择的属性。

我们先把右边的全部删除,然后在左边找的“Interval”,双击添加道右边,单击下一步。出现如下的界面: 上一个界面显示的是在你的自定义控件中那写控件已经有的属性,例如interval是timer控件有的。而这里可以加那些控件没有的,我么这里加一个TimeFormat属性,用来控制日期的显示格式。单击增加,在名称中输入TimeFormat,在类型中选择属性。

单击确定。 然后用同样的方法新建一个GetTime方法和一个click事件,之后图如下: 之后单击下一步,出现如下界面: 这里,左边是我们建立的一些元素,右边是映射到的控件和成员,我们这里对应关系如下: 设置好了之后,单击下一步,就出现如下界面: 这里列出了我们自定义的属性和方法,那些系统的属性和我们自定义的事件不在这里显示。

在上面的界面中,我们可以对我们刚才定义的属性:TimeFormat属性设置类型,默认值和运行时或则是设计时可改变与否,相信大家都看得懂。我们这里把类型设置为String,默认值为“hh-mm-ss",运行时为Read/Write,设计时为Read/Write。设置好了之后单击完成。然后可以在MyTime的代码窗口中看到程序为我们增加了一些代码。 这时,属性interval可以使用,但是,我们自己定义的属性TimeFormat并未生效,我们把Timer1_Timer过程改成如下: If Me.TimeFormat <> "" Then Label1.Caption = Format(Time, Me.TimeFormat) Else Label1.Caption = Time End If 改好之后,你在form1中把MyTime1的TimeFormat属性设置为:hh时mm分ss,在看看时间的显示吧。

也可以改变inteval属性来改变时间改变的间隔 如果我们双击Mytime1空间,可以看到,他有click事件。 Private Sub MyTime1_Click() End Sub 下面我们来分析以下click的原理: 我们会发现代码窗口中“通用”项下出现如下代码: Option Explicit Public Event Click() 大家也许能够看得出来,在这里只是定义了两个名称,它们和鼠标的Click毫无关系,下面的代码就把它们联系起来。

Private Sub UserControl_Click() RaiseEvent Click End Sub Private Sub Label1_Click() RaiseEvent Click End Sub RaiseEvent的功能是把控件或其上的子控件的事件进行转发,因为控件总是由其它的子控件组成,上面的代码的意思是:当你单击用户控件时,就出发控件的click事件,当label单击时,也出发。 现在关闭控件设计窗口,打开测试工程,在MyTime1的过程列表中,发现多了事件Click,点击Click,添加代码如下: Private Sub MyTime1_Click() MyTime1.Interval = 3000 Debug.Print "Interval的值为:" & MyTime1.Interval End Sub 运行测试工程,点击窗口中显示的时间,会在立即窗口中输出刚设定的Interval属性值是3000。

最后,我们刚才建立的方法还不能使用,我们现在来实现。可以看到,我们刚才的步骤完成好后,控件的代码窗口中自动加了如下代码: Public Function GetTime() As String End Function 我们改成如下: Public Function GetTime() As String GetTime = Time '返回当前时间,这里只是举例,大家可以加入其他的复杂代码 End Function 然后我们在测试工程中加入一个按钮(command1)在他的click事件中加入下面代码: Private Sub Command1_Click() MsgBox MyTime1....

以下为关联文档:

android开发如何在相对布局中动态添加控件首先setMargin方法不是RelativeLayout的方法,而是RelativeLayout.LayoutParams的方法。 你应该这麽用: RelativeLayout layout = new RelativeLayout(this); layout.setLayout...

求解:android中如何实现动态插入控件直接给你上代码吧,写了我半个小时,经过了我的测试了的~运行下就能看到结果了~关键的remove的时候有给你写注释~布局的layout文件内容:---------------------------------------...

vb如何制作控件利用vb自制ocx控件 刘明 (07/15/1999) 如今OCX控件在编程中已占领了很重要的地位,我们可以利用OCX控件完成一些相当复杂的编程操作。同时OCX控件还有利于主程序的简单化、功能...

vb中怎么添加控件1、首先打开VB6.0,选择“标准EXE”。 2、然后按下键盘上的“Ctrl+T”来选择部件。 3、在其中找到“Microsoft Multimedia Control 6.0”选项。 4、点击左侧的小框框来选中...

VB如何开发控件Tabstrip 应用实例:创建选项卡式对话框 TabStrip 控件用来创建包含多个选项卡的对话框。选项卡之间通常具有一定关系,属于某一大类,因此需要将它与其它选项卡放在同一对话框中...

vb如何实现在程序中一次生成大批控件sh(1).TextBox".Shape", "Shape_" & i) 用法如, "TextBox_" & I) '.Visible = True txtField(I).Enabled = True Next I 引用 txtField(I);设置控件的容器、位置、宽、高 Set txtFie...

如何在VB类模块中创建控件我是来混分的,也是为了以后遇到这种问题的人,能有个明确的知识可查。选不选我为标准答案不重要,重要的是,我看到这个了能解决我的问题。谢谢楼主分享。 这个问题已经解决了.发这...

在VB中如何动态创建控件讲话要文明点,特别是问问题时 给你两种方法 Option Explicit Dim oCtrl As Object '使得控件可以响应事件 Dim WithEvents MyBtn As CommandButton Private Sub Form_Load()...

vb中如何通过代码创建控件Option Explicit Private WithEvents NewButton As CommandButton '通过使用WithEvents关键字声明一个对象变量为新的命令按钮 Private Sub Command1_Click() If NewButton...

推荐阅读
图文推荐