frmindicators.frm

枕善居汉化的stockchart股软 描 述：实时股票图表曲线示例 Ver 1.0 网 站：http://www.mndsoft.com/ e-mail ：[e-mail] 最新的

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmIndicators 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "示例 & 选项"
   ClientHeight    =   3900
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7125
   Icon            =   "frmIndicators.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3900
   ScaleWidth      =   7125
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.Timer tmrAfterLoad 
      Interval        =   100
      Left            =   900
      Top             =   3660
   End
   Begin VB.CommandButton cmdType 
      Caption         =   "平均"
      Height          =   435
      Left            =   5880
      TabIndex        =   8
      Top             =   300
      Width           =   1095
   End
   Begin VB.PictureBox picColor 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   3.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Index           =   0
      Left            =   4680
      ScaleHeight     =   135
      ScaleWidth      =   495
      TabIndex        =   7
      ToolTipText     =   "Dbl Click to Edit"
      Top             =   3720
      Visible         =   0   'False
      Width           =   555
   End
   Begin VB.CommandButton cmdUndo 
      Caption         =   "撤销(&U)"
      Enabled         =   0   'False
      Height          =   435
      Left            =   5880
      TabIndex        =   6
      Top             =   1620
      Width           =   1095
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消(&C)"
      Height          =   435
      Left            =   5880
      TabIndex        =   5
      Top             =   3240
      Width           =   1095
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "保存(&S)"
      Height          =   435
      Left            =   5880
      TabIndex        =   4
      Top             =   2580
      Width           =   1095
   End
   Begin VB.CommandButton cmdChangeInd 
      Caption         =   "改变"
      Height          =   435
      Left            =   5880
      TabIndex        =   3
      Top             =   960
      Width           =   1095
   End
   Begin VB.TextBox txtEdit 
      Alignment       =   1  'Right Justify
      Appearance      =   0  'Flat
      Height          =   285
      Left            =   3480
      TabIndex        =   2
      Top             =   3720
      Visible         =   0   'False
      Width           =   915
   End
   Begin VB.Frame Frame1 
      Caption         =   "当前示例设置"
      Height          =   3495
      Left            =   180
      TabIndex        =   0
      Top             =   180
      Width           =   5535
      Begin MSComctlLib.ListView lstVwSettings 
         Height          =   2955
         Left            =   180
         TabIndex        =   1
         ToolTipText     =   "Dbl Click Edit"
         Top             =   360
         Width           =   5175
         _ExtentX        =   9128
         _ExtentY        =   5212
         View            =   3
         LabelEdit       =   1
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         FullRowSelect   =   -1  'True
         GridLines       =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         NumItems        =   1
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Key             =   "Parameter"
            Text            =   "Parameter"
            Object.Width           =   5010
         EndProperty
      End
   End
End
Attribute VB_Name = "frmIndicators"
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  ：[e-mail]   最新的邮箱,如果您有新的好的代码别忘记给枕善居哦
'OICQ    ：88382850
'****************************************************************************

Option Explicit

Private Const sIndicators = "Indicators"
Private Const sParameters = "Parameters"
Private Const sAverages = "Averages"

Private oClickedItem As MSComctlLib.ListItem, oLastEditItem As MSComctlLib.ListItem
Private sSection As String, bDirtyFlag As Boolean, bSelectingInd As Boolean
Private sFrameCaption As String, sOrgInd As String, fButtonRightSide As Boolean
Private sPrevInd As String, bBooleanEdit As Boolean

Private Sub cmdcancel_Click()
    Call ResetValues
    Unload Me
End Sub
Private Sub ResetValues()
    'reset to original values when first loaded
    Dim i As Long, p As Long
    If Not bSelectingInd Then  'settings page
        For i = 1 To lstVwSettings.ListItems.Count
            If lstVwSettings.ListItems(i).Text <> sEmpty Then
                p = InStr(lstVwSettings.ListItems(i).Tag, "|") 'dump any pb index data
                If p = 0 Then
                    Call WriteIni(sINIsetFile$, sSection$, lstVwSettings.ListItems(i).Text, lstVwSettings.ListItems(i).Tag)
                Else
                    Call WriteIni(sINIsetFile$, sSection$, lstVwSettings.ListItems(i).Text, Left$(lstVwSettings.ListItems(i).Tag, p - 1))
                End If
            End If
        Next
    End If
    'reset to org indicator
    CurrentIndicator$ = sOrgInd$
    Call WriteIni(sINIsetFile$, "Settings", "CurrentIndicator", CurrentIndicator$)
    bDirtyFlag = False
    Call UpdateChart
End Sub
Private Sub UpdateChart()
    Call GetIndicatorSettings  'reload vars
    Call frmMain.ChartBoxDraw
End Sub
Private Sub cmdType_Click()
    
    If cmdType.Caption = sIndicators$ Then 'bring up the Indicators
        bSelectingInd = False
        Call cmdChangeInd_Click
        cmdType.Caption = sAverages$
        cmdChangeInd.Enabled = True
    ElseIf cmdType.Caption = sAverages$ Then 'bring up the Averages
        Dim i As Long
        Call DirtyFlagRoutine 'do we need to save any changes
        'we need to reload picColor ctrls so unload now
        For i = picColor.LBound + 1 To picColor.UBound
            Unload picColor(i)
        Next
        Call LoadCurrentSettings(sAverages$)
        cmdType.Caption = sIndicators$
        cmdChangeInd.Enabled = False
    End If
End Sub
Private Sub cmdChangeInd_Click()
    Dim i As Integer, iNumInd As Long, sInd As String
    
    If Not bSelectingInd Then
        Call DirtyFlagRoutine 'check if changes need/are wanted to be saved
        Frame1.Caption = sFrameCaption$ & CurrentIndicator$
        'load the indicator types
        iNumInd = GetNumIniKeys(sINIsetFile$, sIndicators$)
        For i = picColor.LBound + 1 To picColor.UBound
            Unload picColor(i)  'don't need the picBxs
        Next
        picColor(0).Visible = False 'can't unload the first one so hide it
        lstVwSettings.ListItems.Clear
        lstVwSettings.ToolTipText = "Dbl Click to Change"
        lstVwSettings.ColumnHeaders(1).Text = sIndicators$
        lstVwSettings.ColumnHeaders.Remove 2 'don't need the header
        If iNumInd <> 0 Then  'get the indicator strings
            For i = 1 To iNumInd
                sInd$ = GetIni(sINIsetFile$, sIndicators$, CStr(i))
                lstVwSettings.ListItems.add i, sInd$, sInd$
            Next
        End If
        sPrevInd$ = CurrentIndicator$  'save for cancel
        cmdChangeInd.Caption = "OK  |  Esc"  'dual purpose cmdButton
        cmdUndo.Enabled = False
        bSelectingInd = True
    Else
        If fButtonRightSide Then  'Esc.. reset indicator change
            CurrentIndicator$ = sPrevInd$
        Else  'do the change
            Call WriteIni(sINIsetFile$, "Settings", "CurrentIndicator", CurrentIndicator$)