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