modvariables.bas

一个把VB原代码转换为VC原代码的软件代码。

Attribute VB_Name = "ModVariables"
' -------------------------------------
' VB2Cpp - Visual Basic to C++ translator.
' Copyright (C) 2002-2003 Franck Charlet.
'
' VB2Cpp is free software; you can redistribute it and/or modify
' it under the terms of the GNU General Public License as published by
' the Free Software Foundation; either version 2, or (at your option)
' any later version.
'
' VB2Cpp is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU General Public License for more details.
'
' You should have received a copy of the GNU General Public License
' along with VB2Cpp; see the file Copying.txt.  If not, write to
' the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
' Boston, MA 02111-1307, USA.
' -------------------------------------
' Variables are here
' -------------------------------------

Option Explicit

' --- Variables --- '
Public ProjectBytesR As Long
Public ProjectBytesW As Long
Public ProjectMem As Long
Public TempProjectName As String
Public TempProjectToChange As String
Public ModuleName As String
Public ProjectTitle As String

Public i As Long
Public j As Long
Public k As Long
Public L As Long
Public m As Long
Public n As Long
Public ModuleNameArray() As String
Public CurrentModuleName As String
Public OriginalModuleName As String
Public CurrentModuleHandle As Long
Public CurrentModuleMem As Long
Public CurrentModuleString As String
Public CurrentModuleArray() As String
Public CurrentModuleLine As String
Public OutModuleName As String
Public OutModuleHandle As Long
Public OutModuleString As String
Public OutHeaderName As String
Public OutHeaderCPrj As String
Public OutHeaderHandle As Long
Public OutCPrjHandle As Long
Public OutCPrjWorkSpcHandle As Long
Public OutHTypeHandle As Long
Public OutHConstHandle As Long
Public OutHVarHandle As Long
Public CurrentModLine As Long
Public SavedEntity As String
Public StringToStore As String
Public ConvertLocalResult As String
Public Nested As Long
Public CurrentNested As String
Public ArgType As String
Public ArgName As String
Public InTypeDef As Boolean
Public InEnumDef As Boolean
Public CurrentType As String
Public CurrentEnum As String
Public ArrResult As Long
Public LastFunctionResult As String
Public VarToLoad As String
Public FunctionToExecute As String
Public FunctionParm As String
Public ModuleEmptyName As String
Public TemporaryVars As Long
Public TemporaryStrArgs As Long
Public LiteralStrVar As Long
Public FncToEnd As Long
Public TemporarySelects As Long
Public TemporarySelectsSave As String
Public NoteCaseElse As Boolean
Public CaseVarFound As Long
' Statements to add before calling a function or sub
Public ArgumentsConversion As String
Public BracketBalance As Long
Public BrokeLine As String
Public LastArg As String
Public ConversionDone As Boolean
Public SuffixToAdd As Long
Public RealElementType As Long
Public SetReturnValue As Boolean
Public SavedForBase As String
Public SavedForConversion As String
Public InSelectCase As Boolean
Public InFirstSelectCase As Boolean
Public SelectCaseSt As String
Public IfString As String
Public IfCommand As String
Public UndefArrayDeclare As String
Public AssignedElementPos As Long
Public AssignedElementRoot As String
Public AssignedElementElement As String
Public ForcedVariable As Boolean
Public TrueForcedVariable As String
Public StatsLines As Long
Public Tempelement As Long
Public TempArrayRef As String
Public SingleIf As Long
Public CurrentSub As String
Public CurrentAlias As String
Public Continued As Boolean
Public CaseNumber As Long
Public goReturn As Boolean
Public SubVarResult As Long
Public CurrentDll As String
Public InNoConvert As Boolean
Public OldSelectCaseVar() As String
Public OldSelectCase() As Boolean
Public OldGoSubLabel() As String
Public GoSubOrder As String
Public NestedSelectCase As Boolean
Public CurrentSelectCaseFunc As String
Public ReturnFromNestedSelectCase As Boolean
Public TrimVariableArray As Boolean
Public PossibleSplitArray As Boolean
Public VariableArrayCmdToAdd As String
Public VariableArraySizeName As String
Public AssignSizedString As String
Public ProjectName As String
Public ProjectDirectory As String
Public ProjectType As String
Public ProjectStartupProc As String
Public ProjectMajor As String
Public ProjectMinor As String
Public ProjectRevision As String
Public ModulesArray() As String
Public ModulesArrayConversion() As Boolean
Public Ticks As Long
Public CmdMidComma() As String
Public CaseIs As String
Public ResourceName As String
Public FncTypeToReturn As Long
Public RealUserTypeValue As String
Public LookForDoubleSmb As Boolean
Public DisplayWarns As Boolean
Public StopAtError As Boolean
Public OutputVBLines As Boolean
Public OldWithVar() As String
Public WithNumber As Long
Public CurrentWith As String
Public DefReturnType As Long
Public InStringComp As Integer
Public InStringSelect As Long
Public InStringSelectSave As Long
Public InStringSelectVar As String
Public InStringSelectCase As Boolean
Public CaseElseStr As String
Public UTypeAssign As Boolean
Public ElseIfCase As Boolean
Public InvertedIF As Boolean
Public CurrentCompare As Long
Public WasStringCmp As Boolean
Public NbrErrors As Long
Public NbrWarnings As Long
Public RemoveTOPos As Long
Public StaticLine As Boolean
Public StaticContainer As Boolean
Public CheckLocalVar As Long
Public CheckLocalVarPos As Long
Public ForTempUVarNbr As Long
Public ForTempLVarNbr As Long
Public VarToFree() As String
Public LastLocalDeclare As String
Public CheckUnderArray As Long

Public RefVariablesWORD As Long
Public RefVariablesDWORD As Long
Public RefVariablesCHAR As Long
Public RefVariablesBOOL As Long
Public RefVariablesBYTE As Long
Public RefVariablesDOUBLE As Long
Public RefVariablesANY As Long
Public RefVariablesFLOAT As Long
Public RefVariablesELSE As Long

' --- Related to GUI --- '
Public SerifFont As Long
Public CourierFont As Long
Public BackGroundDC As Long
Public WinClass As WNDCLASSEX
Public DialogTemplate As DLGTEMPLATE
Public MyOpenFName As OPENFILENAME
Public WinMsg As MSG
Public hWndMain As Long
Public hWndDialog As Long
Public hWndDumpBox As Long
Public hMenuBar As Long
Public hMenu As Long
Public hStatusBar As Long
Public MenuComments() As String
Public hWndVCLib As Long
Public hWndPrefsOk As Long
Public hWndPrefsCancel As Long
Public hWndPrefsSelDir As Long
Public hWndFrameOptions As Long
Public hWndFrameVisuals As Long
Public hWndColorBackGround As Long
Public hWndColorForeGround As Long
Public hWndPrefsSysTab As Long
Public hWndOptClasses As Long
Public hWndOptDouble As Long
Public hWndOptDispWarns As Long
Public hWndOptStopAtError As Long
Public hWndOptOutputVBLines As Long
Public hWndOptDefault As Long
Public PrefsIniFile As String
Public hModulesCmdConvert As Long
Public hModulesCmdCancel As Long
Public hModulesCmdSelAll As Long
Public hModulesCmdUnSelAll As Long
Public hModulesListview As Long
Public ModulesChoice As Long
Public MainBackDC As BACKDCSTRUCT
Public CharHeight As Long
Public CharWidth As Long
Public DumpForeColor As Long
Public DumpBackColor As Long
Public TextLines() As String
Public CurrentLineY As Long
Public CurrentColX As Long
Public MaxTextWidth As Long
Public VertSBOn As Boolean
Public HorzSBOn As Boolean
Public TbTextArray() As String
Public MyColor As COLORSTRUCT
Public MyCustomColors As CUSTOMCOLORS
Public OldLineY As Long
Public OldColX As Long