VB6.0ä¸DropDownäºä»¶æ¯å½ ComboBox æ§ä»¶çå表é¨åæ£è¦è¢«æ¾ä¸æ¶åççäºä»¶ã
DropDown äºä»¶ï¼è¯¥äºä»¶æ¯å½ ComboBox æ§ä»¶çå表é¨åæ£è¦è¢«æ¾ä¸æ¶åçï¼å¦æ ComboBox æ§ä»¶ç Style
å±æ§è®¾ç½®ä¸º 1ï¼ç®åç Comboï¼æ¶æ¤äºä»¶ä¸ä¼åçã
说æ
DropDown äºä»¶è¿ç¨å¯ä»¥ç¨å¨æ¥åéæ©ä¹å对 ComboBox å表è¿è¡æåçåç§æ´æ°ãäºæ¯å
è®¸ä½¿ç¨ AddItem æ
RemoveItem æ¹æ³ä»è¯¥å表添å æå é¤æ¡ç®ãå¨éè¦æ§ä»¶é´ææäºç¸äºä½ç¨æ¶ï¼è¿ç§çµæ´»æ§æ¯å¾æç¨çï¼ä¾å¦ï¼éè¦æ ¹æ®å¨
OptionButton ç»ä¸çéæ©æè½å³å®å è½½å° ComboBox
å表çå
容æ¶ï¼å°±å¯ä»¥å©ç¨è¯¥äºä»¶ã
DropDown äºä»¶ç¤ºä¾
æ¬ä¾æ ¹æ®ç¨æ·å¨ä¸ä¸ªé项æé®ç»ä¸çéæ©æ¥æ´æ°ä¸ä¸ª ComboBox
æ§ä»¶ãè¦å°è¯è¿ä¸ªä¾åï¼å¯å°ä»£ç ç²è´´å°ä¸ä¸ª å
å« 1 个 ComboBox æ§ä»¶å 2 个 OptionButton
æ§ä»¶ççªä½ç声æé¨åãå°ä¸¤ä¸ª OptionButton æ§ä»¶ç Name å±æ§é½è®¾ç½®ä¸º OptionGroupï¼ç¶åæ F5
é®å¹¶åå» OptionButton æ§ä»¶ãæ ¹æ® OptionButton çéæ©ï¼ComboBox
æ§ä»¶åæ åºä¸åçè½½ä½ã
Private Sub Form_Load ()
Combo1.Text = "" ' æ¸
é¤ç»åæ¡ã
End Sub
Private Sub Combo1_DropDown ()
Combo1.Clear ' å é¤ä¹æç项ã
If OptionGroup(0).Value = True Then
Combo1.AddItem "Gray Goose Express", 0
Combo1.AddItem "Wild Fargo Carriers", 1
Else
Combo1.AddItem "Summit Technologies Overnight"
End If
End Sub