VB工程--百例73--d出式菜单

概述此题和VB工程--百例74如出一辙 Option Explicit Private Sub Form_Load()         With lbl1         .Caption = "欢迎登陆邢金聪的博客"         .FontBold = 28         .FontBold = True         .FontUnderline = True         '将标签中的 此题和VB工程--百例74如出一辙

Option Explicit

Private Sub Form_Load()
With lbl1
.Caption = "欢迎登陆邢金聪的博客"
.FontBold = 28
.FontBold = True
.FontUnderline = True '将标签中的文字加下划线
.Forecolor = RGB(255,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 ' 在窗体上创建d出式菜单
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

总结

以上是内存溢出为你收集整理的VB工程--百例73--d出式菜单全部内容，希望文章能够帮你解决VB工程--百例73--d出式菜单所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。