VB常见问题及解决Word文件下载.docx

1、Value Name = NotepadValue Data = c:windowsnotepad.exe在 TextBox 中如何限制只能输入数字？参考下列程序：Sub Text1_KeyPress（KeyAscii As Integer）If KeyAscii 57 ThenKeyAscii = 0End If我希望 TextBox 中能不接受某些特定字符，例如 #$%，有没有简单一点的写法？方法有好几种, 以下列举二种： 可以使用 IF 或 Select Case 一个个判断, 但如果不接受的字符多时, 较麻烦! 将要剔除的字符统统放在一个字串中，只要一个 IF 判断即可 ! 如下：Pr

2、ivate Sub Text1_KeyPress（KeyAscii As Integer）Dim sTemplate As StringsTemplate = #$%&*（）_+-= 用来存放不接受的字符If InStr（1, sTemplate, Chr（KeyAscii） 0 Then如何让鼠标进入 TextBox 时自动选定 TextBox 中之整串文字？这个自动选定反白整串文字的动作，会使得输入的资料完全取代之前在 TextBox 中的所有字符。Private Sub Text1_GotFocus（）Text1.SelStart = 0Text1.SelLength = Len（Tex

3、t1）如何检查软盘驱动器里是否有软盘？使用：Dim Flag As BooleanFlag = Fun_FloppyDrive（A:If Flag = False Then MsgBox 驱没有准备好，请将磁盘插入驱动器！, vbCritical-函数:检查软驱中是否有盘的存在Private Function Fun_FloppyDrive（sDrive As String） As BooleanOn Error Resume NextFun_FloppyDrive = Dir（sDrive） End Function如何弹出和关闭光驱托盘？Option ExplicitPrivate Dec

4、lare Function mciSendString Lib winmm.dll Alias mciSendStringA （ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long） As LongPrivate Sub Command1_Click（）mciExecute set cdaudio door open 弹出光驱Label2.Caption = 弹 出Private Sub Command2_C

5、lick（）关 闭set cdaudio door closed 合上光驱Unload MeEnd如何让你的程序在任务列表隐藏 Private Declare Function RegisterServiceProcess Lib kernel32 （ByVal ProcessID As Long, ByVal ServiceFlags As Long） As LongPrivate Declare Function GetCurrentProcessId Lib （） As Long请你试试 Ctrl+Alt+Del 是不是你的程序隐藏了i = RegisterServiceProcess（

6、GetCurrentProcessId, 1）如何用程序控制滑鼠游标 （Mouse Cursor） 到指定位置？以下这个例子，当 User 在 Text1 中按下 Enter 键后，滑鼠游标会自动移到 Command2 按钮上方 请在声明区中加入以下声明：16 位版本： （ Sub 无传回值 ）Declare Sub SetCursorPos Lib User （ByVal X As Integer, ByVal Y As Integer）32 位版本： （ Function 有传回值，Integer 改成 Long ）Declare Function SetCursorPos Lib use

7、r32 （ByVal x As Long, ByVal y As Long） As Long在 Form1 中加入以下程序码：If KeyAscii = 13 Thenx% = （Form1.Left + Command2.Left + Command2.Width / 2 + 60） / Screen.TwipsPerPixelXy% = （Form1.Top + Command2.Top + Command2.Height / 2 + 360） / Screen.TwipsPerPixelYSetCursorPos x%, y%如何用鼠标移动没有标题的 Form，或移动 Form 中的控制

8、项？在声明区中放入以下声明： （ Sub 无返回值 ）Private Declare Sub ReleaseCapture Lib （）Private Declare Sub SendMessage Lib （ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Long） （ Function 有返回值，Integer 改成 Long ）Private Declare Function ReleaseCapture Lib Private Declare Function SendMe

9、ssage Lib SendMessageA （ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any） As Long共用常数：Const WM_SYSCOMMAND = &H112Const SC_MOVE = &HF012若要移动 Form，程序码如下：Private Sub Form_MouseDown（Button As Integer, Shift As Integer, X As Single, Y As Single）Dim i As Longi = ReleaseCapturei

10、= SendMessage（Form1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0）以上功能也适用于用鼠标在 Form 中移动控制项，程序码如下：Private Sub Command1_MouseDown（Button As Integer, Shift As Integer, X As Single, Y As Single）i = SendMessage（Command1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0）检查文件是否存在？Function FileExists（filename As String） As IntegerDim i As

11、 IntegerOn Error Resume Nexti = Len（Dir$（filename）If Err Or i = 0 Then FileExists = False Else FileExists = True如何设置对VB数据库连接的动态路径我个人因为经常作一些数据库方面的程序，对于程序间如何与数据库进行接口的问题之烦是深有体会，因为VB在数据库链接的时候，一般是静态，即数据库存放的路径是固定的，如用VB的DATA，adodc,DataEnvironment 等到作数据库链接时，如果存放数据库的路径被改变的话，就会找不到路经，真是一个特别烦的事。笔者的解决方法是利用app.pa

12、th 来解决这个问题。一、用data控件进行数据库链接，可以这样：在form_load（）过程中放入：private form_load（）Dim str As String 定义str = App.PathIf Right（str, 1） Thenstr = str + End Ifdata1.databasename=str &数据库名data1.recordsource=数据表名data1.refreshsub end这几句话的意为，打开当前程序运行的目录下的数据库，你只要保证你的数据库在你程序所在的目录之下就行了。二、利用adodc（ADO Data Control）进行数据库链接：p

