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

此题和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