求助，请问如果保留选择“否”的状态？ - VB6论坛

第 11 楼

得分:0

问题未解决，顶一次

第 12 楼

得分:0

搜噶

第 13 楼

得分:0

以下是引用jrs123在2012-11-23 23:15:45的发言：

问题未解决，顶一次

以下是引用jrs123在2012-10-23 14:59:57的发言：

这是收集到的一段代码，但如何用到实例中，不知具体代码如何写？
新建一个模块,复制下面的内容
Public inipath As String
Public Declare Function GetPrivateProfileString Lib _
"kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
lpKeyName As Any, ByVal lpDefault As String, ByVal lpretunedstring As String, ByVal nSize As Long, _
ByVal lpFileName As String) As Long
                                                                                '读INI文件
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long                '写INI文件
Public Function GetFromINI(Appname As String, Keyname As String, _
      Filename As String) As String
      Dim RetStr As String
      RetStr = String(255, Chr(0))
      GetFromINI = Left(RetStr, GetPrivateProfileString(Appname, ByVal Keyname, "", RetStr, Len(RetStr), Filename))
End Function
'**************************************************************
'                     读INI文件函数

Public Function WriteINI(inipath As String, Appname As String, Keyname As String, value As String)
Dim stemp As String
stemp = value
Call WritePrivateProfileString(Appname, Keyname, stemp, inipath)
End Function

'**************************************************************
'                     写INI文件函数

'以下为窗体中的内容,不要弄混乱了
On Error GoTo Cwcl
SerName = GetFromINI("RFYSER", "SERVER", App.Path & "\RFYPOS.ini")      '服务器名
UidName = GetFromINI("RFYSER", "UID", App.Path & "\RFYPOS.ini")         '用户名
DataName = GetFromINI("RFYSER", "DATASER", App.Path & "\RFYPOS.ini")            '数据库名
PwdName = GetFromINI("RFYSER", "PWD", App.Path & "\RFYPOS.ini")                 '密码
YongHuBianma = GetFromINI("RFYSER", "PER", App.Path & "\RFYPOS.ini")            '用户编号
Cwcl:
If Err.Number <> 0 Then
MsgBox Err.Description
End
End If
'说明:GetFromINI函数的用法,参照下面INI文件,文件名为RFYPOS.INI

这不就行了吗？
LZ问一下你和360什么关系？("如果发现电脑有异常，建议安装360安全卫士及浏览器等相关软件：
http://www.)

无知

第 14 楼

得分:0

回复 13楼 Artless

谢谢Artless版主的回复。这组代码我试了很久总是没通过，水平太菜了，今打包上来请教，盼相助。
又：本人与360无关，这是几年前觉得360是免费的功能也多才写的。由于很久没来论坛，忘刷新此签字，现已不再提。谢谢提醒！

按钮包.rar (6.77 KB)

第 15 楼

得分:0

其实问题的提出理念很简单，就是在窗体上要由一个实体而不是二个实体（按钮或图形及其它），来表现二种状态（如是或否，有或无）；
只是要求关闭软件后要保留这个状态（难度就在这里）；
在网上查了很多内容，也没见类似的问题答案；

第 16 楼

得分:0

找到按钮状态代码，但还有不足之处，请那位高手优化一下：
问题：四个钮状态0-1需要建四个TXT文本文件，能否优化成一个TXT文件？代码如何写？
代码如下：
Private cmdflag As Byte
Private Sub Command1_Click()
If cmdflag Then
Command1.Caption = "否"
cmdflag = 0
Else
Command1.Caption = "是"
cmdflag = 1
End If
Filenum = FreeFile
Open "flag1.dat" For Output As Filenum
Print #Filenum, Format(cmdflag, 0)
Close Filenum
End Sub
Private Sub Command2_Click()
If cmdflag Then
Command2.Caption = "否"
cmdflag = 0
Else
Command2.Caption = "是"
cmdflag = 1
End If
Filenum = FreeFile
Open "flag2.dat" For Output As Filenum
Print #Filenum, Format(cmdflag, 0)
Close Filenum
End Sub
Private Sub Command3_Click()
If cmdflag Then
Command3.Caption = "否"
cmdflag = 0
Else
Command3.Caption = "是"
cmdflag = 1
End If
Filenum = FreeFile
Open "flag3.dat" For Output As Filenum
Print #Filenum, Format(cmdflag, 0)
Close Filenum
End Sub
Private Sub Command4_Click()
If cmdflag Then
Command4.Caption = "否"
cmdflag = 0
Else
Command4.Caption = "是"
cmdflag = 1
End If
Filenum = FreeFile
Open "flag4.dat" For Output As Filenum
Print #Filenum, Format(cmdflag, 0)
Close Filenum
End Sub
Private Sub Form_Load()
'***************其他次Form_Load用代码****************
Filenum = FreeFile
Open "flag1.dat" For Input As Filenum
cmdflag = Input(1, Filenum)
Close Filenum
If cmdflag Then
Command1.Caption = "是"
Else
Command1.Caption = "否"
End If
Filenum = FreeFile
Open "flag2.dat" For Input As Filenum
cmdflag = Input(1, Filenum)
Close Filenum
If cmdflag Then
Command2.Caption = "是"
Else
Command2.Caption = "否"
End If
Filenum = FreeFile
Open "flag3.dat" For Input As Filenum
cmdflag = Input(1, Filenum)
Close Filenum
If cmdflag Then
Command3.Caption = "是"
Else
Command3.Caption = "否"
End If
Filenum = FreeFile
Open "flag4.dat" For Input As Filenum
cmdflag = Input(1, Filenum)
Close Filenum
If cmdflag Then
Command4.Caption = "是"
Else
Command4.Caption = "否"
End If
End Sub

第 17 楼

得分:0

状态钮基本上解决了，谢谢各位！