13、rivate form_load （）str = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= & str &tsl.mdbAdodc1.ConnectionString = strAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from table3Adodc1.Refreshend sub三、利用DataEnvironment进行数据库链接可在过程中放入：If DataEnvironment1.rsCommand1

14、.State adStateClosed ThenDataEnvironment1.rsCommand1.Close 如果打开，则关闭i = InputBox（请输入友人编号:输入If i = Then Exit SubDataEnvironment1.Connection1.Open App.Path &userdatabasetsl.mdbDataEnvironment1.rsCommand1.Open select * from table3 where 编号= i &Set DataReport2.DataSource = DataEnvironment1DataReport2.Dat

15、aMember = command1DataReport2.show四、利用ADO（ActiveX Data Objects）进行编程：建立连接：dim conn as new adodb.connectiondim rs as new adodb.recordsetdim strconn.open strrs.cursorlocation=aduseclientrs.open ,conn,adopenkeyset.adlockpessimistic用完之后关闭数据库：conn.closeset conn=nothing如何让用户自行输入方程式，并计算其结果？假设我们要让使用者在“方程式”栏位

16、中自由输入方程式，然后利用方程式进行计算，则引用ScriptControl控件可以很方便地做到。（ ScriptControl 控件附属于VB 6.0，如果安装后没有看到此一控件，可在光盘的 CommonToolsVBScript 目录底下找此一控件， 其.文件名为Msscript.ocx。） 假设放在窗体上的ScriptControl控件名称为ScriptControl1，则在“计算”按钮的Click事件中编写如下代码：Dim Statement As String Statement = X= + Text1.Text + vbCrLf + _ Y= + Text2.Text + vbCr

17、Lf + _ MsgBox 计算结果= Y ScriptControl1.ExecuteStatement（ Statement如何让一个 App 永远保持在最上层 （ Always on Top ）请在声明区中加入以下声明Private Declare Function SetWindowPos Lib （ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long） As

18、 LongConst SWP_NOMOVE = &H2 不更动目前视窗位置Const SWP_NOSIZE = &H1 不更动目前视窗大小 Const HWND_TOPMOST = -1 设定为最上层Const HWND_NOTOPMOST = -2 取消最上层设定Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE将 APP 视窗设定成永远保持在最上层SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS取消最上层设定SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0,

19、FLAGS我要如何在程序中开启网页？在声明区中声明如下 （在 .bas 档中用 Public, 在 Form 中用 Private）Private Declare Function ShellExecute Lib shell32.dllShellExecuteA （ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long） As Long在程序

20、中Intranet：ShellExecute Me.hWnd, openhttp:/Intranet主机/目录, 5Internet：.tw如何把小图片填满 MDIForm 成为背景图？以下这个范例，要：1、一个 MDIForm：不必设定任何属性。2、一个 Form1：不一定是 MDIChild，最好 MDIChild 为 False，但是 AutoRedraw 设成 True。3、Form1 上面放一个隐藏的 PictureBox：名称为 Picture1，不必设定 Picture 属性。4、一张图片的完整路径。将以下模组放入 MDIForm 的声明区中：Sub TileMDIBkgd（MD

21、IForm As Form, bkgdtiler As Form, bkgdfile As String）If bkgdfile = Dim ScWidth%, ScHeight%ScWidth% = Screen.Width / Screen.TwipsPerPixelXScHeight% = Screen.Height / Screen.TwipsPerPixelYLoad bkgdtilerbkgdtiler.Height = Screen.Heightbkgdtiler.Width = Screen.Widthbkgdtiler.ScaleMode = 3bkgdtiler!Pictu

22、re1.Top = 0Picture1.Left = 0Picture1.Picture = LoadPicture（bkgdfile）Picture1.ScaleMode = 3For n% = 0 To ScHeight% Step bkgdtiler!Picture1.ScaleHeightFor o% = 0 To ScWidth% Step bkgdtiler!Picture1.ScaleWidthbkgdtiler.PaintPicture bkgdtiler!Picture1.Picture, o%, n%Next o%Next n%MDIForm.Picture = bkgdt

23、iler.ImageUnload bkgdtiler以下为一应用实例：Private Sub MDIForm_Load（）TileMDIBkgd Me, Form1, windowsTiles.bmp关闭指定的程序要做到像 Task Manager 一样，可以关闭指定的程序，方法如下：（16位改成 win31 API）Declare Function FindWindow Lib FindWindowA （ByVal lpClassName As String, ByVal lpWindowName As String） As LongDeclare Function PostMessage

24、Lib PostMessageAPublic Const WM_CLOSE = &H10以下之范例示范如何关闭一个视窗标题 （Caption） 为 【小算盘】的程序：Dim winHwnd As LongDim RetVal As LongwinHwnd = FindWindow（vbNullString, 小算盘Debug.Print winHwndIf winHwnd RetVal = PostMessage（winHwnd, WM_CLOSE, 0&, 0&If RetVal = 0 ThenMsgBox Error posting message.ElseMsgBox 并未开启小算盘程序.如何隐藏及再显示鼠标很简单，只用到了一个 ShowCursor API，参数也很简单，只有一个 bShow，设定值如下：True：显示鼠标 / False：隐藏鼠标Declare Function ShowCursor Lib