Question

vb 选择组合框 为控件选择鼠标类型

看着代码长，其实简单
在窗体画若干控件，然后画两个列表框，其中一个用来列出当前窗体上控件名称，另一个列表框列出15种鼠标形状。程序运行后，从第一个列表框选择空间或者窗体，从第二个列表框选择鼠标光标形状，为选择的控件或窗体设置所需的鼠标形状。列表框开始隐藏，双击窗体就可显示

Dim Char, know
Private Sub Form_DblClick()
List1.Visible = True
List2.Visible = True
End Sub

Private Sub Form_Load()

List1.Visible = False
List2.Visible = False

List1.AddItem "Picture1"
List1.AddItem "Command1"
List1.AddItem "Label1"
List1.AddItem "Text1"

List2.AddItem "1"
List2.AddItem "2"
List2.AddItem "3"
List2.AddItem "4"
List2.AddItem "5"
List2.AddItem "6"
List2.AddItem "7"
List2.AddItem "8"
List2.AddItem "9"
List2.AddItem "10"
List2.AddItem "11"
List2.AddItem "12"
List2.AddItem "13"
List2.AddItem "14"
List2.AddItem "15"

End Sub

Private Sub List1_Click()
Char = List1.Text
Print Char
End Sub

Private Sub List2_Click()

know = Val(List2.Text)
Print know

If Char = picture1 Then

Select Case know '这个程序有问题没解决
Case 10

Picture1.MousePointer = 10
Case 2

Picture1.MousePointer = 2
Case 11

Picture1.MousePointer = 11

End Select

End If

End Sub

这个代码不完整，但我的思路估计您应该明白了，我这么设置结果picture1的鼠标形状根本不会变，但是如果把If Char = picture1改为If Char = Text1，则可按题目要求实现，为什么呢？还有其他简便算法么？
非常感谢，调用过程可以实现

可为什么我原来的不行呢，直接char=list1.text, char.mousepointer=list2.text
这样子错在哪了，本来就是大写开头的名称，用Lcase返回成小写作用何在？

Answer 1

Dim Ch As String
Dim know As Integer
Dim flg As Boolean

Private Sub Form_DblClick()
If flg Then
List1.Visible = False
List2.Visible = False
Else
List1.Visible = True
List2.Visible = True
End If
flg = Not flg
End Sub

Private Sub Form_Load()
flg = False
List1.Visible = False
List2.Visible = False

List1.AddItem "Picture1"
List1.AddItem "Command1"
List1.AddItem "Label1"
List1.AddItem "Text1"

List2.AddItem "1"
List2.AddItem "2"
List2.AddItem "3"
List2.AddItem "4"
List2.AddItem "5"
List2.AddItem "6"
List2.AddItem "7"
List2.AddItem "8"
List2.AddItem "9"
List2.AddItem "10"
List2.AddItem "11"
List2.AddItem "12"
List2.AddItem "13"
List2.AddItem "14"
List2.AddItem "15"
End Sub

Private Sub List1_Click()
chgmp LCase(List1.Text), Val(List2.Text)
End Sub

Private Sub List2_Click()
know = Val(List2.Text)
chgmp LCase(List1.Text), know
End Sub

Public Sub chgmp(obj As String, mpn As Integer)
Select Case obj
Case "text1"
Text1.MousePointer = mpn
Case "label1"
Label1.MousePointer = mpn
Case "command1"
Command1.MousePointer = mpn
Case "picture1"
Picture1.MousePointer = mpn

End Select
End Sub

试试看能否达到你要的效果.

===============新近回答==============
不行的原因是你原来的代码中Char = Picture1应为Char = "Picture1"或Char = Picture1.name
至于Lcase只是防止出现因大小写不同而加的.用文本框输入更有用.