vb 类模拟 引用

引用：http://wenku.baidu.com/view/f434ea26a5e9856a56126008.html

 

 

Class1中

Option Explicit

Public Sub test()
Form1.TextForIpAddressAdd.Text = "123"
End Sub

 

 

 

Form1中

Option Explicit

Private test As New Class1

Private Sub Form_Load() '初始化'

test.test
End Sub