tcpuuu 发表于 2012-2-18 15:40:53

[已解决]請教 關於 下拉式選單

本帖最后由 tcpuuu 于 2012-2-22 15:42 编辑

#include <GUIConstantsEx.au3>
Opt('MustDeclareVars', 1)
Example()
Func Example()
    Local $msg
    GUICreate("My GUI combo")
    GUICtrlCreateCombo("請選擇",10,10,100) ; ?建一列表框(ComboBox)控件
    GUICtrlSetData(-1, "item2|item3", "請選擇") ; 在列表框中添加新目，并置一新的默值
    GUISetState()
    While 1
$msg = GUIGetMsg()
      
      If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
EndFunc   ;==>Example
======================================================================
選 2跳出    MsgBox(0, "","item2")
選 3跳出    MsgBox(0, "","item3")
這該怎麼做?

Ycxw2008 发表于 2012-2-18 20:34:10

$combo=GUICtrlCreateCombo("請選擇",10,10,100) ; ?建一列表框(ComboBox)控件

IfGUICtrlRead($combo)="item2" Then
          MsgBox(0, '', "item2")
ElseIf GUICtrlRead($combo)="item3" Then
          MsgBox(0, '', "item3")
EndIf

   好像就是你说的功能
不过这样的话会无限mb2

不知楼主想干嘛?好像还没见过类似的gui- -

benkel 发表于 2012-2-18 20:55:09

GUICreate("My GUI combo")
$cob = GUICtrlCreateCombo("請選擇",10,10,100) ; ?建一列表框(ComboBox)控件
GUICtrlSetData(-1, "item2|item3", "請選擇") ; 在列表框中添加新目，并置一新的默值
GUISetState()
While 1
        $msg = GUIGetMsg()
        Switch $msg
                Case -3
                        Exit
                Case $cob
                        MsgBox(0,'','你选择了:' & GUICtrlRead($cob))
        EndSwitch
WEnd

epac 发表于 2012-2-18 21:01:58

楼上的都解释清楚了咯

jtw 发表于 2012-2-18 21:15:15

3楼      正解

tcpuuu 发表于 2012-2-18 21:45:38

好像都不對?   
選1 可以 做A 動作
選2 可以 做B 動作
就像有2個 按鍵1樣;;;;;;;;;;;;;;;;;;;不是要讀取item2 的數值

benkel 发表于 2012-2-18 23:22:24

回复 6# tcpuuu

方法已经给出了，你要的效果自己再修改一下就行了，举一反三撒！

tcpuuu 发表于 2012-2-18 23:43:04

嗯! 我知道了CASSGUICtrlRead($cob) = item2   
                  CASS                              =3   
====================================
謝了 benkel   ..................
页: [1]
查看完整版本: [已解决]請教 關於 下拉式選單