📄 form1.frm
字号:
Width = 3135
_ExtentX = 5530
_ExtentY = 5530
_Version = 393217
Indentation = 471
Style = 7
ImageList = "ImageList1"
Appearance = 1
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 450
Left = 0
TabIndex = 1
Top = 5415
Width = 7590
_ExtentX = 13388
_ExtentY = 794
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 6
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 6306
MinWidth = 3528
Text = "新建文档"
TextSave = "新建文档"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
Bevel = 2
Picture = "Form1.frx":AF0E
Text = "播放"
TextSave = "播放"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Object.Width = 1411
MinWidth = 1411
TextSave = "12:53"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 1
Enabled = 0 'False
Object.Width = 972
MinWidth = 972
TextSave = "CAPS"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 3
Enabled = 0 'False
Object.Width = 776
MinWidth = 776
TextSave = "Ins"
EndProperty
BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 2
Object.Width = 776
MinWidth = 776
TextSave = "NUM"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 600
Left = 0
TabIndex = 0
Top = 0
Width = 7590
_ExtentX = 13388
_ExtentY = 1058
ButtonWidth = 820
ButtonHeight = 900
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "新建"
Key = "New"
Description = "新建"
Object.ToolTipText = "新建文档"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打开"
Key = "Open"
Description = "打开"
Object.ToolTipText = "打开文档"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存"
Key = "Save"
Description = "保存"
Object.ToolTipText = "保存文档"
ImageIndex = 3
Style = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "剪切"
Key = "Cut"
Description = "剪切"
Object.ToolTipText = "剪切"
ImageIndex = 4
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "复制"
Key = "Copy"
Description = "复制"
Object.ToolTipText = "复制"
ImageIndex = 5
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "粘贴"
Key = "Paste"
Description = "粘贴"
Object.ToolTipText = "粘贴"
ImageIndex = 6
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "撤消"
Key = "Undo"
Description = "撤消"
Object.ToolTipText = "撤消"
ImageIndex = 7
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 3
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "Undo1"
Text = "撤消1步"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "Undo2"
Text = "撤消2步"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "Undo3"
Text = "撤消3步"
EndProperty
EndProperty
EndProperty
EndProperty
BorderStyle = 1
End
Begin MSComctlLib.ProgressBar ProgressBar2
Height = 255
Left = 0
TabIndex = 6
Top = 0
Width = 3015
_ExtentX = 5318
_ExtentY = 450
_Version = 393216
Appearance = 1
Scrolling = 1
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
For i = 1 To 10
ImageCombo1.ComboItems.Add , , "条目" & i, i, i + 1, i
Next
End Sub '
Private Sub Form_Load()
Animation1.Open ("g:\findcomp.avi")
Animation1.Play
TreeView1.Nodes.Add , , "bj", "北京", 8, 8
TreeView1.Nodes.Add "bj", tvwLast, "tj", "天津", 8, 8
TreeView1.Nodes.Add "bj", tvwLast, "sh", "上海", 8, 8
TreeView1.Nodes.Add "bj", tvwLast, "js", "江苏", 8, 8
TreeView1.Nodes.Add "bj", tvwChild, "yq", "延庆", 9, 9
TreeView1.Nodes.Add "tj", tvwChild, "jh", "静海", 9, 9
TreeView1.Nodes.Add "js", tvwChild, "nj", "南京", 9, 9
TreeView1.Nodes.Add "nj", tvwNext, "sz", "苏州", 9, 9
TreeView1.Nodes.Add "nj", tvwLast, "wx", "无锡", 9, 9
TreeView1.Nodes.Add "nj", tvwLast, "cz", "常州", 9, 9
TreeView1.Nodes.Add "nj", tvwChild, "gl", "鼓楼区", 10, 10
TreeView1.Nodes.Add "nj", tvwChild, "xw", "玄武区", 10, 10
TreeView1.Nodes.Add "nj", tvwChild, "qh", "秦淮区", 10, 10
TreeView1.Nodes.Add "nj", tvwChild, "jy", "建邺区", 10, 10
TreeView1.Nodes.Add "nj", tvwChild, "bx", "白下区", 10, 10
TreeView1.Nodes.Add "nj", tvwChild, "yh", "雨花台区", 10, 10
TreeView1.Nodes.Add "nj", tvwChild, "pk", "浦口区", 10, 10
TreeView1.Nodes.Add "nj", tvwChild, "qx", "栖霞区", 10, 10
TreeView1.Nodes.Add "nj", tvwChild, "jn", "江宁区", 10, 10
Dim l As ListItem
Set l = ListView1.ListItems.Add(, , "美国", 1, 1)
l.ListSubItems.Add , , "北美洲"
l.ListSubItems.Add , , "9363000"
l.ListSubItems.Add , , "220000000"
Set l = ListView1.ListItems.Add(, , "加拿大", 2, 2)
l.ListSubItems.Add , , "北美洲"
l.ListSubItems.Add , , "9956700"
l.ListSubItems.Add , , "23690000"
Set l = ListView1.ListItems.Add(, , "法国", 3, 3)
l.ListSubItems.Add , , "欧洲"
l.ListSubItems.Add , , "550000"
l.ListSubItems.Add , , "53000000"
Set l = ListView1.ListItems.Add(, , "德国", 4, 4)
l.ListSubItems.Add , , "欧洲"
l.ListSubItems.Add , , "340000"
l.ListSubItems.Add , , "77000000"
Set l = ListView1.ListItems.Add(, , "意大利", 5, 5)
l.ListSubItems.Add , , "欧洲"
l.ListSubItems.Add , , "300000"
l.ListSubItems.Add , , "57000000"
Set l = ListView1.ListItems.Add(, , "挪威", 6, 6)
l.ListSubItems.Add , , "欧洲"
l.ListSubItems.Add , , "323917"
l.ListSubItems.Add , , "4080000"
Set l = ListView1.ListItems.Add(, , "韩国", 7, 7)
l.ListSubItems.Add , , "亚洲"
l.ListSubItems.Add , , "98477"
l.ListSubItems.Add , , "55000000"
Set l = ListView1.ListItems.Add(, , "瑞士", 8, 8)
l.ListSubItems.Add , , "欧洲"
l.ListSubItems.Add , , "41293"
l.ListSubItems.Add , , "6310000"
Set l = ListView1.ListItems.Add(, , "英国", 9, 9)
l.ListSubItems.Add , , "欧洲"
l.ListSubItems.Add , , "244000"
l.ListSubItems.Add , , "55000000"
Set l = ListView1.ListItems.Add(, , "澳大利亚", 10, 10)
l.ListSubItems.Add , , "大洋洲"
l.ListSubItems.Add , , "768000"
l.ListSubItems.Add , , "14400000"
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim i As Integer
Item.ForeColor = vbRed
For i = 1 To Item.ListSubItems.Count
Debug.Print Item.SubItems(i)
Next
End Sub
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
End Sub
Private Sub TabStrip1_Click()
Select Case TabStrip1.SelectedItem.Index
Case 1
Command2.Visible = True
Command3.Visible = False
Case 2
Command2.Visible = False
Command3.Visible = True
Case Else
Command2.Visible = False
Command3.Visible = False
End Select
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim n As Node
Set n = Node.Child
Do Until n Is Nothing
Debug.Print n.Text
Set n = n.Next
Loop
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -