Private Sub Command1_Click()
Dim t001
Text1.Text = t001
t001 = Text1.Text
End Sub作者: yg125 时间: 2007-1-9 10:44
写到注册表、数据库、INI文件作者: west3 时间: 2007-1-9 11:20
Private Sub Form_Load()
Dim ls_Content() As String
Dim a As String, b As String
Open App.Path & "\setting.ini" For Input As #1
ls_Content = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
Close #1
a = ls_Content(0)
b = ls_Content(1)
Text1.Text = a
Text2.Text = b
End Sub