问题:
点击窗体的关闭按钮后,程序为何还在挂起的状态?
窗体的关闭按钮与 end有什么区别?(备注:end不会在后台挂起)
Private Sub Form_Activate()TxtInput.SetFocusEnd SubPrivate Sub Form_Load()Initialization
LoadINI_Parameter
InitiListview
End Sub
点击窗体的关闭按钮后,程序为何还在挂起的状态?
窗体的关闭按钮与 end有什么区别?(备注:end不会在后台挂起)
Private Sub Form_Activate()TxtInput.SetFocusEnd SubPrivate Sub Form_Load()Initialization
LoadINI_Parameter
InitiListview
End Sub
Public Sub LoadINI_Parameter()
gStation.IniFile = App.Path & "\" & App.EXEName & ".ini" ' set name of INI-File
mFileName = gStation.IniFile
'gStation.HelpFile = ReadIniFile("Station", "HelpFile", True, App.Path & "\" & "ReadMe.txt")
OptionSelection = ReadIniFile("Station", "CheckLastTransaction", True, 1)
frmSetting.Option1.Value = OptionSelection
If frmSetting.Option1.Value = True Then frmSetting.Option2.Value = False
If frmSetting.Option1.Value = False Then frmSetting.Option2.Value = True
TestTime = CDec(ReadIniFile("Setting", "Time", True, 1))
frmSetting.TxtTestTime = TestTime
TestVoltage = CDec(ReadIniFile("Setting", "Voltage", True, 1))
frmSetting.TxtTestVoltage = TestVoltage
TestLower = CDec(ReadIniFile("Setting", "Lower", True, 1))
frmSetting.TxtLimitLower = TestLower
TestUpper = CDec(ReadIniFile("Setting", "Upper", True, 1))
frmSetting.TxtLimitUpper = TestUpper
End Sub