有一个问题不知道是不是bug

gang75vb 2003-11-19 08:11:49
Private Sub Combo1_Click()
Combo1.Text = "Problem"
End Sub

Private Sub Form_Load()
Combo1.AddItem "hello"
Combo1.AddItem "World"
End Sub

以上的代码中,我想在改变Combo1的内容的时候使Combo1的内容是Problem,但是怎么Combo1的内容不是Problem,而是什么都没有,信请试一下。
...全文
22 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
gang75vb 2003-11-20
  • 打赏
  • 举报
回复
我要的效果不是这个,列表里面没有"Problem"
__ANDY__WU 2003-11-19
  • 打赏
  • 举报
回复
combo1.style=1
Private Sub Combo1_Click()
Combo1.listindex = A ( A 为"Problem"在列表中的序数)
End Sub
gang75vb 2003-11-19
  • 打赏
  • 举报
回复
都不行啊!我要求选择"hello"或"World"的时候 ,Combo1的内容是"Problem"
boydgmx 2003-11-19
  • 打赏
  • 举报
回复
首先,想改变其text属性,就必须在设计时将style属性设置为0
Private Sub Form_Load()
Combo1.AddItem "hello"
Combo1.AddItem "World"
End Sub

Private Sub Combo1_Change()
Combo1.Text = "Problem"
End Sub
经测试,click事件中无法实现,只好使用change事件
3661512 2003-11-19
  • 打赏
  • 举报
回复

Private Sub Combo1_Click()
Combo1.Text = "Problem"
End Sub

Private Sub Form_Load()
Combo1.AddItem "hello"
Combo1.AddItem "World"
End Sub
Private Sub Combo1_Change()
Combo1.Text = "Problem"
End Sub

都应该有才行,click是下拉框选择条目情况下激发,change是编辑内容的时候激发
cryptonym 2003-11-19
  • 打赏
  • 举报
回复
Private Sub Combo1_Change()
Combo1.Text = "Problem"
End Sub

7,732

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