VB常见问题及解决Word文件下载.docx
《VB常见问题及解决Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB常见问题及解决Word文件下载.docx（20页珍藏版）》请在冰豆网上搜索。
ValueName=Notepad
ValueData=c:
\windows\notepad.exe
在TextBox中如何限制只能输入数字？
参考下列程序：
SubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii<
48OrKeyAscii>
57Then
KeyAscii=0
EndIf
我希望TextBox中能不接受某些特定字符，例如’@#$%"
，有没有简单一点的写法？
方法有好几种,以下列举二种：
可以使用IF或SelectCase一个个判断,但如果不接受的字符多时,较麻烦!
将要剔除的字符统统放在一个字串中，只要一个IF判断即可!
!
如下：
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
DimsTemplateAsString
sTemplate="
@#$%^&
*（）_+-="
’用来存放不接受的字符
IfInStr（1,sTemplate,Chr（KeyAscii））>
0Then
如何让鼠标进入TextBox时自动选定TextBox中之整串文字？
这个自动选定反白整串文字的动作，会使得输入的资料完全取代之前在TextBox中的所有字符。
PrivateSubText1_GotFocus（）
Text1.SelStart=0
Text1.SelLength=Len（Text1）
如何检查软盘驱动器里是否有软盘？
使用：
DimFlagAsBoolean
Flag=Fun_FloppyDrive（"
A:
IfFlag=FalseThenMsgBox"
驱没有准备好，请将磁盘插入驱动器！
vbCritical
’-------------------------------
’函数:
检查软驱中是否有盘的存在
PrivateFunctionFun_FloppyDrive（sDriveAsString）AsBoolean
OnErrorResumeNext
Fun_FloppyDrive=Dir（sDrive）<
>
"
EndFunction
如何弹出和关闭光驱托盘？
OptionExplicit
PrivateDeclareFunctionmciSendStringLib"
winmm.dll"
Alias"
mciSendStringA"
（ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong）AsLong
PrivateSubCommand1_Click（）
mciExecute"
setcdaudiodooropen"
’弹出光驱
Label2.Caption="
弹出"
PrivateSubCommand2_Click（）
关闭"
setcdaudiodoorclosed"
’合上光驱
UnloadMe
End
如何让你的程序在任务列表隐藏
PrivateDeclareFunctionRegisterServiceProcessLib"
kernel32"
（ByValProcessIDAsLong,ByValServiceFlagsAsLong）AsLong
PrivateDeclareFunctionGetCurrentProcessIdLib"
（）AsLong
’请你试试Ctrl+Alt+Del是不是你的程序隐藏了
i=RegisterServiceProcess（GetCurrentProcessId,1）
如何用程序控制滑鼠游标（MouseCursor）到指定位置？
以下这个例子，当User在Text1中按下’Enter’键后，滑鼠游标会自动移到Command2按钮上方
请在声明区中加入以下声明：
’16位版本：
（Sub无传回值）
DeclareSubSetCursorPosLib"
User"
（ByValXAsInteger,ByValYAsInteger）
’32位版本：
（Function有传回值，Integer改成Long）
DeclareFunctionSetCursorPosLib"
user32"
（ByValxAsLong,ByValyAsLong）AsLong
’在Form1中加入以下程序码：
IfKeyAscii=13Then
x%=（Form1.Left+Command2.Left+Command2.Width/2+60）/Screen.TwipsPerPixelX
y%=（Form1.Top+Command2.Top+Command2.Height/2+360）/Screen.TwipsPerPixelY
SetCursorPosx%,y%
如何用鼠标移动没有标题的Form，或移动Form中的控制项？
在声明区中放入以下声明：
（Sub无返回值）
PrivateDeclareSubReleaseCaptureLib"
（）
PrivateDeclareSubSendMessageLib"
（ByValhwndAsInteger,ByValwMsgAsInteger,ByValwParamAsInteger,lParamAsLong）
（Function有返回值，Integer改成Long）
PrivateDeclareFunctionReleaseCaptureLib"
PrivateDeclareFunctionSendMessageLib"
SendMessageA"
（ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny）AsLong
’共用常数：
ConstWM_SYSCOMMAND=&
H112
ConstSC_MOVE=&
HF012
’若要移动Form，程序码如下：
PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
DimiAsLong
i=ReleaseCapture
i=SendMessage（Form1.hwnd,WM_SYSCOMMAND,SC_MOVE,0）
’以上功能也适用于用鼠标在Form中移动控制项，程序码如下：
PrivateSubCommand1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
i=SendMessage（Command1.hwnd,WM_SYSCOMMAND,SC_MOVE,0）
检查文件是否存在？
FunctionFileExists（filenameAsString）AsInteger
DimiAsInteger
OnErrorResumeNext
i=Len（Dir$（filename））
IfErrOri=0ThenFileExists=FalseElseFileExists=True
如何设置对VB数据库连接的动态路径
我个人因为经常作一些数据库方面的程序，对于程序间如何与数据库进行接口的问题之烦是深有体会，因为VB在数据库链接的时候，一般是静态，即数据库存放的路径是固定的，如用VB的DATA，adodc,DataEnvironment等到作数据库链接时，如果存放数据库的路径被改变的话，就会找不到路经，真是一个特别烦的事。
笔者的解决方法是利用app.path来解决这个问题。
一、用data控件进行数据库链接，可以这样：
在form_load（）过程中放入：
privateform_load（）
DimstrAsString’定义
str=App.Path
IfRight（str,1）<
\"
Then
str=str+"
EndIf
data1.databasename=str&
\数据库名"
data1.recordsource="
数据表名"
data1.refresh
subend
这几句话的意为，打开当前程序运行的目录下的数据库，你只要保证你的数据库在你程序所在的目录之下就行了。
二、利用adodc（ADODataControl）进行数据库链接：
privateform_load（）
str="
Provider=Microsoft.Jet.OLEDB.3.51;
PersistSecurityInfo=False;
DataSource="
&
str&
\tsl.mdb"
Adodc1.ConnectionString=str
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="
select*fromtable3"
Adodc1.Refresh
endsub
三、利用DataEnvironment进行数据库链接
可在过程中放入：
IfDataEnvironment1.rsCommand1.State<
adStateClosedThen
DataEnvironment1.rsCommand1.Close’如果打开，则关闭
’i=InputBox（"
请输入友人编号:
输入"
’Ifi="
ThenExitSub
DataEnvironment1.Connection1.OpenApp.Path&
\userdatabase\tsl.mdb"
DataEnvironment1.rsCommand1.Open"
select*fromtable3where编号=’"
i&
’"
’SetDataReport2.DataSource=DataEnvironment1
’DataReport2.DataMember="
command1"
’DataReport2.show
四、利用ADO（ActiveXDataObjects）进行编程：
建立连接：
dimconnasnewadodb.connection
dimrsasnewadodb.recordset
dimstr
conn.openstr
rs.cursorlocation=aduseclient
rs.open"
conn,adopenkeyset.adlockpessimistic
用完之后关闭数据库：
conn.close
setconn=nothing
如何让用户自行输入方程式，并计算其结果？
假设我们要让使用者在“方程式”栏位中自由输入方程式，然后利用方程式进行计算，则引用ScriptControl控件可以很方便地做到。
（ScriptControl控件附属于VB6.0，如果安装后没有看到此一控件，可在光盘的\Common\Tools\VB\Script目录底下找此一控件，其.文件名为Msscript.ocx。
）假设放在窗体上的ScriptControl控件名称为ScriptControl1，则在“计算”按钮的Click事件中编写如下代码：
DimStatementAsStringStatement="
X="
+Text1.Text+vbCrLf+_"
Y="
+Text2.Text+vbCrLf+_"
MsgBox"
计算结果="
Y"
ScriptControl1.ExecuteStatement（Statement
如何让一个App永远保持在最上层（AlwaysonTop）
请在声明区中加入以下声明
PrivateDeclareFunctionSetWindowPosLib"
（ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong）AsLong
ConstSWP_NOMOVE=&
H2’不更动目前视窗位置
ConstSWP_NOSIZE=&
H1’不更动目前视窗大小
ConstHWND_TOPMOST=-1’设定为最上层
ConstHWND_NOTOPMOST=-2’取消最上层设定
ConstFLAGS=SWP_NOMOVEOrSWP_NOSIZE
’将APP视窗设定成永远保持在最上层
SetWindowPosMe.hwnd,HWND_TOPMOST,0,0,0,0,FLAGS
’取消最上层设定
SetWindowPosMe.hwnd,HWND_NOTOPMOST,0,0,0,0,FLAGS
我要如何在程序中开启网页？
在声明区中声明如下（在.bas档中用Public,在Form中用Private）
PrivateDeclareFunctionShellExecuteLib"
shell32.dll"
ShellExecuteA"
（ByValhWndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong）AsLong
在程序中
Intranet：
ShellExecuteMe.hWnd,"
open"
http:
//Intranet主机/目录"
5
Internet：
.tw"
如何把小图片填满MDIForm成为背景图？
以下这个范例，要：
1、一个MDIForm：
不必设定任何属性。
2、一个Form1：
不一定是MDIChild，最好MDIChild为False，但是AutoRedraw设成True。
3、Form1上面放一个隐藏的PictureBox：
名称为Picture1，不必设定Picture属性。
4、一张图片的完整路径。
’将以下模组放入MDIForm的声明区中：
SubTileMDIBkgd（MDIFormAsForm,bkgdtilerAsForm,bkgdfileAsString）
Ifbkgdfile="
DimScWidth%,ScHeight%
ScWidth%=Screen.Width/Screen.TwipsPerPixelX
ScHeight%=Screen.Height/Screen.TwipsPerPixelY
Loadbkgdtiler
bkgdtiler.Height=Screen.Height
bkgdtiler.Width=Screen.Width
bkgdtiler.ScaleMode=3
bkgdtiler!
Picture1.Top=0
Picture1.Left=0
Picture1.Picture=LoadPicture（bkgdfile）
Picture1.ScaleMode=3
Forn%=0ToScHeight%Stepbkgdtiler!
Picture1.ScaleHeight
Foro%=0ToScWidth%Stepbkgdtiler!
Picture1.ScaleWidth
bkgdtiler.PaintPicturebkgdtiler!
Picture1.Picture,o%,n%
Nexto%
Nextn%
MDIForm.Picture=bkgdtiler.Image
Unloadbkgdtiler
以下为一应用实例：
PrivateSubMDIForm_Load（）
TileMDIBkgdMe,Form1,"
\windows\Tiles.bmp"
关闭指定的程序
要做到像TaskManager一样，可以关闭指定的程序，方法如下：
（16位 改成win31API）
DeclareFunctionFindWindowLib"
FindWindowA"
（ByVallpClassNameAsString,ByVallpWindowNameAsString）AsLong
DeclareFunctionPostMessageLib"
PostMessageA"
PublicConstWM_CLOSE=&
H10
以下之范例示范如何关闭一个视窗标题（Caption）为【小算盘】的程序：
DimwinHwndAsLong
DimRetValAsLong
winHwnd=FindWindow（vbNullString,"
小算盘"
Debug.PrintwinHwnd
IfwinHwnd<
RetVal=PostMessage（winHwnd,WM_CLOSE,0&
0&
IfRetVal=0Then
MsgBox"
Errorpostingmessage."
Else
MsgBox"
并未开启小算盘程序."
如何隐藏及再显示鼠标
很简单，只用到了一个ShowCursorAPI，参数也很简单，只有一个bShow，设定值如下：
True：
显示鼠标/False：
隐藏鼠标
DeclareFunctionShowCursorLib
升级会员 