📄 ba15.htm
字号:
<HTML>
<HEAD>
<TITLE>一组VB实用小程序</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<BODY topMargin=4 vLink=#0000ff>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height="52">
<DIV align=center>
<CENTER>
<table border=0 cellpadding=0 cellspacing=0 width=679 align="center">
<tbody>
<tr>
<td width=200 height="59">
</TD></TR><!--msnavigation--></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr><!--msnavigation--><td valign=top height="1012">
<div align=center>
<table border=1 bordercolor=#b9d9ff cellpadding=0 cellspacing=0
class=table width=755>
<center>
<tr>
<td width="100%" height="3">
<div align="center"> <strong><big>一组VB实用小程序</big>
</strong></span></div>
</td>
</tr>
<tr>
<td
width="100%" class="unnamed1" height="969">
<div align="left">
<div align="center"><br>
<br>
</div>
<div align="left">
<p> <font face="宋体" size="-1">用VB实现编程离不开函数调用及Windows
API函数的调用，以下是笔者收集的一些实用的</font><font size="-1" face="宋体">小例程，它们可以直接用在你的实际编程中，也可以根据实际应用加以扩充完善。其中涉及Windows
API函数调用的代码你可以从VB5.0系统的API函数查看器中复制函数定义内容，以避免出错。<br>
1.系统型表单<br>
系统型意味着用户完成当前表单操作之前无法进行其它操作，这对于编制系统口令保护界面尤为重要。如果你希望当前表单系统型表单，需如下定义API函数：<br>
Declare Function SetSysModalWindow Lib "User"
(ByVal hWnd As Integer) As Integer<br>
然后调用：oldSysModal = SetSysModalWindow([Form].hWnd)<br>
2.获取驱动器类型<br>
代码如后：<br>
Declare Function GetDriveType Lib “Kernel" (ByVal nDrive
As Integer) As Integer<br>
Global Const DRIVE_REMOVEABLE％ = 2, DRIVE_FIXED％ = 3<br>
Global Const DRIVE_REMOTE％ = 4<br>
3.表单在对中<br>
本子程序功能使表单定位在屏幕中央，在表单中任何需要表单对中的地方只需加入一行代码：<br>
“centerwindow.me”即可成功调用。<br>
Public Sub CenterWindow(f As Form)<br>
f.Top = (Screen.Height ＊ .5) － (f.Height ＊ .5)<br>
f.Left = (Screen.Width ＊ .5) － (f.Width ＊ .5)<br>
End Sub<br>
4. 定义变量 <br>
许多的程序员习惯于如下定义变量：<br>
Dim iNum, iNextNum, iLastNum as Integer <br>
实际上只有最后一个变量被设为了整型，前两个变量则是系统的缺省的Variant
数据类型，而Variant 数据类型可用来替换任何数据类型，显然对于精练的程序设计是不利的。 正确的方法如下：
<br>
Dim iNum as Integer <br>
Dim iNextNum as Integer <br>
Dim iLastNum as Integer <br>
5. 使文本高亮<br>
本子程序使被触发的诸如文本，标签等控件的文本被选中<br>
Public Sub SetSelected()<br>
Screen.ActiveControl.SelStart = 0<br>
Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)<br>
End Sub<br>
6. 关闭其它程序<br>
下面的代码可关闭内存中的其它程序<br>
title = "MyAPP" '定义你需关闭的程序窗口的标题<br>
ihWnd = findWindow(0＆, Title)<br>
ihTask = GetWindowTask (ihWnd)<br>
iRet = PostAppMessage(ihTask, WM_QUIT, 0, 0＆)<br>
7. 文件存在否?<br>
本函数返回查找的文件是否存在。<br>
Function FileExist(Filename as string) as Boolean<br>
FileExist = IIf(Dir(Filename) <> "", True,
False)<br>
End Function<br>
8. 主程序唯一<br>
用下面提供的代码作你的主程序可防止应用程序的多重执行，你应当将它放在确信需要它的代码模块内。<br>
Public Sub Main()<br>
If App.PrevInstance Then<br>
BringWindowToTop frmMain.hwnd <br>
Else<br>
Load frmMain<br>
End If<br>
End Sub<br>
上面这些精悍的代码对于专业程序员来说非常有实用价值，希望你能从中获得启发。<br>
(武汉锅炉集团公司工艺处 顾伟义 430070)</font>
</div>
</div>
</td>
</tr>
</center>
<tr>
<td width="100%" class="unnamed1">
<p align=right><a href="ba14.htm">（上一页）</a>---<a href="ba16.htm">（下一页）</a></p>
</td>
</tr>
<tr>
<td width="100%" class="unnamed1">
</div>
</td>
</tr>
<!--msnavigation--></tbody>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -