VB窗体弹出菜单设计
发布时间:2020-12-17 08:20:20 所属栏目:百科 来源:网络整理
导读:VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3195 ClientLeft = 165 ClientTop = 450 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 3195 ScaleWidth = 4680 StartUpPosition = 3 '窗口缺省 Begin VB.Menu game Caption = "
VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3195 ClientLeft = 165 ClientTop = 450 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 3195 ScaleWidth = 4680 StartUpPosition = 3 '窗口缺省 Begin VB.Menu game Caption = "game" Visible = 0 'False Begin VB.Menu a1 Caption = "aaa" End Begin VB.Menu b1 Caption = "bbbb" End Begin VB.Menu c1 Caption = "cccc" End End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) ' If Button = 2 Then Me.PopupMenu Me.game End If End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |