237、如何判断资料库中某一个 Table 是否存在 (二)?(DAO)
在 问题: 如何判断资料库中某一个 Table 是否存在?(ADO) 中,我们提到了使用 ADO 的方法来判断资料库中的某一个 Table 是否存在,但是它只适用于 VB6,顶多只到 VB5 (注一),然而,DAO 却可适用于 VB6 - VB3 中所有的版本!
虽然是使用 DAO,但是我们仍然是使用错误尝试法来解决今天的问题,我们仍然以 Access 为例,资料库使用 VB 内附的 Biblio.mdb,要注意的地方有二个:
1、记得要设定【专案】【设定引用项目】【Microsoft DAO x.x Object Library】。
2、除了 Table 之外,今天我们也检查 Access 的 Query !
请将以下的程序码复制到表单中,表单中不需要任何控制项:
Const NameNotInCollection = 3265
Dim DB As Database
Private Function ExistsTableQuery(TName As String) As Boolean
Dim Test As String
On Error Resume Next
' 检查这个名称是否出现在 Tables collection 中:
Test = DB.TableDefs(TName).Name
If Err <> NameNotInCollection Then
ExistsTableQuery = True
' 重设 Err 预设值为 0
Err = 0
' 检查这个名称是否出现在 Queries collection 中:
Test = DB.QueryDefs(TName$).Name
If Err <> NameNotInCollection Then
ExistsTableQuery = True
End If
End If
End Function
Private Sub Form_Load()
Set DB = DBEngine.Workspaces(0).Opendatabase("Biblio.mdb")
Debug.Print "BadTable "; IIf(ExistsTableQuery("BadTableName"), "", "不"); "存在."
Debug.Print "Authors "; IIf(ExistsTableQuery("Authors"), "", "不"); "存在."
End Sub
注一
VB5.0 并不包含 ADO 的技术,然而您还是可以在 VB5.0 中使用 ADO。您可以有下列两种方式,取得ADO:
(1) 安装 NT Option Pack 的 IIS 4.0。
(2) 从网路上下载 ADO2.0, 网址为 http://www.microsoft.com/data。
238、如何将长文件名转成短文件名格式 (MS-DOS 8.3)(二)?
在【问题: 如何将长文件名转成短文件名格式 (MS-DOS 8.3)】中我们曾经提过这个问题,不过当时我们是使用 GetShortPathName 这个 API 函数,而在【问题185: 如何将短文件名格式转成长文件名?】这个相反的主题中我们并没有使用 API!有网友问我,长文件名转成短文件名可以不必使用 API 吗?我先告诉各位,答案是:当然可以!
在很多情形下,您会需要知道某一个长文件名文件的 8.3 格式短文件名,幸运的是,在一般的情形下,您只要回到 MSDOS 模式,您就可以看到这些长文件名文件的 8.3 格式短文件名!例如:在 MSDOS 之模式下,Program Files 这个目录便变成了 Progra~1。
而如果您知道,您不必使用 GetShortPathName 这个 API 函数,就可以取得这些长文件名文件的 8.3 格式短文件名,您一定会更高兴!因为现在 VB 有提供一个 Scripting Runtime library,您只要使用其中 File 及 Folder 物件的 ShortPath 属性,就可以取得长文件名目录或长文件名文件的 8.3 格式短文件名!
不过在开始之前,一定要记得在【专案】的【引用项目】中,加入【Microsoft Scripting Runtime】!
程序码大致如下:
Private Sub Form_Load()
Dim fso As FileSystemObject
Dim fsoFile As File
Set fso = New FileSystemObject
Set fsoFile = fso.GetFile("C:\MyReallyLongName.txt")
MsgBox fsoFile.ShortPath
Set fsoFile = Nothing
Set fso = Nothing
End Sub
'结果就是 C:\MYREAL~1.TXT
239、如何移动文件到回收站
声明:
Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As Long
End Type
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public Const FO_DELETE = &H3
Public Const FOF_ALLOWUNDO = &H40
代码:
Dim SHop As SHFILEOPSTRUCT
Dim strFile as string
With SHop
.wFunc = FO_DELETE
.pFrom = strFile + Chr(0)
.fFlags = FOF_ALLOWUNDO
End With
SHFileOperation SHop
240、如何比较两个文件
Function CompFile(F1 as string, F2 as string) as boolean
Dim issame as boolean
Open F1 For Binary As #1
Open F2 For Binary As #2
issame = True
If LOF(1) <> LOF(2) Then
issame = False
Else
whole& = LOF(1) \ 10000 'number of whole 10,000 byte chunks
part& = LOF(1) Mod 10000 'remaining bytes at end of file
buffer1$ = String$(10000, 0)
buffer2$ = String$(10000, 0)
start& = 1
For x& = 1 To whole& 'this for-next loop will get 10,000
Get #1, start&, buffer1$ 'byte chunks at a time.
Get #2, start&, buffer2$
If buffer1$ <> buffer2$ Then
issame = False
Exit For
End If
start& = start& + 10000
Next
buffer1$ = String$(part&, 0)
buffer2$ = String$(part&, 0)
Get #1, start&, buffer1$ 'get the remaining bytes at the end
Get #2, start&, buffer2$ 'get the remaining bytes at the end
If buffer1$ <> buffer2$ Then
issame = False
End If
Close
CompFile = issame
End Function
241、如何启动别的应用程序,并于应用程序结束前返回所需的资料?
在这个范例中,我们会用到一个函数及二个陈述式,说明如下:
Shell 函数: 执行一个执行文件程序,如果成功的话,会返回一个 Variant (Double) 来代表这个程序的 task ID,若不成功,则会返回 o。
语法:Shell(pathname[,windowstyle])
AppActivate 陈述式: 启动一应用程序视窗。
语法:AppActivate title[, wait]
SendKeys 陈述式: 送出一或多个按键讯息到使用中的视窗,就如同在键盘上按下的一样。
语法:SendKeys string[, wait]
它们的完整说明,请自行参阅线上手册或 Msdn!在这里,我们只是要告诉大家一个方法而已!
今天我们要练习的是:在程序中使用 Shell 去执行小算盘,使用 AppActivate 去启动它,使用 SendKeys 传送按键给它做运算,再将运算结果用剪贴簿接收回来,最后关闭小算盘。
在 Form 上放一个 CommandButton 及一个 TextBox,并将以下的程序码复制到 Form 中:
Private Sub Command1_Click()
' 1 启动小算盘并计算
Dim ReturnValue, I
ReturnValue = Shell("Calc.EXE", 1) ' 执行小算盘。
AppActivate ReturnValue ' 启动小算盘。
For I = 1 To 100 ' 设定回圈执行次数。
SendKeys I & "{+}", True ' 按下按键给小算盘
Next I ' 将所有 I 值相加。
SendKeys "=", True ' 取得总和。
' 2 将计算结果抓回程序中
Clipboard.Clear ' 清除剪贴簿内容。
SendKeys "^{C}", True ' 按 CTRL +C 来复制小算盘计算结果。
Text1.Text = Clipboard.GetText ' 将剪贴簿中之计算结果放到 Text1 中。
' 3 关闭小算盘
SendKeys "%{F4}", True ' 按 ALT+F4 来结束小算盘。
End Sub
执行之后您会看到小算盘自动运算,最后将结果 10100 返回 Text1中!OK!
如果您想看分解动作的话,就重新开启一个新的工程,在 Form 上放三个
CommandButton 及一个 TextBox,程序码如下:
Dim ReturnValue
' 1 启动小算盘并计算
Private Sub Command1_Click()
Dim I
ReturnValue = Shell("Calc.EXE", 1) ' 执行小算盘。
AppActivate ReturnValue ' 启动小算盘。
For I = 1 To 100 ' 设定回圈执行次数。
SendKeys I & "{+}", True ' 按下按键给小算盘
Next I ' 将所有 I 值相加。
SendKeys "=", True ' 取得总和。
End Sub
' 2 将计算结果抓回程序中
Private Sub Command2_Click()
Clipboard.Clear ' 清除剪贴簿内容。
AppActivate ReturnValue ' 启动小算盘。
SendKeys "^{C}", True ' 按 CTRL +C 来复制小算盘计算结果。
Text1.Text = Clipboard.GetText ' 将剪贴簿中之计算结果放到 Text1 中。
End Sub
' 3 关闭小算盘
Private Sub Command3_Click()
AppActivate ReturnValue ' 启动小算盘。
SendKeys "%{F4}", True ' 按 ALT+F4 来结束小算盘。
End Sub
当然,结果和上面一个范例是一样的!
242、如何在 VB 中使用 Winzip 来压缩文件?
当今市面上压缩软体一大堆,但是如果您想在 VB 程序中做文件压缩的功能,
您知道要怎么做吗?
我不懂一些烦琐的压缩理论,但是我懂得利用现有的压缩软体来替我达到
我想要的功能!
在这个例子中,我要使用 Winzip 来做,所以,如果您想用下面的范例来做
练习的话,先决条件就是您的电脑中一定要有安装 Winzip 才行!
压缩文件 (加入文件):
语法:winzip[32].exe [-min] action [options] filename[.zip] files
参数说明:
-min 最小化
指定 Winzip 执行时为最小化。如果您要使用 -min 这个参数,它必须是命令列参
数的第一个参数。
action 动作
-a add 加入文件
-f freshen 重新整理目前文件
-u update 更新文件
-m move 移动文件
options 选项
Directories 资料夹选项
-r Recurse Directories 含资料夹内内容。
-p Save Extra Directory Info 储存其他层资料夹讯息。
method 决定压缩的方法选项
-ex eXtra 最大 (最慢)
-en Normal 一般 (预设值)
-ef Fast 快速
-es Super fast 最快速
-e0 no compression 不压缩
其他选项
-s 设定密码 密码必须使用双引号括起来。
例如:-s "Secret Password",不过要注意大小写是不同的!
-hs 包含符合条件的隐藏及系统文件。
filename.zip 压缩文件名
指定压缩后的文件名,要注意的是必须是全路径文件名 (含磁盘代号及资料夹)。
files 所有原始文件
一个或多个文件,每一个文件写在独立的一行,可以使用万用字元,例如:*.bak。
解压缩文件:
语法:winzip[32].exe -e [options] filename[.zip] directory
参数说明:
-e 表示解压缩
是必要的参数!
options 选项
-o Overwrite existing files
without prompting 取代同名的文件。
-j Junk pathnames 跳过旧文件。
除非指定 -J 这个参数,否则会使用原本的资料夹名称。
-s 设定密码 密码必须使用双引号括起来。
例如:-s "Secret Password",不过要注意大小写是不同的!
-hs 包含符合条件的隐藏及系统文件。
filename.zip 压缩文件名
指定压缩后的文件名,要注意的是必须是全路径文件名 (含磁盘代号及资料夹)。
directory 资料夹
解压缩后的文件存放的资料夹。如果资料夹不存在便会自动建立。
注意事项:
※非常重要:
永远使用全路径文件名 (含磁盘代号及资料夹)。
※若希望执行 Winzip 时是最小化,要使用 -min 这个参数,它必
须是命令列参数的第一个参数。
※Winzip 内建只支援 zip 及 unzip 二种操作模式。
※若是长文件名的话,必须使用双引号括起来。
※在设定文件时,前导及最后的字符不可空白,也不可有空白行!
※在命令列中的动作及选项参数,至少要用一个以上的空白分隔。
※WinZip 可以用来配合 cc:Mail 压缩文件:
更改 WMAIL.INI 中的 [cc:Mail] section 的 compress= 这一行
指定 Winzip 的完整路径,并跟随著 "-a %1 @%2" 参数
例如:如果 Winzip 安装在 c:\winzip,则 compress= 这一行必须改成
compress=c:\winzip\winzip.exe -a %1 @%2
范例程序:
Private Sub Command1_Click()
Dim wzipexe As String ' winzip 执行文件的位置
Dim wsource As String ' 原始文件 (压缩前)
Dim wtarget As String ' 目地文件 (压缩后)
Dim wcmd As String ' Shell 指令
Dim retval As Double ' Shell 指令返回值
'拼凑 Shell 指令
wzipexe = "C:\program files\winzip\WINzip32"
wtarget = "c:\TargetFolder\AssignedNameFile.zip"
wsource = "c:\SourceFolder\SourceFile(s)"
wcmd = wzipexe & " -a " & wtarget &
" " & wsource
retval = Shell(wcmd, 6)
'上面的一大串可写成
'retval = Shell("C:\program files\winzip\WINzip32 -a c:\TargetFolder\AssignedNameFile.zip c:\SourceFolder\SourceFile(s)", 6)
End Sub
243、如何取得临时文件名
声明:
Public Const MAX_PATH = 260
Public Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
代码:
Public Function GetTempFile() As String
Dim lngRet As Long
Dim strBuffer As String, strTempPath As String
'初始化 buffer
strBuffer = String$(MAX_PATH, 0)
'取得临时路径
lngRet = GetTempPath(Len(strBuffer), strBuffer)
'0 错误
If lngRet = 0 Then Exit Function
'去掉尾中的 null
strTempPath = Left$(strBuffer, lngRet)
'初始化 buffer
strBuffer = String$(MAX_PATH, 0)
'取得临时文件名
lngRet = GetTempFileName(strTempPath, "tmp", 0&, strBuffer)
If lngRet = 0 Then Exit Function
lngRet = InStr(1, strBuffer, Chr(0))
If lngRet > 0 Then
GetTempFile = Left$(strBuffer, lngRet - 1)
Else
GetTempFile = strBuffer
End If
End Function
244、如何确定是 Windows 的可执行文件
在文件的第 24 字节,如果为40h,就是 Windows 的可执行文件。
Function WinExe (ByVal Exe As String) As Integer
Dim fh As Integer
Dim t As String * 1
fh = FreeFile
Open Exe For Binary As #fh
Get fh, 25, t
Close #fh
WinExe = (Asc(t) = &H40&)
End Function
245、如何取得文件的扩展名
Function GetExtension(Filename As String)
Dim PthPos, ExtPos As Integer
For i = Len(Filename) To 1 Step -1 ' Go from the Length of the filename, to the first character by 1.
If Mid(Filename, i, 1) = "." Then ' If the current position is '.' then...
ExtPos = i ' ...Change the ExtPos to the number.
For j = Len(Filename) To 1 Step -1 ' Do the Same...
If Mid(Filename, j, 1) = "\" Then ' ...but for '\'.
PthPos = j ' Change the PthPos to the number.
Exit For ' Since we found it, don't search any more.
End If
Next j
Exit For ' Since we found it, don't search any more.
End If
Next i
If PthPos > ExtPos Then
Exit Function ' No extension.
Else
If ExtPos = 0 Then Exit Function ' If there is not extension, then exit sub.
GetExtension = Mid(Filename, ExtPos + 1, Len(Filename) - ExtPos) 'Messagebox the Extension
End If
End Function
使用:
FileExt = GetExtension("c:\windows\vb\vb.exe")
246、您知道 Microsoft 不再支持那些 VB 的版本吗?
Microsoft 的每一个软件,一年一年的推出新版本,但是并不会立刻就不支持旧的版本,通常都是新旧并行,而且我认为有一点点可恶的是,通常 Microsoft 推出新版本的同时,却还是继续卖旧的版本!
但是对于旧版本的支持并不是永久的,一段时间之后, Microsoft 就会宣判某一个软件的某一个版本死刑!并且将这些资讯公布在 Microsoft product support services 的网页上。
您知道到目前 (88.12.24) 为止,有那些 Microsoft 的软件被判死刑了吗 (指 Microsoft 技术中心不再支持)?列表如下,您看看有没有您还在使用的软件版本,如果有的话,该准备升级了!
不再支持的旧软件版本
可取代的新软件版本
A.L.D.S. (CPM/80)
MASM
Access Communications Package 1.02
Works for Windows
Access Distribution Kit 1.0
Access versions 7.0, 97
Access for Windows, 1.x
Access versions 7.0, 97
Access Solutions Pack 1.0
n/a
Adventure for the Apple II
n/a
Altimera Composer for Windows
SoftImage product line
Apple II and Apple III Operating Systems
n/a
Assembler 3.44
MASM 6.1
Asymetrix Daybook 1.0
Schedule+ for Windows
AutoDemo for Macintosh, 1.0
n/a
AutoMac 2.1
Excel for the Macintosh
Automap Road Atlas 3.x for MS-DOS
Automap Trip Planner for Windows 95 or Automap Road Atlas 4.0 for Windows
Basic Compiler 5.3 (CPM/80)
Visual Basic
Basic Compiler for SoftCard 5.35 (CPM/80)
Visual Basic
Basic Interpreter 5.21 (CPM/80)
Visual Basic
Beta Software Migration Kit (OS/2)
Windows NT Resource Kit
Bob
Works and Home Essentials Bundle
Bookshelf 87 for MS-DOS
Bookshelf for Windows
Bookshelf 91 for MS-DOS
Bookshelf for Windows
C/C++ Compiler 7.0
Visual C 4.2
Chart
Excel or Works
Chart 1.02 for the Macintosh
Excel for the Macintosh
Chart 3.0 for MS-DOS
Excel for Windows
Cobol
Third-party support Micro Focus
CPM/80 Operating System
Windows 95
DCA/MS Comm Server Workstation 8.0 (OS/2)
SNA and SQL Server
Decathlon for the Apple II 1.0
Full line of Microsoft Games
Edit (CPM/80)
Notepad in Windows 95
Excel Q+E
n/a
FILE for Macintosh
Works for Macintosh
Fortran
Digital Purchased Fortran 1-800-DIGITAL
FoxPro for Macintosh Professional and Standard 2.5 and 2.6
FoxPro for Macintosh 3.0 or Visual FoxPro for Windows
FoxPro for MS-DOS, 1.0, 2.0, 2.5 and 2.6
Visual FoxPro for Windows
FoxPro for MS-DOS and Windows Connectivity Kit 2.5
Visual FoxPro for Windows
FoxPro for MS-DOS Distribution Kit 2.0 and 2.5
Visual FoxPro for Windows
FoxPro for MS-DOS Library Construction Kit 2.0
Visual FoxPro for Windows
FoxPro for UNIX, 2.6
Visual FoxPro for Windows
FoxPro for Windows, 2.5 and 2.6
Visual FoxPro for Windows
FoxPro for Windows Distribution Kit 2.5
Visual FoxPro for Windows
FoxPro for Windows Library Construction Kit 2.5
Visual FoxPro for Windows
Internet Services Network 98
n/a
LAN Manager 2.0 Multiprocessor 2.0 (OS/2)
Windows NT Server
Learn MS-DOS
n/a
MAC Enhancer 2.0
n/a
MACH 10 and 20 v 1.0
n/a
Mach Daughter Board 10 and 20
80286 processor
MASM 6.0
MASM 6.11a
Mediaview Author
n/a
Microsoft Delta
SourceSafe
Mouse PC Paintbrush 3.1
Paintbrush featured in Windows 95
Mouse Show Partner 2.2
Slideshow feature in PowerPoint
MS Profit for Windows
Microsoft Money
Multimedia Viewer
Internet Studio
Multiplan 1.06 for the CPM/80
Excel for the Macintosh
Multiplan 1.07 for the Apple II
Excel for the Macintosh
Multiplan 4.0 for OS/2
Excel for Windows
Mutliplan 1.12 for the Apple III
Excel for the Macintosh
NT Hardware Capability Test
n/a
OEM Money 2.0
Microsoft Money
OEM Works for MS-DOS
Works for Windows
OS/2 Binary Adaptation Kit 1.0
NT Windows 32 SDK, NT, MSDN
OS/2 Device Driver Development Kit 1.0
Third-party support - IBM; Windows NT DDK
OS/2 for the MAC 20 1.0
n/a
OS/2 Programmer's Toolkit 1.0
Third-party support - IBM; Windows 32 SDK
OS/2 Software Development Kit 1.1
Third-party support - IBM; Windows 32 SDK for Windows NT
OS/2 Video Adaptation Kit 1.0
Windows NT
Pageview for MS-DOS, 1.0
Publisher
Pascal
Third-party support Microfocus
PC Junior Booster 1.0
n/a
Premium Software II 2.26B
n/a
Presentation Manager 1.1 (OS/2)
NT Presentation Manager Sub System
Quick Basic for Macintosh
Visual Basic for Applications in Office for the Macintosh
Quick Basic for MS-DOS
Visual Basic 5.0
Quick Basic Professional Development System (PDS)
Visual Basic 5.0
QuickC for Windows
Visual C 4.2 Standard
Small Business Consultant for MS-DOS, 1.0
Microsoft Small Business Pack
SoftCard 2.23 (CPM/80)
n/a
SoftCard II, version 2.28B (CPM/80)
n/a
SourceSafe 3.0 and 3.1
Visual SourceSafe 5.0
SourceSafe for the Macintosh, 3.0
Visual SourceSafe 5.0
SQL Server for OS/2
SQL Server for Windows NT
Typing Tutor 1.2 for the Apple II
Mavis Beacon Typing by Software Toolworks
Upgrade Advisor for Windows
Help files in Windows 95
Visual Basic for MS-DOS, 1.0
Visual Basic for Windows, 5.0
Visual Basic for Windows Professional and Standard Editions 1.0, 2.0, and 3.0
Visual Basic for Windows, 5.0
Visual C for Macintosh Add-on 2.1
Visual C Macintosh Add-on 4.0
Visual C for Windows NT (Alpha) 2.0
Visual C 4.0 for the Alpha
Visual C for Windows NT (MIPS) 2.1
Visual C 4.0 (RISC)
Visual C for Windows NT 1.0 and 2.0
Visual C 4.2
Visual C for Windows Professional 1.0
Visual C 4.2
Visual C for Windows Standard
Visual C 4.2
Visual Test 1.0, 2.0, 3.0, and 4.0
Contact Rational for support at (800) 728-1212 (inside the U.S. and Canada) or +1-703-761-4400 (outside the U.S. and Canada).
Windows/MS-DOS Bundle
Windows 95
Windows Printing System 1.0
Windows 95 Print Engine
Word for Macintosh, 1.x
Word for Macintosh, 5.x and higher
Word for MS-DOS, 1.0
Word for Windows
Word for Windows, 1.x
Word for Windows, 6.0 or Word 97
Works for Macintosh, 1.0 and 2.0
Works for Macintosh, 4.0
Works for MS-DOS, 1.0 and 2.0
Works for Windows
247、您知道 Microsoft 不再更新 COMCTL32, COMCT232, MSChart 三个控制项的新版本了吗?
当您从 VB5 升级到 VB6 时,或许您会注意到 COMCTL32.OCX, COMCT232.OCX, MSChart.OCX 三个控制项的版本仍然是 5.0(SP2),刚开始,我以为 Microsoft 不再升级这三个控制项了,不过我错了!
这三个控制项有升级的版本,但是 Microsoft 改变了它们的文件名称、介面,
而且,在您将项目从 VB5 升级到 VB6 时,VB6 也不会主动升级这些控制项!
它们的新旧文件名对照如下:
旧文件名
新文件名
comctl32.ocx
mscomctl.ocx
comct232.ocx
mscomct2.ocx
mschart.ocx
mschrt20.ocx
现在请勿马上动手开始修改程序,如果您想手动 Upgrade 这些控制项到新的版本,您一定会后悔!因为在您手动 Upgrade 之后,您一执行就会出现错误讯息!而且是没有说明按钮的错误讯息!
现在,在 Microsoft 的网站上有提供一个升级工具程序,叫做 ActiveX Control Upgrade Utility,它会侦测您的项目,并自动 Upgrade 这些应该升级的控制项!它很容易使用,而且效果很好,如果您想知道更多的讯息,或想下载这个工具程序,可以到以下这个网址去:
http://msdn.microsoft.com/vbasic/downloads/axupgrade.asp
在这里,您也可以直接下载这个工具程序:
注:如果您不想看 Microsoft 的英文说明,我将它翻译在下面好了:
Visual Basic, Version 6.0, ActiveX Control Upgrade Utility
这个升级工具会将您以前使用 VB5.0 及较早前发行的 VB6.0 版本开发的项目,其中较旧版本的 ActiveX 控制项升级到目前的 VB6.0 最新版本的 ActiveX 控制项,它可以升级的控制项包括以下三个:
描述的名称
.OCX 文件名称
Microsoft Windows Common Controls
COMCTL32.OCX
Microsoft Windows Common Controls-2
COMCT232.OCX
Microsoft Chart Control
MSChart.OCX
如果在您开发的项目中,不包含以上三个控制项,那么它什么也不会做!
( 意思就是说,如果项目中,不含以上三个控制项,您根本就不用使用这个升级工具 )
在您使用升级工具将项目转换完成后,以上三个控制项会变成:
描述的名称
.OCX 文件名称
Microsoft Windows Common Controls 6.0
MSCOMCTL.OCX
Microsoft Windows Common Controls-2 6.0
MSCOMCT2.OCX
Microsoft Chart Control 6.0 (OLEDB)
MSChrt20.OCX
要特别注意的是,在转换前最好先备份您用 VB5 开发的项目!且不要使用 binary compatibility 转换!