初识 ActiveX 控件——VB的第一个输入框控件

RT，主要用于了解一个商用网站上密码输入框的开发方式。

 My1stVBActiveX.zip  


MyUserControl.ctl

VERSION 5.00
Begin VB.UserControl MyUserControl
   ClientHeight    =   510
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2115
   ScaleHeight     =   510
   ScaleWidth      =   2115
   Begin VB.TextBox Text1
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Text            =   "1+2="
      Top             =   0
      Width           =   1815
   End
End
Attribute VB_Name = "MyUserControl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'http://hi.baidu.com/zhangsanbin/blog/item/42b3944dc5b855e1d62afc79.html
'http://hi.baidu.com/to_red/blog/item/e8ce260a14f0671194ca6ba3.html
' 打包 http://hi.baidu.com/eezhou520/blog/item/97dfb028ec060ff398250aa7.html

Private iMyNum As Long

' MyNum 可读写属性
Public Property Get MyNum() As Long
    MyNum = iMyNum
End Property

Public Property Let MyNum(ByVal num As Long)
    iMyNum = num
End Property


' MyTxt 只读属性
Public Property Get MyTxt()
    MyTxt = Text1.Text
End Property

' MyAdd 方法
Public Function MyAdd(ByVal a As Long, ByRef b As Long) As Long
    MyAdd = a + b
End Function


Private Sub UserControl_Initialize()
    Text1.Text = Text1.hWnd
End Sub

Private Sub UserControl_Terminate()
    '
End Sub