vb60速成(圖解)教材-資料下載頁
2025-06-29 08:04本頁面
【正文】 如果我們把它設(shè)為True，則當使用者選取了“取消”按鈕時程序會返回一個cdlCancel錯誤，通過捕捉這個錯誤并加以處理，我們就能避免程序的出錯。具體的使用可在源碼中看到實例。在狀態(tài)欄中顯示幫助信息 狀態(tài)欄是VB中的一個很有用的控件，但是默認狀態(tài)下它不在控件面板中，在我們使用它之前必須先添加，方法是按下Ctrl+T快捷鍵，在彈出的“Components”對話框中選中MS Windows Common Controls。這時在控件面板中會出現(xiàn)狀態(tài)欄的小圖標，雙擊此圖標就能把它添加到窗體中?！〗酉聛砦覀兏鶕?jù)自己的需要來編輯狀態(tài)欄，選中窗體上的狀態(tài)欄，在鼠標右鍵菜單中選擇“屬性Properties”，這時會彈出如上圖所示的對話框，我們選擇“Panels窗格”。其中“Insert Panel”按鈕用來添加狀態(tài)欄中的窗格數(shù)目，當我們添加一個窗格后“Index”的值也會自動加一，在程序中我們通過窗格的索引值來引用窗格。下面的一些項目都是窗格的屬性，我們可以在此設(shè)置也可在程序中控制它。比較常用的屬性有： “Text”在各個窗格中顯示的文字； “Alignment”窗格中文本的對齊方式； “Style”窗格的樣式(選擇0sbrText為顯示文本，選擇6sbrDate為顯示日期等等)； “Bevel”窗格的凹凸狀態(tài)?！ ×硗馕覀冞€可以在窗格中加入圖片，方法是點擊“Browse”然后選中圖片文件?！ ≡诒境绦蛑形覀冊诘谝粋€窗格中動態(tài)顯示幫助信息，在第二、三個窗格中分別顯示日期和時間。那么怎樣在程序中控制狀態(tài)欄中顯示的文本呢？ 例如我們希望鼠標移動到不同的按鈕上時狀態(tài)欄的第一個窗格中顯示不同的幫助，則我們在按鈕的OnMouseOver事件中加入如下語句即可： Private Sub CmdNew_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) (1).Text = (1).Text = 清空文本框 End Sub 同樣的我們能為其它按鈕等控件添加幫助信息?！ 榱藢W(xué)習(xí)方便，提供的源碼已經(jīng)作了詳細的中文注釋，看看源碼框中的代碼：這樣狀態(tài)欄中就能動態(tài)顯示幫助信息了。使用右鍵菜單的例子 右鍵菜單能讓軟件的使用者快捷的完成操作，那么如何把右鍵菜單用在自己寫的程序中呢？在這個小程序中我們能看到編輯并使用右鍵菜單的方法?！ 榱藢W(xué)習(xí)方便，提供的源碼已經(jīng)作了詳細的中文注釋，看看源碼框中的代碼： 我們先打開菜單編輯器(在工具菜單中)，然后添加一個一級菜單Popmenu，將它的Visible屬性設(shè)為“False”，這代表菜單在程序運行時是看不到的，由于一級菜單是二級菜單的上級菜單，所以二級菜單也是看不到的。然后我們來添加幾個二級菜單，注意每個菜單都有Caption屬性和Name屬性，這兩個屬性是必須寫的，Caption屬性是顯示在菜單項上的內(nèi)容，而Name屬性則是我們要在程序中引用菜單項的代號，類似與其它控件的Name屬性。而菜單中分隔線是通過把Caption屬性設(shè)為“”來實現(xiàn)的?！ 〔藛尉庉嫼煤?，就能在程序中引用并控制它，在本例中我們希望在文本框上點擊鼠標右鍵時彈出這個右鍵菜單，則需要在文本框的MouseDown事件中加入控制語句： Private Sub RichTextBox1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button = 2 Then 39。如果是鼠標右鍵按下時 mnufile, 0, X, Y 39。彈出右鍵菜單 End If End Sub 其中MouseDown事件各個參數(shù)意義如下： button返回一個整數(shù)，用來標識該事件的產(chǎn)生是按下哪個按鍵，其中左鍵為0，右鍵為2，中間鍵為4 shift 返回一個整數(shù)，標示是否同時有Shift,Ctrl,Alt鍵按下 x, y 返回一個指定鼠標指針當前位置的數(shù) Popupmenu是一個方法： PopupMenu方法用來彈出一個菜單，語法是： menuname, flags, X, Y mnufile是我們在菜單編輯器中設(shè)計好的菜單的名稱 X,Y是彈出菜單的位置，可以為數(shù)字，如果直接寫為X,Y則是在當前鼠標位置彈出菜單 這樣就能調(diào)出右鍵菜單，然后我們根據(jù)自己的需要，為每個菜單項的Click事件編寫代碼，完成一些特定的操作，右鍵菜單就可以使用了。最后效果如下圖所示：歡迎您的光臨，！希望您提出您寶貴的意見，你的意見是我進步的動力。贈語； 如果我們做與不做都會有人笑，如果做不好與做得好還會有人笑，那么我們索性就做得更好，來給人笑吧！ 現(xiàn)在你不玩命的學(xué)，以后命玩你。我不知道年少輕狂，我只知道勝者為王。不要做金錢、權(quán)利的奴隸；應(yīng)學(xué)會做“金錢、權(quán)利”的主人。什么時候離光明最近？那就是你覺得黑暗太黑的時候。最值得欣賞的風景，是自己奮斗的足跡。壓力不是有人比你努力，而是那些比你牛幾倍的人依然比你努力。 參
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1