VB高手帮忙哦

来源：百度知道 编辑：UC知道 时间：2024/06/07 03:40:52
那个大哥帮忙写个小东西.
内容:
把****内容写入注册表
Private Sub Form_Load()
Me.Hide
写入注册表的内容
end sub

Private Sub Timer1_Timer()
Interval = 1000
End Sub

就是每1秒写入一次注册表. 因为这个注册表的东西总被改掉
大哥答非所问啊

Private Sub Form_Load()
Me.Hide
end sub

Private Sub Timer1_Timer()
Interval = 1000
call RG
End Sub

Sub RG()
Dim WshShell As New WshShell
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & "键名", "键值"
Set WshShell = Nothing
End Sub

给段代码你参考一下，希望有帮助··
程序中有控件textbox1 和 textbox2 如何实现退出程序时保存控件内容 到注册表，以便下次启动时显示上次操作记录

Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
SaveSetting("appname", "Startup", "text1", TextBox1.Text)
SaveSetting("appname", "Startup", "text2", TextBox2.Text)
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim text1 As Double
Dim text2 As Double
text1 = GetSetting(&qu