| 网站首页 | 文章中心 | 电子书下载 | 矢量图库 | 视频教程 | 素材下载 | 程序代码下载 | JS代码 | 论坛 | 
常用软件类：
 |杀毒安全 |联络聊天 |网络软件 |多媒体类 |系统工具 |图形图像 |系统工具 |应用软件 |行业软件
开发设计类：
 |动画制作 |图像处理 |3D设计 |操作系统 |站长学院 |网络相关 |WEB设计 |数据库类 |程序开发
Visual Basic编程常见问题
作者：佚名    文章来源：网络    点击数：    更新时间：2006-11-24
　 各位朋友大家好，如果你在论坛的时间够长，那么你会发现很多帖子的问题是相同的，既然这样，不如总结到一起让初学者来翻看，再热心的大虾也不愿意把一个答案重复几十遍。
　　若朋友您想要问如何才能学好vb，或者入门需要看什么教材一类的问题，建议你抱着一颗刻苦钻研的心去面对这门学问，多动脑，少提问，遇到不知道的，多查msdn，多看老贴，或者用断点来亲自试验。实在不会了，请在此贴中查找您的常见问题，如果还没有，那请您发出新贴，向各位高手讨教。

　　查找方法：按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 是不是你的程序隐藏了
Private Sub Command1_Click()
　i = RegisterServiceProcess(GetCurrentProcessId, 1)
End Sub

 

[1] [2] [3] [4] [5] [6] [7] 下一页


  • 上一篇文章：

  • 下一篇文章： 没有了
    • 相关文章