Question

vb程序设计

vb程序设计13.14 在窗体上画若干个控件，然后画两个列表框，其中一个列表框用来列出当前窗体上控件的名称，另一个列表框列出15种鼠标光标的形状。程序运行后，从第一个列表框中选择控件或窗体，从第二个列表框中选择鼠标光标形状，为选择的控件或窗体设置所需要的鼠标光标形状，如图13-8所示：

Answer 1

Private Sub Command1_Click()

Dim obj As Object, myMouse As Integer

If List1.SelCount > 0 And List2.SelCount > 0 Then

For Each obj In Me.Controls

If obj.Name = List1.Text Then

myMouse = Val(List2.Text)

obj.MousePointer = myMouse

End If

Next

End If

End Sub

Private Sub Form_Load()

Dim obj As Object

For Each obj In Me.Controls

  List1.AddItem obj.Name

Next

For i = 1 To 15

List2.AddItem i

Next

End Sub

Answer 2

我有，源码已发，请注意查收邮件主题“编程爱好社——计算器源码”