论坛 › 已解决问题区 › 选择radio的后按钮不起作用(已解决)

auhj887 发表于 2010-4-27 22:01:52

选择radio的后按钮不起作用(已解决)

本帖最后由 auhj887 于 2010-4-29 11:41 编辑

看了论坛好几天，模仿做了一个选择打开Autoit帮助的小程序，不知道，为什么点击radio选择后，点按钮不不起作用，请大家帮看看。。。。谢谢

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 202, 255, 199, 177)
GUICtrlSetOnEvent(-1, "Form1Close")
$Radio1 = GUICtrlCreateRadio("Radio1", 40, 40, 113, 17)
GUICtrlSetOnEvent(-1, "rd_1")
$Radio2 = GUICtrlCreateRadio("Radio2", 40, 80, 113, 17)
GUICtrlSetOnEvent(-1, "rd_2")
$Button1 = GUICtrlCreateButton("Button1", 40, 176, 105, 41)
GUICtrlSetOnEvent(-1, "Button1Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Local $radio1, $radio2, $msg
While 1
      $nMsg = GUIGetMsg()
          Switch $nMsg
                        Case $GUI_EVENT_CLOSE
                  Exit                                       
                          Case $Button1
                                If GUICtrlRead( $Radio1 ) = 1 Then
                          rd_1()        
                            ElseIf GUICtrlRead( $Radio2 ) = 1 Then
                    rd_2()
                          Else   
                                endif
                                Button1Click()
                          
      EndSwitch
Wend

Func rd_1()
ControlCommand ("AutoIt Help", "", "", "SelectString", 'control')       
EndFunc       

Func rd_2()
ControlCommand ("AutoIt Help", "", "", "SelectString", '字符串')       
EndFunc       

Func Button1Click()
ControlClick("AutoIt Help","","","")
EndFunc       

Func Form1Close()
Exit
EndFunc

水木子 发表于 2010-4-27 22:46:16

怎么又有消息模式 又有事件模式？？？
你到底用哪种哦？

wuweixian 发表于 2010-4-28 05:51:19

If GUICtrlRead( $Radio1 ) == 1 Then :face (31):

auhj887 发表于 2010-4-28 06:22:26

回复 2# 水木子

我的目的是搜索下拉框选择对应字符串以后，按列出主题按钮。想以事件模式

netegg 发表于 2010-4-28 06:49:06

楼主先把书写习惯培养好再写代码吧
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        If GUICtrlRead( $Radio1 ) = 1 Then
                                rd_1()
                        Else
                                If GUICtrlRead( $Radio2 ) = 1 Then
                                        rd_2()
                                Else             --------->没想明白这句的用处
                                Endif
                                          --------->原来的这里差一句
                        Button1Click()
        EndSwitch
Wend
按你的代码，是不是这样？

3mile 发表于 2010-4-28 09:11:45

楼主代码看了让人蛋疼

auhj887 发表于 2010-4-28 15:42:56

本帖最后由 auhj887 于 2010-4-28 16:33 编辑

谢谢netegg, 应该好好检查。。。。。。。。
如何用input向命令中的‘contol’赋值
ControlCommand ("AutoIt Help", "", "", "SelectString", 'control')      。。。。。谢谢各位的指导

查看完整版本: 选择radio的后按钮不起作用(已解决)