VB精典实用源代码(详细))

个人收藏的VB精典实用源代码。

若朋友您想要问如何才能学好vb，或者入门需要看什么教材一类的问题，建议你抱着一颗刻苦钻研的心去面对这门学问，多动脑，少提问，遇到不知道的，多查资料，多看看帖子，或者用断点来亲自试验。实在不会了，请在此贴中查找您的常见问题，如果还没有，那请您发出新贴，向各位高手讨教：）

查找方法：按ctrl+f，输入要查找的问题关键字即可

每个问题中间用///分隔，这只是一部分最常见到的问题，以后会逐渐更新。

////////////////////////////////////////////////////////////////////////////////////

如何用VB建立快捷方式

Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long

Sub Command1_Click()

Dim lReturn As Long

'添加到桌面

lReturn = fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\calc.exe", "")

'添加到程序组

lReturn = fCreateShellLink("", "Shortcut to Calculator", "c:\windows\calc.exe", "")

'添加到启动组

lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", "c:\windows\calc.exe", "")

End Sub

////////////////////////////////////////////////////////////////////////////////////

如何让程序在Windows 启动时自动执行？

有以下二个方法：

方法1: 直接将快捷方式放到启动群组中。

方法2:

在注册档HKEY_LOCAL_MACHINE 中找到以下机码

\Software\Microsoft\Windows\CurrentVersion\Run

新增一个字串值，包括二个部份

1. 名称部份：自己取名，可设定为AP 名称。

2. 资料部份：则是包含'全路径档案名称' 及'执行参数'

例如：

Value Name = Notepad

Value Data = c:\windows\notepad.exe

////////////////////////////////////////////////////////////////////////////////////

在TextBox 中如何限制只能输入数字？

参考下列程序：

Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii < 48 Or KeyAscii > 57 Then

KeyAscii = 0

End If

End Sub

////////////////////////////////////////////////////////////////////////////////////

我希望TextBox 中能不接受某些特定字符，例如'@#$%"，有没有简单一点的写法？

方法有好几种, 以下列举二种：

方法1: 可以使用IF 或Select Case 一个个判断, 但如果不接受的字符多时, 较麻烦!

方法2: 将要剔除的字符统统放在一个字串中，只要一个IF 判断即可!! 如下：

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim sTemplate As String

sTemplate = "!@#$%^&*()_+-=" '用来存放不接受的字符

If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then

KeyAscii = 0

End If

End Sub

////////////////////////////////////////////////////////////////////////////////////

如何让鼠标进入TextBox 时自动选定TextBox 中之整串文字？

这个自动选定反白整串文字的动作，会使得输入的资料完全取代之前在TextBox 中的所有字符。

Private Sub Text1_GotFocus()

Text1.SelStart = 0

Text1.SelLength = Len(Text1)

End Sub

////////////////////////////////////////////////////////////////////////////////////

如何检查软盘驱动器里是否有软盘？

使用：

Dim Flag As Boolean

Flag = Fun_FloppyDrive("A:")

If Flag = False Then MsgBox "A:驱没有准备好，请将磁盘插入驱动器！", vbCritical

'-------------------------------

'函数:检查软驱中是否有盘的存在

'-------------------------------

Private Function Fun_FloppyDrive(sDrive As String) As Boolean

On Error Resume Next

Fun_FloppyDrive = Dir(sDrive) <> ""

End Function

////////////////////////////////////////////////////////////////////////////////////

如何弹出和关闭光驱托盘？

Option Explicit

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()

mciExecute "set cdaudio door open" '弹出光驱

Label2.Caption = "弹出"

End Sub

Private Sub Command2_Click()

Label2.Caption = "关闭"

mciExecute "set cdaudio door closed" '合上光驱

Unload Me

End

End Sub

////////////////////////////////////////////////////////////////////////////////////

如何让你的程序在任务列表隐藏

Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long

'请你试试Ctrl+Alt+Del 是不是你的程序隐藏了