📄 main.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmMain
Caption = "基本股票图表示例 Ver 1.0"
ClientHeight = 9030
ClientLeft = 1515
ClientTop = 1530
ClientWidth = 10650
Icon = "Main.frx":0000
KeyPreview = -1 'True
PaletteMode = 1 'UseZOrder
ScaleHeight = 9030
ScaleWidth = 10650
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin VB.PictureBox picSnap
AutoRedraw = -1 'True
Height = 1575
Left = 7740
ScaleHeight = 1515
ScaleWidth = 1515
TabIndex = 6
Top = 5220
Visible = 0 'False
Width = 1575
End
Begin VB.TextBox txtDrawInstruct
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 315
Left = 4620
TabIndex = 5
Top = 8160
Visible = 0 'False
Width = 1815
End
Begin MSComctlLib.ImageList imgList
Left = 2340
Top = 7200
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 12
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":0442
Key = "ReDraw"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":1A9C
Key = "OpenFile"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":1FDE
Key = "Camera"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":20F0
Key = "Indicators"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":2414
Key = "BlankGray"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":2866
Key = "DecBarSpace"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":2978
Key = "IncBarSpace"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":2A8A
Key = "About"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":2E0B
Key = "DrawingTools"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":3191
Key = "Options"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":354A
Key = "ScrollData"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":38E6
Key = "DownLoad"
EndProperty
EndProperty
End
Begin VB.PictureBox ChartBox
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
Height = 2685
Left = 7860
MouseIcon = "Main.frx":3C7E
ScaleHeight = 175
ScaleMode = 3 'Pixel
ScaleWidth = 145
TabIndex = 4
Top = 300
Visible = 0 'False
Width = 2235
End
Begin VB.PictureBox ChartBoxV
BackColor = &H00FFFFFF&
Height = 3765
Left = 420
MouseIcon = "Main.frx":3DD0
ScaleHeight = 247
ScaleMode = 3 'Pixel
ScaleWidth = 473
TabIndex = 2
Top = 0
Visible = 0 'False
Width = 7155
Begin VB.Line Divider
BorderColor = &H000000FF&
Index = 1
Visible = 0 'False
X1 = 20
X2 = 452
Y1 = 148
Y2 = 148
End
Begin VB.Line Divider
BorderColor = &H000000FF&
Index = 0
Visible = 0 'False
X1 = 16
X2 = 448
Y1 = 88
Y2 = 88
End
Begin VB.Line ChLine1
Index = 0
Visible = 0 'False
X1 = 184
X2 = 208
Y1 = 196
Y2 = 196
End
Begin VB.Line ChLine2
Index = 0
Visible = 0 'False
X1 = 196
X2 = 196
Y1 = 208
Y2 = 180
End
Begin VB.Label lblMousePrice
AutoSize = -1 'True
Caption = "Label1"
Height = 195
Left = 5340
TabIndex = 3
Top = 0
Visible = 0 'False
Width = 480
WordWrap = -1 'True
End
End
Begin MSComctlLib.Toolbar tbLeft
Align = 3 'Align Left
Height = 8655
Left = 0
TabIndex = 1
Top = 0
Width = 420
_ExtentX = 741
_ExtentY = 15266
ButtonWidth = 609
ButtonHeight = 582
AllowCustomize = 0 'False
Appearance = 1
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 15
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "OpenFile"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "DownLoad"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "Sep1"
Style = 4
Object.Width = 300
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "ReDraw"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "IncBarSpace"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "DecBarSpace"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "ScrollData"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Options"
Object.Width = 300
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "Sep2"
Style = 4
Object.Width = 300
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Indicators"
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "DrawingTools"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "Sep3"
Style = 4
Object.Width = 300
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Camera"
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "Sep4"
Style = 4
Object.Width = 300
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "About"
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar stbBottom
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 8655
Width = 10650
_ExtentX = 18785
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 5
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 5292
MinWidth = 5292
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 5265
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Menu mnuChartPopUp
Caption = "ChartPopUp"
Visible = 0 'False
Begin VB.Menu mnuPuCancelDrawing
Caption = "Cancel Drawing"
End
Begin VB.Menu mnuSep1
Caption = "-"
End
Begin VB.Menu mnuPuSettingsChart
Caption = "Chart Options"
End
Begin VB.Menu mnuPuCrossHair
Caption = "CrossHair"
Begin VB.Menu mnuPuCrossHairColor
Caption = "Color"
End
Begin VB.Menu mnuPuCrossHairMode
Caption = "Mode"
End
End
Begin VB.Menu mnuPuBarSpacing
Caption = "Bar Spacing"
End
Begin VB.Menu mnuPuBlankSpace
Caption = "BlankSpace"
End
Begin VB.Menu mnuPuSep2
Caption = "-"
End
Begin VB.Menu mnuPuIndSettings
Caption = "Indicator Settings"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
' ：） 人人为我，我为人人 ：）
'枕善居汉化收藏整理
'发布日期：06/06/26
'描 述：实时股票图表曲线示例 Ver 1.0
'网 站：http://www.mndsoft.com/
'e-mail ：mndsoft@163.com 最新的邮箱,如果您有新的好的代码别忘记给枕善居哦
'OICQ ：88382850
'****************************************************************************
'Basic stock charting program. John Sugas 2002
'Hopefully this inspire some ideas of your own... no warranties or guarantees
'included. I'm sharing this for personal use only, don't sell this code...
'Code borrowed from others is in the MBorrowedCode module. Thanks to all who have
'shared their code....
Option Explicit
Public WithEvents DrawingTools As CDrawingTools
Attribute DrawingTools.VB_VarHelpID = -1
Private IsChartDrawn As Boolean 'drawing complete
Private fGotData As Boolean 'data is loaded
Private fClickingBarSpacing As Boolean 'changing barspacing flag
Private iMouseDataInfo As Long 'mouse data mode
Private iCrossHair As Long 'crosshair mode
Private iTimeDataInfo As Long 'data info mode
Private iMoveSplit As Long 'panel adjust mode
Private iWhichSplit As Long 'which panel divider is picked
Private sCaption As String 'original form caption
Private sCapCurrent As String 'caption with current data info
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -