modConfig.bas

Attribute VB_Name = "modConfig"
'====================================================
'描述:      提供读写程序配置文件，包括程序设置、语言、用户习惯等函数
'作者:      冰棍
'文件:      modConfig.bas
'====================================================

Option Explicit

'定义断点信息结构
Public Type BreakpointInfo
    CodeLn                                      As Long                                     '断点对应的代码行
    Enabled                                     As Boolean                                  '断点是否激活
    ListViewIndex                               As Long                                     '在断点列表窗口中的列表框中对应的列表项序号
End Type

'定义gdb断点信息结构。每个gdb断点都应该对应到CurrentProject.Files(FileIndex).Breakpoints(BreakpointIndex)
Public Type GdbBreakpointMapInfo
    FileIndex                                   As Long                                     '对应的文件序号
    BreakpointIndex                             As Long                                     '对应的断点序号
End Type

'定义文件夹信息结构
Public Type ProjectFolderStruct
    FolderPath                                  As String                                   '项目路径（ProjectFolderPath）下文件夹的相对路径（不以“\”结尾）
    ParentFolder                                As Long                                     '母文件夹在CurrentProject.Folders的索引（0代表没有）
End Type

'定义代码文件信息结构
Public Type SourceFileStruct
    PrevLine                                    As Long                                     '保存时处在的行号
    Changed                                     As Boolean                                  '文件是否被更改
    FilePath                                    As String                                   '文件路径
    FolderIndex                                 As Long                                     '所在目录在CurrentProject.Folders的索引
    TargetWindow                                As frmCodeWindow                            '对应的代码窗体，每次运行的时候都会不一样
    Breakpoints()                               As BreakpointInfo                           '所有断点信息
End Type

'定义保存专用的代码文件信息结构
Public Type SourceFileStruct_Save
    PrevLine                                    As Long                                     '保存时处在的行号
    FileName                                    As String                                   '文件名称（即相对路径）
    FolderIndex                                 As Long                                     '所在目录在CurrentProject.Folders的索引
    Breakpoints()                               As BreakpointInfo                           '所有断点信息
End Type

'定义工程文件结构
Public Type ProjectFileStruct
    ProjectName                                 As String                                   '工程名称
    ProjectType                                 As Integer                                  '工程类型。请见frmMain的ProjectType变量的说明
    Changed                                     As Boolean                                  '文件是否被更改
    Files()                                     As SourceFileStruct                         '工程包括的所有文件
    Folders()                                   As ProjectFolderStruct                      '工程包括的所有文件夹
End Type

'定义保存专用的工程文件结构
Public Type ProjectFileStruct_Save
    ProjectName                                 As String                                   '工程名称
    ProjectType                                 As Integer                                  '工程类型。请见frmMain的ProjectType变量的说明
    Files()                                     As SourceFileStruct_Save                    '工程包括的所有文件
    Folders()                                   As ProjectFolderStruct                      '工程包括的所有文件夹（跳过索引0）
End Type

'定义树视图列表项与文件序号（即ProjectFileStruct.Files的索引）绑定的结构
Public Type TvItemToFileIndex
    TVITEM                                      As Long                                     '文件序号对应的树视图列表项
    FileIndex                                   As Long                                     '树视图列表项对应的文件序号或者文件夹索引
    IsFolder                                    As Boolean                                  '对应的项目是否为文件夹
End Type

'===================================================================
'所有文本变量。由于是多语言，故使用变量来代表每一个出现的字符串
Public Lang_Msgbox_Error                        As String
Public Lang_Msgbox_Confirm                      As String

Public Lang_TitleBar_Max                        As String
Public Lang_TitleBar_Restore                    As String
Public Lang_TitleBar_Min                        As String
Public Lang_TitleBar_Close                      As String

Public Lang_CodeWindow_Caption                  As String
Public Lang_ControlBox_Caption                  As String
Public Lang_Disassembly_Caption                 As String
Public Lang_ErrorList_Caption                   As String
Public Lang_Immediate_Caption                   As String
Public Lang_Memory_Caption                      As String
Public Lang_Output_Caption                      As String
Public Lang_Properties_Caption                  As String
Public Lang_Registers_Caption                   As String
Public Lang_Threads_Caption                     As String
Public Lang_Watch_Caption                       As String
Public Lang_DebugWindow_Retrieving_Caption      As String

Public Lang_Create_Caption                      As String
Public Lang_Create_CreateLabel                  As String
Public Lang_Create_RecentLabel                  As String
Public Lang_Create_NewWindowProgram             As String
Public Lang_Create_NewConsoleProgram            As String
Public Lang_Create_NewEmptyCpp                  As String
Public Lang_Create_OpenProject                  As String

Public Lang_CreateOptions_Caption               As String
Public Lang_CreateOptions_ProjectNameLabel      As String
Public Lang_CreateOptions_ProjectFolderLabel    As String
Public Lang_CreateOptions_Browse                As String
Public Lang_CreateOptions_Main_NoArgs           As String
Public Lang_CreateOptions_Main_Args             As String
Public Lang_CreateOptions_WinMain               As String
Public Lang_CreateOptions_Include               As String
Public Lang_CreateOptions_OK                    As String
Public Lang_CreateOptions_Cancel                As String
Public Lang_CreateOptions_ProjectType           As String
Public Lang_CreateOptions_TypeOption_1          As String
Public Lang_CreateOptions_TypeOption_2          As String
Public Lang_CreateOptions_TypeOption_3          As String
Public Lang_CreateOptions_BrowseCaption         As String
Public Lang_CreateOptions_ProjectNameRequired   As String
Public Lang_CreateOptions_InvalidProjectName    As String
Public Lang_CreateOptions_InvalidProjectPath    As String
Public Lang_CreateOptions_CreationFailure_1     As String
Public Lang_CreateOptions_CreationFailure_2     As String
Public Lang_CreateOptions_WindowProgram         As String
Public Lang_CreateOptions_ConsoleProgram        As String
Public Lang_CreateOptions_PlainCPP              As String
Public Lang_CreateOptions_SameNameReplace_1     As String
Public Lang_CreateOptions_SameNameReplace_2     As String
Public Lang_CreateOptions_CreateProjectFailed   As String

Public Lang_Application_Title                   As String
Public Lang_Main_SaveBeforeCompile              As String
Public Lang_Main_SaveFailedBeforeCompile        As String
Public Lang_Main_ReplaceExe_1                   As String
Public Lang_Main_ReplaceExe_2                   As String
Public Lang_Main_StartingGcc                    As String
Public Lang_Main_GccStartFailed                 As String
Public Lang_Main_CompileSucceed                 As String
Public Lang_Main_CompileFailed                  As String
Public Lang_Main_Run_Menu_Start                 As String
Public Lang_Main_Run_Menu_Continue              As String
Public Lang_Main_RunFailed                      As String
Public Lang_Main_RunSucceed                     As String
Public Lang_Main_GdbFailed                      As String
Public Lang_Main_GdbSucceed                     As String
Public Lang_Main_GdbAttaching                   As String
Public Lang_Main_GdbAttachFailed_1              As String
Public Lang_Main_GdbAttachFailed_2              As String
Public Lang_Main_GdbLoadingSymbols_1            As String
Public Lang_Main_GdbLoadingSymbols_2            As String
Public Lang_Main_GdbLoadSymbolsFailure_1        As String
Public Lang_Main_GdbLoadSymbolsFailure_2        As String
Public Lang_Main_DebugAborted                   As String
Public Lang_Main_GdbBreakpointError_1           As String
Public Lang_Main_GdbBreakpointError_2           As String
Public Lang_Main_GdbBreakpointError_3           As String
Public Lang_Main_GdbBreakpoint_Invalid          As String
Public Lang_Main_DebugInfo_1                    As String
Public Lang_Main_DebugInfo_2                    As String
Public Lang_Main_RunningInfo_1                  As String
Public Lang_Main_RunningInfo_2                  As String
Public Lang_Main_Debug_OpenSourceFailure        As String
Public Lang_Main_Debug_BreakpointHit            As String
Public Lang_Main_Debug_Returned                 As String
Public Lang_Main_Failed_Kill_Debug              As String
Public Lang_Main_Failed_Kill_Gdb                As String
Public Lang_Main_Failed_Kill_Ending             As String
Public Lang_Main_Gdb_Unexpected_Exit_1          As String
Public Lang_Main_Gdb_Unexpected_Exit_2          As String
Public Lang_Main_Gdb_Unexpected_Exit_3          As String
Public Lang_Main_Debug_Break_At                 As String
Public Lang_Main_Read_Pipe_Error                As String

Public Lang_SolutionExplorer_Caption            As String
Public Lang_SolutionExplorer_RenameFailure_1    As String
Public Lang_SolutionExplorer_RenameFailure_2    As String
Public Lang_SolutionExplorer_NewFolderName      As String
Public Lang_SolutionExplorer_InvalidName        As String

Public Lang_SaveBox_Caption                     As String
Public Lang_SaveBox_Yes                         As String
Public Lang_SaveBox_No                          As String
Public Lang_SaveBox_Cancel                      As String
Public Lang_SaveBox_Prompt                      As String
Public Lang_SaveBox_SaveFailure_1               As String
Public Lang_SaveBox_SaveFailure_2               As String

Public Lang_Breakpoints_Caption                 As String
Public Lang_Breakpoints_ListViewHeader_File     As String
Public Lang_Breakpoints_ListViewHeader_Line     As String
Public Lang_Breakpoints_ListViewHeader_Address  As String
Public Lang_Breakpoints_Info_1                  As String
Public Lang_Breakpoints_Info_2                  As String
Public Lang_Breakpoints_Info_3                  As String
Public Lang_Breakpoints_Info_4                  As String

Public Lang_Locals_Caption                      As String
Public Lang_Locals_ListViewHeader_Name          As String
Public Lang_Locals_ListViewHeader_Type          As String
Public Lang_Locals_ListViewHeader_Value         As String
Public Lang_Locals_Error                        As String
Public Lang_Locals_Tooltip_Title                As String

Public Lang_CallStack_Caption                   As String
Public Lang_CallStack_Args                      As String
Public Lang_CallStack_Tooltip_Title             As String
Public Lang_CallStack_NoArg                     As String

Public Lang_ErrorList_Errors                    As String
Public Lang_ErrorList_Warnings                  As String
Public Lang_ErrorList_Info                      As String
Public Lang_ErrorList_Description               As String
Public Lang_ErrorList_File                      As String
Public Lang_ErrorList_Line                      As String
Public Lang_ErrorList_Column                    As String
Public Lang_ErrorList_Tooltip_Title             As String

Public Lang_Modules_Caption                     As String
Public Lang_Modules_ListViewHeader_FileName     As String
Public Lang_Modules_ListViewHeader_FilePath     As String
Public Lang_Modules_ListViewHeader_From         As String
Public Lang_Modules_ListViewHeader_To           As String
'===================================================================

Public CurrentProject                           As ProjectFileStruct                        '当前工程的信息
Public ProjectFolderPath                        As String                                   '当前工程文件夹的位置（以"\"结尾）
Public ProjectFilePath                          As String                                   '当前项目工程文件的位置

Public GccPath                                  As String                                   'g++路径
Public GdbPath                                  As String                                   'gdb路径

Public TvItemBinding()                          As TvItemToFileIndex                        '当前工程的TreeView列表项和文件序号的绑定
Public ProjectNameTvItem                        As Long                                     'TreeView列表项和工程名称的绑定

Public CodeWindows                              As New Collection                           '当前工程所有的代码窗口
Public GdbBreakpoints()                         As GdbBreakpointMapInfo                     '当前调试中的断点信息（gdb）

Public IsExiting                                As Boolean                                  '当前程序是否正在退出

'描述:      获取指定路径里的文件名（即最后一个“\”后面的内容）
'参数:      strPath: 指定路径
'返回值:    分割出来的文件名
Public Function GetFileName(strPath As String) As String
    Dim tmp()               As String
    tmp = Split(strPath, "\")
    GetFileName = tmp(UBound(tmp))
End Function

'描述:      检查非法文件名
'参数:      strName: 需要被检查的文件名
'返回值:    True: 合法的文件名; False: 非法的文件名
Public Function CheckInvalidFileName(strName As String) As Boolean
    Dim InvalidChars        As String                                                       '非法字符
    Dim i                   As Integer, j               As Integer
    
    If strName = "." Or strName = ".." Then                                                 '检查名称是否为“.”或者“..”
        CheckInvalidFileName = False
        Exit Function
    End If
    
    InvalidChars = """/\:?<>*|"
    For i = 1 To Len(strName)                                                               '检查非法字符
        For j = 1 To Len(InvalidChars)
            If Mid(strName, i, 1) = Mid(InvalidChars, j, 1) Then
                CheckInvalidFileName = False
                Exit Function
            End If
        Next j
    Next i
    
    CheckInvalidFileName = True
End Function

'描述:      创建一个新的代码窗口，并把它添加到CodeWindows中
'参数:      FileIndex: 代码窗口对应的文件序号
'返回值:    创建的代码窗口
Public Function CreateNewCodeWindow(FileIndex As Long) As frmCodeWindow
    Dim NewCodeWindow       As New frmCodeWindow
    
    NewCodeWindow.FileIndex = FileIndex
    CodeWindows.Add NewCodeWindow, CStr(FileIndex)
    Set CurrentProject.Files(FileIndex).TargetWindow = CodeWindows.Item(CStr(FileIndex))    '文件绑定对应的代码窗口。千万不要绑定到NewCodeWindow！
    Set CreateNewCodeWindow = CodeWindows.Item(CStr(FileIndex))                             '返回创建的代码窗口。千万不要返回NewCodeWindow！
End Function

'描述:      读取对应语言的字符串资源。该函数会通过
'.          提供的第一个资源ID来计算出其他字符串所对应的ID
'参数:      ResID: 对应语言所对应的第一个资源ID。如本程序中文语言所对应的第一个资源ID是1001
'.          LoadMenuTextOnly: 可选，默认为False，如果为True则代表只加载菜单文本。
'.                            因为加载菜单文本会使用到frmMain，frmMain会被加载，
'.                            所以在frmMain的Initialize事件中不宜加载菜单文本，而是应该在Load事件中加载
'返回值:    如果读取成功，返回True；否则返回False
Public Function LoadLanguage(ResID As Long, Optional LoadMenuTextOnly As Boolean = False) As Boolean
    On Error Resume Next
    LoadLanguage = True
    
    '读取菜单字符串
    If LoadMenuTextOnly Then
        Dim Id          As Long
        
        '主窗口菜单
        For Id = 0 To 69
            frmMain.DarkMenu.MenuText(Id) = LoadResString(ResID + Id)
            If Err.Number <> 0 Then
                LoadLanguage = False
                Exit Function
            End If
        Next Id
        
        '工程资源管理器弹出菜单1
        For Id = 1 To 4
            frmSolutionExplorer.mnuItemPopup.MenuText(Id) = LoadResString(ResID + 99 + Id)
            If Err.Number <> 0 Then
                LoadLanguage = False
                Exit Function
            End If
        Next Id
        
        '工程资源管理器弹出菜单2
        For Id = 1 To 13
            frmSolutionExplorer.mnuProjectItemPopup.MenuText(Id) = LoadResString(ResID + 199 + Id)
            If Err.Number <> 0 Then
                LoadLanguage = False
                Exit Function
            End If
        Next Id
        
        Exit Function
    End If
    
    '读取所有的字符串
    Lang_Msgbox_Error = "错误"
    Lang_Msgbox_Confirm = "确认"
    
    Lang_TitleBar_Max = "最大化"
    Lang_TitleBar_Restore = "还原"
    Lang_TitleBar_Min = "最小化"
    Lang_TitleBar_Close = "关闭"
    
    Lang_CodeWindow_Caption = "代码窗口"
    Lang_ControlBox_Caption = "控件箱"
    Lang_Disassembly_Caption = "反汇编"
    Lang_ErrorList_Caption = "错误列表"
    Lang_Immediate_Caption = "立即窗口"
    Lang_Memory_Caption = "内存"
    Lang_Output_Caption = "输出"
    Lang_Properties_Caption = "属性"
    Lang_Registers_Caption = "寄存器"
    Lang_Threads_Caption = "线程"
    Lang_Watch_Caption = "监视窗口"
    Lang_DebugWindow_Retrieving_Caption = " - 正在获取..."
    
    Lang_Create_Caption = "新建项目"
    Lang_Create_CreateLabel = "创建"
    Lang_Create_RecentLabel = "最近"
    Lang_Create_NewWindowProgram = "       新建窗口程序"
    Lang_Create_NewConsoleProgram = "       新建控制台程序"
    Lang_Create_NewEmptyCpp = "       新建空白C++程序"
    Lang_Create_OpenProject = "       打开工程..."
    
    Lang_CreateOptions_Caption = "新建项目"
    Lang_CreateOptions_ProjectNameLabel = "项目名称:"
    Lang_CreateOptions_ProjectFolderLabel = "项目文件夹:"
    Lang_CreateOptions_Browse = "浏览..."
    Lang_CreateOptions_Main_NoArgs = "帮我写好main （无参数）"
    Lang_CreateOptions_Main_Args = "帮我写好main （有参数）"
    Lang_CreateOptions_WinMain = "帮我写好WinMain"
    Lang_CreateOptions_Include = "#include <stdio.h>"
    Lang_CreateOptions_OK = "确定"
    Lang_CreateOptions_Cancel = "取消"
    Lang_CreateOptions_ProjectType = "项目类型"
    Lang_CreateOptions_TypeOption_1 = "窗口程序"
    Lang_CreateOptions_TypeOption_2 = "控制台程序"
    Lang_CreateOptions_TypeOption_3 = "空白C++程序"
    Lang_CreateOptions_BrowseCaption = "选择项目文件夹"
    Lang_CreateOptions_ProjectNameRequired = "请输入项目名称！"
    Lang_CreateOptions_InvalidProjectName = "无效的项目名称: "
    Lang_CreateOptions_InvalidProjectPath = "指定的项目文件夹路径无效！"
    Lang_CreateOptions_CreationFailure_1 = "无法创建"
    Lang_CreateOptions_CreationFailure_2 = " ，请确保项目名称是有效的。"
    Lang_CreateOptions_WindowProgram = "新窗口程序"
    Lang_CreateOptions_ConsoleProgram = "新控制台程序"
    Lang_CreateOptions_PlainCPP = "新空白C++程序"
    Lang_CreateOptions_SameNameReplace_1 = "选择的目录下有重名的文件: "
    Lang_CreateOptions_SameNameReplace_2 = "，是否覆盖？"
    Lang_CreateOptions_CreateProjectFailed = "，创建工程失败"
    
    Lang_Application_Title = "拖控件大法"
    Lang_Main_SaveBeforeCompile = "是否先保存所有文件再进行编译？"
    Lang_Main_SaveFailedBeforeCompile = "保存文件时发生错误！是否继续进行编译？"
    Lang_Main_ReplaceExe_1 = "检测到在编译目录中有文件与即将编译的可执行文件重名: "
    Lang_Main_ReplaceExe_2 = " 是否继续编译？该文件将会被覆盖。"
    Lang_Main_StartingGcc = "正在启动g++进行编译: "
    Lang_Main_GccStartFailed = "无法启动g++: "
    Lang_Main_CompileSucceed = "编译完成: EXE路径: "
    Lang_Main_CompileFailed = "编译失败！"
    Lang_Main_Run_Menu_Start = LoadResString(ResID + 52)
    Lang_Main_Run_Menu_Continue = "继续运行 (&R)"
    Lang_Main_RunFailed = "无法运行 "
    Lang_Main_RunSucceed = "创建待调试进程: 进程ID: "
    Lang_Main_GdbFailed = "创建gdb调试管道失败！无法进行调试。"
    Lang_Main_GdbSucceed = "创建gdb调试管道: 进程ID: "
    Lang_Main_GdbAttaching = "正在附加进程..."
    Lang_Main_GdbAttachFailed_1 = "gdb附加到进程"
    Lang_Main_GdbAttachFailed_2 = "失败，无法进行调试。"
    Lang_Main_GdbLoadingSymbols_1 = "正在从文件"
    Lang_Main_GdbLoadingSymbols_2 = "读取符号..."
    Lang_Main_GdbLoadSymbolsFailure_1 = "从可执行文件"
    Lang_Main_GdbLoadSymbolsFailure_2 = " 加载符号失败！这意味着断点、查看本地变量等调试功能将无法正常工作，是否继续调试？"
    Lang_Main_DebugAborted = "放弃调试。"
    Lang_Main_GdbBreakpointError_1 = "断点错误: 在文件 "
    Lang_Main_GdbBreakpointError_2 = " 中找不到第"
    Lang_Main_GdbBreakpointError_3 = "行。"
    Lang_Main_GdbBreakpoint_Invalid = "<断点无效>"
    Lang_Main_RunningInfo_1 = "进程"
    Lang_Main_RunningInfo_2 = "正在运行"
    Lang_Main_Debug_OpenSourceFailure = "无法打开代码文件: "
    Lang_Main_Debug_BreakpointHit = "断点命中于"
    Lang_Main_Debug_Returned = "程序退出并返回: "
    Lang_Main_Failed_Kill_Debug = "结束调试进程"
    Lang_Main_Failed_Kill_Gdb = "结束gdb进程"
    Lang_Main_Failed_Kill_Ending = "失败！请自行结束该进程。"
    Lang_Main_Gdb_Unexpected_Exit_1 = "gdb进程"
    Lang_Main_Gdb_Unexpected_Exit_2 = "意外退出！调试被迫结束。"
    Lang_Main_Gdb_Unexpected_Exit_3 = "将试图强制结束调试进程"
    Lang_Main_Debug_Break_At = "程序中断于 "
    Lang_Main_Read_Pipe_Error = "无法获取gdb调试管道内容！将取消本次调试。"
    
    Lang_SolutionExplorer_Caption = "工程资源管理器"
    Lang_SolutionExplorer_RenameFailure_1 = "为文件"
    Lang_SolutionExplorer_RenameFailure_2 = " 重命名失败: "
    Lang_SolutionExplorer_NewFolderName = "新文件夹"
    Lang_SolutionExplorer_InvalidName = "无效的名称！"
    
    Lang_SaveBox_Caption = "保存"
    Lang_SaveBox_Yes = "是"
    Lang_SaveBox_No = "否"
    Lang_SaveBox_Cancel = "取消"
    Lang_SaveBox_Prompt = "是否保存下列所选择的文件？"
    Lang_SaveBox_SaveFailure_1 = "无法保存文件："
    Lang_SaveBox_SaveFailure_2 = " ，是否继续保存其他文件？"
    
    Lang_Breakpoints_Caption = "断点列表"
    Lang_Breakpoints_ListViewHeader_File = "文件"
    Lang_Breakpoints_ListViewHeader_Line = "行号"
    Lang_Breakpoints_ListViewHeader_Address = "地址"
    Lang_Breakpoints_Info_1 = "断点于第"
    Lang_Breakpoints_Info_2 = "行: "
    Lang_Breakpoints_Info_3 = "已启用"
    Lang_Breakpoints_Info_4 = "已禁用"
    
    Lang_Locals_Caption = "本地"
    Lang_Locals_ListViewHeader_Name = "名称"
    Lang_Locals_ListViewHeader_Type = "类型"
    Lang_Locals_ListViewHeader_Value = "值"
    Lang_Locals_Error = "<错误>"
    Lang_Locals_Tooltip_Title = "本地变量信息: "
    
    Lang_CallStack_Caption = "调用堆栈"
    Lang_CallStack_Args = "参数"
    Lang_CallStack_Tooltip_Title = "调用堆栈信息:"
    Lang_CallStack_NoArg = "<无>"
    
    Lang_ErrorList_Errors = " 错误"
    Lang_ErrorList_Warnings = " 警告"
    Lang_ErrorList_Info = " 消息"
    Lang_ErrorList_Description = "描述"
    Lang_ErrorList_File = "文件"
    Lang_ErrorList_Line = "行"
    Lang_ErrorList_Column = "列"
    Lang_ErrorList_Tooltip_Title = "错误信息"
    
    Lang_Modules_Caption = "模块"
    Lang_Modules_ListViewHeader_FileName = "文件名"
    Lang_Modules_ListViewHeader_FilePath = "路径"
    Lang_Modules_ListViewHeader_From = "从"
    Lang_Modules_ListViewHeader_To = "到"
End Function