form1.frm

股票控件源代码

VERSION 5.00
Object = "{817B01CE-CB38-45EB-AD27-814951F43C76}#1.0#0"; "STOCKC~1.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   10125
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   11775
   LinkTopic       =   "Form1"
   ScaleHeight     =   10125
   ScaleWidth      =   11775
   StartUpPosition =   3  '窗口缺省
   Begin STOCKCONTROLLib.StockControl StockControl1 
      Height          =   9975
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   11655
      _Version        =   65536
      _ExtentX        =   20558
      _ExtentY        =   17595
      _StockProps     =   0
   End
   Begin VB.Menu menuFile 
      Caption         =   "文件"
      Begin VB.Menu menuOpen 
         Caption         =   "打开"
      End
   End
   Begin VB.Menu menuView 
      Caption         =   "视图"
      Begin VB.Menu menuPan 
         Caption         =   "平移"
      End
      Begin VB.Menu menuZoom 
         Caption         =   "缩放"
      End
      Begin VB.Menu menuWin 
         Caption         =   "开窗"
      End
   End
   Begin VB.Menu menuDraw 
      Caption         =   "画图"
      Begin VB.Menu menuDrawLine 
         Caption         =   "画线"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub menuDrawLine_Click()
StockControl1.Action = 13
End Sub

Private Sub menuOpen_Click()
StockControl1.LoadKLines App.Path & "\Data\jjz_data.txt"
End Sub

Private Sub menuPan_Click()
StockControl1.Action = 1
End Sub

Private Sub menuWin_Click()
StockControl1.Action = 2
End Sub

Private Sub menuZoom_Click()
StockControl1.Action = 3
End Sub