12、如何解决VB中的Grid控件的打印问题
---- Grid 控 件 是Visual Basic 最 常 见 控 件 之 一， 从VB3.0 到VB5.0 都有该 控 件。 也 是VB 爱 好 者 最 喜 爱 的 工 具 之 一。 用 它 可 以 以表 格 的 形 式 显 示、 浏 览 数 据， 特 别 是 数 据 库应 用， 直 接 绑定 即 可 显 示 浏 览 数 据 库 信 息。 然 而， 美 中 不 足 的 是Grid 没有 编 辑 和 打 印 功 能， 列 与 列的 位 置 不 能 相 互 交 换。 笔 者 曾尝 试 着 给Grid 增 添 了 这 些 功 能， 使 之 锦 上 添 花， 功 能 更 强大。 下 面 给出 改 进 方 法 及 源 程 序， 读 者 只 需 按 步 骤 写 下 源程 序 即 可 使 你 的Grid 具 有 打 印 功 能。 该 程 序 笔 者 在HP5/100Window 95 环 境 下 用VB5.0 调 试 通 过。
---- 给Grid 控 件 增 加 打 印 方 法 有 三 种：1 是 直 接 打 印 控 件 的方 法，2 是 过 printer 来 实 现 打 印 功能，3 是 通 过 调 用MS-WORD 及MS-EXCEl 来 实 现 打 印。
---- 首 先， 打 开 一 个 应 用， 在FORM1 中 增 加DATA 控 件DATA1, 把DATA1 的CONNECT 属 性 设 为dBASE III， 再 把DATABASENAME 属 性 设 为D:\PJXM.DBF。 然 后 再 在FORM1 中 增 加MSFLEXGRID 空 间GRID1，并 把GRID1的DATASOURCE 属 性 设 为DATA1。 这 样 数 据 库PJXM.DBF 的 信 息 就 会 在GRID1 中 显 示 出 来。
---- 方 法 一： 直 接 打 印 窗 体 法， 在FORM1 中 增 加 命 令 按 钮(command)，CAPTION 属 性 设 为 直 接 打 印，再 写 入 下 列 编 码：
Sub command_click
Form1.printform
End sub
---- 这 样 即 可 通 过 打 印 窗 体FORM1 的 方 法 把GRID1 的 数 据 打 印出 来， 遗 憾 的 是 只 能 打 印GRID1 中显 示 的 数 据 部 分， 显 示 不出 来 的 则 无 法 打 印， 而 且 这 种 打 印 方 法 很 象 屏 幕 硬 拷 贝把 其 他 控 件 也 打印 出 来。 也 不 能 灵 活 的 控 制 字 体 等。
---- 方 法 二： 通 过PRINTER 实 现 打 印。 这 种 方 法
---- 1、 加 入 打 印 命 令 按 钮(command1)、 函 数(prnt1) 即 可 实 现 打印 功 能， 写 入 下 面 代 码， 读 者 稍加 改 动 可 写 成 标 准 的 函 数或 过 程。
Function prnt1 (x As Integer, y As Integer,
font As Single, txt As String)
printer.CurrentX = x
printer.CurrentY = y
printer.FontBold = False
printer.FontSize = font
printer.Print txt
End Function
Sub command1_click
Dim fnt As Single
Dim pp as integer
Pp=0'设置开始页码0
Dim stry,strx,strx1,stry1,linw,page1,p As Integer
Static a(8) As Integer'定义打印的列数
ss$ = "内部结算存入款对帐单"'定义表头
kan = 0
For i = 0 To 8
a(i) = 1500'定义每列宽
kan = kan + a(i)'计算表格总宽度
Next
page1 = 50'定义每页行数
strx = 200
strx1 = 200'定义X方向起始位置
stry = 1400
stry1 = 1400'定义Y方向起始位置
linw = 240'定义行宽
fnt = 8'定义字体大小
printer.fontname = "宋体"'定义字体
dd = prnt1(4000, 700, 18, ss$)'打印标题
printer.Line (strx - 50, stry - 30)
-(strx + kan - 10, stry - 30)
For j = 0 To gridrow - 1'gridrow为所要打印的行数
grid1.row = j
strx = strx1
printer.Line (strx - 50, stry - 30)
-(strx + kan - 10, stry - 30)
p = p + 1
For i = 0 To 8
grid1.col = i
dd = prnt1(strx, stry, fnt, grid1.text)
strx = strx + a(i)
Next
If p > page1 Then'next page
p = 0
strx = strx1
'line last line
printer.Line (strx - 50, stry + linw)
-(strx + kan - 10, stry + linw)
stry = stry1
'line col
For n = 0 To 8
printer.Line (strx - 30, stry - 30)
-(strx - 30, stry + (page1 + 2) * linw)
strx = strx + a(n)
Next
printer.Line (strx - 30, stry - 30)
-(strx - 30, stry + (page1 + 2) * linw)
pp=pp+1
foot$="第 "+cstr(pp)+"页"
dd = prnt1(strx - 30-1000, stry + (page1 + 2)
* linw+100, 10, foot$)'打印页角码
printer.NewPage'next page
dd = prnt1(4000, 700, 18, ss$) '打印标题
strx = strx1
stry = stry1
printer.Line (strx - 50, stry - 30)-
(strx + kan - 10, stry - 30)' print first row
Else
stry = stry + linw
End If
Next
st = stry
If p < page1 Then '在最后页剩余划空行
For o = p To page1 + 1
strx = strx1
printer.Line (strx - 50, stry - 30)
-(strx + kan - 10, stry - 30)
stry = stry + linw
Next
End If
stry = stry1
strx = strx1
stry = stry1 'line col
For n = 0 To 8
printer.Line (strx - 30, stry - 30)-
(strx - 30, stry + (page1 + 2) * linw)
strx = strx + a(n)
Next
printer.Line (strx - 30, stry - 30)-
(strx - 30, stry + (page1 + 2) * linw)
pp=pp+1
foot$="第 "+cstr(pp)+"页"
dd = prnt1(strx - 30-1000, stry + (page1 + 2)
* linw+100, 10, foot$)'打印页角码
printer.EndDoc'打印结束
Endsub
---- 这 种 方 法 通 过 灵 活 的 编 程 可 以 方 便 地 调 整 字 体、 字 型、线 形、 页 面、 纸 张 大 小 等。 可 打 印 出 比较 满 意 的 效 果。 如果 你 的 计 算 机 上 装 有MICROSOFT WORD 和MICRO EXCEL， 最 精 彩 的 用法 还 是 把GRID 的 表 格 通 过VB 发 送 到MICROSOFT WORD 及MICRO EXCEL。生 成MICROSOFT WORD 和MICRO EXCEL 表 格。这 样 就 可 以 充 分 利 用MICROSOFT WORD 和MICRO EXCEL 的 打 印、 编 辑 功 能 打 印 出 更 理 想 的效 果。 下面 逐 一 介 绍。
---- 方 法 三： 通 过 生 成MICROSOFT WORD 表 格 打 印
---- 1、 在declaration 中 写 入:
Dim msword As Object
---- 2、 加 入 打 印 命 令 按 钮(command2)，CAPTION 设 为" 生 成WORD 表
格"， 写 入 下 面 代 码，
Private Sub command2_Click()
screen.MousePointer = 11
Set msword = CreateObject("word.basic")
Dim AppID, ReturnValue
appID = Shell("d:\office97\office\WINWORD.EXE", 1)
' Run Microsoft Word.
msword.AppActivate "Microsoft Word"
'msword.AppActivate "Microsoft Word", 1
full
Screen.MousePointer = 0
End Sub
---- 2、 写 入 以 下 过 程full()
Sub full()
Dim i As Integer, j As Integer,
col As Integer, row As Integer
Dim cellcontent As String
Me.Hide
cols = 4'表格的列数
row = gridrow'打印表的行数
msword.filenewdefault
msword.MsgBox "正在建立MS_WORD报表，
请稍候.......", "", -1
msword.leftpara
msword.screenupdating 0
msword.tableinserttable , col, row, , , 16, 167
msword.startofdocument
for j=0 to gridrow' 表格的行数
grid1.row=j
For i = 1 To cols
Gri1d.col=i
If IsNull(grid1.text) Then
cellcontent$ = ""
Else
cellcontent$ = grid1.text
End If
msword.Insert cellcontent$
msword.nextcell
Next i
Next j
msword.tabledeleterow
msword.startofdocument
msword.tableselectrow
msword.tableheadings 1
msword.centerpara
'msword.startdocument
msword.screenrefresh
msword.screenupdating 1
msword.MsgBox " 结束", "", -1
Me.Show
End Sub
---- 方 法 四： 通 过 发 送 到MICROSOFT EXCEL 实 现 表 格 打 印
---- 1、 加 入 打 印 命 令 按 钮(command3)，CAPTION 设 为" 生 成EXCEL 表
格"， 写 入 下 面 代 码
Private Sub command3_Click()
Dim i As Integer
Dim j As Integer
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
'Set xlBook = xlApp.Workbooks.Add
'On Error Resume Next
Set xlBook = xlApp.Workbooks.Add 'Open("d:\text2.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(6, 1) = "i"
For i = 0 To gridrow
grid1.Row = i
For j = 0 To 6
Grid1.Col = j
If IsNull(Grid1.Text) = False Then
xlSheet.Cells(i + 5, j + 1) = Grid1.Text
End If
Next j
Next i
Exit Sub
13、如何在VB中实现绘图区的大十字光标
有时，我们需要用VB快速开发一个试验数据绘图处理程序，将绘图控件内的鼠标光标改变成与AutoCAD软件中使用的大十字光标的形式，将可以比普通的箭头光标达到更好的效果。那么我们如何实现这样的大十字光标呢？
---- 首先，我们明确一下要达到的效果，假若我们在一个Picture控件中绘图，那么，鼠标移动到这个控件上时，鼠标光标立即改变为大十字形状，光标中的横线从控件的左边界到右边界，竖线从控件的上边界到下边界，即大十字光标将绘图控件分割为四个象限。当鼠标移动到控件外时，光标则又恢复成原来的形式。
---- 要实现这样的光标，得我们自己通过画线的方式实现。如鼠标在绘图控件内，先在鼠标的当前位置画上光标的横线和竖线；当鼠标位置移动，先擦除原先的光标横线和竖线，然后再在新的位置画光标的横线和竖线，那么我们就要响应绘图控件的MouseMove事件。当然，绘图控件内无论有什么内容，我们擦除光标线和重画光标线时都不能破坏原先的内容，因此我们要将绘图控件的DrawMode设置为vbXorPen（异或方式），绘制光标的横线和竖线时，用异或的方式将横线和竖线的象素点颜色设为光标的颜色和原先的象素点色彩的异或值，再用异或的方式在同样的位置绘制一遍竖线和横线，横线和竖线上的象素点再一次和光标颜色进行异或操作，就擦除了光标的横线和竖线，且又恢复了绘图控件内原先的内容。
---- 我们还得保证鼠标移动到绘图控件内时，普通的鼠标光标消失，只有绘制的大十字光标出现，因此还应该设置绘图控件的MousePointer属性为vbCuntom，即用户自定义。绘图控件的MousePointer属性设置为vbCustom后，其MouseIcon属性中应装入相应的用户自定义图形，因为我们希望绘图控件内只有我们绘制的光标，而没有其它的光标，故应该装入一个空的（透明的）光标图形。可以任找一个光标文件，通过任意一个资源编辑器对其进行编辑，用透明的方式填充整个光标图形，保存成我们所需的NoIcon.cur即可。
---- 通过以上的关键设置和操作，我们就可以实现大十字光标了。利用异或方式进行绘图，我们还可以实现一般绘图软件中常有的“橡皮筋”效果，即用鼠标定义一个点后，动态拖动鼠标来定义另外一个点，动态拖动鼠标过程中，所要绘的图形也动态相应变化。
---- 以下我们通过一个示例来完整实现绘图控件中的大十字光标，还演示如何实现用“橡皮筋”效果来画矩形：
---- 在VB中新建一个标准EXE工程，在Form1中加入一个Picture控件，其Name设为PicDraw，可以装入一个图象文件，PicDraw的大小和其中的图象大小基本上覆盖大部分的Form1即可。实现代码如下所示。此程序在VB5.0中运行通过。
Option Explicit
Private Old_X As Single
Private Old_Y As Single
Private isMouseDown As Boolean
Private Box_X0 As Single
Private Box_Y0 As Single
Private Box_X1 As Single
Private Box_Y1 As Single
Private PenColor As Long
Private CrossColor As Long
Private Sub Form_Load()
CrossColor = QBColor(8)
PenColor = QBColor(15)
picDraw.DrawMode = vbXorPen
picDraw.MouseIcon = LoadPicture
(App.Path & "\no.cur")
picDraw.MousePointer = vbCustom
isMouseDown = False
Box_X0 = Box_X1 = Box_Y0 = Box_Y1 = 0
End Sub
Private Sub picDraw_MouseDown
(Button As Integer,
Shift As Integer, X As Single, Y As Single)
If isMouseDown = True Then
'先前已经用鼠标定义了一个点
Box_X1 = X
Box_Y1 = Y
isMouseDown = False
picDraw.DrawMode = vbCopyPen
picDraw.Line (Box_X0, Box_Y0)-
(Box_X1, Box_Y1),
PenColor, B
picDraw.DrawMode = vbXorPen
'画一个光标
picDraw.Line (0, Y)-(picDraw.ScaleWidth, Y),
CrossColor
picDraw.Line (X, 0)-(X, picDraw.ScaleHeight),
CrossColor
Old_X = X
Old_Y = Y
Else
'定义了一个矩形的第一个顶点，则擦除光标
picDraw.Line (0, Y)-(picDraw.ScaleWidth, Y),
CrossColor
picDraw.Line (X, 0)-(X, picDraw.ScaleHeight),
CrossColor
Box_X0 = X
Box_Y0 = Y
isMouseDown = True
End If
End Sub
Private Sub picDraw_MouseMove(Button As Integer,
Shift As Integer, X As Single, Y As Single)
If isMouseDown = True Then
'拖动鼠标来定义矩形的另外一个顶点，
此时擦除前一个矩形，绘制新的矩形
picDraw.Line (Box_X0, Box_Y0)-(Old_X, Old_Y),
PenColor, B
picDraw.Line (Box_X0, Box_Y0)-(X, Y), PenColor, B
Else
'消除旧光标线
picDraw.Line (0, Old_Y)-(picDraw.ScaleWidth, Old_Y),
CrossColor
picDraw.Line (Old_X, 0)-(Old_X, picDraw.ScaleHeight),
CrossColor
'画新的光标线
picDraw.Line (0, Y)-(picDraw.ScaleWidth, Y),
CrossColor
picDraw.Line (X, 0)-(X, picDraw.ScaleHeight),
CrossColor
End If
Old_X = X
Old_Y = Y
End Sub
14、如何充分扩充VB功能
Visual Basic for Windowss3.0（简称VB）是目前开发WINDOWS应用软件的最有效工具之一，它综合运用了BAIC语言和新的可视化设计工具，不仅功能强大，而且简单易学。其次，VB具有事件驱动的编程机制，它充分利用WINDOWS图形环境的特点，能让开发人员快速地构造强大的应用程序。
那么在开发VB应用软件时，如何充分地扩充VB的功能呢？这就要求在不同的层次上要很好地利用VB最具威力和特色的部分：
●在函数层调用动态链接库。
●在控件层使用VBX。●在应用层执行其他应用程序。
一、在函数层调用功能态链接库（DLL）
WINDOWS操作系统实际上是由许多功能强大的动态链接库（DLL）组合而成。VB考虑到有些工作超过自身语言所及的能力范围，所以提供了直接调用操作系统中这些DLL子程序的能力。例如：在正常情况下，窗口的控制菜单提供了七种功能：还原、移动、大小、最小化、最大化、关闭和切换。而在实际应用中，我们希望窗口按设计时的大小显示，不允许用户随意改变窗口大小，也不允许切换到其他窗口，这就要求在设计时必须删除控制菜单中除“移动”和“关闭”选项以外的所有控制菜单项。要完成这一任务，我们首先可把窗体的MaxButton属性和MinButton属性设置为False，不允许窗体最小化和最大化，窗体也就不能还原。然后再把窗体的BorderSstyle属性设置为1－Fixed Single或3－Fixed Double，不允许窗体改变大小。但VB本身却无法删除“切换”选项和两条分隔线。幸运的是，通过调用WINDOWS DLL就很容易做到。
通常，要使用WINDOWS DLL，首先必须说明要使用的DLL子程序，我们可在两个地方说明所使用的DLL子程序，即在全局模块中说明，或者在窗体层的说明部分中说明。其格式是：
Declare Sub子程序名Lib“库名”［Alias“别名”］［（［参数］）］
Declare Function子程序名Lib“库名”［Aliass“别名”］［（［参数］）］［AS数据类型］
第一种格式表示过程没有返回值，第二种格式表示过程返回一个值，该值可用于表达式中，库名如果用的是WINDOWS操作环境（在System目录下）中的库，如“USER.EXE”，“KERNEL.EXE”或者“GDI.EXE”等，就用此名作为库名。如果用的是其他来源的DLL，则用包括路径的文件名称（如：“C：＼WINDOWS＼BRUSH.DLL”）。别名（Alias）是允许另外使用别的名称来称呼子程序，尤其是当外来子程序名与VB保留字相同时，它就显得特别有用，参数指要被传递到子程序的参数值，数据类型指的是函数返回值的数据类型，它可能是Integer，Long，Single，Double，Currency或String。下面就是所要使用的DLL子程序的说明：
Declare Function GetSystemMenu％ Lib＂User＂（ByValhWnd％，ByValbRevert％）
Declare ＼function ＼RemoveMenu％ Lib＂User＂（ByValhMenu％，ByValnPosition％，ByValwFlags％）
当说明完DLL子程序后，执行DLL子程序的方法，就象在VB中执行通用过程（函数）一样。下面我们编写一个名为Remove－Items－From－System的过程来完成上面例子中提到的功能，过程中调用了上述说明过的两个DLL子程序：
Sub remove－Items－From－Sysmenu（A－Form As Form）
'获取窗体系统菜单句炳
HSysMenu＝GetSystemMenu（A－Form.hWnd，0）
'删除除“移动”和“关闭”外的所有菜单项， 删除时必须从最后一个菜单项开始
R＝RemoveMenu（HSysMenu，8，MF－BYPOSITION） '删除切换
R＝RemoveMenu（HSysMenu，7，MF－BYPOSITION） '删除第一条分隔线
R＝RemoveMenu（HSysMenu，5，MF－BYPOSITION） '删除第二条分隔线
End Sub
有了这个过程，在任一窗体的Form－Load事件中加入下面一行代码就可以删除该窗体除“移动”和“关闭”选项以外的所有控制菜单项：
Remove－Items－From－Sysmenu Me
二、在控件层使用VBX
VB功能强大的第二个部分是VBX的使用，即其开放及无限扩增的特性。虽然VB工具箱（ToolBox）已经尽量将设计应用软件所需的工具包括在内，但是，为了不断扩充VB的功能，VB提供了一套开发工具（Custom Control Development Kit）供第三方开发者来设计所需要的控件。当设计完控件文件后（其文件扩展名为“.VBX”）可以从菜单“file”项下选“Add File...”命令，结果画面上出现一个＂Add File＂对话框，双击所需的VBX文件名即可将该VBX加入到VB中，这些控件装入VB后，VB会将这些外来控件加到原有工具箱中，与其他控件一起合并使用。正是因为有了这一技术，VB才能够不断发展，使用VB编程也更为方便、迅速和有效，这是VB区别于其他程序开发环境的主要特色之一。自从VB推出以来，第三方软件公司设计了大量的新控件，下面是开发WINDOWS应用程序时几个非常有用的VBX：
●三维控件Threed.vbx
它提供了包括命令按钮、复选框、单选钮 、框架、下推按钮和面板在内的六种三维控件，使用这些控件可使窗体更具有立体感。
●图形控件Graph.vbx
向图形控件发送数据后，图形控件可绘制二维或三维饼图，、直方图、趋势图，并且可以打印或拷贝到剪贴板上。
●通讯控件Mscomm.vbx
它提供了串行通讯的能力，可用于串行端口之间传送和接收数据。
●数据网格控件Truegrid.vbx
它既可以作为一般的数据显示表格，也可把一个数据库和一个网格联系起来，它是制作数据库浏览器或数据显示的理想工具。
二、在应用层执行其他应用程序
在编制复杂的大型软件时，我们经常会需要有一些功能相对独立和完善的专用程序，如编辑程序，而这些程序通常是通用和流行并经实践检验的。如果由开发者重新编制这些程序，不仅大大增加了程序工作量以及调试过程，而且功能上很难比得上这些通用程序。显然，如果我们能直接调用这些程序是最为理想的。令人欣喜的是，VB提供了一个可用来调用其他应用程序的Shell函数，使VB的某些功能可直接由其他应用程序来完成，从而大大地减少了编程任务。
格式是Shell（命令字符串［，窗口类型］）
其中的命令字符串是欲执行的应用程序名，可执行文件的扩展名只限于“.COM”，“.EXE”，“.BAT”，“.PIF”，缺省扩展名为.EXE文件，窗口类型是一整数值，它对应于程序执行时的显示窗口风格，是可选的，共有下列5种选择：
窗口类型值
窗口类型 1，5，9
正常窗口，具有指针 2
最小窗口，具有指针（缺省） 3
最大窗口，具有指针 4，8
正常窗口，不具指针 6，7
最小窗口，不具指针
当Shell函数成功地调用某一个应用程序时，返回一个任务标识（Task ID），该ID表示正在执行的程序的唯一标识。
［例］
X＝Shell（＂C：＼WINDOWS／NOTEPAD.EXE＂，1）
该语句调用WINDOWS附件中的记事本NOTEPAD.EXE作为编辑程序来使用，并返回1个ID值到X。
15、成组更新控件属性
Sub EnableAll(Enabled As Boolean, ParamArray objs() As Variant)
Dim obj As Variant
For Each obj In objs
obj.Enabled = Enabled
Next obj
End Sub
应用：
EnableAll True, Text1, Text2, Command1, Command2
16、如何避免程式重复执行？（侦测是否存在前一副本，若有，则结束目前新启动的程式）
使用者在启动程式后，有时会将程式缩小在工作列上，之后要用时，又会重新启动一次程式，资料库程式有时会因此造成资料错乱！若您不希望使用者重复启动程式，您可以使用 APP 物件来判断，方法如下：
Private Sub Form_Load()
If App.PrevInstance Then '检视前一版本
MsgBox "此程式已经在执行中！", 48
End
End If
End Sub
17、如何让一个 App 永远保持在最上层 ( Always on Top )
请在声明区中加入以下声明
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const SWP_NOMOVE = &H2 '不更动目前视窗位置
Const SWP_NOSIZE = &H1 '不更动目前视窗大小
Const HWND_TOPMOST = -1 '设定为最上层
Const HWND_NOTOPMOST = -2 '取消最上层设定
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
'将 APP 视窗设定成永远保持在最上层
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS
'取消最上层设定
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS
18、表单配置视窗和解析度
这个地方不是要告诉您如何写出一支程式，会自动根据使用者荧幕的解析度调整 Form 及各控制项的大小，也就是适用于各种解析度的程式。那是另一个主题！
由于我在集团式的公司资讯中心上班，在我的开发过程中，我的使用者依不同公司别，分成几个族群，有的公司都是使用 640x480 的解析度，有的都用 800x600，设计公司则是 1024x768，为了替这些公司开发软件，在 VB5.0 以前，写各家公司的程式以前就必须先调整荧幕的解析度 (否则在解析度 800x600 的电脑上开发的程式，在 640x480 解析度的电脑中执行时，右方和下方的画面会跑出荧幕外面)，有的电脑一改变解析度就必须重新开机，更是麻烦！
VB5.0 以后，VB 多提供了一个功能，就是【表单配置视窗】，从此以后，您可以在高解析度的荧幕中，开发低解析度的程式，要怎么做呢？ 《假设您的电脑解析度是 1024x768》
很简单！在【表单配置视窗】上的荧幕上按滑数右键，选择【解析度】。看到了吗！在【表单配置视窗】上的荧幕上，出现了二个虚线框，上面各标明了 640x480 及 800x600。好了！现在您可以开始开发各种不同解析度的系统了！
例如您要开发的系统，解析度是 640x480，您只要注意不要让您的表单超出 640x480 的虚线框就可以了！
19、连续变量的声明 Dim a, b, c as string * 4
我想声明 a,b,c 三个字串变量
Dim a, b, c as string * 4 (错的)
这样的声明在 VB 中，结果可能和您要的不同！
有些程式语言，例如 C，类似以上的声明表示三个字串变量。
但是在 VB 中却不是如此！
以上的声明在 VB 中表示声明了 a,b 2 个 variant (不定形态变量)，以及 c 这个字串变量。
要声明 a,b,c 三个字串变量，正确的写法如下：
Dim a as string * 4
Dim b as string * 4
Dim c as string * 4
若想写在同一行，也可以，写法如下：
Dim a as string * 4, b as string * 4, c as string * 4
20、正确的除错 (Debug) 方式
当程式执行起来怪怪的，很多人在除错 (Debug) 时，都喜欢在程式中使用中断点 (Break) 加上 MsgBox 来看执行结果，但有些时候，这样子的作法会造成某些事件 (Event) 无法触发，甚至改变事件原来触发的顺序！
比较正确的作法是在程式中使用 Debug.Print "事件名称/要显示的讯息" ，而不要用中断点 (Break)。
21、Move Method 速度较快
当我们要移动控制项 (Control) 或表单 (Form) 时，很多人习惯这样写：
frmCustomer.Left = frmCustomer.Left + 100
frmCustomer.Top = frmCustomer.Top + 50
但是若使用 Move Method ，可以加快 40%：
frmCustomer.Move frmCustomer.Left + 100, frmCustomer.Top + 50
22、哇！我的变量名称变成了保留字！
当我们升级 VB 的版本时，有时候会因为以前程序中使用的变量名称或函数名称变成了保留字，而使程序跑起来完全不正常，例如：
print：VB3 时不是保留字，但到了 VB4 却变成了保留字。
array：VB4 时不是保留字，但到了 VB5 却变成了保留字。
遇到这种情形，其实也很简单！只要在 VB 中叫出该工程，打开任何一个表单的程序码，选择【编辑功能表】中的【取代】，搜寻范围设定成【整个工程】，并将【全字拼写须符合】选项打勾，然后将该工程中该字串改成另一个新字串，再重新 Make 成执行档即可。
下一次您升级 VB 的版本时，若原来正常的程序跑起来变得怪怪的，别忘了检查一下您自己定义的变数名称或函数名称是否也变成了保留字！
23、快捷键 -- 找寻 Function/Subroutine
当您的 APP 愈来愈大时，或是您要维护别人开发的大系统时，是否曾经有过一种情形，程序中 call 了某一个 Function/Subroutine，您要找寻这个 Function/Subroutine，除了一个一个 Module 找之外，大部份的人都是使用【编辑功能表】的【搜寻】功能。
其实您可以使用 【Shift + F2】快捷键！很简单，方法如下：
只要将鼠标停留在程序中该 Function/Subroutine Name 上，再使用【Shift + F2】快捷键即可！
24、我上一次程序写到那里呢？
有时候您会同时写几个不同的程序，或因为某种原因，程序停了一段时间，当您下一次要再继续写时，已经忘了上次写到那里了，其实有一个很简单的方法，可以马上唤起您的记忆！
在您在写程序中要停下时，先随便写一行注解，但是拿掉注解符号〈'〉后存档，下一次您载入工程后，马上使用【执行功能表】中的【全部编译后开始】，此时第一个错误的地方使是上次程序中断的地方！
25、不方便的 Msdn -- VB6.0 的 Help
很多 VB 程序设计师抱怨为了存取 VB6.0 的 Help，必须一直将 Msdn 光碟放在光碟机中，否则就必须安装 680MB 的 Help 到硬盘中！
其实还有一个比较人性化的方法，就是在安装 Msdn 时，选择【自订安装】，然后只要选择 Visual Basic 文件 (13792K) 即可。
如此您便可以直接由硬盘存取 VB 的相关主题，若您想看其他非 VB 主题，再由光碟存取。
26、如何快速设定 Form 上所有控制项的 TabIndex 顺序
由于在设计 Form 上的控制项时，不一定会依照输入的顺序，在完成设计之后，我们通常会重设各控制项的 TabIndex 顺序，当 Form 上的控制项比较多时，设定起来相当麻烦，常常还会设错。
有一个很简单又不容易出错的方法，是从画面上的右下角往左上角 (方向是先向左再往上)，逐一的将控制项的 TabIndex 属性设成 0。
1：右手用滑鼠点一下右下角的控制项，左手按 F4，将 TabIndex 设成 0。
2：右手往左用滑鼠点一下倒数第二个控制项，左手按 F4，左手按 0。
3：右手往左用滑鼠点一下倒数第三个控制项，左手按 F4，左手按 0。
4：重复以上动作直到左上角第一个控制项为止。
好了，您已经设定好整个 Form 上所有控制项的 TabIndex 顺序了！其原理就是当您设定一个控制项的 TabIndex 为 0 时，原来 TabIndex 为 0 的控制项，TabIndex 就变成了 1、而 1 的变成 2...依序 +1 改变。
27、Boolean 值的转换
我们都知道 Boolean 这个资料形态只有 True/False 二种值，但是当我们要存到资料库时，我们常常会将它转成数值，您可以直接设定 True=-1 / False =0，若您必须使用函数转换，很可能会用 Val()，但是小心，其结果是错的！
您必须使用 Abs() 或 CInt()，为什么呢？看结果就知道了！
Val(True) 结果是 0
CInt(True) 结果是 -1
Abs(True) 结果是 1
28、呼叫子程序（Subroutine）
当我们呼叫子程序 (Subroutine) 时，有二种方法：
1、Call MyRoutine(参数)
2、MyRoutine 参数
注意第二个方法不可以使用括号 ()，否则 VB 会误认为是运算子，本来应该是传址 (Reference)，就会变成了传值 (Value)！看看以下的例子就知道了：
Call MyRoutine(Text1) 正确
意思是要将 Text1 这个控制项传入 MyRoutine 中，但是如果拿掉 Call 这个字，VB 传给 MyRoutine 的却变成了 Text1 的内含值了！也就是 Text1.text。
MyRoutine(Text1) 错误
MyRoutine 要的本来是一个控制项，结果却传入了一个字串，您会得到一个《type-mismatch / 资料型态不符》
29、输入时，自动转换成大写？
要自动转换大小写，很多人首先想到的一定是 UCase$ 及 LCase$，但是要使用这二个函数，一定不可以在 Key_Press 事件中使用，否则您若输入《abc》，结果却变成《CBA》，为什么呢？
因为当您输入 a 之后，UCase$ 会替您转换成 A，但是转换完后，滑鼠的游标会停在 A 的前面，您继续输入 b，变成了 bA，UCase$ 又替您转换成 BA，转换完后，滑鼠的游标又停在 BA 的前面，您继续输入 c，变成了 cBA，UCase$ 又替您转换成 CBA！ 若您不相信，可以自己试试
在 Key_Press 中正确的作法，是判断它的参数 KeyAscii ！a 的 Asc 值是 97，A 的 Asc 值是 65，所以要自动将小写转成大写，写法如下：
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii >= 97 And KeyAscii <= 122 Then
KeyAscii = KeyAscii - 32
End If
30、输入时，自动转换成小写？
要自动转换大小写，很多人首先想到的一定是 UCase$ 及 LCase$，但是要使用这二个函数，一定不可以在 Key_Press 事件中使用，否则您若输入《ABC》，结果却变成《cba》，为什么呢？
因为当您输入 A 之后，LCase$ 会替您转换成 a，但是转换完后，滑鼠的游标会停在 a 的前面，您继续输入 B，变成了 Ba，LCase$ 又替您转换成 ba，转换完后，滑鼠的游标又停在 ba 的前面，您继续输入 C，变成了 Cba，LCase$ 又替您转换成 cba！ 若您不相信，可以自己试试
在 Key_Press 中正确的作法，是判断它的参数 KeyAscii ！a 的 Asc 值是 97，A 的 Asc 值是 65，所以要自动将大写转成小写，写法如下：
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii >= 65 And KeyAscii <= 90 Then
KeyAscii = KeyAscii + 32
End If
评论