Visual Basic编程常见问题及解答

1 2 3 4 5 6 7 下一页

　　各位朋友大家好，如果你在论坛的时间够长，那么你会发现很多帖子的问题是相同的，既然这样，不如总结到一起让初学者来翻看，再热心的大虾也不愿意把一个答案重复几十遍。
　　若朋友您想要问如何才能学好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

上一篇： 读取文件内容的简洁方法
下一篇： 使用ObjPtr检测2个对象变量是否指向同一对象

1 2 3 4 5 6 7 下一页

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有