【免费】VB技巧集（有说明及代码样例）资源-CSDN文库

共10个文件

htm：10个

VB技巧

需积分: 0 104 浏览量 2009-02-01 20:24:39 上传评论收藏 40KB RAR 举报

资源详情

资源评论

资源推荐

收起资源包目录

VB技巧.rar （10个子文件）

vbtips4.htm 10KB

vbtips.htm 26KB

vbtips9.htm 15KB

vbtips1.htm 21KB

vbtips5.htm 13KB

vbtips08.htm 8KB

vbtips3.htm 15KB

vbtips2.htm 17KB

vbtips7.htm 18KB

vbtips10.htm 20KB

<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80"> <meta name="GENERATOR" content="Microsoft FrontPage Express 2.0"> <title>VB技巧</title> </head> <body> <h1 align="center"><a name="Return"></a>VB技巧(1)</h1> <blockquote> 1 <a href="#Tips0001">利用键盘精确移动控件和设置控件尺寸</a> 2 <a href="#Tips0002">按字母或数字顺序排列列表框中的列表项.</a> 3 <a href="#Tips0003">Tag属性的妙用.</a> 4 <a href="#Tips0004">利用VB产生屏幕变暗的效果.</a> 5 <a href="#Tips0005">使两个列表框(ListBox)的选项同步</a> 6 <a href="#Tips0006">获得Win9X下文件的短文件名(8.3文件名)</a> 7 <a href="#Tips0007">使指定窗口总处于其他窗口之上</a> 8 <a href="#Tips0008">获得位图文件的信息</a> 9 <a href="#Tips0009">获得驱动器的卷标</a> 10 <a href="#Tips0010">将包含有Null结尾的字符串转换为VB字符串</a> 11 <a href="#tips0011">启动控制面板命令</a> </blockquote> <div align="center"><center> <table border="0" width="88%"> <tr> <td width="80%">[1] <a href="vbtips1.htm#top">[2]</a> <a href="vbtips2.htm">[3]</a> <a href="vbtips3.htm">[4]</a> <a href="vbtips4.htm">[5]</a> <a href="vbtips5.htm">[6]</a> <a href="vbtips7.htm">[7]</a> <a href="vbtips08.htm#home">[8]</a> <a href="vbtips9.htm">[9]</a> <a href="vbtips10.htm">[10]</a> </td> <td>第一页(共十页) </td> </tr> </table> </center></div> <hr> <div align="center"><center> <table border="0" width="88%"> <tr> <td><a name="Tips0001"></a>利用键盘精确移动控件和设置控件尺寸 选中控件,按Ctl+上下左右键就可以以一个Grid为单位移动控件.按Shift+上下左右键就可以以一个Grid为单位扩大缩小控件. <a href="#Return">返回</a><a name="Tips0002"></a>按字母或数字顺序排列列表框中的列表项. 将以下代码加入到你的程序中. Sub ReSort(L As Control) Dim P%, PP%, C%, Pre$, S$, V&, NewPos%, CheckIt% Dim TempL$, TempItemData&, S1$ For P = 0 To L.ListCount - 1 S = L.List(P) For C = 1 To Len(S) V = Val(Mid$(S, C)) If V > 0 Then Exit For Next If V > 0 Then If C > 1 Then Pre = Left$(S, C - 1) NewPos = -1 For PP = P + 1 To L.ListCount - 1 CheckIt = False S1 = L.List(PP) If Pre <> "" Then If InStr(S1, Pre) = 1 Then CheckIt = True Else If Val(S1) > 0 Then CheckIt = True End If If CheckIt Then If Val(Mid$(S1, C)) < V Then NewPos = PP Else Exit For End If Next If NewPos > -1 Then TempL = L.List(P) TempItemData = L.ItemData(P) L.RemoveItem (P) L.AddItem TempL, NewPos L.ItemData(L.NewIndex) = TempItemData P = P - 1 End If End If Next Exit Sub <a href="#Return">返回</a> <a name="Tips0003"></a>Tag属性的妙用. 在VB编程中,我们经常要动态的控制很多不同控件的属性,例如我们要将一个CommandButton阵列共20各控件中的第1、4、6、7、8、11、18、20号删除。该怎么半呢？这时只要将要删除的控件的Tag属性设置为1，然后加入以下代码就可以了。 For i=1 To 20 If Command1(i).Tag=1 Then Unload Command1(i) End If Next i <a href="#Return">返回</a> <a name="Tips0004"></a>利用VB产生屏幕变暗的效果. 想利用VB编程实现屏幕变暗的效果（向关闭Win95时的效果），只要按下面的步骤来做 1、在Form1中加入两个CommandButton和一个PictureBox. 2、在Form1的代码窗口中添加以下代码： Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long Private Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long Private Declare Function PatBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal dwRop As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, ByVal lpRect As Long, ByVal bErase As Long) As Long Private bybits(1 To 16) As Byte Private hBitmap As Long, hBrush As Long Private hDesktopWnd As Long Private Sub Command1_Click() Dim rop As Long, res As Long Dim hdc5 As Long, width5 As Long, height5 As Long hdc5 = GetDC(0) width5 = Screen.Width \ Screen.TwipsPerPixelX height5 = Screen.Height \ Screen.TwipsPerPixelY rop = &HA000C9 Call SelectObject(hdc5, hBrush) res = PatBlt(hdc5, 0, 0, width5, height5, rop) Call DeleteObject(hBrush) res = ReleaseDC(0, hdc5) End Sub Private Sub Command2_Click() Dim aa As Long aa = InvalidateRect(0, 0, 1) End Sub Private Sub Form_Load() Dim ary Dim i As Long ary = Array(&H55, &H0, &HAA, &H0, _ &H55, &H0, &HAA, &H0, _ &H55, &H0, &HAA, &H0, _ &H55, &H0, &HAA, &H0) For i = 1 To 16 bybits(i) = ary(i - 1) Next i hBitmap = CreateBitmap(8, 8, 1, 1, bybits(1)) hBrush = CreatePatternBrush(hBitmap) Picture1.ForeColor = RGB(0, 0, 0) Picture1.BackColor = RGB(255, 255, 255) Picture1.ScaleMode = 3 End Sub 运行程序，按Command1就可以使屏幕暗下来，按Command2恢复。 <a href="#Return">返回</a> <a name="Tips0005"></a>使两个列表框(ListBox)的选项同步 步骤1 在Form中添加两个ListBox和一个CommandButton一个Timer,不要改动他们的属性. 步骤2 在Form中添加如