關于 Combo 的簡單問題:-CSDN论坛

CSDN论坛 > VB > 控件

關于 Combo 的簡單問題: [问题点数：20分，结帖人CatchWind]

一键查看最优答案

确认一键查看最优答案？

本功能为VIP专享，开通VIP获取答案速率将提升10倍哦！

取消

开通vip会员

⋅这个程序是用脚本安装工具做的吗？ ⋅WebBrowser 控件动态写入 HTML 出错 ⋅DTPicker控件,一个让我郁闷很久的问题 更多帖子 关注私信空间博客 catchwind 本版专家分：3172 结帖率 97.5%: 當Combo的Text改變后,為何它的ListIndex不能同步改變?
有如下代碼:
Private Sub Form_Load()
    With Combo1
        .AddItem "AAAA"
        .AddItem "BBBB"
        .AddItem "CCCC"
        .AddItem "DDDD"
    End With
End Sub

Private Sub Command1_Click()
    Combo1.Text = "BBBB"
    Debug.Print Combo1.ListIndex
    '當Combo1的Style 設為組合下拉時,其ListIndex=-1,非得點擊一下下拉按鈕,才能變為1
    '當Style設為單純下拉時,其值為1
End Sub

我希望當Combo1的Style為組合下拉,當其Text改變后,其ListIndex也能自動跟著改變,如何做?

0 2004-10-22 09:51:59

回复数 6 只看楼主引用举报楼主

⋅我已经不做程序很多年了，我被csdn的邮件骚扰很困扰！！！！！！！！！！！！ ⋅IBM GDC 的工作机会 ⋅深圳地区急求 Oracle数据库管理员技术指南（作者:Sumit Sarin）书一本，要第2版的！ 更多帖子 关注私信空间博客 aiur2000 本版专家分：8341: 会自动变啊.

0 2004-10-22 09:56:43

只看TA 引用举报 #1 得分 0

⋅解决“两个电脑同一个串口通讯的问题”的主动让渡协议 ⋅只能看到帖子中楼主问题了 ⋅再问：HID-comlian device 和 USB 人体学输入设备 更多帖子 关注私信空间博客 of123 本版专家分：118816 红花 2014年6月 VB大版内专家分月排行榜第一 2014年5月 VB大版内专家分月排行榜第一 2014年4月 VB大版内专家分月排行榜第一 2014年3月 VB大版内专家分月排行榜第一 2014年2月 VB大版内专家分月排行榜第一 2014年1月 VB大版内专家分月排行榜第一 2013年11月 VB大版内专家分月排行榜第一 黄花 2013年12月 VB大版内专家分月排行榜第二 2013年3月 VB大版内专家分月排行榜第二 2013年1月 VB大版内专家分月排行榜第二 2012年9月 VB大版内专家分月排行榜第二 2012年8月 VB大版内专家分月排行榜第二 2012年7月 VB大版内专家分月排行榜第二 2006年7月 VB大版内专家分月排行榜第二 2006年5月 VB大版内专家分月排行榜第二 蓝花 2014年9月 VB大版内专家分月排行榜第三 2013年7月 VB大版内专家分月排行榜第三 2013年6月 VB大版内专家分月排行榜第三 2013年4月 VB大版内专家分月排行榜第三 2012年11月 VB大版内专家分月排行榜第三 2006年6月 VB大版内专家分月排行榜第三 2006年4月 VB大版内专家分月排行榜第三 2002年12月 VB大版内专家分月排行榜第三 2002年11月 VB大版内专家分月排行榜第三: Private Declare Function SendMessagebyString Lib _
"user32" Alias "SendMessageA" (ByVal hWND As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As Long

Private Const CB_FINDSTRINGEXACT = &H158

Private Sub Command1_Click()
Combo1.ListIndex = SendMessagebyString(Combo1.hWnd, CB_FINDSTRINGEXACT, -1, "BBBB")
End Sub

0 2004-10-22 09:58:41

只看TA 引用举报 #2 得分 20

⋅我已经不做程序很多年了，我被csdn的邮件骚扰很困扰！！！！！！！！！！！！ ⋅IBM GDC 的工作机会 ⋅深圳地区急求 Oracle数据库管理员技术指南（作者:Sumit Sarin）书一本，要第2版的！ 更多帖子 关注私信空间博客 aiur2000 本版专家分：8341: style 选2

0 2004-10-22 09:59:21

只看TA 引用举报 #3 得分 0

lyxhappy 本版专家分：1810: 是不会变的，只有触发combox 的click事件才会变的

0 2004-10-22 10:00:39

只看TA 引用举报 #4 得分 0

⋅这个程序是用脚本安装工具做的吗？ ⋅WebBrowser 控件动态写入 HTML 出错 ⋅DTPicker控件,一个让我郁闷很久的问题 更多帖子 关注私信空间博客 catchwind 本版专家分：3172: TO:of123() ( ) 信誉：120
你的辦法可能解決,謝謝!

0 2004-10-22 10:04:59

只看TA 引用举报 #5 得分 0

⋅这个程序是用脚本安装工具做的吗？ ⋅WebBrowser 控件动态写入 HTML 出错 ⋅DTPicker控件,一个让我郁闷很久的问题 更多帖子 关注私信空间博客 catchwind 本版专家分：3172: TO:of123() ( ) 信誉：120
還有一個問題是,我想將此代碼放在Combo1的Change事件中,雖然當時其ListIndex已經改變,但在Change事件之外顯示其值,仍為-1

請問,是何原因?

0 2004-10-22 11:20:15

只看TA 引用举报 #6 得分 0

收藏帖子