使用VB编写一个窗体程序,打开这个窗体后,自动读取C:\documents and settings
使用VB编写一个窗体程序,打开这个窗体后,自动读取C:\documentsandsettings\1.txt,并将其中的唯一一个值赋给变量“cla”,退出这个窗体,如果找...
使用VB编写一个窗体程序,打开这个窗体后,自动读取C:\documents and settings\1.txt,并将其中的唯一一个值赋给变量“cla”,退出这个窗体,如果找不到文件,打开窗体后点击窗体中的commend1,将text1.text赋cla,同时在C:\documents and settings\1.txt处新建一个文件,保存这个cla的值。
请各位大侠赐教!不胜感激! 展开
请各位大侠赐教!不胜感激! 展开
展开全部
不知我对你的要求理解的正确与否,给个参考程序。朋友。
Dim cla As String
Private Sub Command1_Click()
Open "C:\documents and settings\1.txt" For Output As #1
Print #1, Text1
Close
End Sub
Private Sub Form_Load()
If Dir("C:\documents and settings\1.txt") <> "" Then
Open "C:\documents and settings\1.txt" For Input As #1
Input #1, cla
Close
end
Else
MsgBox "单击command1创建文件!"
End If
End Sub
Dim cla As String
Private Sub Command1_Click()
Open "C:\documents and settings\1.txt" For Output As #1
Print #1, Text1
Close
End Sub
Private Sub Form_Load()
If Dir("C:\documents and settings\1.txt") <> "" Then
Open "C:\documents and settings\1.txt" For Input As #1
Input #1, cla
Close
end
Else
MsgBox "单击command1创建文件!"
End If
End Sub
追问
为什么我的vb没有open这个函数呢?只能用fileopen不知道是为什么。另外,如果我希望退出form1打开form2,语句又该怎么写?为什么不能用unload和load呢?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询