modmain.cpp

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

// -------------------------------------
// 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.
// -------------------------------------
// Example 1
// Display a simple message box
// with basic string manipulations.
// -------------------------------------

// ---------------------------
// WinMain()
// ---------------------------
int __stdcall WinMain(DWORD hInst,DWORD hPrev,char *CmdLine,int CmdShow)
{
	int WinMainReturnValue = 0;
	VBCommand = CmdLine;
	initgarbage();
	initvbtypes();
	memset(&TempVarsCHAR,0,sizeof(TempVarsCHAR));

	// ---------------------------
	// Start of user code
	// ---------------------------

	char *StrToShow="";
	char *StrToAdd="";
	char *StrToShow2="";
	char *StrToShow3="";
	StrToShow=strdup("Brave   ");
	StrToShow=strdup(RTrim(StrToShow)>>(VBStr)" ">>(VBStr)StrReverse("wen"));
	StrToShow=strdup("Hello,">>(VBStr)Space(1)>>(VBStr)StrToShow);
	StrToAdd=strdup("WORLD");
	MsgBox(StrToShow>>(VBStr)Chr(32)>>(VBStr)LCase(StrToAdd)>>(VBStr)".",VbMsgBoxStyle_vbInformation+VbMsgBoxStyle_vbOKOnly,"VBToLC6 Example 1");
Main_return:;

	// ---------------------------
	// End of user code
	// ---------------------------

	if (GarbageArray[GarbagePos]) free((void *)GarbageArray[GarbagePos]);
	free((void *) App.Path);
	free((void *) App.EXEName);
	return(WinMainReturnValue);
}