本帖最后由 chishingchan 于 2022-7-23 23:36 编辑
连这个 浏览... 按钮没反应也看不出哪里出问题!
$MainGUI = GUICreate("浏览按钮没有反应,请帮忙看看!", 480, 200, (@DesktopWidth - 480) / 2, (@DesktopHeight - 200) / 2, -1, BitOR(16, 256))
GUICtrlCreateLabel("输入(拖拽)文件", 10, 10, 460, 72)
Local $InputFile = GUICtrlCreateInput("", 10, 26, 394, 20)
GUICtrlSetState($InputFile, 8)
Local $InputBrowse = GUICtrlCreateButton("浏览...", 414, 26, 56, 20)
GUISetState(@SW_SHOW, $MainGUI)
While 1
Switch GUIGetMsg()
Case -3
ExitLoop
Case $InputBrowse
Local $sFileOpenDialog = FileOpenDialog("请选择一个可执行文件。", @WindowsDir & "", "可执行文件 (*.exe)", 1)
If @error Then
Else
GUICtrlSetData($InputFile, $sFileOpenDialog)
EndIf
EndSwitch
WEnd
|