UC知道Vb编程 Shape 问题
来源：百度知道 编辑：UC知道 时间：2024/05/11 04:23:35
Private Sub Combo2_Change()
Select Case Itemdata
Case 0
Shape1.Shape = 0
Case 1
Shape1.Shape = 1
Case 2
Shape1.Shape = 2
Case 3
Shape1.Shape = 3
Case 4
Shape1.Shape = 4
Case 5
Shape1.Shape = 5
Case Else
Shape1.Shape = 0
End Select
End Sub
为什么 下拉框 选定以后没有效果？
Select Case Itemdata
Case 0
Shape1.Shape = 0
Case 1
Shape1.Shape = 1
Case 2
Shape1.Shape = 2
Case 3
Shape1.Shape = 3
Case 4
Shape1.Shape = 4
Case 5
Shape1.Shape = 5
Case Else
Shape1.Shape = 0
End Select
End Sub
为什么 下拉框 选定以后没有效果？
不给详细的信息不好办那!
不过摆放这个Shape的容器是啥?
窗体?PictureBox?讲清楚点!
我想应该是默认的在窗体上(既然你没讲),你的Shape不会是不可见吧?
或者将Select Case ItemData 一句改成 Select Case Combo2.Text看看
这是个特例,在Combo控件的缺省事件Change中无法实现,改用Click事件则实现使Shape控件的属性Shape改变:
Private Sub Combo2_Click()
Select Case Combo2
Case 0
Shape1.Shape = 0
Case 1
Shape1.Shape = 1
Case 2
Shape1.Shape = 2
Case 3
Shape1.Shape = 3
Case 4
Shape1.Shape = 4
Case 5
Shape1.Shape = 5
Case Else
Shape1.Shape = 0
End Select
End Sub