Attribute VB_Name = "MFunctions"
'****************************************************************************
' ：） 人人為我，我為人人 ：）
'枕善居漢化收藏整理
'發布日期：06/06/26
'描    述：實時股票圖表曲線示例 Ver 1.0
'網    站：http://www.mndsoft.com/
'e-mail  ：mndsoft@163.com   最新的郵箱,如果您有新的好的代碼別忘記給枕善居哦
'OICQ    ：88382850
'****************************************************************************
Option Explicit



Private hHookCntrMsgBox As Long, lFrmHwndCntrMsgBox As Long

Public Function GetIni(File As String, Section As String, Key As String)
    Dim RetVal As Long
    Dim Value As String
    
    Value = Space(2001) ' Initialize Return String
    ' Query Value
    RetVal = GetPrivateProfileString(Section, Key, "", Value, 2000&, File)
    ' Trim Return String
    Value = Left(Value, RetVal)
    GetIni = Value
End Function

Public Sub WriteIni(File As String, Section As String, Key As String, Value As String)
    WritePrivateProfileString Section, Key, Value, File
End Sub
Public Function GetNumIniKeys(File As String, Section As String) As Integer
    Dim RetVal As Long, RetString As String, NullOffSet As Integer
    Dim Keys As String, Counter As Integer
    
    RetString = Space(2001) ' Initialize Return String
    'RetVal = GetPrivateProfileString(Section, 0&, "", RetString, 2000&, File)
    RetVal = GetPrivateProfileStringKeys(Section, 0&, "", RetString, 2000&, File)
    
    Do
    NullOffSet = InStr(RetString, Chr$(0))
    If NullOffSet > 1 Then
    Counter = Counter + 1 ' Increment Counter
    Keys = Keys & Chr$(10) & Mid$(RetString, 1, NullOffSet - 1)
    RetString = Mid$(RetString, NullOffSet + 1)
    End If
    Loop While NullOffSet > 1
    
    GetNumIniKeys = Counter
End Function

Public Function GetIniKey(File As String, Section As String, KeyNumber As Integer) As String
    Dim RetVal As Long, RetString As String, NullOffSet As Integer
    Dim Keys As String, Counter As Integer
    
    RetString = Space(2001) ' Initialize Return String
    'RetVal = GetPrivateProfileString(Section, 0&, "", RetString, 2000&, File)
    RetVal = GetPrivateProfileStringKeys(Section, 0&, "", RetString, 2000&, File)
    
    Do
    NullOffSet = InStr(RetString, Chr$(0))
    If NullOffSet > 1 Then
    Counter = Counter + 1 ' Increment Counter
    If Counter = KeyNumber Then ' Key Found
    GetIniKey = Mid$(RetString, 1, NullOffSet - 1)
    Exit Do
    End If
    Keys = Keys & Chr$(10) & Mid$(RetString, 1, NullOffSet - 1)
    RetString = Mid$(RetString, NullOffSet + 1)
    End If
    Loop While NullOffSet > 1
End Function
Public Sub GetIniSettings()
    On Error Resume Next
    sSymbol$ = GetIni(sINIsetFile, "DataInfo", "Symbol")
    sFilePath$ = GetIni(sINIsetFile, "Settings", "LastFile")
    sFileName$ = GetFileBaseExt(sFilePath$)
    sDataDir$ = GetIni(sINIsetFile, "DLSettings", "DataDir")
    iBackColor = Val(GetIni(sINIsetFile, "Settings", "BackColor"))
    iForeColor = Val(GetIni(sINIsetFile, "Settings", "ForeColor"))
    iGridColor = Val(GetIni(sINIsetFile, "Settings", "GridColor"))
    iMouseLabelColor = Val(GetIni(sINIsetFile, "Settings", "MouseLabelColor"))
    iTicBodyColor = Val(GetIni(sINIsetFile, "Settings", "TicColor"))
    iTicOpenColor = Val(GetIni(sINIsetFile, "Settings", "OpenColor"))
    iTicCloseColor = Val(GetIni(sINIsetFile, "Settings", "CloseColor"))
    iTicType = Val(GetIni(sINIsetFile, "Settings", "TicType"))
    iTicCandleUpColor = Val(GetIni(sINIsetFile, "Settings", "TicCandleUpColor"))
    iTicCandleDnColor = Val(GetIni(sINIsetFile, "Settings", "TicCandleDnColor"))
    iVolColor = Val(GetIni(sINIsetFile, "Settings", "VolColor"))
    sFontName = GetIni(sINIsetFile, "Settings", "FontName")
    iFontSize = Val(GetIni(sINIsetFile, "Settings", "FontSize"))
    iFontBold = Val(GetIni(sINIsetFile, "Settings", "FontBold"))
    iFontItalic = Val(GetIni(sINIsetFile, "Settings", "FontItalic"))
    iDateMarkerColor = Val(GetIni(sINIsetFile, "Settings", "DateMarkerColor"))
    iCrossHairMode = Val(GetIni(sINIsetFile, "Settings", "CrossHairMode"))
    iCrossHairColor = Val(GetIni(sINIsetFile, "Settings", "CrossHairColor"))
    iBlankSpace = Val(GetIni(sINIsetFile, "Settings", "BlankSpace"))
    iBarSpacing = Val(GetIni(sINIsetFile, "Settings", "BarSpacing"))
    iScrollIncrement = Val(GetIni(sINIsetFile, "Settings", "ScrollIncrement"))
    rSplit1 = Val(GetIni(sINIsetFile, "Settings", "WindowSplit1"))
    rSplit2 = Val(GetIni(sINIsetFile, "Settings", "WindowSplit2"))
    CurrentIndicator = GetIni(sINIsetFile, "Settings", "CurrentIndicator")
    

End Sub

Public Sub SaveIniSettings()

    WriteIni sINIsetFile, "DataInfo", "Symbol", UCase$(sSymbol$)
    WriteIni sINIsetFile, "Settings", "BackColor", CStr(iBackColor)
    WriteIni sINIsetFile, "Settings", "ForeColor", CStr(iForeColor)
    WriteIni sINIsetFile, "Settings", "GridColor", CStr(iGridColor)
    WriteIni sINIsetFile, "Settings", "MouseLabelColor", CStr(iMouseLabelColor)
    WriteIni sINIsetFile, "Settings", "TicColor", CStr(iTicBodyColor)
    WriteIni sINIsetFile, "Settings", "OpenColor", CStr(iTicOpenColor)
    WriteIni sINIsetFile, "Settings", "CloseColor", CStr(iTicCloseColor)
    WriteIni sINIsetFile, "Settings", "TicType", CStr(iTicType)
    WriteIni sINIsetFile, "Settings", "TicCandleUpColor", CStr(iTicCandleUpColor)
    WriteIni sINIsetFile, "Settings", "TicCandleDnColor", CStr(iTicCandleDnColor)
    WriteIni sINIsetFile, "Settings", "VolColor", CStr(iVolColor)
    WriteIni sINIsetFile, "Settings", "FontName", sFontName
    WriteIni sINIsetFile, "Settings", "FontSize", CStr(iFontSize)
    WriteIni sINIsetFile, "Settings", "FontBold", CStr(iFontBold)
    WriteIni sINIsetFile, "Settings", "FontItalic", CStr(iFontItalic)
    WriteIni sINIsetFile, "Settings", "DateMarkerColor", CStr(iDateMarkerColor)
    WriteIni sINIsetFile, "Settings", "CrossHairColor", CStr(iCrossHairColor)
    WriteIni sINIsetFile, "Settings", "CrossHairMode", CStr(iCrossHairMode)
    WriteIni sINIsetFile, "Settings", "BlankSpace", CStr(iBlankSpace)
    WriteIni sINIsetFile, "Settings", "BarSpacing", CStr(iBarSpacing)
    WriteIni sINIsetFile, "Settings", "ScrollIncrement", CStr(iScrollIncrement)
    WriteIni sINIsetFile, "Settings", "WindowSplit1", CStr(rSplit1)
    WriteIni sINIsetFile, "Settings", "WindowSplit2", CStr(rSplit2)
    WriteIni sINIsetFile, "Settings", "CurrentIndicator", CurrentIndicator

