注册 登录
编程论坛 VB6论坛

求VB6.点选Option按钮,写内置数

dux180 发布于 2016-01-07 13:38, 1501 次点击
只有本站会员才能查看附件,请 登录
求解,怎么写代码,我先点击任意单选,或者复选按钮后在点击执行按钮能保存一个数到TXT文档啊!,。比如我点击 A Option1,执行过后保存是数是2,点击 C Option2 执行过后保存是数是5

我写的怎么是空白啊,不要输入的,要内置的。。。


Private Sub Check1_Click()
MM = 9
End Sub
Private Sub Check2_Click()
MM = 19
End Sub

Private Sub Command1_Click()
strFileName = App.Path & "\001.ini"
lngHandle = FreeFile()

strWrite = AA

Open strFileName For Output As lngHandle
Print #lngHandle, strWrite
Close lngHandle


strFileName = App.Path & "\A01.ini"
lngHandle = FreeFile()

strWrite = MM

Open strFileName For Output As lngHandle
Print #lngHandle, strWrite
Close lngHandle
End Sub

Private Sub Form_Load()

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Option1_Click()
AA = 5
End Sub

Private Sub Option2_Click()
AA = 6
End Sub

Private Sub Option3_Click()
AA = 8
End Sub
1 回复
#2
xiangyue05102016-01-10 18:08
如果你没有少贴代码的话,你MM和AA必然都不能写入文本,
MM和AA在 Check1_Click、Option1_Click和Command1_Click都是局部两变量,你要用它传递数据必须在窗体层面上变成全局变量。
程序代码:

Dim MM as integer, AA as integer
Private Sub Check1_Click()
MM = 9
End Sub
Private Sub Check2_Click()
MM = 19
End Sub

Private Sub Command1_Click()
strFileName = App.Path & "\001.ini"
lngHandle = FreeFile()

strWrite = AA

Open strFileName For Output As lngHandle
Print #lngHandle, strWrite
Close lngHandle


strFileName = App.Path & "\A01.ini"
lngHandle = FreeFile()

strWrite = MM

Open strFileName For Output As lngHandle
Print #lngHandle, strWrite
Close lngHandle
End Sub

Private Sub Form_Load()

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Option1_Click()
AA = 5
End Sub

Private Sub Option2_Click()
AA = 6
End Sub

Private Sub Option3_Click()
AA = 8
End Sub
1