定义用户自定义控件

5.4.2　定义用户自定义控件

本案例程序需要定义一个用户自定义控件来提高程序的效率。用户自定义控件是在VB提供的基本控件基础上，允许用户再增加自己定义的功能；使用自定义控件的好处是除了该控件具备基本控件的功能外，可以增加用户自己设定的新的功能。

本案例我们来定义一个基于TextBox控件的新的用户自定义控件。具体方法如下：

在“工程资源管理器”中右击鼠标，选择“添加”→“添加用户控件（U）”（见图5-13），在弹出的对话框中选择“用户控件”后，点击“打开”按钮，就会出现一个新的不带任何边框的窗体，将此窗体的名称属性修改为“ctlTextBox”，这个名称就是我们新定义的用户控件类型名，后面我们就可以定义“ctlTextBox”类型的控件实体了。

从工具箱中拖一个TextBox控件到这个设计窗体中，名称采用默认的Text1，将Text1控件的Text属性默认值清空。进入代码窗体，按“代码5-5”所示编写该窗体代码后，点击保存项目按钮，按照提示保存，在工具箱中我们会发现多了一个新的用户自定义控件的图

图5-13　添加用户定义控件

标，这样，这个基于TextBox控件的自定义控件就设置完成了。

代码5-5　用户自定义控件ctlTextBox代码

′****************************************************************************

Dim charAccept As Integer

′charAccept如果被设置为

′0-任何字符

′1-只有数字

′2-只有字符

Public Property Get charType（）As Integer ′Get过程声明

　　charType=charAccept

End Property

Public Property Let charType（ByVal vNewVal As Integer） ′Let过程声明

　　charAccept=vNewVal

End Property

Private Sub usercontrol＿readproperties（propbag As PropertyBag） ′从存储器中加载属性值

　　charType=propbag.ReadProperty（″charType″，0）

End Sub

Private Sub usercontrol＿writeproperties（propbag As PropertyBag）

′将属性值写到存储器（工程项目）

　　propbag.WriteProperty″charType″，charAccept，0

End Sub

′######################################################

′定义文本框样式

′######################################################

Private Sub Text1＿GotFocus（） ′获取焦点效果

　　Text1.BackColor=vbYellow

　　Text1.ForeColor=vbBlue

End Sub

Private Sub Text1＿LostFocus（）′失去焦点效果

　　Text1.BackColor=vbWhite

　　Text1.ForeColor=vbBlack

End Sub

′用户输入数据的效果设置

Private Sub Text1＿KeyPress（KeyAscii As Integer）

　　If KeyAscii=vbKeyBack Then ′vbKeyBack代表退格（Backspace）键

　　　　　Exit Sub

　　End If

　　Select Case charAccept

　　　　Case 0 ′任意字符

　　　　　　Exit Sub

　　Case 1 ′仅仅是数值

　　　　　If（KeyAscii＞=48And KeyAscii＜=57）Then

　　　　　　　Exit Sub

　　　　　Else

　　　　　　　KeyAscii=0

　　　　　　　Beep

　　　　　　　MsgBox″无效数据！″，vbExclamation，″数据错误！″

　　　　　End If

　　Case 2 ′仅仅是字符

　　　　If（KeyAscii＞=65And KeyAscii＜=90）Then

　　　　　　Exit Sub

　　　　ElseIf（KeyAscii＞=97And KeyAscii＜=122）Then

　　　　　　Exit Sub

　　　　Else

　　　　　　KeyAscii=0

　　　　　　Beep

　　　　　　MsgBox″无效数据！″，vbExclamation，″数据错误！″

　　　　End If

　　End Select

End Sub

′######################################################

′用户定义的控件大小按用户自己的设置调整

′######################################################

Private Sub UserControl＿Resize（）

　　Text1.Height=UserControl.ScaleHeight

　　Text1.Width=UserControl.ScaleWidth

End Sub

′######################################################

′设置TextBox的TEXT属性

′######################################################

Public Property Get Text（）As String

　　Text=Text1.Text

End Property

Public Property Let Text（ByVal New＿Text As String）

　　　 Text1.Text（）=New＿Text

　　　 PropertyChanged″Text″

End Property