vb写注册表

来源：百度文库编辑：神马文学网时间：2024/04/25 18:12:36

Private Sub Command2_Click()
SaveSetting AppName:="KennieConn", Section:="NJXSettings", Key:="MyComputerName", setting:=MyComputerName.Text
SaveSetting AppName:="KennieConn", Section:="NJXSettings", Key:="MyIp", setting:=MyIp.Text
SaveSetting AppName:="KennieConn", Section:="NJXSettings", Key:="MyDataBaseName", setting:=MyDataBaseName.Text
SaveSetting AppName:="KennieConn", Section:="NJXSettings", Key:="MySqlUser", setting:=MySqlUser.Text
SaveSetting AppName:="KennieConn", Section:="NJXSettings", Key:="MySqlPassword", setting:=MySqlPassword.Text
'SaveSetting App.Title, "Settings", "MyComputerName", MyComputerName.Text
'SaveSetting App.Title, "Settings", "MyIp", MyIp.Text
'SaveSetting App.Title, "Settings", "MyDataBaseName", MyDataBaseName.Text
'SaveSetting App.Title, "Settings", "MySqlUser", MySqlUser.Text
'SaveSetting App.Title, "Settings", "MySqlPassword", MySqlPassword.Text
MsgBox "更改成功，已保存数据！"
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
MyComputerName.Text = GetSetting(AppName:="KennieConn", Section:="NJXSettings", Key:="MyComputerName", Default:="(local)")
MyIp.Text = GetSetting(AppName:="KennieConn", Section:="NJXSettings", Key:="MyIp", Default:="192.168.3.168")
MyDataBaseName.Text = GetSetting(AppName:="KennieConn", Section:="NJXSettings", Key:="MyDataBaseName", Default:="MDTextile")
MySqlUser.Text = GetSetting(AppName:="KennieConn", Section:="NJXSettings", Key:="MySqlUser", Default:="sa")
MySqlPassword.Text = GetSetting(AppName:="KennieConn", Section:="NJXSettings", Key:="MySqlPassword", Default:="168")
'MyComputerName.Text = GetSetting(App.Title, "Settings", "MyComputerName", "(local)")
'MyIp.Text = GetSetting(App.Title, "Settings", "MyIp", "192.168.3.168")
'MyDataBaseName.Text = GetSetting(App.Title, "Settings", "MyDataBaseName", "MDTextile")
'MySqlUser.Text = GetSetting(App.Title, "Settings", "MySqlUser", "sa")
'MySqlPassword.Text = GetSetting(App.Title, "Settings", "MySqlPassword", "168")
End SubPrivate Sub MyIp_KeyPress(KeyAscii As Integer)
'设置IP地址输入的地方只能输入数字0-9和"."
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 46 Then
KeyAscii = 0
End If
End Sub

vb写注册表注册表详解vb 用VB读写注册表实例 VC VB 操作注册表API VC VB 操作注册表API VB读写注册表的三种方法2 不写注册表的注册程序注册表注册表| 注册表注册表注册表注册表注册表注册表注册表注册表超精简加封装的VB注册表读写删改操作代码超精简加封装的VB注册表读写删改操作代码 C++写的DLL，传结构给VB用 ### 微软亚洲技术中心的高手们，请解决：如何在VB中调用VC++写的VXD？ ### -... CCF技术论坛 - 在VB中将数据库里的某一字段的值赋给一个变量，这个语句如何写？读写注册表 Windows2000注册表