下拉菜单.frm

来自「VB初级练习源码适合刚学习VB的人练习。。。。」· FRM 代码 · 共 81 行

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   3090
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu wj 
      Caption         =   "文件（&F）"
      Begin VB.Menu dk 
         Caption         =   "打开（&O）"
         Shortcut        =   ^O
      End
      Begin VB.Menu gb 
         Caption         =   "关闭（&W）"
         Shortcut        =   ^W
      End
      Begin VB.Menu a 
         Caption         =   "-"
      End
      Begin VB.Menu tc 
         Caption         =   "退出（&Z）"
         Shortcut        =   ^Z
      End
   End
   Begin VB.Menu bj 
      Caption         =   "背景（&B）"
      Begin VB.Menu h 
         Caption         =   "红"
      End
      Begin VB.Menu l 
         Caption         =   "绿"
      End
      Begin VB.Menu la 
         Caption         =   "蓝"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub dk_Click()
Form1.Show
bj.Enabled = True
gb.Enabled = True
End Sub

Private Sub gb_Click()
Form1.Hide
bj.Enabled = False
gb.Enabled = False
End Sub

Private Sub h_Click()
Form1.BackColor = RGB(255, 0, 0)
End Sub

Private Sub l_Click()
Form1.BackColor = RGB(0, 255, 0)
End Sub

Private Sub la_Click()
Form1.BackColor = RGB(0, 0, 255)
End Sub

Private Sub MDIForm_Load()
bj.Enabled = False
gb.Enabled = False

End Sub

Private Sub tc_Click()
End
End Sub