End Sub
Public Sub MakeIniFile()
    'use for reseting default values also
    Open sINIsetFile$ For Output Access Write As #1
        Print #1, "[DataInfo]"
        Print #1, "Symbol="
        Print #1, sEmpty
        
        Print #1, "[Settings]"
        Print #1, "LastFile="
        Print #1, "BackColor=0"
        Print #1, "ForeColor=16777215"
        Print #1, "GridColor=10066329"
        Print #1, "MouseLabelColor=65535"
        Print #1, "TicColor=65408"
        Print #1, "OpenColor=65280"
        Print #1, "CloseColor=16777215"
        Print #1, "TicType=3"
        Print #1, "TicCandleUpColor=65280"
        Print #1, "TicCandleDnColor=255"
        Print #1, "VolColor=65280"
        Print #1, "FontName=MS Sans Serif"
        Print #1, "FontSize=10"
        Print #1, "FontBold=-1"
        Print #1, "FontItalic=0"
        Print #1, "DateMarkerColor=255"
        Print #1, "CrossHairMode=15"
        Print #1, "CrossHairColor=16711680"
        Print #1, "BlankSpace=10"
        Print #1, "BarSpacing=3"
        Print #1, "ScrollIncrement=10"
        Print #1, "WindowSplit1=430"
        Print #1, "WindowSplit2=480"
        Print #1, "CurrentIndicator=MACD"
        Print #1, sEmpty
        
        Print #1, "[DLSettings]"
        Print #1, "DataDir=\Data"
        Print #1, "LastURL="
        Print #1, "Source=0"
        Print #1, sEmpty
        
        Print #1, "[Indicators]"
        Print #1, "1=CCI"
        Print #1, "2=MACD"
        Print #1, "3=ROC%"
        Print #1, "4=RSI"
        Print #1, "5=STOCH"
        Print #1, sEmpty
        
        Print #1, "[CciSettings]"
        Print #1, "CciColor=15655586"
        Print #1, "CciAvgColor=13436626"
        Print #1, "CciLen=13"
        Print #1, "CciAvgLen=3"
        Print #1, "CciAvgAvgLen=5"
        Print #1, "PlotWidth=1"
        Print #1, "CciUpperTrig=200"
        Print #1, "CciLowerTrig=-150"
        Print #1, sEmpty
        
        Print #1, "[MACDSettings]"
        Print #1, "MACDColor1=255"
        Print #1, "MACDColor2=16711680"
        Print #1, "MACDColor3=12100980"
        Print #1, "PlotWidth=2"
        Print #1, "MACDLen1=13"
        Print #1, "MACDLen2=34"
        Print #1, "MACDLen3=9"
        Print #1, sEmpty
        
        Print #1, "[ROC%Settings]"
        Print #1, "ROC%Color=255"
        Print #1, "PlotWidth=1"
        Print #1, "ROC%Len=12"
        Print #1, "ROC%UpperTrig=6.5"
        Print #1, "ROC%LowerTrig=-6.5"
        Print #1, sEmpty
        
        Print #1, "[RsiSettings]"
        Print #1, "RsiColor=255"
        Print #1, "PlotWidth=1"
        Print #1, "RsiLen=14"
        Print #1, "RsiUpperTrig=70"
        Print #1, "RsiLowerTrig=30"
        Print #1, sEmpty
        
        Print #1, "[StochSettings]"
        Print #1, "StochKColor=255"
        Print #1, "StochKSlowColor=16711680"
        Print #1, "StochDColor=12100980"
        Print #1, "PlotWidth=1"
        Print #1, "KPeriod=14"
        Print #1, "KPeriodSlow=4"
        Print #1, "DPeriod=3"
        Print #1, "StochUpperTrig=70"
        Print #1, "StochLowerTrig=30"
        Print #1, "StochSlow=true"
        Print #1, sEmpty
        
        Print #1, "[AvgSettings]"
        Print #1, "AvgLen1=21"
        Print #1, "AvgColor1=255"
        Print #1, "AvgWidth1=1"
        Print #1, "AvgLen2=50"
        Print #1, "AvgColor2=16711680"
        Print #1, "AvgWidth2=1"
        Print #1, "AvgLen3=200"
        Print #1, "AvgColor3=65535"
        Print #1, "AvgWidth3=1"
        Print #1, sEmpty
    Close #1
End Sub
Public Function GetColorDlg(iPrevColor As Long) As Long
    Dim f As Boolean, iColor As Long
    
    iColor = iPrevColor
    CenterDlgBox 0
    f = VBChooseColor(Color:=iColor, _
            FullOpen:=True, _
            owner:=0)
    
    If f Then