📄 form10month.frm
字号:
Width = 210
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 1440
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483632
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 15
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form10month.frx":0442
Key = "expright"
Object.Tag = "向左扩展"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form10month.frx":0896
Key = "expleft"
Object.Tag = "向右收缩"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form10month.frx":0CEA
Key = "2dstring"
Object.Tag = "二纬折线图"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form10month.frx":113E
Key = "2dbar"
Object.Tag = "二纬条形图"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form10month.frx":1592
Key = "3dstring"
Object.Tag = "三纬折线图"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form10month.frx":19E6
Key = "3dbar"
Object.Tag = "三纬柱状图"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form10month.frx":1D06
Key = "rright"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form10month.frx":215A
Key = "rleft"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form10month.frx":25AE
Key = "rcentral"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form10month.frx":2E8A
Key = "turnh"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form10month.frx":32DE
Key = "turnb"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form10month.frx":3732
Key = "loogen"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form10month.frx":3B86
Key = "shorten"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form10month.frx":3FDA
Key = "rup"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form10month.frx":442E
Key = "rdown"
EndProperty
EndProperty
End
Begin MSComCtl2.UpDown UpDown1
Height = 270
Left = 480
TabIndex = 12
Top = 480
Width = 195
_ExtentX = 344
_ExtentY = 476
_Version = 393216
Value = 2000
BuddyControl = "Text2"
BuddyDispid = 196609
OrigLeft = 540
OrigTop = 360
OrigRight = 735
OrigBottom = 630
Max = 2010
Min = 2000
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 21
Top = 4980
Width = 9390
_ExtentX = 16563
_ExtentY = 609
Style = 1
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Height = 420
Left = 5280
TabIndex = 24
Top = 1920
Visible = 0 'False
Width = 2220
_ExtentX = 3916
_ExtentY = 741
ButtonWidth = 609
ButtonHeight = 582
Appearance = 1
ImageList = "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 7
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "expright"
Object.ToolTipText = "向左扩展"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "expleft"
Object.ToolTipText = "向右收缩"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "bar1"
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "2dstring"
Object.ToolTipText = "二纬折线图"
ImageIndex = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "2dbar"
Object.ToolTipText = "二纬条形图"
ImageIndex = 4
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "3dstring"
Object.ToolTipText = "三纬折线图"
ImageIndex = 5
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "3dbar"
Object.ToolTipText = "三纬柱状图"
ImageIndex = 6
EndProperty
EndProperty
BorderStyle = 1
End
Begin MSComctlLib.Toolbar Toolbar4
Height = 390
Left = 4665
TabIndex = 25
Top = 3480
Visible = 0 'False
Width = 375
_ExtentX = 661
_ExtentY = 688
ButtonWidth = 609
ButtonHeight = 582
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 1
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "rdown"
Object.ToolTipText = "向下旋转"
ImageIndex = 15
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar3
Height = 390
Left = 4665
TabIndex = 26
Top = 2760
Visible = 0 'False
Width = 375
_ExtentX = 661
_ExtentY = 688
ButtonWidth = 609
ButtonHeight = 582
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 1
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "rup"
Object.ToolTipText = "向上旋转"
ImageIndex = 14
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar2
Height = 390
Left = 4320
TabIndex = 27
Top = 3120
Visible = 0 'False
Width = 2700
_ExtentX = 4763
_ExtentY = 688
ButtonWidth = 609
ButtonHeight = 582
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "rright"
Object.ToolTipText = "顺时针旋转"
ImageIndex = 7
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "rcentral"
Object.ToolTipText = "旋转三纬图表"
ImageIndex = 9
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "rleft"
Object.ToolTipText = "逆时针旋转"
ImageIndex = 8
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "bar2"
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "turnh"
Object.ToolTipText = "变厚"
ImageIndex = 10
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "turnb"
Object.ToolTipText = "变薄"
ImageIndex = 11
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "bar3"
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "loogen"
Object.ToolTipText = "加长"
ImageIndex = 12
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "shorten"
Object.ToolTipText = "减短"
ImageIndex = 13
EndProperty
EndProperty
End
Begin MSChart20Lib.MSChart MSChart1
Height = 3855
Left = 3960
OleObjectBlob = "Form10month.frx":4882
TabIndex = 22
Top = 1080
Width = 5415
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1
Height = 3855
Left = 0
TabIndex = 23
Top = 1080
Width = 3975
_ExtentX = 7011
_ExtentY = 6800
_Version = 393216
BackColor = 9010755
ForeColor = 8454016
Cols = 5
WordWrap = -1 'True
ScrollBars = 2
MergeCells = 3
_NumberOfBands = 1
_Band(0).Cols = 5
End
Begin VB.Line Line1
X1 = 0
X2 = 9360
Y1 = 960
Y2 = 960
End
Begin VB.Label Label1
Caption = "年"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 765
TabIndex = 14
Top = 540
Width = 255
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "交费日期："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 0
TabIndex = 13
Top = 120
Width = 990
End
End
Attribute VB_Name = "Form10month"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim tmonth(1 To 12, 1 To 7) As Long '汇总各月数据的数组
Dim mchart(1 To 12, 1 To 3) As Variant '绘图数组
Dim actionflag As String '图表各按钮的标志
Dim mousestate As Boolean
Dim jfrq As Date
Dim havechart As Boolean '图表是否已绘出标记
Dim entrydate As Date
Private Sub Command1_Click() '确定
Load frmSplash
frmSplash.Show
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -