📄 frmmainmdi.frm
字号:
VERSION 5.00
Object = "*\A..\RevMDITabs.vbp"
Begin VB.MDIForm frmMainMDI
AutoShowChildren= 0 'False
BackColor = &H8000000C&
Caption = "多文档选项卡(MDITabs)控件示例"
ClientHeight = 5055
ClientLeft = 165
ClientTop = 855
ClientWidth = 8955
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
Begin RevMDITabs.RevMDITabsCtl RevMDITabsCtl1
Left = 45
Top = 45
_ExtentX = 847
_ExtentY = 847
Style = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.PictureBox picStatusBar
Align = 2 'Align Bottom
BorderStyle = 0 'None
Height = 320
Left = 0
ScaleHeight = 315
ScaleWidth = 8955
TabIndex = 2
Top = 4740
Width = 8955
Begin VB.Label Label5
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 60
TabIndex = 8
Top = 60
Width = 7455
End
End
Begin VB.PictureBox picBar
Align = 4 'Align Right
BorderStyle = 0 'None
Height = 4740
Left = 6060
ScaleHeight = 4740
ScaleWidth = 2895
TabIndex = 0
Top = 0
Width = 2895
Begin VB.CheckBox chkDrawIcons
BackColor = &H00F8F8F8&
Caption = "图标显示"
Height = 195
Left = 180
TabIndex = 10
Top = 2820
Value = 1 'Checked
Width = 1995
End
Begin VB.CheckBox chkDrawFocusRect
BackColor = &H00F8F8F8&
Caption = "焦点框显示"
Height = 195
Left = 180
TabIndex = 9
Top = 2520
Width = 1995
End
Begin VB.ComboBox cboStyle
Height = 300
ItemData = "frmMainMDI.frx":0000
Left = 180
List = "frmMainMDI.frx":000D
Style = 2 'Dropdown List
TabIndex = 3
Top = 1695
Width = 1575
End
Begin VB.CommandButton cmdchangecaption
Caption = "改变标题"
Height = 375
Left = 165
TabIndex = 1
Top = 3225
Width = 1575
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "支持.NET, Office 2003 和 Office 2000 风格."
Height = 480
Left = 195
TabIndex = 7
Top = 780
Width = 2535
End
Begin VB.Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "多文档选项卡控件"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 180
TabIndex = 6
Top = 420
Width = 2535
End
Begin VB.Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "枕善居"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 5
Top = 180
Width = 2655
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "样式选择:"
Height = 195
Left = 180
TabIndex = 4
Top = 1455
Width = 2175
End
Begin VB.Shape shpBorder
BackColor = &H00F8F8F8&
BackStyle = 1 'Opaque
BorderColor = &H80000010&
BorderStyle = 5 'Dash-Dot-Dot
Height = 4635
Left = 60
Top = 60
Width = 2775
End
End
Begin VB.Menu mnuFileTop
Caption = "文件(&F)"
Begin VB.Menu mnuFileNew
Caption = "新建(&N)"
Shortcut = ^N
End
Begin VB.Menu mnuFileOpen
Caption = "打开(&O)..."
Shortcut = ^O
End
Begin VB.Menu mnuFileSep0
Caption = "-"
End
Begin VB.Menu mnuFileClose
Caption = "关闭(&C)"
End
Begin VB.Menu mnuFileSep1
Caption = "-"
End
Begin VB.Menu mnuFileExit
Caption = "退出(&E)"
End
End
Begin VB.Menu mnuWindowTop
Caption = "窗口(&W)"
WindowList = -1 'True
End
Begin VB.Menu mnuHelpTop
Caption = "帮助(&H)"
Begin VB.Menu mnuHelpAbout
Caption = "关于(&A)..."
End
End
Begin VB.Menu mnuPopup
Caption = "Popup"
Visible = 0 'False
Begin VB.Menu mnuPopupClose
Caption = "关闭(&C)"
End
End
End
Attribute VB_Name = "frmMainMDI"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cboStyle_Click()
RevMDITabsCtl1.Style = cboStyle.ListIndex
End Sub
Private Sub chkDrawFocusRect_Click()
RevMDITabsCtl1.DrawFocusRect = chkDrawFocusRect.Value
End Sub
Private Sub chkDrawIcons_Click()
RevMDITabsCtl1.DrawIcons = chkDrawIcons.Value
End Sub
Private Sub cmdchangecaption_Click()
Me.ActiveForm.Caption = " 新标题文档 "
End Sub
Private Sub MDIForm_Load()
mnuFileNew_Click
cboStyle.ListIndex = 2
End Sub
Private Sub mnuFileNew_Click()
Static lDocID As Long
Dim frm As New frmChild
lDocID = lDocID + 1
frm.Caption = " 测试文档 " & lDocID
frm.Show
End Sub
Private Sub mnuFileClose_Click()
If ActiveForm Is Nothing Then Exit Sub
Unload ActiveForm
End Sub
Private Sub mnuPopupClose_Click()
mnuFileClose_Click
End Sub
Private Sub picBar_Resize()
shpBorder.Move 15, 15, picBar.Width - 30, picBar.Height - 15
End Sub
Private Sub RevMDITabsCtl1_ColorChanged(NewColor As stdole.OLE_COLOR)
picBar.BackColor = NewColor
End Sub
Private Sub RevMDITabsCtl1_TabBarClick(Button As Integer, X As Long, Y As Long)
Debug.Print "TabBarClick (" & Button & ", " & X & ", " & Y & ")"
End Sub
Private Sub RevMDITabsCtl1_TabClick(TabHwnd As Long, Button As Integer, X As Long, Y As Long)
Debug.Print "TabClick (" & TabHwnd & ", " & Button & ", " & X & ", " & Y & ")"
If Button = vbRightButton Then
PopupMenu mnuPopup, vbPopupMenuLeftAlign, (X + 3) * Screen.TwipsPerPixelX, (Y + 22) * Screen.TwipsPerPixelY
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -