modsys.bas

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

Attribute VB_Name = "ModSys"
' -------------------------------------
' 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.
' -------------------------------------
' Windows related constants and functions
' -------------------------------------

Option Explicit

' --- System constants --- '
Public Const GMEM_FIXED = &H0&
Public Const GMEM_ZEROINIT = &H40&
Public Const STD_OUTPUT_HANDLE = -11
Public Const GENERIC_READ = &H80000000
Public Const FILE_SHARE_READ = &H1
Public Const OPEN_EXISTING = 3
Public Const FILE_ATTRIBUTE_NORMAL = &H80&
Public Const GENERIC_WRITE = &H40000000
Public Const CREATE_ALWAYS = 2
Public Const MAX_PATH = 260
Public Const INVALID_HANDLE_VALUE = -1

' --- Related to GUI --- '
Public Const WM_USER = &H400&
Public Const ICC_WIN95_CLASSES = &HFF&
Public Const ICC_USEREX_CLASSES = &H200&
Public Const ICC_COOL_CLASSES = &H400&
Public Const ICC_PAGESCROLLER_CLASS = &H1000&
Public Const FW_NORMAL = 400
Public Const DEFAULT_CHARSET = 1
Public Const OUT_DEFAULT_PRECIS = 0
Public Const CLIP_DEFAULT_PRECIS = 0
Public Const DEFAULT_QUALITY = 0
Public Const DEFAULT_PITCH = 0
Public Const FF_SWISS = 32
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
Public Const WS_CLIPSIBLINGS = &H4000000
Public Const CS_BYTEALIGNWINDOW = &H2000
Public Const CS_HREDRAW = &H2
Public Const CS_VREDRAW = &H1
Public Const CS_BYTEALIGNCLIENT = &H1000&
Public Const WM_CREATE = &H1&
Public Const WM_CLOSE = &H10&
Public Const COLOR_BTNFACE = 15
Public Const IDC_ARROW = 32512
Public Const WM_SETICON = &H80&
Public Const ICON_SMALL = 0
Public Const SW_SHOWNORMAL = 1
Public Const WS_SYSMENU = &H80000
Public Const WS_EX_NOPARENTNOTIFY = &H4&
Public Const WS_EX_STATICEDGE = &H20000
Public Const WS_VISIBLE = &H10000000
Public Const WS_CHILD = &H40000000
Public Const ES_LEFT = &H0&
Public Const WM_SETFONT = &H30&
Public Const MB_OK = &H0&
Public Const MB_ICONASTERISK = &H40&
Public Const MB_ICONINFORMATION = MB_ICONASTERISK
Public Const ES_MULTILINE = &H4&
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_THICKFRAME = &H40000
Public Const WS_SIZEBOX = WS_THICKFRAME
Public Const WM_SIZE = &H5&
Public Const ES_READONLY = &H800&
Public Const WM_SETTEXT = &HC&
Public Const WM_GETTEXTLENGTH = &HE&
Public Const WM_GETTEXT = &HD&
Public Const MF_POPUP = &H10&
Public Const MF_STRING = &H0&
Public Const MF_SEPARATOR = &H800&
Public Const SB_SETTEXT = WM_USER + 1
Public Const SBT_NOBORDERS = &H100&
Public Const SB_SIMPLE = WM_USER + 9
Public Const WM_MENUSELECT = &H11F&
Public Const WM_COMMAND = &H111&
Public Const WM_EXITMENULOOP = &H212&
Public Const SW_SHOWMAXIMIZED = 3
Public Const WS_VSCROLL = &H200000
Public Const ES_AUTOVSCROLL = &H40&
Public Const MB_YESNO = &H4&
Public Const MB_ICONQUESTION = &H20&
Public Const IDYES = 6
Public Const DS_3DLOOK = &H4&
Public Const DS_NOIDLEMSG = &H100&
Public Const DS_SETFOREGROUND = &H200&
Public Const DS_MODALFRAME = &H80&
Public Const DS_CENTER = &H800&
Public Const WS_BORDER = &H800000
Public Const WS_CAPTION = &HC00000
Public Const WM_INITDIALOG = &H110&
Public Const GWL_USERDATA = (-21)
Public Const GWL_WNDPROC = (-4)
Public Const WM_CTLCOLOREDIT = &H133&
Public Const COLOR_WINDOWTEXT = 8
Public Const COLOR_WINDOW = 5
Public Const WM_CTLCOLORSTATIC = &H138&
Public Const WS_TABSTOP = &H10000
Public Const BS_LEFT = &H100&
Public Const BS_VCENTER = &HC00&
Public Const BS_AUTOCHECKBOX = &H3&
Public Const BS_MULTILINE = &H2000&
Public Const SS_LEFT = 0
Public Const OFN_EXPLORER = &H80000
Public Const OFN_HIDEREADONLY = &H4&
Public Const OFN_SHOWHELP = &H10&
Public Const OFN_PATHMUSTEXIST = &H800&
Public Const OFN_FILEMUSTEXIST = &H1000&
Public Const OFN_LONGNAMES = &H200000
Public Const OFN_ALLOWMULTISELECT = &H200&
Public Const BS_CENTER = &H300&
Public Const BS_PUSHBUTTON = &H0&
Public Const WS_GROUP = &H20000
Public Const BS_DEFPUSHBUTTON = &H1&
Public Const BIF_RETURNONLYFSDIRS = 1
Public Const WS_EX_CONTROLPARENT = &H10000
Public Const BS_GROUPBOX = &H7&
Public Const WS_DISABLED = &H8000000
Public Const BM_GETCHECK = &HF0&
Public Const BM_SETCHECK = &HF1&
Public Const IDC_WAIT = 32514
Public Const EM_SETSEL = &HB1&
Public Const CBS_NOINTEGRALHEIGHT = &H400&
Public Const CBS_AUTOHSCROLL = &H40&
Public Const CB_INSERTSTRING = &H14A&
Public Const CBS_DROPDOWNLIST = &H3&
Public Const CB_SETCURSEL = &H14E&
Public Const CB_GETCURSEL = &H147&
Public Const EM_SCROLL = &HB5&
Public Const EM_LINESCROLL = 182
Public Const WS_HSCROLL = &H100000
Public Const LVS_REPORT = &H1&
Public Const LVM_FIRST = &H1000&
Public Const LVS_SHOWSELALWAYS = &H8&
Public Const LVS_SHAREIMAGELISTS = &H40&
Public Const LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 54
Public Const LVCF_FMT = &H1&
Public Const LVCF_TEXT = &H4&
Public Const LVCF_WIDTH = &H2&
Public Const LVCF_SUBITEM = &H8&
Public Const LVCFMT_LEFT = &H0&
Public Const LVM_INSERTCOLUMN = LVM_FIRST + 27
Public Const LVIF_TEXT = &H1&
Public Const LVIF_STATE = &H8&
Public Const LVIF_PARAM = &H4&
Public Const LVIF_IMAGE = &H2&
Public Const LVM_INSERTITEM = LVM_FIRST + 7
Public Const LVM_GETITEMSTATE = LVM_FIRST + 44
Public Const LVIS_STATEIMAGEMASK = &HF000&
Public Const LVS_EX_FULLROWSELECT = &H20&
Public Const LVS_EX_CHECKBOXES = &H4&
Public Const LVS_EX_LABELTIP = &H4000&
Public Const LVS_SINGLESEL = &H4&
Public Const LVS_NOCOLUMNHEADER = &H4000&
Public Const LVM_SETITEMSTATE = LVM_FIRST + 43
Public Const WM_NOTIFY = &H4E&
Public Const NM_FIRST = 0
Public Const NM_DBLCLK = NM_FIRST - 3
Public Const LVM_HITTEST = LVM_FIRST + 18
Public Const LVIS_SELECTED = &H2&
Public Const LVIS_FOCUSED = &H1&
Public Const LVM_SETCOLUMNWIDTH = LVM_FIRST + 30
Public Const LVM_GETITEMCOUNT = LVM_FIRST + 4
Public Const WM_ERASEBKGND = &H14
Public Const BI_RGB = 0
Public Const DIB_RGB_COLORS = 0
Public Const BS_SOLID = 0
Public Const SRCCOPY = &HCC0020
Public Const WM_PAINT = &HF&
Public Const WM_HSCROLL = &H114&
Public Const WM_VSCROLL = &H115&
Public Const SB_BOTTOM = 7
Public Const SB_ENDSCROLL = 8
Public Const SB_LINELEFT = 0
Public Const SB_LINEUP = 0
Public Const SB_LINERIGHT = 1
Public Const SB_LINEDOWN = 1
Public Const SB_PAGELEFT = 2
Public Const SB_PAGEUP = 2
Public Const SB_PAGERIGHT = 3
Public Const SB_PAGEDOWN = 3
Public Const SB_THUMBPOSITION = 4
Public Const SB_THUMBTRACK = 5
Public Const SB_TOP = 6
Public Const DUMPBOX_LINELEFT = WM_USER + 201
Public Const DUMPBOX_LINERIGHT = WM_USER + 202
Public Const DUMPBOX_PAGELEFT = WM_USER + 203
Public Const DUMPBOX_PAGERIGHT = WM_USER + 204
Public Const DUMPBOX_LINEUP = WM_USER + 205
Public Const DUMPBOX_LINEDOWN = WM_USER + 206
Public Const DUMPBOX_PAGEUP = WM_USER + 207
Public Const DUMPBOX_PAGEDOWN = WM_USER + 208
Public Const DUMPBOX_POSITIONLEFTRIGHT = WM_USER + 209
Public Const DUMPBOX_POSITIONUPDOWN = WM_USER + 210
Public Const DUMPBOX_TRACKLEFTRIGHT = WM_USER + 211
Public Const DUMPBOX_TRACKUPDOWN = WM_USER + 212
Public Const DUMPBOX_TOP = WM_USER + 213
Public Const DUMPBOX_BOTTOM = WM_USER + 214
Public Const DUMPBOX_LEFT = WM_USER + 215
Public Const DUMPBOX_RIGHT = WM_USER + 216
Public Const SB_HORZ = 0
Public Const SB_VERT = 1
Public Const SIF_RANGE = &H1
Public Const SIF_PAGE = &H2
Public Const SIZE_MINIMIZED = 1
Public Const TRANSPARENT = 1
Public Const OPAQUE = 2
Public Const LF_FACESIZETYPE = 32 - 1
Public Const LOGPIXELSY = 90
Public Const FW_BOLD = 700
Public Const FIXED_PITCH = 1
Public Const FF_MODERN = 48
Public Const LF_FACESIZE = 32
Public Const VK_UP = &H26&
Public Const VK_DOWN = &H28&
Public Const VK_LEFT = &H25&
Public Const VK_RIGHT = &H27&
Public Const VK_PGUP = &H21&
Public Const VK_PGDN = &H22&
Public Const WM_KEYDOWN = &H100&
Public Const SB_CTL = 2
Public Const VK_END = &H23&
Public Const VK_HOME = &H24&
Public Const TCM_FIRST = &H1300&
Public Const TCM_SETIMAGELIST = TCM_FIRST + 3
Public Const TCM_INSERTITEM = TCM_FIRST + 7
Public Const TCM_GETCURSEL = TCM_FIRST + 11
Public Const TCIF_IMAGE = &H2&
Public Const TCIF_TEXT = &H1&
Public Const TCS_BUTTONS = &H100&
Public Const TCS_FLATBUTTONS = 8
Public Const TCS_HOTTRACK = &H40&
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5
Public Const TCN_FIRST = 0 - 550
Public Const TCN_SELCHANGE = TCN_FIRST - 1
Public Const MSG_COLORBOX_CLICKED = WM_USER + 101
Public Const IDC_HAND = 32649
Public Const WM_LBUTTONDOWN = &H201&
Public Const RDW_ERASE = &H4&
Public Const RDW_INVALIDATE = &H1
Public Const CC_FULLOPEN = &H2
Public Const CC_RGBINIT = &H1
Public Const VK_CONTROL = &H11&
Public Const WM_KEYUP = &H101&
Public Const PS_SOLID = 0

' --- System types --- '
Public Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type

Public Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type

Public Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type

' --- Related to GUI --- '
Public Type STRUCTINITCOMMONCONTROLSEX
    dwSize As Long
    dwICC As Long
End Type

Public Type WNDCLASSEX
    cbSize As Long
    style As Long
    lpfnwndproc As Long
    cbClsextra As Long
    cbWndExtra As Long
    hInstance As Long
    hIcon As Long
    hCursor As Long
    hbrBackground As Long
    lpszMenuName As String
    lpszClassName As String
    hIconSm As Long
End Type

Public Type POINTAPI
    X As Long
    Y As Long
End Type

Public Type MSG
    hwnd As Long
    Message As Long
    wParam As Long
    lParam As Long