UC知道vb小问题，谁来拿分
来源：百度知道 编辑：UC知道 时间：2024/05/24 22:19:06
想写个小东西，构思初期就通不过了，有问题如下：
一、想设定在这个软件首次启动时，弹出对话框提示用户“这是第一次运行，请先设置金额值”，然后设置了金额值后才出主界面；以后不再弹出；
二、设定程序自动检查当天是否为1号，如果是，则弹出第一个问题里那样的对话框，确认设置金额；
三、怎样让程序每次开机自动启动，不要告诉我复制到启动中去；
四、将修过的文本框里的内容存到记事本去，但不要抹去记事本中原有的内容
二楼高手哈，帮我答完肯定追加分给你，还有第四个问题呢。
另据你所写，正好今天是1号，然后我每次运行它都要我输，能不能改成1号只要设置过就不用再设置了
一、想设定在这个软件首次启动时，弹出对话框提示用户“这是第一次运行，请先设置金额值”，然后设置了金额值后才出主界面；以后不再弹出；
二、设定程序自动检查当天是否为1号，如果是，则弹出第一个问题里那样的对话框，确认设置金额；
三、怎样让程序每次开机自动启动，不要告诉我复制到启动中去；
四、将修过的文本框里的内容存到记事本去，但不要抹去记事本中原有的内容
二楼高手哈，帮我答完肯定追加分给你，还有第四个问题呢。
另据你所写，正好今天是1号，然后我每次运行它都要我输，能不能改成1号只要设置过就不用再设置了
解决
Dim jin As Double '储存金钱数
Dim f As Boolean
Private Sub Command1_Click() '查看金额
MsgBox "金额是" & jin
End Sub
Private Sub Command2_Click() '修改金额
SaveSetting "SalaryManage", "RunTime", "金额", Val(InputBox("请输入修改金额"))
Form_Load
f = True
End Sub
Private Sub Form_Load()
Dim strRtn As String '写如注册表 .检测是否是第一次运行
Dim Date1 As String
f = False
strRtn = GetSetting("SalaryManage", "RunTime", "Time", "run")
Date1 = GetSetting("SalaryManage", "RunTime", "日期", "111")
If strRtn = "run" Then
SaveSetting "SalaryManage", "RunTime", "金额", Val(InputBox("第一次运行，请输入金额"))
f = True
End If
If Day(Date) = 1 And Date1 <> Date Then '检查是否是1号
SaveSetting &