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

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 ' 在窗体上创建弹出式菜单
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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!