| 改变 ListIndex而不发生 Click 事件 |
在修改 Combo 或 Listview 的ListIndex 时， 会发生 Click 事件， 下面的函数可以阻止该事件。
声明：
Private Declare Function SendMessage Lib _
"user32" Alias "SendMessageA" (ByVal _
hWnd As Long, ByVal wMsg As Long, ByVal _
wParam As Long, lParam As Any) As Long
Const CB_GETCURSEL = &H147
Const CB_SETCURSEL = &H14E
Const LB_SETCURSEL = &H186
Const LB_GETCURSEL = &H188
函数：
Public Function SetListIndex(lst As Control, _
ByVal NewIndex As Long) As Long
If TypeOf lst Is ListBox Then
Call SendMessage(lst.hWnd, _
LB_SETCURSEL, NewIndex, 0&)
SetListIndex = SendMessage(lst.hWnd, _
LB_GETCURSEL, NewIndex, 0&)
ElseIf TypeOf lst Is ComboBox Then
Call SendMessage(lst.hWnd, _
CB_SETCURSEL, NewIndex, 0&)
SetListIndex = SendMessage(lst.hWnd, _
CB_GETCURSEL, NewIndex, 0&)
End If
End Function
|
| 调整 Combo 下拉部分的宽度 |
声明：
Private Declare Function SendMessage Lib _
"USER32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal Msg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const CB_GETDROPPEDWIDTH = &H15F
Private Const CB_SETDROPPEDWIDTH = &H160
Private Const CB_ERR = -1
函数：
' 取得 Combo 下拉的宽度
' 可以利用该函数比例放大或缩小宽度
Public Function GetDropdownWidth(cboHwnd As Long) As Long
Dim lRetVal As Long
lRetVal = SendMessage(cboHwnd, CB_GETDROPPEDWIDTH, 0, 0)
If lRetVal <> CB_ERR Then
GetDropdownWidth = lRetVal
'单位为 pixels
Else
GetDropdownWidth = 0
End If
End Function
'设置 Combo 下拉的宽度
'单位为 pixels
Public Function SetDropdownWidth(cboHwnd As _
Long, NewWidthPixel As Long) As Boolean
Dim lRetVal As Long
lRetVal = SendMessage(cboHwnd, _
CB_SETDROPPEDWIDTH, NewWidthPixel, 0)
If lRetVal <> CB_ERR Then
SetDropdownWidth = True
Else
SetDropdownWidth = False
End If
End Function
|
| Combo的自动查询技术 |
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const CB_FINDSTRING = &H14C
Private Sub Combo1_Change()
Dim iStart As Integer
Dim sString As String
Static iLeftOff As Integer
iStart = 1
iStart = Combo1.SelStart
If iLeftOff <> 0 Then
Combo1.SelStart = iLeftOff
iStart = iLeftOff
End If
sString = CStr(Left(Combo1.Text, iStart))
Combo1.ListIndex = SendMessage(Combo1.hwnd, _
B_FINDSTRING, -1, ByVal CStr(Left( _
ombo1.Text, iStart)))
If Combo1.ListIndex = -1 Then
iLeftOff = Len(sString)
combo1.Text = sString
End If
Combo1.SelStart = iStart
iLeftOff = 0
End Sub
静态变量 iLeftOff 指定了字符长度。
|
| 自动选择 Text 的内容 |
在使用 VFP 的应用进行录入时，每进入一个录入框，就自动选择该框中的所有内容。利用以下的代码，也可实现类似的功能。
Private Sub MyTextBox_GotFocus()
AutoSelect MyTextBox
End Sub
Sub AutoSelect(SelObject As Control)
SelObject.SelStart = 0
If TypeOf SelObject Is MaskEdBox Then
SelObject.SelLength = Len(SelObject.FormattedText)
Else
If TypeOf SelObject Is TextBox Then
SelObject.SelLength = Len(SelObject.Text)
End If
End If
End Sub
|
| 捕捉 MouseExit 事件 |
MouseDown、MouseUp、MouseMove。VB 似乎提供了很好的 Mouse 事件。但好象还缺少什么！对！还差 MouseExit（鼠标移出）事件。在 VB 中，我们要捕捉 MouseExit 事件，必须用 API 函数：
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
然后，我们可以在控件（以 Picture1 为例）的 MouseMove 事件上加上以下代码：
Dim MouseExit As Boolean
MouseOver = (0 <= X) And (X <="Picture1.Width)" And (0 <="Y)" And (Y <="Picture1.Height)<Br"> If MouseExit Then
........
SetCapture Picture1.hWnd
Else
........
ReleaseCapture
End If
|
| 如何让文本框输入完后,直接跳入下一行? |
我们在编制程序的时候，特别是数据库软件，经常会遇到这样一个问题：在文本框中输入完后，用户习惯性的按下回车键。但是系统“嘀”的一声，并没有象想象那样跳入下一行或者其他的什么。那么能不能让程序在输入完后干其他的事呢？试一试下面的代码吧。
Sub Text1_keyPress(KeyAscii As Integer)
If KeyAscii=13 Then
SendKeys"{tab}"
End If
End Sub
|
| 如何强制文件对话框再次读取正确的磁盘? |
如果构造了一个以通用对话框为模型的简单对话框(通常应使用通用对话框的OCX),会发现再次选择软盘驱动器并不实际.再次读盘,改变到C盘,并再次选择A盘.只是使它读新软盘中的目录.
为了解决这个问题,在一个按钮的代码段中加入以下代码:
drive1.refresh
dir1.refresh
file1.refresh
|
VB的OPEN对话框控件图示功能扩充
安徽 刘成 |
Visual Basic For Windows（VB）提供了丰富的控件，但其提供的公用对话框控件在打开文件时（例如＊．Bmp和＊．Pcx等）不能显示文件内容即图像，本文给出了一个实例，可以模拟一些图形软件包在打开文件的同时显示图像，模拟和扩充OPEN控件功能。
为模拟的扩充OPEN功能，下面给出了一个完整的VB程序，实现方法如下：
一、建立窗体
首先建立一个窗体（窗体名为OPNFILE），窗体上包含驱动器列表、目录列表、文件列表、两个命令按钮（确认、取消）和显示影像的控件（picture或image），下面是这6个控件的建立方法和有关属性的改变。
1、DirvelistBox驱动器列表控件
双击驱动器列表控件，在窗体上调准控件的位置，控件名称为“Drive1”。
2、DirlistBox目录列表控件
双击目录列表控件，在窗体上调准控件的位置，控件名称为“Dirl”
3、FilelistBox文件列表控件
双击文件列表控件，在窗体上调准控件的位置和尺寸，控件名称为“Filel”，修改“Pattern”属性为“*.bmp, *.pcx”。
4、Command Buttom命令按钮控件
双击命令按钮控件，建立命令按钮，第一个取名为Command1，修改Caption属性为“确认”，第二个取名为Command2，修改Caption属性为“取消”。
5、显示影像的控件
既可以选picture控件，也可选image控件显示图像，以image控件为例。双击image控件，调准矩形框的大小和位置，取名为imagel，设置strtch属性。strech＝false时，图形以原尺寸显示。
二、事件过程的建立
1、驱动器更改事件过程
Sub Drive－change（）
①Dirl．Path＝Drivel．Drive
②ChDrive Drivel．Drive
End Sub
其中①当驱动器发生更改时，改变目录路径；②更改路径。
2、目录更改事件过程
Sub Dirl change（）
Filel．Path＝Dirl．path
End Sub
该事件过程是对目录发生更改时，作出文件路径更改的响应。
3、文件列表单击事件
Sub Filel－click（）
Imagel．picture＝loadpicture（Filel.path＋”＼”＋Filel.FileName）
End Sub
单击任一图形文件名时，在image控件框上显示图像。
4、命令按钮控件
Sub Command1－click（）
F1＄＝Filel．path＋”＼”＋FileName
End
End Sub
Sub Command2－click（）
F1＄＝” ”
End Sub
F1＄为选择文件名称，供软件使用，若用户单击“取消”按钮，F1＄为空串。
单击驱动器名可以改变驱动器，单击目录列表中某一目录可以更改目录，单击某一图形文件可以显示图形，在文件列表中按“↑”或“↓”键，可以随着文件名的变化，图像框中的图形也随之发生更改。
F1＄可以供应用程序调用，其中包含驱动器名、目录和文件名。
|
VB网格中输入数据
山东 周庆斌 |
VISUAL BASIC提供的网格控制（Grid）主要是用来直观地输出数据，但不能输入数据，使用起来很不方便。能不能向网格中输入数据呢？笔者提出了两种解决方法，供大家参考：
方法一：
改写网格的KeyPress事件，在每次有合法字符输入时，把Grid的Text项和输入字符连接。这种方法缺点是：一代码较复杂，需要处理各种ASCII字符信息；二是通过编程只能实现很少的编辑功能，如用退格键删除前一字符，用Del键删除所有字符；三是这种方法不能输入汉字，使用起来受到很大的限制。
方法二：
利用一文本框作为缓冲，实现编辑功能。当网格改变行列时，把网格当前行列的内容传递给文本框；当网格中有ASCII字符产生时，把输入焦点设置为文本框，并把输入的ASCII字符送给文本框；当编辑完文本框的内容时，按Enter键或TAB键，把文本框的内容送给网格的当前行列，并把输入焦点设置为网格。如下程序所示（其中Textl为文本框，Labell为标签，Gridl为网格）：
Option Explicit
Const EnterAsc＝13
Const TabAsc＝9
Private Sub Form－Load（）
Labell．Caption＝”请输入”
End Sub
Private Sub Gridl－KeyPress（KeyAscii As Integer）
Text1．StFocus
Textl．SelStart＝0
If KeyAscii ＜＞ EnterAsc And KeyAscii ＜＞ TabAsc Then
SendKeys Chr （KeyAscii）
End IF
End Sub
Private Sub Gridl－RowColChange（）
Textl．Text＝Grid1．Text
End Sub
Private Sub Text1－KeyPress（KeyAscii As Integer）
If KeyAscii＝EnterAsc Then
Grid1．SetFocus
KeyAscii＝0
End If
End Sub
Private Sub Text1－LostFocus（）
Grid1．Text＝Text1．Text
End Sub
|
Visual Basic 中文本框处理技巧集萃
刘强 |
在Visual Basic中，文本框（TextBox）是最常用的控件，熟练运用文本框是开发出高质量的应用程序的基础。笔者在从事应用程序开发中，摸索出有关文本框的应用技巧，写出来与VB爱好者共享。
1、设置只读文本框。
有些时候在窗口显示一段信息，但又不希望用户去改变它，怎样实现文本的只读呢？首先，我们可以利用标签框（ label ）的只读属性，以标签来代替文本框以实现只读属性，但也可以用小程序实现真正的文本框的只读。
Sub Text1_KeyPress (keyascii As Integer)
keyascii = 0
End Sub
或者也可以用sendkey方法使文本框失去焦点，如以下程序：
Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer)
SendKeys "{tab}"
End Sub
2、限定文本框的输入内容和格式。
以下程序可以实现限定文本框只能输入数字：
Sub Text1_KeyPress (keyascii As Integer)
If keyascii <48 Or keyascii> 57 Then
Beep
Beep
johny@nease.net
keyascii = 0
End If
End Sub
若想限定文本框输入格式，可以使用VB的FORMAT函数，也可以使用专业版的屏蔽控件(Masked Edit)，通过设定屏蔽控件的Mask属性可以对文本框的输入格式作精确控制。
3、为TextBox 创建快捷键。
VB规定，添加在窗体上的控件均在其Tabindex 属性中记载其加载顺序，程序运行时焦点按Tabindex 属性规定的顺序在控件间跳转。而为了简化操作，可VB中为任何具有 caption的属性的控制创建快捷键，这通过caption 属性中在想作为快捷键的字母前加&号实现。但有一个问题值得注意，而类似文本框这样的控件无 caption 这样的属性，这时可将标签与文本框同时使用。为 lable创建快捷键，标签 Tabindex 属性设置比文本框小1，又因为label 不能接收按点，焦点会自动跳至文本框。这相当于为文本框创建了快捷键。具体步骤如下：
（1） 首先绘制标签，再绘制文本框。或随意绘制各种控制，将标签 Tabindex 属性设置比文本框小1
（2） 在标签的caption 属性中使用“&”号设定快捷键
这样就相当于为文本框设定了快捷键，当你按下标签框的快捷键时，焦点就会跳至文本框上。
4、在设计时实现文本框换行。
对于文本框，在设计时properties 窗口不能输入换行符，但可以再程序执行时用代码来换行，即使用 ASCII字符的13和10，如下列小程序就可将两行文本放入文本框：
Sub form_load( )
NL=chr(13)+chr(10)
text1.text=“my name is ”& NL & “ liu qiang”
End sub
5、创建口令文本框。
创建口令文本框可用设置属性的方法，也可以通过调用WINDOWS的API应用函数接口来实现。首先，文本框的属性 Passwordchar和maxlength 可用来设置口令框。其中 Passwordchar 指定文本框显示的字符，如指定“*”，则在文本框内显示“*”，Maxlength确定文本框中能输入几个字符。超过Maxlength以后，文本框发出警告声，不能接收更多的字符。若使用WINDOWS应用函数接口，可用GetWindowLong、SetWindowsLong和SendMessage等接口函数来实现，有兴趣的读者可查阅Windows API函数手册或VB的联机帮助文件，这里就不一一赘述了。
|
防止文本控件中的部分滚动
谭 翁 |
Windows API的SendMessage函数可以用来向VisualBasic控件中发送消息，例如向文本框控件上发送消息。本文介绍如何利用该函数防止文本框控件中的部分文本滚动，即该控件中不能滚动的部分不能被用户看见。
发送消息到文本框控件
Visual Basic中的文本框控件就是一个最小化的字处理程序。当该文本控件的MultiLine属性被设置为True的时候，则文本可以自动换行；当在文本框控件中键入了许多文本时，控件中的文本会向上滚动。这时文本就变得看不到了，但这些文本实际上仍然在控件中——它们并没有被删除。
Windows API的SendMessage函数可以用来防止文本框控件中的文本滚动因而超出我们的视线。当创建该文本框控件时，它的客户区域格式化为一个矩形（该区域就是键入文本的地方），可以给该控件发送EM_SETRECTNP消息，对该矩形区域进行限制，以在文本框的客户区域中指定一个特定区域。
在下面的样例程序中，我们希望文本控件的后一半原封不动地保持完整，即不希望文本滚动而超出视线。可以从文本框控件的Height属性中提取出它的高度，并将该值除以2，得到该文本框控件后一半的坐标。然后将该结果传递给SendMessage函数，告诉EM_SETRECTNP防止该矩形区域滚动。
有些程序员可能会希望使用EM_SETRECT消息代替EM_SETRECTNP消息。但是，使用EM_SETRECT消息会停止Windows对该格式化矩形区域中的文本的重新绘制，导致文本框控件中的文本会看不到。
样例程序
该程序显示了如何临时冻结一个文本框控件中的特定部分，该部分包含的文本不能滚动，因而不会超出视线之外。
1.在VisualBasic中开始一个新的工程，采用缺省的方法建立Form1。
2.将如下常量和声明语句添加到Form1的通用声明部分中（注意该声明语句需要书写在一行内）：
Private Declare Function SendMessage Lib "User"
(ByVal hWnd As Integer, ByVal wMsg As Integer,
ByVal wParam As Integer, lParam As Any) As Long
Const WM_USER = &H400
Const EM_SETRECTNP = WM_USER + 4
Const EM_SETRECT = WM_USER + 3
对于32位环境下使用Visual Basic5.0的用户，需要将如下声明语句添加到Form1的通用声明部分中：
Private Declare Function SendMessage Lib "user32"
Alias "SendMessageA" (ByVal hwnd As Long, ByVal
wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const EM_SETRECTNP = &HB4
Const EM_SETRECT = &HB3
3.将如下代码添加到Form1的Form_Load事件中：
Private Sub Form_Load()
Text1.Text = " 这 是 我 们 希 望 显 示 出 来 的 第 一 段"
Text1.Text = Text1.Text & " 它 位 于 文 本 框 控 件 中"
Text1.Text = Text1.Text & Chr$(13) & Chr$(10) & " 这 是 第 二 段， 我 们"
Text1.Text = Text1.Text & " 希 望 将 之 冻 结 以 使 文 本 不 能 滚 动 "
End Sub
4. 将如下代码添加到Form1的Click事件中：
Private Sub Form_Click()
Dim R As RECT
Dim X As Long
ScaleMode = 3
R.Left = 0
R.Top = 0
R.Right = Text1.Width
R.Bottom = Text1.Height / 2
X = SendMessage(Text1.hWnd, EM_SETRECTNP, 0, R)
End Sub
5.创建一个新的模块。采用缺省的方法建立Module1.Bas。
6.将如下TYPE结构添加到Module1.Bas中：
Type RECT
Left As Integer
Top As Integer
Right As Integer
Bottom As Integer
End Type
对于32位环境下使用Visual Basic 5.0的用户，需要将如下TYPE结构添加到Module1.Bas中：
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
7.在Form1上添加一个文本框控件，采用缺省的方法建立Text1，将其MultiLine属性设置为True。
按下F5来执行该程序，我们可以看到文本框显示在Form1上。在窗体上单击一次鼠标，将新的文本键入到该文本框控件中。这时我们可以注意到，当我们在文本框控件的开头处键入新的文本时，在文本框控件下半部分的文本不会滚动。
如果我们将EM_SETRECT消息替代EM_SETRECTNP消息发送给文本框，再次运行该程序，这时我们会发现，文本框的下半部分显示不出来，尽管实际上文本仍然是存储在控件中的。
|
防止用户编辑文本框控件中的内容
谭 翁 |
Visual Basic中的文本框控件允许用户在其中键入文本，以便在程序中使用。相反，程序员可能会希望显示一些文本但不希望用户编辑该文本。本文介绍了如何创建只读的文本框控件的内容。
使一个文本框控件只读
在Visual Basic中，如果文本框控件的MultiLine属性设置为True，文本将会自动地换行到下一行。另外，如果文本框控件的ScrollBars属性设置为3-Both（或者1-Vertical，或者2-Horizontal），用户还能够滚动控件中的内容。
程序员要想实现文本框控件中的文本不可编辑，可将文本框控件中的内容设置为只读状态，这可以通过使用Microsoft Windows 应用程序编程接口（API）的SendMessage函数来实现。SendMessage函数可以用来发送一个EM_SETREADONLY消息到文本框控件中，这将使文本框控件变为只读。
要在程序中使用该SendMessage函数，需要将如下的声明语句包含在项目的通用声明部分中（注意该声明语句需要书写在一行内）：
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
该SendMessage 函数需要4个参数，如下所示：
hwnd一个长整数值，它包含文本框控件的句柄。
wMsg一个长整数值，它包含被发送的消息，在这个例子里，是EM_SETREADONLY。
wParam一个整数值，如果它为True，则控件被设置只读标记，如果它为False，则删除控件的只读标记。
lParam一个长整数值，它应该被设置为0（EM_SETREADONLY不使用它）。
在程序运行了此SendMessage函数之后，将返回一个长整数值，指明调用成功（返回值非0）或是失败（返回值为0）。
样例程序
该程序显示了如何防止用户编辑一个文本框控件中的内容。
1.在Visual Basic 中开始一个新的工程，采用缺省的方法建立Form1。
2.将如下的常量和声明语句添加到Form1的通用声明部分中（注意该声明语句需要书写在一行内）：
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Const WM_USER = &H400
Const EM_SETREADONLY = (WM_USER + 31)
3.在Form1上添加一个文本框控件，采用缺省的方法建立Text1。将其MultiLine属性设置为True，并且将它的ScrollBars属性设置为3-Both。
4.在Form1上添加一个命令按钮控件，采用缺省的方法建立Command1。
5.将如下的代码添加到Command1的单击事件中：
Private Sub Command1_Click()
Dim RetVal As Long
RetVal = SendMessage(Text1.hwnd, EM_SETREADONLY, True, ByVal 0&)
End Sub
通过按下F5键来执行样例程序。在文本框控件中键入一些文本，可以使用水平和垂直滚动条来滚动文本，还可以改变文本的内容。单击命令按钮，用户仍然可以使用滚动条或是光标键来查看文本框控件的内容，但是不能编辑它。
|
巧用Visual Basic的TIMER控件
青岛 郑海波 |
Visual Basic提供一个Timer控件，其本质上是一个具有间隔时间设置所触发的时间程序，使我们可以将其隐藏在系统中，以某一时间间隔触发相关程序。灵活地运用它可以取得很巧妙的效果。
下面，我们举一个例子。
我们可以在界面设计中设计出这样一种效果：一行文字在窗体中自左向右逐渐滚动，从右边“滚”出窗体的文字，又在左边逐渐出现。如此循环下去。类似电视上的滚动信息。这样可使你设计的软件显得很生动，极易引起用户的兴趣 。其实，使用Visual Basic的Timer控件就可很容易地实现它。
首先，我们在窗体中设置两个Label控件Label1、Label2。这两个控件中除Left属性外，其他属性设置成完全一样。这主要是为了实现循环滚动的效果。它们的Caption属性设置为要滚动显示的文字。另外再调整好其字体、大小和颜色等。在Form－Load过程中设置Label2．Left＝－6240（窗体宽度），Label1．Left＝0。这样可保证Label1的一部分“滚”出窗体，则Label2的一部分就进入窗体。而形成循环滚动在窗体中设置?/FONT>Timer控件。Timer控件的Interval属性决定滚动的速度，单位是毫秒。例如，我们设置成300，则每隔0．3秒滚动一次。然后，在Timer1－Timer（）过程中加入如下程序：
Private Sub Timer1－Timer（）
Label1．Left＝Label1．Left＋50
Label2．Left＝Label2．Left＋50
If Label1．Left＞＝6240 Then
Label1．Left＝－6240
End If
If Label2．Left＞＝6240 Then
Label2．Left＝6240
End If
End Sub
滚动效果就形成了，感兴趣的读者可以试试看。只要灵活运用Timer控件，我们还可以设计出更有趣的效果。如用Timer控件控制按钮控件的Visible属性，形成闪烁按钮。用Timer控件控制显示不同的图象，形成简单的动画。
|
如何使VB的网格控件具有输入功能
河北 王翠荣 王全海 |
我们在使用Visual Basic for Windows开发时，经常用到网格控件（Grid.vbx），因为此控件可以用来作类似于电子表格形式的输出表，且编程简单，但在此网格控件只有输出功能，而不能直接在网格上输入，这给使用者带来一些不便。如何在执行时向网络控件中输入数据，人们使用了一些方法，但大都使用一文本控件作中间转换，即将欲输入的信息先输入到该文本控件，然后将文本控件的TEXT属性赋给网格的TEXT属性，这种方法尽管解决了向网格输入数据问题，但增加了一文本框，对界面有些不美观，修改部分数字不方便，且影响速度，那么，如何直接向网格输入数据呢？
本文将解决直接向网格输入数据问题，基本思想是：使用网格控件KeyPress事件，从键盘上接收所击键位的KeyAscii值，再由Chr＄（）或Chr（）函数转换成字符，然后读出网格单元的当前Text值与由键盘接收到的字符相加，组成新的字符串，再赋给该单元的Text属性，即Grid．Text＝Grid．Text＋Chr＄（KeyAscii）。程序清单如下：
程序中定义了两个Form级变量WgridCol％和WgridRow％。
Sub Grid－KeyPress（KeyAscii as Integer）
Grid．Col＝WgridCol％
Grid．Row＝WgridRow％
if KeyAscii＝8Then ｀keyascii＝8为退格删除键
if Grid．Text＜＞””Then Grid．text＝Mid＄（Grid．text，
1，Len（Grid．text）－1）‘删除最后一个字符
Else
Grid．text＝Grid．text＋Chr＄（KeyAscii）
End if
End Sub
Sub Grid－RowColChange（）
Wgrid．Col％＝Grid．Col
Wgrid．Row％＝Grid．Row
End Sub
这样就可以实现对网格的任意输入，可以输入字符、数字等等。由于数字0到9的Ascii值为48到57，小数点Ascii的值为46，所以可以输入任意实数。若您想防止用户输入除数字、小数点以外的任何其他字符，可对来自于键盘的Ascii值进行判断，有条件地接收，就实现了仅输入数值字符。同理也可以限制只输入字母字符。
根据这种思想，也可以对VB中一切不具有输入功能，但具有KeyAscii或者KeyDown事件的控件进行直接输入，如标签Label等。
|
在VB中使用数据窗体设计器插件
长沙 李德章 |
凡使用过VB4以上版本的用户都会发现，与VB3相比，它提供了一个称之为插件的新特征，一个插件实际上是一个OLE服务器，用于扩展VB开发环境，增强VB的功能。我们可以使用插件为VB菜单增加定制项，可管理当前激活窗体及控件，并响应多种文件控制事件。VB在SAMPLES目录的ALIGN、DATAWIZ和SPY子目录下就包含了三个这样的插件应用程序。
这里我们着重讨论DATAWIZ下的数据窗体设计器插件。
1．数据窗体设计器插件的引入
通常，我们在使用VB数据控件设计数据窗体时，大量的时间都花在窗体的可视化设计过程上，如标签和数据装订控件的建立和对齐定位。我们设想要是能根据数据库结构自动生成数据窗体，那将是一件非常令人愉快的事情。随着VB4的推出，我们将会惊喜地发现，它不仅提供了实现插件的功能，而且包含了一个实用的数据窗体设计器（Data Form Designer）插件。利用该插件瞬间即可生成使用数据控件的简单数据窗体。但是由于该窗体设计器只是一个随VB发行的示例应用程序，我们必须首先载入该文件，生成VB的一个插件，再安装该插件才能使用。所以VB的数据窗体设计器可能还不广为人知，下面将它介绍给VB的使用者，希望能为他们设计数据窗体提供帮助。
2．载入数据窗体设计器示例文件
如果数据窗体设计器没有出现在可用插件的列表中，则必须载入它，其步骤是：
●选择File｜Open Project菜单命令，打开＼Vb＼Samples＼Datawiz＼Dfd．Vbp项目文件
●选择File｜Make EXE File命令创建一个可执行文件
●运行该程序，数据窗体设计器自动加入到下一步中要使用的可用插件到列表中
3．安装数据窗体设计器插件
安装数据窗体设计器插件是通过插件管理器完成的，其过程是：
●选择Add－Ins｜Add－In Manager菜单命令
●选取Data Form Designer，即数据窗体设计器
●单击OK，则数据窗体设计器出现在Add－Ins菜单中
4．使用数据窗体设计器
通过几个简单的步骤就可创建一个查看并编辑库的示例应用程序：
●选择Add－Ins｜Data Form Designer菜单命令，弹出一个数据窗体设计器窗口
●输入窗体名称
●选取一个数据库类型
●单击Open Database打开一个数据库
●从RecordSource列表中选取相应表
●从Available Columns中选取部分或全部字段至Included Columns中
●单击Build the Form按钮，产生所需要的数据窗体
●数据窗体建立完毕，单击Close按钮
●选择Tools｜Options命令将该窗体设置为启动窗体
●运行该应用程序
5．数据窗体设计器完成的工作
数据窗体设计器为程序开发者创建的可视窗体包括以下的工作：
●在窗体上增加一个数据控件，并为其设置Connect，DatabaseName和RecordSource属性
●对于表中所选的数据库字段，增加一个有字段名的标签和相应的装订控件，装订控件的类型取决于字段的数据类型：
|
|
字段数据类型 |
|
装订控件类型 |
|
|
|
字符串、日期和数值 |
|
文本框 |
|
|
|
布尔 |
|
检查框 |
|
|
|
Memo域 |
|
多行文本框 |
|
|
|
二进制数据 |
|
OLE包容器 |
|
|
●增加四个命令按钮：增加、删除、刷新、更新和关闭，以执行不同的数据访问功能
为命令按钮和数据控件增加简单的程序代码和注释说明
当然，使用数据窗体设计器产生的数据访问窗体是非常简单的，但这个简单的窗体可以作为在应用程序中建立更复杂的数据访问功能的框架结构。
|
| 在VB中用定时控件实现长定时操作 |
Timer控件可用来在一定时间间隔执行操作，然而，一个Timer控件的时间间隔取值最大为64.767毫秒，这意味着即使最长的时间间隔也不比一分钟长多少（大约64.8秒），也就是说一个Timer控件只能响应大约一分钟之内的事件。如果要响应长时间的事件，例如，要开发一个学习系统的自我测试或考试过程，需要限制一个考试时间，一般都在１０～１５０分钟，开始自动计时，时间到报警考试结束。则需多个Timer控件配合使用，这样做显得既繁琐又不实用。其实，可以只用一个Timer控件，在其Timer过程中使用一个计数器，从而响应任意长时间间隔的事件。
下面是一个定时实例的部分代码：
|
|
控 件 |
|
属 性 |
|
设置的值 |
|
|
|
Label1 |
|
Caption |
|
″请输入限定时间（分钟）：″ |
|
|
|
Text1 |
|
Text |
|
″″ |
|
|
|
Command1 |
|
Caption |
|
″确认″ |
|
|
|
Timer1 |
|
Interval |
|
６００００ |
|
|
|
|
|
Enabled |
|
False |
|
|
在窗体通用模块General里声明Ｎ、Ｔ两个变量，Ｎ作为计数器，Ｔ用来存放限定时间。
DIM Ｎ AS Integer
DIM Ｔ AS String
Command1－ Click （ ）
Ｔ＝Text1.Text
Timer1.Enabled＝True……
End Sub
Timer1－ Timer（ ）
Ｎ＝Ｎ＋１
if n＝val(T) Then
Beep
Timer１.Enabled＝False
End if
End Sub
将定时器的Interval属性值设为６００００，使得计数器每分钟加１，当然也可以设置为其他的值，如１０００，这样就使得计数器每秒钟加１，但这样要浪费较多的系统时间。
|
| 处理多个具有相同要求的控件 |
我们往往有时需要处理多个具有相同特性的控件，如：把 100 个 Text 及 Label 的内容加起来。这时，我们可以使用下面的技巧：
1.如果是同一种类型的控件，我们可以使用控件组达到目标。
2.如果不是同一类型控件，控件组就无法使用，这时，我们还可以利用控件的 Tag 性，我们可以把每个控件设置一个 Tag 标志。在程序中，我们可以用下面代码来察看是否是我们需要的控件：
For i=0 To Controls.Count-1
If Controls(i).Tag = "MyTag" Then ......
Next i
|
| 输入限制确认 |
在某些应用程序中，我们需要限制在文本框或其它一些控件中只能输入数字或一些特定的字符，现在我们可以通过下面的一个函数来实现此功能：
Function ValiText(KeyIn As Integer, ValidateString As String, Editable As Boolean) As Integer
Dim ValidateList As String
Dim KeyOut As Integer
If Editable = True Then
ValidateList = UCase(ValidateString) & Chr(8)
Else
ValidateList = UCase(ValidateString)
End If
If InStr(1, ValidateList, UCase(Chr(KeyIn)), 1) > 0 Then
KeyOut = KeyIn
Else
KeyOut = 0
Beep
End If
ValiText = KeyOut
End Function
在工程中加入此函数后，你就可以使用它了。方法：在需要限制输入的控件的 KeyPress 加入以下代码：
KeyAscii=ValiText(Keyascii, "0123456789/-",True)
现在你就可以过虑掉你不希望的字符了。在此例中，我们只接受第二个参数提供的字符，即："0123456789/-"
而此函数的第三个参数就决定了能否使用 [Backspace] 键。最后值得一提的是此函数对大小写是不敏感的。
|
| 如何让TextBox的输入具备overwrite(覆盖)的功能？ |
我 们 在 TextBox 中 所 输 入 的 字 符 ， 一 律 会 被 TextBox 是 视 为在 光 标 处 插 入 (insert)新 的 字 符 ， 如 果 想 以 输 入 的 字 符 overwrite(盖掉 ) 输 入 光 标 所 在 位 置 的 字 符 ， 可 以 在 TextBox 的 KeyPress 物件 程 序 中 撰 写 以 下 程 序 ：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> vbKeyBack And KeyAscii <> vbKeyReturn Then
Text1.SelLength = 1
' 将 Text1 输入光标位置的字符变成「被选取的字符」
Text1.SelText = Chr(KeyAscii)
' 「被选取的字符」取代成为「输入的字符」
KeyAscii = 0
' 将此一字符吞掉，不再传给 TextBox
End If
End Sub
|
| 如 何 计 算 TextBox 之 中 的 行 数 |
多 行 的 TextBox 是 以 vbCr+vbLf 两 个 字 符 来 断 行 的 ， 因 此 检查 这 两 个 字 符 的 出 现 次 数 就 可 以 知 道 TextBox 的 行 数 ， 但如 果 TextBox 之 中 的 资 料 很 多 ， 检 查 行 数 的 执 行 效 能 就 低了 一 点 。
为 了 提 升 执 行 效 能 ， 可 直 接 调 用 Windows API， 首 先 在 Form 的 (一 般 ) 声 明 以 下 的 常 数 及 API：
Const EM_GETLINECOUNT = &HBA
Private Declare Function SendMessageBynum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
而 调 用 的 方 法 如 下 ：
ret = SendMessageBynum(Text1.hwnd, EM_GETLINECOUNT, 0, 0&)
则 传 回 值 ret 即 等 于 TextBox 的 行 数 。
|
| 如何在输入光标进入TextBox时，将整个TextBox的内容变成反白？ |
利 用 GetFocus 事 件 (发 生 于 输 入 游标 进 入 TextBox 时 )、 SelStart 属 性 (表示 被 选 取 区 的 起 始 位 置 )、 及 SelLength 属 性 (表 示 被 选 取 区 的 长 度 )， 程 序 如 下 ：
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
|
|
在含有卷动轴的 TextBox 中， 如何以程序控制 TextBox 的卷动？
传送 EM_LINESCROLL 信息给 TextBox 控制文件，方法是调用 SendMessage API 函数，细节如下：
1. API 的声明：
Const EM_LINESCROLL = &HB6
Private Declare Function SendMessageBynum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
注：如果以上的声明放在「一般模块」底下， 应在 Const 之前加上 Public 保留字， 并且将 Declare 之前的 Private 保留字去掉。
2. 调用范例：
ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, 0, 1 ) ' 下卷一行
ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, 0, -1 ) ' 上卷一行
ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, 1, 0) ' 右卷一列
ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, -1, 0) ' 左卷一列
ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, 1, 1 ) ' 下卷一行且右卷一列
注：以上的 Text1 为 TextBox 的名称。
|
| 利用 timeGetTime 更精准地计算时间差。 |
我想每 0.005 秒做某一件工作， 所以撰写了以下程序：
Dim tm1 As Single
Do
tm1 = Timer
While Timer - tm1 <0.005 ' 等于 0.005 秒
DoEvents
Wend
...做某一件工作
Loop
但实际上， 在 While 循环里面， Timer 函数几乎每次都得到相同的时间，只有大约隔了 0.05秒才会得到不同的时间， 也就是说 Timer 的准确性只有 0.05 秒， 但我希望进行的工作却是每 0.005 秒一次， 该怎么办呢？
可以改用 Windows API 的 timeGetTime 函数， 此一函数会传回 Windows 开机以来所经过的时间，时间单位是 1/1000 秒， 举例来说， 开机经过 2 分钟， 则传回值等于 2*60*1000， timeGetTime 的优点是时间可以精确到 1/1000 秒， 所以可以用来解决上述的问题，细节如下：
1. API 的声明：
Private Declare Function timeGetTime Lib "winmm.dll" Alias "timeGetTime" () As Long
注：如果以上的声明放在「一般模块」底下， 应将 Declare 之前的 Private 保留字去掉。
2. 程序范例：
Dim tm1 As Long
Do
tm1 = timeGetTime
While timeGetTime - tm1 <5 ' 等于 5/1000="0.005" 秒
DoEvents
Wend
...做某一件工作
Loop
|
| 快速读取 TextBox 第 N 行的资料 |
TextBox 是以 vbCr+vbLf 为分行符号， 如果我们要逐一读取 TextBox 每一行，无非是寻找 vbCr+vbLf 的所在位置， 然后取出每一行的字串， 不过这个方法真的不快，而且如果我们要读取第 N 行资料， 还是要从第 1、2、┅N-1 行逐一读起， 实在麻烦。
还好 Windows API 提供有读取 TextBox 第 N 行的功能， 细节如下：
1. API 的声明：
Const EM_GETLINE = &HC4
Const EM_LINELENGTH = &HC1
Const EM_LINEINDEX = &HBB
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
注：如果以上的声明放在「一般模块」底下， 应在 Const 之前加上 Public 保留字， 并且将 Private 保留字去掉。
2. 程序范例：
Sub TB_GetLine(ByVal hWnd As Long, ByVal whichLine As Long, Line As String)
Dim length As Long, bArr() As Byte, bArr2() As Byte, lc As Long
lc = SendMessage(hWnd, EM_LINEINDEX, whichLine, ByVal 0&)
length = SendMessage(hWnd, EM_LINELENGTH, lc, ByVal 0&)
If length > 0 Then
ReDim bArr(length + 1) As Byte, bArr2(length - 1) As Byte
Call RtlMoveMemory(bArr(0), length, 2)
Call SendMessage(hWnd, EM_GETLINE, whichLine, bArr(0))
Call RtlMoveMemory(bArr2(0), bArr(0), length)
Line = StrConv(bArr2, vbUnicode)
Else
Line = ""
End If
End Sub
' 假设要读取 Text1 第 5 行的资料
Dim S As String
Call TB_GetLine( Text1.hWnd, 5, S )
' 传回值 S 即等于到 5 行的资料
注：TextBox 的行次是从 0 起算。
|
| 在 ListBox 之中， 如何检测鼠标所在位置的选项？ |
我们可以利用 ListIndex 属性得知 ListBox 的选项， 但是当鼠标移到某一个选项上面(但还没有选取)，如何得知此一选项呢？方法是对 ListBox 送出 LB_ITEMFROMPOINT 信息， 细节如下：
1. API 的声明：
Const LB_ITEMFROMPOINT = &H1A9
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
注：如果以上的声明放在「一般模块」底下， 应在 Const 之前加上 Public 保留字， 并且将 Private 保留字去掉。
2. 调用例：(在表单上布置一个 TextBox 及一个 ListBox， 然后利用 MouseMove 事件程序来检测鼠标所在位置的选项)
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim pos As Long, idx As Long
pos = X / Screen.TwipsPerPixelX + Y / Screen.TwipsPerPixelY * 65536
idx = SendMessage(List1.hwnd, LB_ITEMFROMPOINT, 0, ByVal pos)
' idx 即等于鼠标所在位置的选项
If Idx <65536 Then Text1.Text="List1.List(idx)<Br"> End Sub
|
| 在 RichTextBox 之中， 如何将被选取的内容(包含文字及图片) 复制到剪贴簿？ |
如果不是写程序， 那么就是按下键盘 Ctrl+C。
当使用者按下 Ctrl+C 时， RichTextBox 会对自己送出 WM_COPY 的信息， 而接着 RichTextBox 的窗口程序收到此一信息时， 便会将被选取的内容(包含文字及图片)复制到剪贴簿&127;。
所以如果想要将 RichTextBox 中被选取的内容复制到剪贴簿， 只要对 RichTextBox 送出 WM_COPY 信息即可， 以下是程序撰写上的细节:
1. API 函数的声明式:
Const WM_PASTE = &H302
Const WM_CUT = &H300
Const WM_COPY = &H301
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
注：如果以上的声明放在「一般模块」底下， 应在 Const 之前加上 Public 保留字， 并且将 Private 保留字去掉。
2. 调用例:
SendMessage RichTextBox1.hWnd, WM_COPY, 0, ByVal 0&
|
制作渐变的窗口背景色
吴斌 |
在许多Windows软件的安装程序中，时常可以看到以某种颜色由浅至深的渐变为背景的窗口。使用VB制作这类窗口的方法有不少，而通过调用API函数绘制渐变的窗口背景色，似乎是一种既简单又节省资源的方法。
首先，在module文件中加入下列声明语句：
Declare Function CreateSolidBrush Lib"GDI"(ByVal crColor As Long) As Integer
Declare Function FillRect Lib"USER"(ByVal hDC As Integer，lpRect As RECT，ByVal hBrush As Integer)As Integer
Declare Function DeleteObject Lib"GDI"(ByVal hObject As Integer)As Integer
Type RECT
left As Integer
top As Integer
right As Integer
bottom As Integer
EndType
然后，在窗口的Paint事件中加入下列代码：
Private Sub Form_Paint()
Dim Color As Integer
Dim hBrush As Integer
Dim OldMode As Integer
Dim RetVal As Integer
Dim StepSize As Integer
Dim X As Integer
Dim FillArea As RECT
OldMode%=Me.ScaleMode
Me.ScaleMode=3
StepSize%=1+Me.ScaleHeight/80
Color%=255
FillArea.left=0
FillArea.right=Me.ScaleWidth
FillArea.top=0
FillArea.bottom=StepSize%
For X%=1 To 80
hBrush%=CreateSolidBrush (RGB(0,0,Color%))
RetVal%=FillRect(Me.hDC,FillArea,hBrush%)
RetVal%=DeleteObject(hBrush%)
Color%=Color%-4
If Color% <0 Then Color%="0<Br"> FillArea.top=FillArea.bottom
FillArea.bottom=FillArea.bottom+StepSize%
Next
Me.ScaleMode=OldMode%
EndSub
按F5运行，就会出现一个以从上至下、由浅至深的渐变蓝色为背景的窗口。对上述代码稍加改动，便可制作出各种颜色和水平方向的渐变背景。
|
| 如何在VB和Delphi中快速实现立体化窗口显示 |
在VB和Delphi中，我们可以很方便地创建具有立体化观感的窗口，这也是近两年来，Win3.X中较为流行的显示方式。许多专业化的软件都采用了这种立体化的窗口和相应的控件，达到了赏心悦目的效果。下面我们来谈谈如何在目前最流行的两种Win编程语言中实现这样的效果。
其实，无论是VB还是Delphi，要实现这种效果都较为容易，在编程中，并不需要调用外部的DLL，在程序运行时，会自动调用CTL3dV2.dll。
我们先来看看如何在VB中实现：
1.新建一个窗口。
2.在窗口form的属性列表中有一项Auto3D属性，缺省值为false，将其设置为true。它是控制VB中是否显示立体窗口的重要属性。
3.在form的属性列表中还有一项BorderStyle属性，这是控制窗口的边框显示类型，将其设置为3－Fixed Double。
4.现在可以运行这个程序了，你将会看到立体窗口出现。
将Auto3D属性设置为true，还有一个很好的副作用，那就是在这个窗口上的Text、Frame、CheckBox、OptionButton和ListBox都自动具有了立体效果。
在Delphi中实现似乎显得更加容易和直观：
1.新建一个窗口。
2.在窗口form的属性列表中有一项BorderStyle属性，它的缺省值为bsSizeable，表示边界可以任意调整，将其重新设置为bsDialog。
3.运行程序，你会发现立体窗口出现了。(看来，Delphi中将这种立体化窗口称为“对话窗口”，确实如此，比如在Word中，对话窗口都是这种立体化的显示，而主窗口仍然是一般的风格。)
与VB中的Auto3D类似，在Delphi中有一个属性为Ctl3D，将其设置为true，将使所有在这个窗口上的控件具有立体观感，并且这种变化是立刻反映的，而不象VB中在运行时才能看到。
在Delphi的窗口form中，你还可以通过设置FormStyle属性为fsStayOntop来轻而易举的实现“永远浮在其他窗口”上的效果。著名的“译林”Win版本就是用Delphi写的，它其中就有一个“永远在最上面”的功能，就是这样实现的。
|
| 用Visual Basic设计更好的用户界面 |
有时在一个窗口中出现较多的控制件时，如果能向导式地建议用户下一步该做什么，不失为上策。
在Visual Basic的程序设计中，我们可以使用语句：Object.SetFaocus使我们希望的控件得到输入焦点，举个例子：在Form1中我们加入一个按钮Command1和一个文本输入Text1，双击按钮控件，然后键入如下代码：
Text1.SetFocus
再按F5运行程序，您就会看到一单击按钮，文本框会立即取得输入焦点。另外，我们还可以使用语句：Sendkeys "{TAB}"使下一个控件获得焦点，但我们需要在设计时确定各控件的Index值。(在Properties窗口中)让控件自己感知自己的工作已完成，而主动将焦点让出，会使用户觉得应用程序很聪明，也减少了用户出错的机会。
可是当焦点切换的两个控件相隔有一定距离时，上述的方法有时也不足以引起用户的注意，那么一种好的解决方法是将鼠标箭头也移到控件上。可惜，VB并不支持鼠标移动，那我们就求助API函数，API函数SetCursorPos可让我们如愿。
下面是子程序MoveCursorOn，它可让鼠标移动到指定控件上方。
下列代码请放在declarations段中：
Type PoinTAPI
x As Integer
y As Integer
End Type
Declare Sub SetCursorPos Lib "User"(Byval x As Integer,Byval y As Integer)
Declare Sub ClientToScreen Lib "User"(Byval hwnd As Integer,IpPoint As PointAPI)
Declare Function GetParent Lib "User"(Byval hwnd As Integer)As Integer
然后建立一个新的子程序(ALT＋N→N→键入子程序名MoveCursorOn)，下面是子程序的代码：
Sub MoveCursorOn(source As Control)
Dim Pt As PoinTAPI
Dim hparent As Integer
p.x=(Source.Left＋Source.Width/2)/Screen.Twipsperpixel)
p.y=(Source.Top＋Source.Height/2)/Screen.Twipsperpixel)
hparent=GetParent(source.hwnd)
ClientToScreen hparent pt
SetCursorPos pt.x pt.y
End Sub
使用该子程序很容易，例如我们想把鼠标移动到按钮Command1上，就可使用语句
Move Cursor On Command1
您会看到鼠标箭头已经指着按钮Command1。
需要说明的是，千万不要滥用该子程序。让鼠标自己满屏乱飞，我们的用户会感到失去对应用程序的控制，这是违反我们的初衷的。
在有数个输入框的窗口中(这在数据库应用程序中是很典型的)，当用户完成第一个输入框的输入后，总爱习惯性的加一个回车，希望输入焦点落到下一个输入框中(DOS中大多数应用程序是如此)，可往往事与愿违，这一回车却触发了拥有Default特性的按钮，结果不是关闭了当前窗口就是又蹦出另一窗口。用户睁大眼睛看着屏幕，“咦？！我到底做了什么？”这是Windows新用户经常遇到的事情。
解决它其实很容易，只需在输入框的KeyPress事件中加入如下代码：
IF KeyASCII=13 Then
KeyASCII=0
Sendkeys "{TAB}"
END IF
这样，当用户在这个输入框中键入Enter时，就象键入TAB键时，焦点被移到下一控件上。但需注意，这种方法不适用于多行的TextBox，即TextBox的MultiLine特性设为True时，因为这时的回车键是起换行的作用。
|
| 利用VB三维面板控件设计流动条 |
VB提供了一个三维面板控件，利用这个控件可设计图形效果的立体界面，从而使应用程序的截面显得更生动、美观，该控件还可以设置各种形式的背景，然后在背景上显示各种形式的字符，令人感兴趣的是，使用三维面板控件，还可设计我们经常在安装程序中看到的表示安装进度的流动条，并可显示进程的流动条，并可显示进程百分比，改变流动条的颜色等。
一． 介绍属性
FloodColor: 确定流动条的颜色，缺省为蓝色。
FloodPercent: 显示当前过程如流动条进行的百分比，参数改变时显示的百分数和流动条的面积改变，设为一整型值，取值范围是0~100。
FloodShowpct: 决定是否在三维面板控件上显示百分比，是一个逻辑值。为Ture时显示，为False时不显示。
FloodType: 表示用户对三维面板控件的使用方式。可取值有6个，如下所示：
0 缺省设置
1 表示流动条方向从左到右
2 表示流动条方向从右到左
3 表示流动条方向从上到下
4 表示流动条方向从下到上
5 表示使用指定的颜色从圆心向外画圆
二． 流动条设计
如果在Windows 3.x下，工具箱中不存在三维面板控件，可选择File菜单中的"Add File…" 进行添加，在弹出的对话框中找到Windows\System目录，然后选定Threed.vbx文件即可，如果使用VB 4.0，需在Tools菜单中选择Custom Control命令，选定Sheridan 3d Controls项，按OK按纽，可在工具箱中增加三维面板控件。
启动VB ，在窗体中画一水平方向的长方形三维面板控件，按F4，在属性窗口中设置其Name为P3d、Bevellnner为2-Raised、FloodType为1、FloodshowPct为True,再在窗体中画一个按纽Command1，双击该按纽，键入下面的代码：
Sub Command1_Click()
P3d.floodpercent=0
For N%=1 To 100
If N%>100 Then
Exit sub
End If
P3d.FloodPercent=N%
Next N%
End Sub
按F5，运行该程序，点击Command按纽，即可看到流动条效果。
|
| 利用VB的图片框实现屏幕的滚动 |
对于学习使用VB来编程的电脑爱好者来说，可能会遇到这样一个问题：就是如何实现屏幕的滚动，因为当要显示的内容超出了屏幕的大小后，利用VB所提供的垂直滚动条和水平滚动条等控件是不可能直接实现这一特殊显示功能的。那么有没有其它的办法呢?答案是肯定的。我们知道VB的图片框是用来显示图形的，但它还有许多其它用途，比如可以用来创建一些动画图形等。其实对于上面的问题我们也可以利用图片框来巧妙地解决。方法如下：
首先，单击工具框中的图片框(Picture Box)控件和命令按钮控件，在窗体(Form1)上建立图片框对象Picture1和命令按钮对象Command1，将命令按钮的Caption属性设置为"退出"，Picture1的大小设置为显示区域的大小，再单击工具框中的图片框控件，在Picture1上建立另一个图片框对象Picture2，将它的Left和Top属性设置为0。用文本框，标签框等其它控件或导入一幅图象在Picture2上设定具体的显示内容，当然Picture2的大小一定要先调整到能全部容纳所有要显示的内容，最后单击工具框中的垂直滚动条控件和水平滚动条控件，在窗体(Form1)上分别建立垂直滚动条对象VScroll1和水平滚动条对象HScroll1，并设置好它们的属性。至此在窗体(Form1)上的所有设置工作就完成了，下面是具体的程序代码：
Private Sub VScroll1_Change()
Picture2.Top= -VScroll1.Value
End Sub
Private Sub Hscroll1_Change()
Picture2.Left= -HScroll1.Value
End Sub
Private Sub Command1_Click()
End
End Sub
运行程序，当按下横、竖滚动条时，就能使显示内容实现左右、上下的滚动。此方法简单易行，有兴趣的朋友不妨试一试。
|
VB中阴影字体的实现
太原 胡建民 |
Visual Basic确实是一种很不错的应用程序开发工具。笔者在使用中，也确实感到用VB设计程序，许多方法的实现是那么的简单。有时，仅仅需要几条语句，就可实现一种方法、效果或功能。下面就介绍一下，阴影字体在VB中的实现。程序如下：
Private Sub Form－Click（）
CurrentX＝700
CurrentY＝1000
FontSize＝30
ForeColor＝QBColor（8）
Print”Software Weekly”
CurrentX＝750
CurrentY＝1050
FontSize＝30
ForeColor＝QBColor（12）
Print”Software Weekly”
End Sub
在属性（properties）窗口中设置：Auto3D为true Font选一种True Type字体。
该程序是把代码加到Form的Click事件中，通过先打印字体的阴影部分，再打印出字体，以实现阴影字体效果的。试运行该程序，单击窗体后，即呈现出阴影字体Software Weekly。
|
在VB中制作单独程序封面的两种方法
辽宁铁岭 金永涛 |
这里所谓的单独封面，是只独立应用程序窗口本身的一个窗口，这个窗口在程序运行时首先弹出屏幕，用于装饰程序本身，或简单的演示一下程序的优越性。这样的封面在很多专业的WINDOWS程序中均存在，在VB中可有两种简单的方法实现这一功能。
第一种方法：多窗体编程方法
此方法是通常采用的方法，即在程序中创建两个或两个以上的Form窗体，把其中的一个作为专门的程序封面制作场所，具体方法：
1、创建一个新项目Form1，并在此窗体内安放Command1命令按钮，在Command1-Click()事件中输入结束程序代码“END”。
2、单击菜单的“Insert"项目，加入一个新窗体Form1。
3、双击Form1窗体空白处，在Form1-Load()事件中输入如下代码，用于隐藏主窗体Form1，置第二窗体为最大模式，并在运行程序首先显示和二窗体：
Private Sub Form-Load () ’隐藏主窗口
Form1.Visible = 0 ’窗口2最大模式
Form2.WindowState =2 ’显示窗口2
Form2.Show
End Sub
4、 在窗体Form2中定义全程变量：
Dim strr1 As String
Dim i As Integer
5、在窗体Form2中放入一个时间控件Timer1。
6、在窗体Form2中的Form-Load ()事件中输入以下代码，用于在窗体2中显示图像，并置时间控件频率：
Private Sub Form-Load ()
Form2.Picture = LoadPicture("c:\windows\setup.bmp")
Timer1.Interval = 10
i =0
End Sub
7、在时间控件Timer1- Timer1（）事件中进行程序封面的制作工作，演示简单的动画，并控制此动画运行一段时间后自动停止，关闭程序封面，返回程序主窗口；下面的代码实现在一个图片上随机显示字符串，显示30次字符串后自动退出。
Private Sub Timer1-Timer ()
Strr1 = "程序封面演示“
With Form2
.Font.Transparent =True ’透明显示字符
.Font.Size = Rnd *30+10 ’随机变化字号
.Font.Italic =True ’斜体有效
.ForeColor=RGB(Rnd*256,Rnd*256,Rnd*256) ’随机变化前景
.FontName =Screen.Fonts (Rnd*7+14) ’随机变化字体
End With
hh=Form2.TextHehght (strr1) ’取字符串高度
ww= Form2.TextWidth (strr1) ’取字符串宽度
x=Rnd * ( Form2.ScaleWidth-ww) ’随机改变坐标
y=Rnd *( Form2.ScaleHeight-hh)
Form2.Current X=x
Form2.Current Y=y
Form2.Print strr1 ’显示字符
i = i +1 ’计数
If i >30 Then
Unload Me ’关闭封面
Form1.Show ’调入主窗口
Timer1.Enabled =False ’关闭时间控件
End If
End Sub
8、为了能够人为地控制程序封面的停留时间，可在窗体Form2鼠标单击事件中安放退出封面代码：
Private Sub Form-Click ()
Unload Me
Form1.Show
Timer1.Enabled =False ’关闭时间控件
End If
End Sub
至此工作全部完成，当运行程序时，首先弹出程序封面，封面上显示一幅·BMP图像，之后在此图像上进行随机字符串的显示，字符串的位置、字体、字号、前景色等值都是随机变化的，显示30次后自动关闭封面返回主窗口，演示过程中用鼠标单击窗口也会返回主窗口，在主窗口中按下结束按钮退出程序。具体操作时还有很多其它技巧，比如可以置第二个窗体为主窗体，这样运行时可自动先弹出程序封面，可省略隐藏窗体和调入窗体的过程，另外第二窗体也可以在程序运行时由代码动态生成，这样编程时复杂一些，但有利于程序代码的管理；程序封面的具体制作过程，有许多动态图像控制方法可以使用，只要灵活动用VB的作图方法，再加上一些必要的API函数的配合，会制作出理想的程序封面。
第二种方法：隐藏控件方法
多窗口编程存在着一定的复杂性，需要对多个窗体的·Frm文件进行管理，编码时还需要频繁地在多个窗口间进行转换。实际上通过一个窗体也可以编制出类似的封面效果。基本原理就是在程序运行时首先通过VISIBLE属性隐藏全部控件，然后在主窗体内进行程序封面设计和演示，延时一定时间再恢复所有控件的显示，即达到了独立程序封面的制作过程。由于窗体内的控件很多，逐一隐藏或显示非常繁琐，可采用容器控件简化操作过程，即把控件全部放到Frame1等控件上，这样只要执行Frame1.Visible=0，即可使其上面的所有控件隐藏起来。
c由于程序只涉及一个窗体，程序设计的大部分工作只是编码过程，所以不再分步介绍。在窗体Form1中安放一个时间控件Timer1 和一个容器控件Frame1,再在Frame1上安放一个命令按钮Command1，具体程序设计时可把所有主程序工作控件放在Frame1上；之后把下面的代码填入相应的事件之中即可完成全部程序设计工作。运行此程序后首先在全屏幕窗体内显示图像，并从左上角开始逐渐放大字符串“程序封面演示”，放大过程中颜色发生平滑变化，形成美丽的拖尾效果，连续显示5次后自动关闭封面，返回主程序窗口，同样立即关闭程序封面，返回主程序窗口，单击主窗体中的命令按钮退出程序。
’定义全程变量
Dim i ,j As Integer
’退出程序按钮
Private Sub Command1-Click ()
End
End Sub
’单击窗体关闭封面
Private Sub Form-Click ()
Frame1.Visible =1 ’恢复容器控件
timer1.Enabled =False ’关闭时间控件
Form1.WindowState =0 ’恢复缺省窗口模式
End Sub
’准备工作
Private Sub Form -Load ()
Form1.WindowState =2 ’窗口最大化
Frame1.Width =Form1.Width ’调整容器控件尺寸
Frame1.Height =Form1.Height
Frame1.Top =0 ’调整容器控件位置
Frame1.Left =0
Frame1.Visible =0 ’隐藏容器控件
timer1.Interval =10 ’置时间频率
Form1.Picture =LoadPicture ("c:\windows\setup.bmp") ’装入图像
Form1.ScaleMode=3 ’置坐标刻度
Form1.FontName =“黑体” ’置字体名称
End Sub
’封面制作 （动画演示）
Private Sub timer1-Timer ()
Strr ="程序封面演示"
With Form1 ’透明显示
.Font.Transparent =True
.Font.Size = i + 1 ’放大字号
.Font.Italic =True ’斜体有效
.ForeColor=RGB(i*3,56,256-i*3) ’平滑变化颜色
End With
string =strr
Form1.Current X=i ’连续改变坐标
Form1.Current Y=i
Form1.Print stringg ’显示字符串
i = i +1
If i >72 Then ’放大到72号字
j =j +1 ’循环计数
i =0
Form1.Current X=72
Form1.Current Y=72
Form1.ForeColor =RGB(255,56,0) ’重新显示一次字符
Form1.Print stringg
End If
If j =5 Then ’动画计数
Frame1.Visible =1 ’显示容器控件
timer1.Enabled =False ’关闭时间控件
Form1.WindowState=0 ’恢复窗口模式
End If
End Sub
以上方法及程序在WINDOWS 95系统下，在VB4.0环境下调试通过。
|
用VB实现全屏幕图形界面及动态功能提示
王华 张晖 黄润发 |
一、 全屏幕图形界面设计
图形界面是现代软件中人机交互的主要手段。为了追求界面的统一和美观，在软件开放过程中，图形界面大多采用全屏幕构图方式。这是通过将窗体的边框设置为无边框（BorderStyle=None），将窗体显示模式设置为极大化（WindowState=Maximized）来实现的。
当一个窗体界面的设计中要容纳多张图片和多个控制时，将出现窗体显示速度明显变慢的现象，严重影响了程序运行的流畅性。为了解决这一问题，在开放过程中，采用了一种将【界面设计窗体】与【功能实现窗体】分开处理的方法。
在【界面设计窗体】中，首先按功能的需要和界面设计的创意，将所需的大量图片和控制在屏幕上安排好，选择美观的字体、颜色、线型，对屏幕界面进行设计、修饰加工；然后在其全屏幕运行的状态下，利用剪贴技术，将这一设计完成的图形界面全屏幕复制到剪贴板上；接着将这一屏幕映象作为一张图片粘贴在【功能实现窗体】的背景上。这样，从外观上看，两个窗体的形状完全相同，而在屏幕的显示速度上，后者明显加快。这时，【功能实现窗体】中的控件已变成一个象征性的图标，对它的操作，可在控制图标的对应位置上设置一个Image 类型的图象框，通过对图象框的操作，来代替原先对控制对象的操作。
采用这种方法，使窗体界面设计的灵活性大大增加，可以任意发挥，而不用担心控件、图片太多，影响窗体的显示速度。但采用这种方法，将不可避免地增加应用程序本身所占的存储容量，这是以容量换取速度必须付出的代价。
二、 动态功能提示信息的实现
在现代软件设计中，多数功能图标、按钮都在界面上直接确定其对应的名称，同时也提供了动态提示的功能，即当鼠标移至某一控件时，或使鼠标的形状用一具有象征意义的图标代替，或自动出现一条文字提示，下面介绍一下如何实现这种先进的提示模式。
动态改变鼠标的图形形状，是通过控件的MousePointer属性设置为13（自定义），然后在MouseIeon属性中选取一ICO图标文件来完成的；动态文字提示功能是利用控件的MouseMove事件来实现的：将功能提示处理程序设计在对应的MouseMove事件过程中，当鼠标移动到该控件范围区域时，即可触发程序执行，完成动态功能提示；为了防止处理程序反复触发，必须设置一控制开关，使处理程序只在鼠标第一次触发该控件区域时被执行；取消功能提示的处理程序设计在窗体的MouseMove事件中，说明程序如下：
Dim FirstTouch As Boolean '防止反复触发处理程序的控制变量
Private Sub ControlObject- MouseMove ()
If FirstTouch Then
FirstTouch =False '显示功能提示字符
End Sub
Private Sub Form- MouseMove ()
FirstTouch =True '取消功能提示字符
End Sub
|
| Visual Basic窗体背景花纹的实现 |
我们在开发软件过程中，为提高软件的商品化程度，感觉到界面的美观程度是一个软件能否获得成功的一个重要因素，我们仔细研究了一些成功的商品化软件，从这些软件上可以看到,程序窗口背景能显示出非常美丽的、富有立体感的花纹。而采用Visual Basic进行窗体设计，若只按照系统提供的功能，只能从有限的几种颜色中选择一种颜色或采用程序绘制一些简单的线条。而想实现立体感很强的纹理图案，一般只能采用窗体的PICTURE属性调用位图文件，使用这种方法实现有许多缺点 ,其一是窗体大小受位图大小的限制，调整起来麻烦，不具有通用性和灵活性；其二是浪费资源，因为花纹图案基本上是重复图案，采用与窗体同样大小的位图是一种浪费。
下面介绍一种窗体背景花纹实现的方法。在窗体上建立一个网格控件，设定网格行不可见，去掉固定行和固定列，用程序实现网格控件与窗体同样大小，并随窗体大小的改变而改变。然后设计一个花纹图案，形成BMP位图文件(本文程序使用文件Pict1.bmp)，或者从其它图象中截取一段图案,也可以利用Windows系统提供的图案（如c:\windows\Tiles.bmp)，将其调入Picture控件。设定网格的每个单元与该图案大小相同，使单元的数量正好覆盖整个窗体背景，再将所有单元均显示该图案。通过子程序Backpict()实现以上过程，不论图案大小、窗体大小，程序都能自动调整网格控件大小和网格单元大小及单元数量。
该程序在Visual Basic 5.0上调试成功。
1.新建窗体Form1,属性如下：
Caption =“背景花纹的实现”
Borderstyle=3(无最大、最小化按钮）
2.建网格控件Grid1,它的位置和大小将在程序中设置（与Form1同样大）,属性为：
Enabled = False（焦点不会落在网格控件Grid1上）
Fillstyle=1（改变所有单元Text特性）
Fixedcols=0（无固定行）
Fixedrows=0（无固定列）
Gridlines = False（网格行不可见），
Visible = True
3.建立图象控件Picture1,程序运行时将背景花纹基本图案放入其中，属性为
Visible = False（不可见）
Autosize = True（自动调整大小）
4.控件中加入Sheridan 3D Controls,选取其中的三维命令按钮SSCommand,建立两个按钮
SSCommand1.Caption=“退出”
SSCommand2.Caption=“更换背景”（演示不同的背景图案）
它们的属性Picture可调用与背景相同或不同的图案，如果使用普通的命令按钮控件Command也可，只是命令按钮无背景图案。
5.建立背景图案形成子程序：
Dim pictfile As String '位图文件名
Dim FILEPATH As String '文件路径
Sub Backpict(pictfile)
picture1.ScaleMode = 3
Form1.ScaleMode = 3
picture1.Picture = LoadPicture(pictfile)
'网格控件覆盖整个窗体背景
grid1.Top = -1
grid1.Left = -1
grid1.Width = Width
grid1.Height = Height
grid1.Cols=Int(Form1.ScaleWidth/picture1.ScaleWidth) + 1
grid1.Rows=Int(Form1.ScaleHeight/picture1.ScaleHeight) + 1
'所有单元大小等于基本图案大小
For i = 0 To grid1.Cols - 1
For j = 0 To grid1.Rows - 1
grid1.ColWidth(i) = picture1.ScaleWidth * 15
grid1.RowHeight(j) = picture1.ScaleHeight * 15
Next j
Next I
'选定所有单元
grid1.SelStartCol = 0
grid1.SelStartRow = 0
grid1.SelEndCol = grid1.Cols - 1
grid1.SelEndRow = grid1.Rows - 1
grid1.Picture = Picture1.Picture
End Sub
6.窗体主程序
Private Sub Form_Load()
Private Sub Form_Load()
'得到运行程序路径名，路径名后带反斜杠
If Right(App.Path, 1) <> "\" Then
filePath = App.Path & "\"
Else
filePath = App.Path
End If
'窗体初始显示由Tiles.bmp基本图案组成的背景
pictfile = "c:\windows\Tiles.bmp"
backpict (pictfile)
End Sub
7.退出程序命令按钮
Private Sub SSCommand1_Click()
End
End Sub
8.演示不同的底纹图案
Private Sub SSCommand2_Click()
'两种背景图案交替演示
If pictfile = filePath & "Pict1.bmp" Then
pictfile = "c:\windows\Tiles.bmp"
Else
pictfile = filePath & "Pict1.bmp"
End If
Backpict (pictfile)
End Sub
|
| VB编程的一些心得 |
在大学作毕业设计的课题是编制一个教学软件，所以很自然地和VB这种易学、易懂、界面友好漂亮的语言打上了交道。在编写的过程中当然遇到了许多的问题，这里将一些简单的小程序写下来与喜爱编程的朋友们分享。
一、封面
封面的设计是这样的，先出现一窗体，上面为你喜欢的图案。然后出现一艘从左向右行驶着的船。屏幕上方从两侧分别移动出“欢迎”两个字。
具体的制作方法是：把预先选好的背景图案装入封面窗体中，窗体命名为CAI。再分别在三个图像控件(image)中装入预先制作好的位图“欢”、“迎”和船型图案。然后把三个image放置在初始位置(即 图案刚在窗体出现时的位置)，并把它们的可视属性都设置为“false”。程序如下：
Sub Form_load()
cai.Show ′显示封面窗体
Dim i ′定义变量
image3.visible=True ′船型图像控件出现
a1: If image3.Left <6120 Then
′6120为船移动到屏幕右边的坐标,此值可以随需要选取
image3.Move image3.Left＋50
′移动此图像控件如嫌移动慢,可改变移动值
Goto a1
End If
image1.visible=True ′“欢”字出现
a2: If image1.Left <2120 Then
′2120为“欢”字移动到屏幕中间的位置
image1.Move image1.Left＋50 ′移动此图像控件
Goto a2
End If
image2.visible=True ′“迎”字出现
a3: If image2.Left > 5420 Then
′5420为“迎”字移动到屏幕中间的位置
image2.Move image2.Left－50 ′移动此图像控件
Goto a3
End If
For i=1 To 10000
′使窗体暂停一段时间时间长短可通过改变循环次数实现
Next i
menul.Show ′显示程序主窗体
Unload cai ′卸载封面窗体
End Sub
二、简单的“动画”
点击一3D按钮后，屏幕表现光线平行进入一玻璃管，在管中有一散射中心，有的光线射到此中心后反射到管的初始端。程序如下：
Sub Command3Dl_Click()
Dim i, j, k, m, n ′定义变量
For i=2080 To 5520
′显示出三条线,直到图像中的散射中心处,颜色为黑色
Line(2080,2760)－(i,2760),RGB(0, 0, 0)
Line(2080,2860)－(i,2860),RGB(0, 0, 0)
Line(2080,2660)－(i,2660),RGB(0, 0, 0)
Next i
For j=5520 To 4800 Step－1 ′反射光线第一次射到管壁上
Line(5520,2760)－(j,2760－(5520－j)＊.33333333),RGB
(255, 0, 0) ′反射光线,颜色为红色
Line(5520,2660)－(5520＋(5520－j),2660),RGB(0, 0, 0)
Line(5520,2860)－(5520＋(5520－j),2860),RGB(0, 0, 0)
′没有遇到散射中心的两条光线,为黑色,继续前进
Next j
For k=4800 To 3360 Step－1 ′反射光线第二次射到管壁上
Line(4800,2520)－(k,2520＋(4800－k)＊.33333333),
RGB(255, 0, 0) ′反射光线,颜色为红色
Line(6240,2660)－(6240＋(4800－k),2660),RGB(0,0,0)
Line(6240,2860)－(6240＋(4800－k),2860),RGB(0,0,0)
′没有遇到散射中心的两条光线,颜色为黑色
Next k
For m=3360 To 2080 Step－1 ′反射光线第三次射到管壁上
Line(3360,3000)－(m,3000－(3360－m)＊.33333333),
RGB(255, 0, 0) ′反射光线,颜色为红色
Next m
End Sub
三、封底
封底的设计是：先出现全黑的屏幕，然后从上至下逐渐拉出白底红字的“再见”的字样。先按要求在画板中做一个BMP图，上面写着“再见”。然后在一名为BYE的窗体中加入一个全屏大的Picturel, 将BMP图装入。程序如下：
Sub Form_Load()
Dim i ′定义变量
bye.Show ′封底出现
Unload menu1 ′卸载主菜单
al: If picture1.Height <7130 Then ′7130为图的高度
picturel.Height=picture1.Height＋50 ′下拉屏幕
GoTo al
End If
For i=1 To 20000 ′使窗体暂停一段时间
Next i
End ′结束所有操作
End Sub
|
| 处理过程时的鼠标显示 |
为让你的程序更加专业一点，我们往往需要在程序处理过程时的鼠标形状显示为“沙漏”状态。我们一般的方法是在子程序的开始及结尾编程来改变鼠标形状，这样十分烦琐且容易忘记。我们还可以以下面的方法来实现这一目标：
1、创建一个新类，命名为：CHourGlass；
2、在此类中加入以下代码：
Private Sub Class_Initialize()
Screen.MousePointer = vbHourglass
End Sub
Private Sub Class_Terminate()
Screen.MousePointer = vbDefault
End Sub
3、在子程序的开始加入下面代码：
Dim MyHourGlass As CHourGlass
Set MyHourGlass = New CHourGlass
|
| Office或IE4风格的ToolBar |
用API 可以轻松改变 ToolBar 的风格。需要 4.70 或其以上版本的 comctl32.dll 支持。
声明：
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Declare Function FindWindowEx Lib "user32" Alias _
"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 _
As Long, ByVal lpsz1 As String, ByVal lpsz2 As _
String) As Long
Private Const WM_USER = &H400
Private Const TB_SETSTYLE = WM_USER + 56
Private Const TB_GETSTYLE = WM_USER + 57
Private Const TBSTYLE_FLAT = &H800
Private Const TBSTYLE_LIST = &H1000
函数：
' tlbToolbarStyle :
'1 为 Office97 风格
'2 为 IE4 风格
Public Sub ToolbarStyle(tlb As Toolbar, _
tlbToolbarStyle As Long)
Dim lngStyle As Long
Dim lngResult As Long
Dim lngHWND As Long
' Find child window and get style bits
lngHWND = FindWindowEx(tlb.hwnd, 0&, _
"ToolbarWindow32", vbNullString)
lngStyle = SendMessage(lngHWND, _
TB_GETSTYLE, 0&, 0&)
' Use a case statement to get the effect
Select Case tlbToolbarStyle
Case 1:
' Creates an Office 97 like toolbar
lngStyle = lngStyle Or TBSTYLE_FLAT
Case 2:
' Creates an Explorer 4.0 like toolbar,
' with text to the right
' of the picture. You must provide text
' in order to get the effect.
lngStyle = lngStyle Or TBSTYLE_FLAT _
Or TBSTYLE_LIST
Case Else
lngStyle = lngStyle Or TBSTYLE_FLAT
End Select
' Use the API call to change the toolbar
lngResult = SendMessage(lngHWND, _
TB_SETSTYLE, 0, lngStyle)
' Show the effects
tlb.Refresh
End Sub
在 Form 装入时调用:
Private Sub Form_Load()
Call ToolbarStyle(Me.Toolbar1, 2)
' …
End Sub
关于ToolBar 风格的说明：
Office 风格的 Toolbar 是指在鼠标移动到 ICON 后，会出现边框。如我们在 VB5 中用的一样。而comctl的ToolBar是没有该效果的。
IE4 风格的 Toolbar 可以在ICON 下面出现文字，如同 IE4 中的Toolbar 一样。(可能是反一下…… )
|
| 放一个Combo到Toolbar中 |
1. 放一个 ComboBox 到表单.
2. 放一个 Toolbar?在表单.
3. 增加下面的代码到 Form1 :
Private Sub Form_Load()
Dim btn As Button
Me.Show
Set btn = Toolbar1.Buttons.Add()
btn.Style = tbrSeparator
Set btn = Toolbar1.Buttons.Add()
btn.Style = tbrPlaceholder
btn.Key = "ComboBox"
btn.Width = 2000
With Combo1
.ZOrder 0
.Width = Toolbar1.Buttons("ComboBox").Width
.Top = Toolbar1.Buttons("ComboBox").Top
.Left = Toolbar1.Buttons("ComboBox").Left
End With
End Sub
|
| 在Visual Basic中如何拖动窗体或控件 |
现在的许多Windows下的应用程序，都采用了图形化的界面，例如：WINAMP等！这样做的好处是可以使程序界面更漂亮生动，更具吸引力。但是在这样的界面下就不能使用Windows原来的标题条了，否则会影响界面的美观性。那么在没有标题条的情况下如何用鼠标拖动窗体呢？或者拖动其它的控件呢？
其实，采用API函数调用很容易实现，下面我们以拖动窗体(Form1)为例来具体讲一下实现方法：
1.新建立一个项目，名称为：test.vbp.
2. 填加一个模块，名称为：test.bas,并且在声明部分加入以下代码：
Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_SYSCOMMAND = &H112
Public Const SC_MOVE = &HF012
其中ReleaseCapture函数是用来释放鼠标捕获的，SendMessage函数是一个在WindowsAPI中非常重要的函数，在这里的作用是用来向Windows发送移动窗体的消息。WM_SYSCOMMAND是向Windows发送消息的常量。SC_MOVE是控制移动窗体的常量。请注意：这里SC_MOVE的赋值一定要是&HF012，它表示鼠标对象。
3.在窗体的MouseDown过程中加入以下代码：
ReleaseCapture
SendMessage Form1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
其中ReleaseCapture函数用来释放鼠标捕获，SendMessage函数向Windows发送移动窗体的消息。
4.保存并运行程序，按下鼠标，你会发现窗体会随着鼠标的移动而移动。就和其它著名的应用程序一样。
以上讲述了如何在VB中用鼠标拖动窗体，其实，控件的拖动的原理是一样的。
例如以下代码可以实现图片框的拖动：
ReleaseCapture
SendMessage Picture1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
其实，运用API函数可以实现许多你意想不到的功能。如果需要更多有关VB的其它经验与技巧。建议访问http://vb2000.kstar.com站点。
|
拖动无系统标准标题栏的窗口
吴斌 |
大家知道，在VB中可以通过设置Form的属性，制作无系统标题栏的窗口。可是，由于失去了系统标题栏，如何使用鼠标拖动窗口便成了一个棘手的问题。其实，借助API函数ReleaseCapture和SendMessage，这个问题便可迎刃而解了。
首先，在module文件中加入下列声明语句：
Declare Sub ReleaseCapture Lib"User"()
Declare Function SendMessage Lib"User"(ByVal hWnd _
As Integer，ByVal wMsg As Integer，ByVal wParam As Integer，_lParam As Any)As Long
Public Const WM_SYSCOMMAND=&H112
Public Const SC_MOVE=&HF010
Public Const HTCAPTION=2
然后，在Form的MouseDown事件中加入下列代码：
ReleaseCapture
Ret&=SendMessage(Me．hWnd，WM_SYSCOMMAND，_SC_MOVE+HTCAPTION，0)
……
程序运行后，只要当光标落在Form区域时按住鼠标左键，便可以拖动窗口了。在一些要求生动活泼的界面的程序设计中，开发者常常希望自制风格独特的标题栏，以满足整个界面的要求。通过这个方法，就可以使自制的标题栏达到乱真的地步。不过，用作自制标题栏的控件，必须具有MouseDown事件以摆放上述代码。
|
| 移动没有标题栏的窗口 |
我们一般是用鼠标按住窗口的标题栏，然后移动窗口，当窗口没有标题栏时，我们可以用下面的方法来移动窗口：
在 BAS 文件中声明：
Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" ( _
ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
然后，在 Form_MouseDown 事件中：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub
|
| VB编程中窗体的控制技巧 |
在Visual Basic中，每个应用程序都是从窗体(Form)开始的，窗体是构成用户接口的所有控件的容器。录活运用窗体的各项属性和操作，可以为用户设计出赏心悦目的操作界面。
1.窗体以当前屏幕分辨率全屏显示
在应用程序的编制调试过程中，用于经常用到菜单、工具条和工具框等辅助工具，一般不将窗体设为全屏显示，以便于操作；另外，当屏幕分辨率改变时，窗体可能不能正常显示，可以在窗体的Load事件中插入下列代码，即可使窗体启动时以当前屏幕分辨率全屏显示：
Private Sub Form_Load()
Form1.top=0 ‘设置窗体上边界位置
Form1.left=0 ‘设置窗体左边界位置
Form1.Width=Screen.Width ‘设置窗体宽度为屏幕宽度
Form1.Height=Screen.Height ‘设置窗体高度为屏幕高度
End Sub
2.使窗体保持在最上层
有时应用程序需要一个信息或查询窗体总保持在最上层，即使用读书切换到其他窗体也能看到该窗体，如Microsoft Word中的Find窗体，这是通过调用Windows API函数SetWindowPos()实现的，示例如下：
Option Explicit
Private Declare Function SetWindowPos Lib“User32”(ByValhwnd As Long,ByVal h WndInsertAfter 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 HWND_TOPMOST=-1
Const SWP_SHOWWINDOW=&H40
Private Sub Form_load()
Dim retValue As Long
RetValue=setWindowPos(me.hwnd,HWND_TOPMOST,Me.CurrentX,Me.CurrentY,300,300,SWP_SHOWWINDOW)
End Sub
3.窗体装入速度慢的处理技巧
在缺省情况下，Visual Basic装入和显示项目的第一个窗体。如果窗体装入过程超过一秒，用户只好耐心等待，特别是在窗体中含有大型位图或许多控件时。其实，微软在OFFICE组件中已经很好地处理了这一问题。下面的程序演示了处理低速窗体的装入技巧，在应用程序启动时，首先启动一个简单的快速装入窗体，可以将公司标志或其他信息显示在上面，然后在快速窗体后台中装入慢速窗体，慢速窗体装入后将快速窗体卸出，从而解决了让用户厌烦的等待问题。
Private Sub Form_Load()
Form1.Show
Form1.Refresh
Load Form2 ‘装入慢速窗体
Form2.Show ‘显示慢速窗体
End Sub
如果省略Form1.Show方法，则需装入慢速窗体后才能显示信息窗体。Refresh方法让Visual Basic更新显示后再执行后面的命令，缺省情况下，Visual Basic只在不执行其他代码时，才有机会刷新显示。慢速窗体Form2装入后，用下列代码将快速窗体Fomr1卸出：
Private Sub Form_Load()
UnLoad Form1 ‘卸出快速窗体
End Sub
一旦装入窗体，它就占用了所要的资源，所以不再需要的窗体应及时卸出，将占用的资源交还系统。另外，由于窗体装入比较慢，特别是包含位图或其他资源的大文件装入更慢，所以应用程序运行期间应尽量避免频繁装入/卸出窗体，而最好在应用程序启动时把窗体装入内存，需要时再显示。
|
利用VB控制窗口显示风格
广州 郭少越 |
软件界面生动与否很大程度上决定于你对窗口的设计和控制。事实上，Windows程序员可以对系统中的任何窗口进行操纵，它意味着，Windows程序员可以直接操纵任何正在运行的应用窗口；可以发现一个特定的应用是否在运行，如果该应用没有运行还可以启动它；可以重新排列屏幕上的所有窗口；还可以使其他应用的窗口最大化或最小化。下面我们探讨一种十分有意义的应用。
我们很希望在程序激活其它窗口时仍使得封面窗口处于前台，也就是说该窗口具有“ 总在最前面”（“Always On Top”）这一特性。其实Microsoft系列软件都是这样做的，当你运行Word、Excel或PowerPoint时，你会发现它们的封面窗口不随系统激活其它窗口而消失。
Visual Basic For Windows（以下简称VB）作为一种可视化编程软件，以其优秀的图形化界面设计风格而著称。利用它可使软件开发周期大为缩短，然而VB对Windows DLL（动态链接库）调用的强大功能却易受不少程序员所忽略。事实上，灵活应用Windows DLL的API（应用程序接口）才能使你开发的系统更加充满活力。正是由于VB支持DLL使得我们可以随心所欲地控制窗口显示风格，从而我们可以让系统封面总处于前台，下面说明用到的API函数。
．SetWindowPOS
VB定义：
Declare Sub SetWindowPosLib“User” （Bybal hWnd as Integer ，hWndInsertAfter as Integer，ByVal Ｘ as Integer，ByVal Ｙ as Integer，ByVal cx as Integer ，ByVal cy as Integer，ByVal wFlags as Integer）
说明：能改变窗口的位置和大小，并能修改窗口在内部窗口列表中所处的位置，
以控制显示次序。
参数 类型／说明
hWnd Integer－需定位的窗口
hWndInsertAfter Integer－窗口句柄，在窗口列表里，
窗口hWnd将放在该窗口句柄的后面，它可以取以下值：
hWnd＿BOTTOM：把窗口放在窗口列表的底部；
hWnd－TOP：把窗口放在Ｚ序的顶部。Ｚ序是窗口按层次级别显示的顺序；
hWnd＿TOP（MOST）：把窗口放在列表的顶部，位于所有最顶窗口之后。
X Integer—窗口新的X坐标，如果hWnd是一个子窗口，X给出的是父窗口的客户坐标。
Y Integer—窗口新的Y坐标，如果hWnd是一个子窗口，Y给出的是父窗口的客户坐标。
cx Integer—指定新窗口宽度。
cy Integer—指定新窗口高度。
wFlags Integer—包含下列标志之一的整数：
SWP＿DRAWFRAME：围绕窗口画一个边框；
SWP＿HIDEWINDOW：隐藏该窗口；
SWP＿NOACTIVATE：不激活该窗口；
SWP＿NOMOVE：保持当前位置（Ｘ和Ｙ被忽略）；
SWP＿NOREDRAW：窗口不自动重画；
SWP＿NOSIZE：保持当前大小（cx和cy被忽略）；
SWP＿NOZORDER：保持窗口列表中的当前位置（hWndInsertAfter被忽略）；
SWP＿SHOWWINDOW：显示该窗口。
注释：当一个窗口成为最顶窗口时，它所有的从属窗口也成为最顶窗口；当它成为非最顶窗口时，它全部的从属窗口和拥有窗口也成为非最顶窗口，Ｚ序表示窗口沿着从屏幕里向外延伸的假想Ｚ轴，从顶到底的排列次序。
VB实现窗口拥有“Always On Top”特性：
首先，定义全局常量及函数。
Global Const hWnd＿TOPMOST＝－１
Global Const SWP＿NOACTIVATE＝＆Ｈ１０
Global Const SWP＿SHOWWINDOW＝＆Ｈ４０
Declare Sub SetWindowPosLib “User” ByBal hWnd as Integer，hWndInsertAfter as Integer，ByVal Ｘ as Integer，ByVal Ｙ as Integer，ByVal cx as Integer，ByVal cy as Integer，ByVAL wFlags as Integer）
主程序如下编写：
Sub Main ０
Screen．MousePointer＝１１'使鼠标变为漏斗状
Load SystemCover'装载系统封面窗体
SetWindowＰｏｓ SystemCover．hWnd，hWnd＿TOPMOST，０，０，０，０，SWP＿NOACTIVATE Or SWP＿SHOWWINDOW'使得封面总处于最前面
Load InitWindow１'装载初始化窗体１
Load InitWindow２'装载初始化窗体２
：
：
Unload SystemCover'关闭系统封面窗体
Screen．MousePointer＝０
'使鼠标变为缺省形状
End Sub
|
| 让窗口一直在上面 |
很多流行软件都有这样一个选项：Always on Top。它可以让窗口在最上面，别的窗口不能覆盖它。我们在 VB 中，可以使用下面的方法来实现：
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOREDRAW = &H8
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_NOCOPYBITS = &H80
Private Const SWP_NOOWNERZORDER = &H200
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Private Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Private Const HWND_TOP = 0
Private Const HWND_BOTTOM = 1
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
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
Private mbOnTop As Boolean
Private Property Let OnTop (Setting As Boolean)
if Setting Then
SetWindowPos hwnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Else
SetWindowPos hwnd, -2, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End If
mbOnTop = Setting
End Property
Private Property Get OnTop() As Boolean
'Return the private variable set in Property Let
OnTop = mbOnTop
End Property
调用 OnTop=True 即可让窗口 Always On Top。
|
| 创建无 Icon 的窗口 |
我们在很多时候都需要那种无 Icon 的 窗口，如“关于……”“查找”等。在 VB 中，我们可以按以下步骤来创建此类窗口：
1、设置窗口的 BorderStyle = 3；
2、在 Form_Load 中加入：Me.Icon = LoadPicture("")
|
| 创建不规则窗口 |
Win32 API 有很多让你意想不到的功能。要创建特殊的不规则窗口看上去似乎很难。但我们如果我们说我们用几行代码就可以实现，这似乎不可思议。但事实就是如此！请试试：
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Sub Form_Load()
Show 'The form!
SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 300, 200), True
End Sub
上述代码可以创建一个椭圆形状的窗口。怎么样？？
|
用VB5.0获取正在系统中运行的窗口标题
山东德州 胥智强 |
熟悉Visual Basic的读者都知道，AppActivate语句是激活一个应用程序窗口其后所带的参数是指要被子激活的应用程序窗口标题条的字符串。如果要激活的是一个常见的应用程序，我们在编写程序时就可以直接写上此程序的窗口标题。例如，我们想激活Windows95的计算器，可先运行程序x=SHELL("Calc.exe",1)，然后再激活计算器窗口AppActivate“计算器”，则程序焦点自动转到计算器窗口上。然而单纯使用该方法局限性非常大，比如上述例子，如果我们放在英文Windows95上运行，计算器的窗口标题就不是“计算器”，而是“Calculator”。再一个局限性就是在很多情况下我们并不知道要激活的程序窗口标题名称，如何编制一个能自动查找程序窗口标题名称的程序是本文要解决的问题。
我们可以采取如下办法，来获取正在系统运行的窗口标题。
在WindowsAPI中有一个函数：
Get Windows (ByVal hWnd As Long ,ByVal wCmd As Long) As Long
其中，hWnd是当前窗口句柄，wCmd是与hWnd有联系的常量，其含义如下：
wCmd值
含义
GW-GHILD
第一个子窗口
GW-HWNDFIRST
子窗口的第一兄弟窗口，其第一个顶层窗口
GW-HWNDLAST
子窗口的最后一个兄弟窗口，或最后一个顶层窗口
GW-HWNDNEXT
后继窗口
GW-HWNDPRCV
先前窗口
GW-OWNER
窗口拥有者
此函数返回值是wCmd所指的窗口的句柄。
我们利用此句柄 ，再用函数Get WindowsText (ByVal hWnd As Long ,ByVal Ipstring As String, ByVal cch As Long) As Long，将句柄hWnd指定的窗口标题放入一个字符串变量Ipstring中，cch是指放入Ipstring中的最大字符数。此函数成功时返回字符串长度，如果窗口无标题则返回零。
在使用Get WindowsText函数前，还要先用函数Get WindowsTextLength （ByVal hWnd As Long ）As Long得到hWnd指定窗口标题的长度，放入cch中。
自编一个过程FindTitle()查找系统中正在运行的所有标题，首先获得第一个顶层窗口句柄currwnd，而后采用While…Wend循环结构，当currwnd不为零而且标题文本长度不为零时，将获得的标题存入列表框Combo1，再找后继窗口的句柄，当句柄currwnd=0时表示已没有了后继窗口，退出循环。这样就将系统中所有的窗口句柄及标题找出来了。
然而调试中发现用此方法找到的窗口标题非常多，这说明Windows系统运行时有许多隐含的窗口，而这些窗口是我们所不需要的，而且用AppActivate激活时也出现错误。
因此我们再自编一个过程Sift ()查找可激活的窗口。其方法是用AppActivate逐个激活所有窗口，出现错误的丢掉，保留可激活的窗口标题，放入列表框Combo2。
首先新建窗体Form1，Caption=“获取窗口标题”，在窗体Form1上建立两个标签，Label1,Caption=“所有窗口标题”，Label2.Caption=“可激活的窗口标题”；建立两个下拉列表框，Combo1存放系统中的所有标题名称，Combo2存放可激活的标题名称；再建立两个命令按钮，Command1.Caption=“激活窗体”，可对所列窗体进行测试，命令按钮Command2.Caption=“刷新”，点击它可重新查找所有在系统中的窗体名称，当本程序运行以后又运行了新程序时使用此按钮。
从VB系统菜单上选取Project中的Add Module，将下述API函数及一些常量录入。
'Module 模块
Declare Function GetWindow Lib "user32"(ByVal hwnd As Long, ByVal wCmd As Long)As Long
Declare Function GetWindowText Lib "user32" Aias"GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String,ByVal cch As Long)As Long
Declare Function GetWindowText Length Lib "user32" Aias"GetWindowTextLengthA" (ByVal hwnd As Long)As Long
Public Const GW-HWNDFIRST=0
Public Const GW-HWNDLAST=1
Public Const GW-HWNDNEXT=2
Public Const GW-HWNDPREV=3
Public Const GW-OWNER=4
建立两个子程序：
Sub FindTitle ()
'查找桌面上的所有窗口标题
Dim currwnd As Integer
Combo1.Clear
Currwnd=GetWindow (hwnd, GW-HWNDFIRST)
While currwnd<>0
Length= GetWindow TextLength (currwnd)
listitem$=Space $(length +1)
length= GetWindow Text (currwnd,listitem$,length+1)
if length>0 Then
Combo1.Addltem listitem $
End if
currwnd= GetWindow (currwnd, GW-HWNDNEXT)
if Combl1.ListCount>0 Then
Combo1.Text=Combol.List (0)
Combo1.Listindex =0
Else
MsgBox“没有发现可活动的窗口”，16，“活动”
End if
Wend
End Sub
Sub Sift ()
'测试窗口能否活动
i=0
Combo2.Clear
Do
On Local Error Resume Next
AppActivate Combo1.List (i)
If Err =0 Then
Combo2.Additem Combo1.List(i)
End if
i=i+1
Loop Unti 1 i=Combo1.ListCount-1
AppActivate Form1.Caption
If Combo2.ListCount>0 then
Combo2.Text =Combo2.List (0)
Combo2.Listindex =0
Else
MsgBox “没有发现可活动窗口”，16，“活动”
End if
End Sub
Private Sub Form-Load ()
Form1.Show'首先将本窗体显示出来，否则查找出的窗体标题没有本身
MsgBox "开始查找窗口标题"
Call FindTitle
Call Sift
End Sub
Private Sub Command1-Click ()
F $=Combo2.Text
On Local Error Resume Next
AppActivate F $
End Sub
Private Sub Command2-Click ()
Call FindTitle
Call Sift
End Sub
本程序在Visual Basic5.0上调试通过。
|
| 利用Form_QueryUnload询问使用者是否关闭窗口 |
如 何 在 窗 口 关 闭 时 ， 询 问 使 用 者 是 否 确 定 关 闭 ， 若 否， 则 取 消 关 闭 动 作 ， 若 是 则 结 束 程 序 ！
这 是 一 个 很 重 要 的 问 题 ， 想 想 ， 如 果 还 有 编 辑 中 的 档案 尚 未 存 档 ， 但 一 时 忘 了 按 下 「 关 机 」 钮 ， 那 么 编 辑 中的 文 件 难 道 就 不 存 档 了 吗 ？ 为 了 避 免 这 种 事 情 的 发 生 ， Windows 在 关 机 以 前 会 徵 询 每 一 个 窗 口 是 否 同 意 关 机 ， 而对 VB 程 序 而 言 ， 所 收 到 「 徵 询 同 意 关 机 」 的 事 件 是 Form_QueryUnload，如 果 程 序 不 同 意 关 机 ， 可 以 将 叁 数 中 的 Cancel 设 定 为 True，如 下 ：
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
End Sub
则 Windows 便 会 终 止 关 机 的 动 作 。 只 有 在 所 有 窗 口 都 同意 关 机 的 情 况 下 ， Windows 才 会 真 的 关 机 。
|
| 如 何将「拒 绝 被 盖 住 的 窗 口 」还 原 |
如 果 Form 已 执 行 过 拒 绝 被 盖 住 的 窗 口 功 能, 应 如 何 将 它 恢 复 成 正 常 的 Form ?
拒绝被盖住 ret = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
恢复正常 ret = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)
|
| 在菜单上增加图标 |
声明：
Declare Function GetMenu Lib "user32"?(ByVal hwnd As Long) As Long
Declare Function GetSubMenu Lib "user32"?(ByVal hMenu As Long, ByVal nPos As Long) As Long
Declare Function GetMenuItemID Lib "user32"?(ByVal hMenu As Long, ByVal nPos As Long) As Long
Declare Function SetMenuItemBitmaps Lib "user32"?(ByVal hMenu As Long, ByVal nPosition As Long,?ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ?ByVal hBitmapChecked As Long) As Long
Public Const MF_BITMAP = &H4&
Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type
Declare Function GetMenuItemCount Lib "user32"?(ByVal hMenu As Long) As Long
Declare Function GetMenuItemInfo Lib "user32"?Alias "GetMenuItemInfoA" (ByVal hMenu As Long,?ByVal un As Long, ByVal b As Boolean,?lpMenuItemInfo As MENUITEMINFO) As Boolean
Public Const MIIM_ID = &H2
Public Const MIIM_TYPE = &H10
Public Const MFT_STRING = &H0&
使用： 在 Form1 中增加一个 PictureBox1， AutoSize 为 True， 放一个小 Bmp (不是 Icon！推荐 13*13)。
Private Sub Command1_Click()
'Get the menuhandle of your app
hMenu& = GetMenu(Form1.hwnd)
'Get the handle of the first submenu (Hello)
hSubMenu& = GetSubMenu(hMenu&, 0)
'Get the menuId of the first entry (Bitmap)
hID& = GetMenuItemID(hSubMenu&, 0)
'Add the bitmap
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Picture1.Picture, Picture1.Picture
'You can add two bitmaps to a menuentry
'One for the checked and one for the unchecked
'state.
End Sub
|
| 菜单项的动态装入 |
菜单项的动态装入是指菜单项的个数不固定. 例子就是文件菜单中最近打开的文件的列表。在第一次打开文件之前,该列表是空的,并且不在文件菜单中出现;打开一个文件后,该列表不再是空的,并且文件菜单中出现代表被打开文件的菜单项。
具体的实现过程如下:
在文件菜单里增加一个菜单项,标题任意,并假设菜单项的Name属性是opened_files_ list;
更改菜单项opened_files_list的可见属性,使 opened_files_list.Visible=False
更改菜单项opened_files_list的下标属性,使 opened_files_list.Index=0
在程序中控制菜单项opened_files_list的动态装入。
假设要显示打开过的第二个文件的文件名,并且该文件名存放在一个文件名数组opened _file_name里。以下的代码就实现了这一功能:
Load opened_files_list(1)
opened_files_list(1).Caption="&2"+opened_file_name(1)
opened_files_list(1).Visible=True
需要注意的是,对于下标为0的菜单项,不能用Load方法。因为在程序执行时,该菜单项就 已经被装入到内存里了;另外,在菜单项的标题属性字符里的"&"字符具有特殊的含义,它的作 用是在显示该属性字符串的同时,并不显示"&"本身,而紧跟"&"的字符在显示时具有下划线, 并且该字符成为热键。
如果下标不为0的菜单项不再需要,为了减少对内存资源的占用,可以用Unload方法把它 从内存卸出;同样地,不能用Unload卸出下标为0的菜单项。
|
| 用VB实现浮动按钮 |
在微软的很多软件（如WORD）的工具栏中，都采用一种浮动按钮，即正常情况下按钮的图标呈灰色，当鼠标移动到某一按钮时，该按钮自动向上凸起且变为彩色，并在按钮的右下方有一标签提示该按钮的功能，鼠标移开后又自动还原，这种按钮用VB实现时，方法如下：
1.先用绘图工具作出按钮图标后存盘（如1.bmp），再用图象处理软件将该图标转换为灰 度图或浮雕图后再存盘（如2.bmp）。
2.运行VB，建立一新窗体（如form1）。
3.在窗体上需要建立按钮的位置处建立一图片框（如image1），其大小和图标相同，并将 其picture属性设为2.bmp。
4.在image1周围建立由四个长度相同的line控件（如line1～4）组成的方框，方框要比image1 控件稍大，否则达不到预计效果，将上面和左边的颜色设成白色，下面和右边的设成黑色， 并将四个line控件的visible属性都设成false 。
5.在程序中加入以下内容即可：
Private Sub Image1_MouseMove(Botton As Integer,Shift As Integer,X As Single,Y As Single)
Image1.Picture=LoadPicture("c:\1.bmp")
Line1.Visible=True
Line2.Visible=True
Line3.Visible=True
Line4.Visible=True
End Sub
Private Sub Form1_MouseMove(Botton As Integer,Shift As Integer,X As Single,Y As Single)
Image1.Picture=LoadPicture("c:\2.bmp")
Line1.Visible=False
Line2.Visible=False
Line3.Visible=False
Line3.Visible=False
End Sub
|
| 如何设计一个可中断循环的按钮。 |
当 程 序 进 入 循 环 而 尚 未 脱 离 时 ， 使 用 者 将 无 法 操 作 表单 上 的 控 制 控 件 ， 所 以 按 钮 也 是 无 法 操 作 的 。 想 要 设计 可 中 断 循 环 的 按 钮 ， 首 先 必 须 在 循 环 之 中 安 插 DoEvents 叙 述 ， 例 如 ：
While ...
循 环 内 的 处 理 工 作
DoEvents
Wend
DoEvents 的 作 用 是 暂 时 释 放 CPU， 让 其 他 程 序 得 以 被 执 行， 也 就 是 让 使 用 者 可 以 操 作 表 单 上 的 控 制 控 件 。
接 着 声 明 一 个 全 域 变 数 ： Dim bExit As Boolean， 然 后 在 回圈 中 增 加 以 下 的 判 断 式 ：
While Not bExit
循 环 内 的 处 理 工 作
DoEvents
Wend
bExit = False
最 后 则 是 在 按 钮 的 Click 事 件 程 序 中 撰 写 以 下 叙 述 ：
bExit = True
以 上 程 序 有 两 大 重 点
(1) DoEvents 让 使 用 者 可 以 按 下 命令 钮
(2) 按 钮 按 下 时 ， 将 全 域 变 数 bExit 设 定 成 True， 使 得 程 序 在 判 断 Not bExit 为 False 的 情 况下 而 脱 离 循 环 。
|
API函数在VB开发中的应用
万树学 郑启双 |
VB作为快速开发Windows下的编程工具，已经为越来越多的开发者采用。但如果要开发出专业的Windows软件，还需采用大量的API函数，以下结合笔者开发管理软件的经验谈几点体会。
程序中判定Windows的版本
众所周知，Windows3.x各版本或多或少会有些差别，为了使开发程序避免出现莫名其妙的错误，最好在程序运行前自动判定Windows的版本。采用API提供的函数getversion很容易实现这一点。函数声明如下：
Declare Function GetVersion Lib"Kernel"() As Integer
此函数没有参数，返回值为Windows的版本号，其中版本号的低位字节为Windows的主版本号，版本号的高位字节返回Windows的次版本号。判别过程如下：
Private Sub Form_Load ()
Dim ver As Integer
Dim major As Integer
Dim minor As Integer
Ver = GetVersion ()
major = ver And ＆HFF
minor = (ver And ＆HFF00) \ 256
If major <> 3 And minor <> 10 Then
MsgBox "版本不正确!"
Exit Sub
End If
End Sub
程序中判断Windows的安装目录
一般VB开发出来的程序包含vbrun300.dll等辅助文件和.vbx文件，它们均需安装到Windows目录(c:\windows)或Windows的系统目录(c:\windows\system)下，但因为用户安装Windows时可能会改变Windows的目录名(如c:\windows)，使用安装软件后，不能正确运行.API中提供的GetwinDowsdirectory或GetSystemDirectory较好地解决了这个问题。函数声明如下：
Declare Function GetSystemDirectory Lib "Kernel"(ByVal lpBuffer As
String,ByVal nSize As Integer) As Integer
其中参数lpbuffer为字串变量，将返回实际Windows目录或Windows的系统目录，nsize为lpbuffer的字串变量的大小，函数返回值均为实际目录的长度。检查函数如下：
Function checkdir() As Boolean
Dim windir As String ＊ 200
Dim winsys As String ＊ 200
Dim winl As Integer
Dim wins As Integer
Dim s1 As String
Dim s2 As String
winl = GetWindowsDirectory(windir,200)
winl = GetSystemDirectory(winsys,200)
s1 = Mid ＄(windir,1,winl)
s2 = Mid ＄(winsys,1,wins)
If Wins = 0 Or wins = 0 Then
checkdir = False
Exit Function
End If
If s1 <> "C:\WINDOWS" Or s2 <> "C:\WINDOWS\SYSTEM" Then
checkdir = False
Exit Function
End If
checkdir = True
End Function
shell 出现的问题
通常编程时要调用外部程序，VB提供了shell()函数，但是如果shell调用的外部程序找不到，则运行的程序失去控制，VB给出提示"filenotfound"，改变这种现象，要在程序中加入onerrorgoto，比较麻烦，API函数中的winexec很好地解决了这个问题。函数声明如下：
Declare Function WinExec Lib "Kernel"(ByVal lpCmdLine As String,
ByVal nCmdShow As Integer) As Integer
其中lpCmdline为调用的外部文件名，NcmdShow为外部程序的运行状态，如隐藏窗口、最小化窗口等等。如返回值大于32表示执行功能，否则返回错误码。例程如下：
sub command1_click
ds i as integer
i=winexec("notepad.exe","c:\wst.txt",9)
'参数9 即SW_RESTORE,也就是激活并显示窗口
if i>32 then
msgbox "调用正确!!"
else
msgbox "调用错误!!"
end if
end sub
通过实践发现，在使用VB开发应用程序时，灵活使用API函数，会更大地发挥VB的作用，使开发出的软件更专业，功能更强大。
|
VB中访问API函数之防错技巧
郭少越 |
功能强大的API（应用程序接口）函数对于VB程序员来说，不愧是很好的编程工具，然而使用API函数的程序员也许都遇到这样的现象。在VB集成环境下，程序运行后，出现一错误信息对话框，按确定键后系统自动退出VB集成环境，此时如果你的程序尚未存盘，那末很遗憾挽回损失已回天乏力。最后一次存盘之后的程序都不复存在。这是你对API函数使用不当引起的一般保护故障（GPF）。
当一个GPF错发生时，你应允许Windows关闭你的应用。有些情况下你可能需要退出Windows或者重新引导系统。出错程度视哪里内存被破坏而定。DLL（动态链接库）函数中的类型不一致等错误是GPF错的主要原因。这些错误会导致GPF甚至使Windows系统完全崩溃（需要重新引导� | |
