此題和vb工程--百例74如出一轍
option explicit
private sub form_load()
with lbl1
.caption = "歡迎登陸邢金聰的部落格"
.fontbold = 28
.fontbold = true
.fontunderline = true'將標籤中的文字加下劃線
.forecolor = rgb(255, 0, 0)
.left = (me.scalewidth - lbl1.width) / 2 '標籤框在窗體中水平居中
.top = (me.scaleheight - lbl1.height) / 2 '標籤框在窗體中垂直居中
end with
end sub
private sub form_mouseup(button as integer, shift as integer, x as single, y as single)這裡是這道題的關鍵
'釋放滑鼠事件
if button = 2 then'若按下鼠右鍵
popupmenu mnufont' 在窗體上建立彈出式選單
end if
end sub
private sub mnuf_click(index as integer)
select case index'以選單陣列的索引作為測試表示式
case 0
lbl1.font = "華文彩雲"
case 1
lbl1.font = "創意簡行楷"
case 2
lbl1.font = "方正彩雲簡體"
case 3
lbl1.font = "華康簡綜藝"
case 4
lbl1.font = "方正魏碑簡體"
end select
end sub
彈出式選單
彈出式選單 popmenu 大家都熟悉，在win98的桌面上單擊滑鼠右鍵彈出的選單就是彈出式選單。通常情況下，彈出式選單在滑鼠右鍵單擊時彈出，當然，也可以根據需要隨時彈出。在vc 5的mfc中，管理選單的類叫cmenu。下面我向大家介紹建立乙個彈出式選單的基本方法。一 在資源編輯器中建立乙個選單資源...
彈出式選單（PopMenu）
彈出式選單 popmenu 大家都熟悉，在win98的桌面上單擊滑鼠右鍵彈出的選單就是彈出式選單。通常情況下，彈出式選單在滑鼠右鍵單擊時彈出，當然，也可以根據需要隨時彈出。在vc 5的mfc中，管理選單的類叫cmenu。下面我向大家介紹建立乙個彈出式選單的基本方法。一 在資源編輯器中建立乙個選單資源...
製作彈出式選單
lonkil 很老的一篇關於選單的文章，還是不錯的。發出來吧！一 在資源編輯器中建立乙個選單資源 新建乙個選單資源，比如把選單的id號為idc popmenu。此選單有一項兩層，即有乙個可彈出的選單項，而此選單項的彈出內容即為將要建立的彈 出式選單的內容。如右圖，可彈出項 下的選單即為將要建立的彈出...