# Re: 档案输出.....

Posted by 哈林 on January 17, 1999 at 22:55:54:

In Reply to: 档案输出..... posted by 芳思 on January 17, 1999 at 20:14:59:

:在模组(Module)中宣告使用者资料形态(Type)
:例->
:
:Module1:
:Type MyData
:cName As String
:cADD As String
:End Type
:
:Dim cData As MyData
:Private Sub Command1_Click()
:cData.cName = Text1.Text
:cData.cADD = Text2.Text
:GetData
:End Sub
:
:Sub GetData()
:Text1.Text = ""
:Text2.Text = ""
:Label1.Caption = cData.cName & "," & cData.cADD
:End Sub

Follow Ups: