modmain.bas

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

Attribute VB_Name = "ModMain"
' -------------------------------------
' 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.
' -------------------------------------
Option Explicit

Public Sub Main()
    Dim StrToShow As String, StrToAdd As String
    Dim StrToShow2 As String
    Dim StrToShow3 As String
    Let StrToShow = "Brave   "
    StrToShow = RTrim(StrToShow) + " " & StrReverse("wen")
    StrToShow = "Hello," & Space(1) & StrToShow
    StrToAdd = "WORLD"
    MsgBox StrToShow + Chr(32) & LCase(StrToAdd) + ".", vbInformation + vbOKOnly, "VBToLC6 Example 1"
End Sub