📄 frmmain.frm
字号:
ToolTipText = "把数据保存到文件"
Top = 2460
UseMaskColor = -1 'True
Visible = 0 'False
Width = 1125
End
Begin VB.CommandButton cmdExit
BackColor = &H00FFFFFF&
Caption = "退出程序"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1065
Left = 3795
MaskColor = &H00FFFFFF&
Style = 1 'Graphical
TabIndex = 6
ToolTipText = "把数据保存到文件"
Top = 2460
UseMaskColor = -1 'True
Visible = 0 'False
Width = 1125
End
Begin VB.CommandButton cmdClear
BackColor = &H00FFFFFF&
Caption = "清除列表"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1065
Left = 165
MaskColor = &H00FFFFFF&
Style = 1 'Graphical
TabIndex = 5
ToolTipText = "从文件中读入数据"
Top = 2460
UseMaskColor = -1 'True
Visible = 0 'False
Width = 1125
End
Begin VB.CommandButton cmdGenerateDiagram
BackColor = &H00FFFFFF&
Caption = "生成图表"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1065
Left = 6210
MaskColor = &H00FFFFFF&
Style = 1 'Graphical
TabIndex = 4
ToolTipText = "把数据保存到文件"
Top = 2460
UseMaskColor = -1 'True
Visible = 0 'False
Width = 1125
End
Begin MSComDlg.CommonDialog cdlg
Left = 300
Top = 3990
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Frame fra
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 0
Left = 1560
TabIndex = 1
Top = 360
Visible = 0 'False
Width = 1125
Begin VB.TextBox txtFilepath
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1770
TabIndex = 2
Top = 330
Width = 4320
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "当前数据文件路径："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 0
Left = 180
TabIndex = 3
Top = 390
Width = 1620
End
End
Begin MSComctlLib.ListView lvData
Height = 3135
Left = 1890
TabIndex = 0
ToolTipText = "请在要操作的数据前打勾"
Top = 2280
Width = 5850
_ExtentX = 10319
_ExtentY = 5530
View = 3
Arrange = 2
LabelEdit = 1
LabelWrap = 0 'False
HideSelection = 0 'False
HideColumnHeaders= -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
Picture = "frmMain.frx":2CEE
End
Begin VB.Image imgbtn
Height = 1500
Index = 2
Left = 60
Picture = "frmMain.frx":A61E
Top = 870
Visible = 0 'False
Width = 1500
End
Begin VB.Image imgbtn
Height = 1500
Index = 1
Left = 1020
Picture = "frmMain.frx":CB66
Top = 900
Visible = 0 'False
Width = 1500
End
Begin VB.Image imgbtn
Height = 1500
Index = 0
Left = 2100
Picture = "frmMain.frx":F119
Top = 870
Visible = 0 'False
Width = 1500
End
Begin VB.Image img
Height = 480
Index = 5
Left = 1026
Picture = "frmMain.frx":110D0
Top = 300
Visible = 0 'False
Width = 480
End
Begin VB.Image img
Height = 480
Index = 4
Left = 1752
Picture = "frmMain.frx":11512
Top = 300
Visible = 0 'False
Width = 480
End
Begin VB.Image img
Height = 480
Index = 3
Left = 3204
Picture = "frmMain.frx":11954
Top = 300
Visible = 0 'False
Width = 480
End
Begin VB.Image img
Height = 480
Index = 2
Left = 3930
Picture = "frmMain.frx":11D96
Top = 300
Visible = 0 'False
Width = 480
End
Begin VB.Image img
Height = 480
Index = 1
Left = 2478
Picture = "frmMain.frx":121D8
Top = 300
Visible = 0 'False
Width = 480
End
Begin VB.Image img
Height = 480
Index = 0
Left = 300
Picture = "frmMain.frx":1261A
Top = 300
Visible = 0 'False
Width = 480
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const lOffsetX As Long = 10
Const lOffsetY As Long = 7
Dim lX As Long, lY As Long
Dim fMouseStat As Boolean
Dim lLastID As Integer
'******************************************************
'*自定义函数
'******************************************************
'初始化
Sub InitProc()
LoadPath
pbsDataFileName = Trim(txtFilepath.Text)
pbasDataType(0) = "月 份"
pbasDataType(1) = "计划数据"
pbasDataType(2) = "实际数据"
pbasDataType(3) = "预测数据"
pbasLVKeyName(0) = "keyMonth"
pbasLVKeyName(1) = "keyPlan"
pbasLVKeyName(2) = "keyReal"
pbasLVKeyName(3) = "keyExpect"
pbasMonth(0) = "Jan"
pbasMonth(1) = "Feb"
pbasMonth(2) = "Mar"
pbasMonth(3) = "Apr"
pbasMonth(4) = "May"
pbasMonth(5) = "Jun"
pbasMonth(6) = "Jul"
pbasMonth(7) = "Aug"
pbasMonth(8) = "Sep"
pbasMonth(9) = "Oct"
pbasMonth(10) = "Nov"
pbasMonth(11) = "Dec"
pb(0).ToolTipText = "当输入完数据后，就可以点这里生成图表"
pb(1).ToolTipText = "添加、修改数据及设置数据单位"
pb(2).ToolTipText = "清除列表中的数据"
pb(3).ToolTipText = "从文件中导入数据"
pb(4).ToolTipText = "把数据保存到文件中"
pb(5).ToolTipText = "结束掉一切"
Dim l As Long
With lvData
For l = 0 To 3
.ColumnHeaders.Add , pbasLVKeyName(l), pbasDataType(l)
Next
.HideColumnHeaders = True
.Checkboxes = True
.FlatScrollBar = True
.FullRowSelect = True
.GridLines = True
'.HotTracking = True
.HideSelection = True
.MultiSelect = True
.FlatScrollBar = True
.PictureAlignment = lvwTile
LVinit
End With
Dim v As Variant
For Each v In pb
v.Picture = imgbtn(0).Picture
v.Tag = "0"
Next
pbsDataUnit = pbcntDefaultDataUnit
frmData.txtUnit = pbsDataUnit
End Sub
'初始化列表框:填入月份名
Sub LVinit()
Dim l As Long
lvData.ListItems.Clear
For l = 0 To 11
lvData.ListItems.Add , pbasMonth(l), FullMonthName(pbasMonth(l))
lvData.ListItems(l + 1).Checked = True
lvData.ListItems(l + 1).SubItems(1) = 0
lvData.ListItems(l + 1).SubItems(2) = 0
lvData.ListItems(l + 1).SubItems(3) = 0
Next
pbfInit = True
CheckButtonStat
End Sub
'将集合中的填充到列表
Sub CollectionToList()
On Error Resume Next
Dim v As Variant, li As ListItem, l As Long
For l = 0 To 11
Set li = lvData.ListItems(l + 1)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -