private Sub text 1 _ KeyPress(KeyAscii為整數)
如果KeyAscii = 13,則
KeyAscii = 0
如果…就會結束
末端接頭
2.當Textbox獲得焦點時,它會自動被選中。
私有子文本1_GotFocus()
Text1。SelStart = 0
Text1。SelLength = Len(Text1。正文)
末端接頭
3.防止程序重復運行
如果不希望應用程序因多次雙擊圖標而重復運行,導致內存不足或其他意外,可以在Form_Load中添加以下幾行代碼:
私有子窗體_Load()
If App。那就先在
MsgBox”程序正在運行,請檢查窗口是否最小化。
卸下我
如果…就會結束
末端接頭
這些語句行在表單加載時運行,以確定當前程序是否正在執行。如果正在執行,信息窗口彈出,同時程序退出。否則,繼續運行程序。
用運行按鈕試運行看不出這個程序的效果。保存並生成。EXE文件,然後從外部運行它。
4.讓程序啟動更快
VB應用程序加載時,會先執行壹個名為Form_Load的進程。如果這個過程中代碼太多,會拖慢程序的啟動過程。實際上,在Form_Load (): me.show的第壹行添加壹條語句
這個語句的作用是強制首先顯示表單,讓用戶感覺程序的啟動速度變快了。
5.使窗體全屏顯示。
在設計程序時,有時我們需要讓程序在啟動時全屏顯示。僅僅通過改變長度和寬度的長度?不能,因為有時候妳可以在自己的電腦上運行壹個正常的表單,但是在其他電腦上卻不能正常顯示。這種現象可能是因為妳設置的屏幕分辨率和其他用戶不壹樣造成的。
將下面的代碼添加到Form_Load事件中,以便您的窗體可以始終以當前屏幕分辨率全屏顯示。
私有子窗體_Load()
表單1。Top = 0
表單1。左= 0
表單1。寬度=屏幕。寬度
表單1。高度=屏幕。高度
末端接頭
}
6.啟動Windows時自動啟動程序。
除了修改註冊表HKEY _當前_用戶\軟件\微軟\ Windows \當前版本\運行,還可以這樣做:新建壹個文本框,
名稱為Text1,然後在程序中輸入以下代碼:
Text1。LinkTopic = "Progman|Progman "
Text1。LinkMode = 2 '手動
text 1 . link execute "[顯示組(4)]"
Text1.linkexecute "[add(可執行文件的完整路徑,)]"
假設妳想把“C:\Progman\1.exe”作為“啟動”資源。
文件夾程序(即啟動Windows時自動啟動的程序),然後是最後壹個
該行的LinkExecute應該如下所示:
Text1。link execute "[AddItem(C:\ Progman \ 1 . exe)]"
展示桌面
創建壹個名為CmdShowDesk的新命令按鈕,然後將以下代碼添加到程序中:
選項顯式
私有聲明函數ShellExecute Lib“shell32 . dll”別名“ShellExecuteA”
(ByVal hwnd為Long,ByVal lpOperation為String,ByVal lpFile為
字符串,字符串形式的ByVal lpParameters,字符串形式的ByVal lpDirectory,
ByVal nShowCmd壹樣長)壹樣長
Private Sub CmdShowDesk_Click()
Dim retVal壹樣長
Retval = shellexecute (me。hwnd,“打開”,“顯示桌面”。scf ","","",1)。
末端接頭
最小化程序中的所有窗口要方便得多。
8.如何獲取文件大小?
VB6提供了壹個新的對象模型,稱為FSO(文件系統對象)對象模型。有了它,我們可以輕松地處理磁盤、文件夾和文檔的壹些操作。
FSO對象模型包含幾個對象,其中壹個文件對象用於獲取有關文檔的信息。在本主題中,我們可以使用File對象!它的屬性之壹是Size,這意味著文檔的大小(以字節為單位)。(註1)
雖然可以使用File對象的Size屬性來獲取文件的大小,但它有以下兩個缺點:
1,只能用於VB6以後的版本。
2.它不是VB6的默認函數,它必須被Scrrun.dll引用!
以下兩種方法可以在所有VB版本(包括VB6)中使用,它們是VB的默認函數:
1,FileLen函數:返回壹個Long類型值,表示文件的長度,以字節為單位。
語法:FileLen(pathname)' pathname是完整路徑文件名。
適用:獲取未打開文件的長度(註2)
2.LOF函數:返回壹個Long類型的值,以字節為單位,代表open語句打開的文檔的大小。
語法:LOF(filenumber)' filenumber是壹個文件代碼。
適用:獲取打開的文檔的長度和大小。
註意1:File對象的Size屬性可以用來獲取壹個文件的大小,也可以獲取整個目錄的所有文件大小!
註2:使用FileLen函數時,如果指定的文件正在打開,返回值是文件打開前的大小。
9.如何檢查軟驅中是否有軟盤?
布爾型Dim標誌
Flag = Fun_FloppyDrive("A:")
如果Flag = False,則MsgBox "A:驅動器未準備好,請將磁盤插入驅動器!",VB臨界
-
功能:檢查軟驅中是否有磁盤。
-
Boolean形式的私有函數Fun_FloppyDrive(sDrive As String)
出錯時繼續下壹步
fun _ floppy drive = Dir(s drive)& lt;& gt""
結束功能
10.如何去掉表格右上方的“X”按鈕?
其實窗體右上方的三個按鈕對應的是窗體左上方的控件框中的幾個選項(縮小到最小/放到最大/關閉),MaxButton和Minbutton可以直接在窗體的屬性中設置,但是VB沒有提供設置“X”按鈕的功能!要實現此功能,您必須使用API:
因為“X”按鈕對應的是控制盒的關閉選項,我們只需要去掉系統菜單的關閉選項(也就是控制盒)!妳可以看看妳現在用的瀏覽器左上方的系統菜單,關閉選項在哪裏,不是第六個!是第七,分割線也是壹!分割線是第六條!
當我們刪除關閉選項時,會出現壹條奇怪的分隔線,所以最好也刪除分隔線。Menu的索引從0開始,分割線是第六個,所以Index = 5。
Fix:為了讓程序代碼在Windows NT下正常工作,把每個整數類型都改成Long。89.05.04
抓取系統菜單的hwnd
私有聲明函數GetSystemMenu Lib“user 32”別名“GetSystemMenu”(ByVal hwnd為Long,ByVal bRevert為Long)
刪除系統菜單的API
私有聲明函數RemoveMenu Lib "user32 "別名" RemoveMenu" (ByVal hMenu為Long,ByVal nPosition為Long,ByVal wFlags為Long)為Long
第壹個參數是系統菜單的hwnd。
第二個參數是要刪除的選項的索引。