mainform.frm

一个股票分析的源码,vb实现

VERSION 5.00
Begin VB.MDIForm MainForm 
   BackColor       =   &H8000000C&
   Caption         =   "StockSoft"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu SelectStock 
      Caption         =   "单股票信息"
   End
   Begin VB.Menu SelectOneStock 
      Caption         =   "选择股票"
   End
End
Attribute VB_Name = "MainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
    'MsgBox CStr("2003-01-16" - "2001-08-01")
     MainForm.Height = Screen.Height
     MainForm.Width = Screen.Width
     MainForm.Left = 0
     MainForm.Top = 0
     Form1.Height = MainForm.Height - 1000
     Form1.Width = MainForm.Width - 500
     Form1.Left = 0
     Form1.Top = 0
     Form1.Text1.Height = Form1.Height
     Form1.Text1.Width = Form1.Width \ 2
     Unload Form1
End Sub

Private Sub SelectOneStock_Click()
     Unload Form1
     Load SelectSomeStock
     SelectSomeStock.Show
     StartDate = 0
     EndDate = 0
     LowPrice = 0
     TopPrice = 0 '100000 '1000元

End Sub

Private Sub SelectStock_Click()
    ' MsgBox StartDate
    ' MsgBox EndDate
     
     Unload Form1
     Load OneStockInformation
     StartDate = 0
     EndDate = 0
     LowPrice = 0
     TopPrice = 0 '100000 '1000元
     
     'RetVal = getRiseOrDown()
     
     
End Sub