| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1411 人关注过本帖
标题:求VB6.点选Option按钮,写内置数
只看楼主 加入收藏
dux180
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2016-1-7
结帖率:0
收藏
已结贴  问题点数:20 回复次数:1 
求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
2016-01-07 13:38
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:20 
如果你没有少贴代码的话,你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
2016-01-10 18:08
快速回复:求VB6.点选Option按钮,写内置数
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.036235 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved