📄 office2003控件使用列程.frm
字号:
VERSION 5.00
Object = "{CFF4333E-BC72-11D7-AE85-E4745CA80C3C}#2.0#0"; "OFFICE2003C.OCX"
Begin VB.Form Office2003控件使用列程
BorderStyle = 1 'Fixed Single
Caption = "Office2003控件使用列程"
ClientHeight = 5520
ClientLeft = 45
ClientTop = 330
ClientWidth = 8490
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5520
ScaleWidth = 8490
StartUpPosition = 2 '屏幕中心
Begin Office2003C.xplist xplist2
Height = 1515
Left = 6120
TabIndex = 9
Top = 1620
Visible = 0 'False
Width = 1545
_ExtentX = 2725
_ExtentY = 2672
End
Begin Office2003C.xplist xplist1
Height = 945
Left = 90
TabIndex = 2
Top = 2370
Visible = 0 'False
Width = 2175
_ExtentX = 3836
_ExtentY = 1667
End
Begin Office2003C.xpMenus xpMenus1
Height = 375
Left = 0
TabIndex = 0
Top = 0
Width = 8475
_ExtentX = 14949
_ExtentY = 661
End
Begin Office2003C.xpToolBar xpToolBar1
Height = 375
Index = 2
Left = 0
TabIndex = 4
Top = 780
Width = 8475
_ExtentX = 14949
_ExtentY = 661
End
Begin Office2003C.xpToolBar xpToolBar1
Height = 375
Index = 0
Left = 0
TabIndex = 1
Top = 390
Width = 5385
_ExtentX = 9499
_ExtentY = 661
End
Begin Office2003C.xpMback xpMback1
Height = 375
Left = 4500
TabIndex = 11
Top = 1140
Width = 3975
_ExtentX = 7011
_ExtentY = 661
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 195
Left = 2010
TabIndex = 14
Top = 120
Width = 225
End
Begin VB.ComboBox Combo1
Height = 300
Left = 300
TabIndex = 12
Text = "宋体字"
Top = 60
Width = 1485
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "可以编辑"
Height = 255
Left = 2310
TabIndex = 13
Top = 120
Width = 1035
End
End
Begin Office2003C.xpTBack xpTBack1
Height = 375
Left = 0
TabIndex = 5
Top = 1140
Width = 4515
_ExtentX = 7964
_ExtentY = 661
Begin VB.TextBox Text1
Height = 315
Index = 1
Left = 1560
TabIndex = 8
Top = 30
Width = 1185
End
Begin VB.TextBox Text1
Height = 315
Index = 0
Left = 180
TabIndex = 7
Top = 30
Width = 1185
End
Begin VB.TextBox Text1
Height = 315
Index = 2
Left = 2940
TabIndex = 6
Top = 30
Width = 1185
End
End
Begin VB.TextBox Edit
Height = 4005
Left = 0
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 10
Text = "Office2003控件使用列程.frx":0000
Top = 1530
Width = 8475
End
Begin Office2003C.xpToolBar xpToolBar1
Height = 375
Index = 1
Left = 5400
TabIndex = 3
Top = 390
Width = 3075
_ExtentX = 5424
_ExtentY = 661
End
Begin VB.Image Image1
Height = 480
Left = 1230
Picture = "Office2003控件使用列程.frx":0076
Top = 2310
Visible = 0 'False
Width = 480
End
End
Attribute VB_Name = "Office2003控件使用列程"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i As Integer
Dim n As Integer
Sub CreateMenus()
With xpMenus1
.Add "文件"
.Add "编辑"
.Add "视图"
.Add "工程"
.Add "格式"
.Add "调试"
.Add "运行"
.Add "查询"
.Add "图表"
.Add "工具"
.Add "外接程序"
.Add "窗口"
.Add "帮助"
End With
End Sub
Sub CreateLists(Index As Integer)
'------参数说明-----star
'Add(str,pic,lasts)
'str:选项的文字
'pic:选项前面的图片
'lasts:是否有下级菜单
'-------------------end
With xplist1
.Cls '要利用这一个控件建立通用的菜单，在建立前必须清除所有的选项
Select Case Index
Case 1
.Add "新建工程", Image1.Picture, False
.Add "打开工程", LoadPicture(), True
.Add "", 0, False
.Add "添加工程", Image1.Picture, False
.Add "移除工程", Image1.Picture, False
Case 2
.Add "lll", LoadPicture(), False
.Add "list", Image1.Picture, False
.Add "", 0, False
.Add "dir", LoadPicture(), True
.Add "diei", Image1.Picture, False
Case 3
.Add "lll", LoadPicture(), False
.Add "list", Image1.Picture, False
.Add "", 0, False
.Add "dir", Image1.Picture, True
.Add "diei", LoadPicture(), False
Case 4
End Select
.Visible = True
End With
End Sub
Sub CreateTools(Index)
With xpToolBar1(Index)
For i = 1 To 12
.Add Image1.Picture, 0
If i = 2 Or i = 4 Or i = 6 Or i = 8 Or i = 10 Then
.Add 0, 0
End If
Next i
End With
End Sub
Private Sub Edit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
xpMenus1.Refresh
xplist1.Visible = False
xplist2.Visible = False
End Sub
Private Sub Form_Load()
CreateMenus
CreateTools (0)
CreateTools (1)
CreateTools (2)
xplist2.Add "yxw1", Image1.Picture, False
xplist2.Add "yxw2", Image1.Picture, False
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If xplist1.Visible = False Then
xpMenus1.Refresh
End If
End Sub
Private Sub Form_Resize()
'xpMenus1.Top = 0
'xpMenus1.Left = 0
'xpMenus1.Width = Me.Width
End Sub
Private Sub xplist1_Click(indexs As Variant)
xplist1.Visible = False
xpMenus1.Refresh
Select Case n
Case 1
Select Case indexs
Case 1
Case 2
xplist1.Visible = True
Exit Sub
'弹出下级菜单
Case 3
Case 4
End Select
Case 2
Select Case indexs
Case 1
Case 2
Case 3
Case 4
End Select
Case 3
Case 4
Case 5
Case 6
'...............
End Select
MsgBox "你选择了第" & n & "个菜单," & "第" & indexs & "个选项!"
End Sub
Private Sub xplist1_MouseMove(Index As Integer, Top As Integer)
If n = 1 And Index = 2 Then
xplist2.Visible = True
xplist2.Left = xplist1.Left + xplist1.Width
xplist2.Top = xplist1.Top + Top
Else
xplist2.Visible = False
End If
End Sub
Private Sub xplist2_Click(indexs As Variant)
xplist2.Visible = False
xplist1.Visible = False
xpMenus1.Refresh
End Sub
Private Sub xpMenus1_ClickId(Index As Integer, Left As Integer)
CreateLists Index
xplist1.Left = xpMenus1.Left + Left
xplist1.Top = xpMenus1.Top + xpMenus1.Height - 20
End Sub
Private Sub xpMenus1_MTextMoveOn(Index As Integer, Left As Integer)
If xplist1.Visible = True Then
If xplist1.Left <> xpMenus1.Left + Left Then '此句很重要，如果不判断是否还在该位置移动将产生多次刷新，产生闪烁状态
CreateLists Index
End If
xplist1.Left = xpMenus1.Left + Left
xplist1.Top = xpMenus1.Top + xpMenus1.Height - 20
End If
n = Index
End Sub
Private Sub xpToolBar1_Click(Index As Integer, indexs As Integer)
Text1(Index) = indexs
End Sub
Private Sub xpToolBar1_RightClick(Index As Integer)
xplist2.Visible = True
xplist2.Top = xpToolBar1(Index).Top + xpToolBar1(Index).Height
xplist2.Left = xpToolBar1(Index).Left + xpToolBar1(Index).Width - xplist2.Width
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -