top
Loading...
VB編程技巧幾例
文本框內容的自動選擇。
在軟件安裝等一些場合需要將文本框中的內容自動選擇,比如選擇確省安裝路徑,在VB中可用如下的事件驅動代碼:
sub text1_getfocus()
text1.selstart=0 ’選擇起始位置
text1.sellength=65000 ’選擇長度
end sub
sellength接近文本框允許的最大長度(65535),這樣做是為了強迫VB使用文本的實際長度。

2 防止自身多次運行。
由于WINDOWS的多任務處理功能, 有些程序可能打開后忘記了,下次用時還可能再打開,這樣做會占用系統資源降低系統效率。為了防止自身被多次運行,可利用VB應用對象提供的PrevInstance屬性來檢測內存中是否已有一個自身的副本,若有則給出提示后結束。一般將檢測代碼放在FORM_LOAD()中,因為程序一運行就要檢測。
代碼如下:
sub form_load()
if App.PrevInstance then
msg$=App.exename & ”has already run”
msgbox msg$,48 ’給出程序已運行的提示和一驚嘆號以示警告
end
endif
end sub
3 格式化輸入。
在數據輸入過程中,有些數據要求一定的格式,比如限制輸入的只能為數字或英文字符,這可用VB的格式輸入文本框來實現。它與文本框(TEXT BOX)功能基本相似,但多了一個MASK屬性,MASK屬性常用的設定如下:
#—限定僅能輸入數字0~9;
A— 限定輸入為英文字符及數字;
?—限定僅能輸入英文字符;
.—限定小數點位置;
:—限定時間分隔號;
/—限定日期分隔號
不需編寫代碼,只要在設計時將格式化文本框對象(MASKED EDIT)的MASK屬性設計好所需格式即可。比如 ## - ## - ## 可輸入12-11-96。
4 用MSGBOX函數設計版權信息。
MsgBox函數可用來設計簡易的版權信息,它只能顯示文本,如果要求不高的話可采用它,優點是非常方便,比如在菜單ABOUT項中顯示版權信息。
MsgBox函數的用法如下:MsgBox msg [, [type][, title] ]
msg —需要顯示的文字信息,如版權信息。
type—按鈕顯示選擇項。
如 0 只顯示 OK按鈕(確省選擇),4 顯示 Yes 和 No 按鈕
title—標題文字信息。
MSGBOX最多能顯示1024個字符, 超出的將被截去;它可自動換行,如果你想強制換行的話需要在換行處加入換行符CHR(10)。
例子:
Sub Form_Click ()
Msg1 = ” Copyright (c) 1996” & Chr(10) & Ver
1.0 ” ’分兩行顯示
MsgBox Msg1, 0, ”Copyright demo” ’只顯示一個OK按鈕
End Sub
作者:http://www.zhujiangroad.com
來源:http://www.zhujiangroad.com
北斗有巢氏 有巢氏北斗