求VB6.点选Option按钮,写内置数
求解,怎么写代码,我先点击任意单选,或者复选按钮后在点击执行按钮能保存一个数到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