在窗體上畫若干個控件,然后畫兩個列表框,其中一個列表框用來列出當前窗體上控件的名稱,另一個列表框列出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

本站文章搜索:

<< 上一篇下一篇 >>

搜索

Tags列表

掃我手機登錄

贊助商鏈接

黑龙江22选5开奖结果