在窗体上画若干个控件，然后画两个列表框，其中一个列表框用来列出当前窗体上控件的名称，另一个列表框列出15种鼠标光标的形状（用数值表示）。程序运行后，从第一个列表框中选择控件或窗体，从第二个列表框中选择鼠标光标形状，为选择的控件或窗体设置所需要的鼠标光标形状。要求两个列表框隐藏，只在需要时显示出来。

    解：我们使用6个控件，即标签，图片框，文本框和命令按钮以及2个列表框，加上窗体共有7个对象。

按以下步骤操作。
（1）在窗体上画一个标签、一个图片框，一个文本框和一个命令按钮，然后画两个列表框。

（2）在窗体层定义如下变量
Dim conname As String
Dim moushape As Integer

（3）再编写如下事件过程：

Private Sub Form_Click()
    List1.Visible = False
    List2.Visible = False

    Select Case conname
      Case Is = "窗体"
        Form1.MousePointer = moushape
      Case Is = "标签"
        Label1.MousePointer = moushape
      Case Is = "图片框"
        Picture1.MousePointer = moushape
      Case Is = "文本框"
        Text1.MousePointer = moushape
      Case Is = "命令按钮"
        Command1.MousePointer = moushape
    End Select
End Sub

Private Sub Form_Load()

    List1.AddItem "窗体"
    List1.AddItem "标签"
    List1.AddItem "图片框"
    List1.AddItem "文本框"
    List1.AddItem "命令按钮"

    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"

    List1.Visible = False
    List2.Visible = False

End Sub

Private Sub List1_Click()
    conname = List1.Text
    List1.Visible = False
End Sub

Private Sub List2_Click()
    moushape = List2.Text
    List2.Visible = False
End Sub

Private Sub command1_Click()
    List1.Visible = True
    List2.Visible = True
End Sub

Private Sub label1_Click()
    List1.Visible = True
    List2.Visible = True
End Sub

Private Sub picture1_Click()
    List1.Visible = True
    List2.Visible = True
End Sub

Private Sub text1_Click()
    List1.Visible = True
    List2.Visible = True
End Sub

    运行程序，窗体上只显示4个控件，两个列表框不显示，此时只要单击显示的4个控件中的一个，就可以显示列表框。
具体操作：鼠标点击显示4个控件的任何一个，就可以让列表框显示，然后，再选择点击两个列表框中选项，最后要点击窗体空白处，就可以让选择的鼠标光标生效，再移动鼠标到下面的4个控件，看看鼠标光标是否改变了。

运行程序的效果图如下：

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_10.11.html