日积月累的代码 Private Sub chkLoadTipsAtStartup_Click() ' 保存在下次启动时是否显示此窗体 SaveSetting App.EXEName, "Options", "在启动时显示提示", chkLoadTipsAtStartup.Value End Sub 应该不是这里的错
主窗体代码为: Private Sub MDIForm_Load() Me.Show frmTip.Show vbModal End Sub 出错在 frmTip.Show vbModal这句
Private Sub MDIForm_Load() Me.Show Dim ShowAtStartup As Long
' 察看在启动时是否将被显示 ShowAtStartup = GetSetting(App.EXEName, "Options", "在启动时显示提示", 1) If ShowAtStartup = 0 Then Else frmTip.Show End If End Sub
Private Sub chkLoadTipsAtStartup_Click()
' 保存在下次启动时是否显示此窗体
SaveSetting App.EXEName, "Options", "在启动时显示提示", chkLoadTipsAtStartup.Value
End Sub
应该不是这里的错
Private Sub MDIForm_Load()
Me.Show
frmTip.Show vbModal
End Sub
出错在 frmTip.Show vbModal这句
Me.Show
Dim ShowAtStartup As Long
' 察看在启动时是否将被显示
ShowAtStartup = GetSetting(App.EXEName, "Options", "在启动时显示提示", 1)
If ShowAtStartup = 0 Then
Else
frmTip.Show
End If
End Sub