?? 050203.htm
字號:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>vb study</title>
<style>
<!--
td {font-size: 9pt}
A:link {text-decoration: none; color: #0033cc;font-size: 9pt}
A:visited {text-decoration: none; color: #0066CC;font-size: 9pt}
A:active {text-decoration: none; color: #ff0000; font-size: 9pt}
A:hover {text-decoration: underline; color: #000000;font-size: 9pt}
-->
</style>
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="98%">
<tr>
<td width="100%"><a href="#">你的位置</a>：<a href="http://www.xxby.com" target="_blank">華生小屋</a>--<a href="#">VB學習</a>--<a href="#">代碼</a></td>
</tr>
<tr>
<td width="100%">
<p align="center">代碼</td>
</tr>
<tr>
<td width="100%"><br>
★ 用VB在硬盤上創建一個文件夾：Mkdir語句。格式： <br>
Mkdir "路徑及文件夾名" <br>
mkdir "c:\windows\desktop\李新寧" 在桌面上創建個名為"李新寧"的文件夾 <br>
又如： Private Sub Command2_Click() <br>
MkDir "c:\windows\desktop\mydir" <br>
End Sub <br>
如果缺省路徑，則為本VB程序的當前路徑，如：mkdir "mydir",在當前目錄下創建一個文件夾，名為mydir. <br>
用VB刪除一個文件夾（空文件夾）：RmDir語句，格式： <br>
rmdir "路徑及文件夾名" <br>
用法與上面類似，此不再說明.如果一個文件夾內有文件，那么，要先用KILL語句刪除文件，再用rmdir刪除文件夾。格式： <br>
kill "路徑及文件名" <br>
在路徑及文件名中，省略路徑則指當前路徑，并可用通配符"*"和"？"來刪除多個文件，如：kill "*.txt" ，將當前目錄下的所有文本文件全部刪除。注意：KILL語句刪除的文件不會放入回收站。 <br>
在調用函數或過程時，該函數或過程如果作為表達式，則其實參要括號，如果調用時是作為語句，實參則不要括號。下面兩句是等價的。 <br>
SetWindowTextA Form1.hwnd, "API函數修改標題欄文字" --函數語句 <br>
Call SetWindowTextA(Form1.hwnd, "API函數修改標題欄文字") --函數為表達式 <br>
API調用格式中的 lib"庫名" 有一點要注意，如果不是調用Windows\system文件夾下的DLL庫，則要指明路徑名，如： <br>
public declare function lxnsdll lib "d:\student\mydll.dll"(byval a as integer,byval b as integer) as long <br>
在程序中窗體的運行位置是用一個叫做"窗體布局"的窗口來調整的，可否用另外的替代法，而不用這個不精確的"窗體布局"窗口呢？ <br>
當然可以，那就是在代碼中，例如要使窗體居于顯示器中央，有兩個新屬性變量，screen.width和screen.height，分別表示本顯示器的屏幕寬度（screen.width)和顯示器高度（screen.height).用屏幕寬度減去窗體FORM1寬度再除以2，就可得到FORM的left左邊距了（也就是橫坐標吧），用屏幕高度減FORM1高度再除以2。就可得到FORM的top上邊距了（縱坐標），這樣便可居中，如下： <br>
Form1.Left = (Screen.Width - Form1.Width) / 2 <br>
Form1.Top = (Screen.Height - Form1.Height) / 2 <br>
VB基本概念：對象--對象是具有某些特性的具體事物的抽象。 <br>
我在使用VB時遇到一個問題，我想用一個組框（frame1)將幾個按紐括在一起，可是當組框畫上去后卻會把按紐都覆蓋掉。按紐不見了（在frame1圖層下面），怎么辦？什么辦法可以決定幾個對象重合時，哪個在上，哪個在下？辦法如下：1，選中要改變圖層前后的對象；2，在"格式"菜單中"順序"菜單項中選"置前"（在上面）或"置后"（在下面）即可。另外，在代碼中也可以，用zorder方法，格式： <br>
對象名.zorder 0或1（0為置前，1為置后） <br>
frame1.zorder 1 <br>
重點筆記： 事件 <br>
在WINDOWS中最主要的事件就是鼠標事件，特別是其中的click單擊事件，此外還有dblclick事件：雙擊事件，用法與click一樣。 <br>
mousedown事件：鼠標按下時發生，有一個值得注意的參數button，它返回按下鼠標左鍵還是鼠標右鍵，采用if button=vbleftbutton...代碼來寫。 <br>
mouseup事件：鼠標先按下然后抬起時發生，用法與mousedown一樣。 <br>
mousemove事件：鼠標經過時發生。 <br>
第二類的事件就是鍵盤事件，這類事件的掌握要加強。一個控件得到焦點后，就可以觸發這一類事件，有以下幾種： <br>
keydown事件：按下鍵盤上某個鍵時發生。但鍵盤上鍵那么多，需要用它返回的keycode參數來指明按了哪個鍵，例下： <br>
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) <br>
If KeyCode = vbKeyB Then <br>
Print "你按下了字母B" <br>
ElseIf KeyCode = vbKeyF1 Then <br>
Print "你按下了F1鍵" <br>
End If <br>
End Sub <br>
注：在keycode參數中，主鍵盤上的數字鍵和數字小鍵盤上的數字鍵是不同的，主鍵盤上用vbkey0-vbkey9表示，而小鍵盤上的鍵用vbkeyNumpad0-vbkeyNumpad9來表示。 <br>
keyup事件：松開按鍵時發生，與keydown事件用法一樣。 <br>
keypress事件：按下某個鍵接著松開這個鍵時發生。注意，它的參數與keydown及keyup不同，它是采用字符ASCII碼的方式，即用一個叫Keyascii的參數名，可以區分大小寫，但有些功能鍵不能用。 <br>
if keyascii=0到255的一個整數 then ...來寫，例如： <br>
Private Sub Form_KeyPress(KeyAscii As Integer) <br>
If KeyAscii = 120 Then '120是小寫字母x的ASCII碼值 <br>
Unload Me <br>
ElseIf KeyAscii < 48 Or KeyAscii > 57 Then '數字鍵的ASCII碼在這個范圍內 <br>
MsgBox ("你輸入的不是數字"), 48 <br>
End If <br>
End Sub <br>
其他重要的事件有： <br>
change事件：當對象的內容改變時發生。 <br>
gotfocus事件：當焦點從一個對象移動到當前對象時，當前對象發生gotfocus事件。 <br>
lostfocus事件：當焦點從當前對象移出時，當前對象會發生lostfocus事件。 <br>
★ keydown事件和keypress事件有什么實際運用上的差別？keydown多常用于功能鍵（如F1），需要shift,ctrl,Alt+字符鍵的"組合鍵"，區分數字小鍵盤和常規數字鍵等keypress所不能的情況，keypress以ASCII碼來區分按鍵，側重"鍵的內容"，而keydown和keyup側重"鍵的位置"。 <br>
我想在文本框中限制只能輸入數字，怎么辦最方便？可用keypress事件，如下： <br>
Private Sub Text1_KeyPress(KeyAscii As Integer) <br>
If KeyAscii < 48 Or KeyAscii > 57 Then <br>
KeyAscii = 0 等于0表示沒按鍵，它在text1對象text屬性接入字符前產生，因 <br>
Beep 此可限制輸入。 <br>
End If <br>
End Sub <br>
<br>
集合(collection)：用來存儲類似數組的一組同類變量，它與數組不同的是，集合是一種對象，它不僅可通過索引值來訪問其中的元素，還可通過關健字來訪問其中元素。聲明格式： <br>
DIM（或PUBLIC） 集合名 as new collection <br>
dim lxn as new collection <br>
既然集合是一個對象，就用方法和屬性去操作它，有三個方法和一個屬性： <br>
ADD方法：添加元素到集合對象中；格式： <br>
集合名.add 元素內容，關健字，添加到…前，添加到…后（添加位置） <br>
lxn.add 23,"李新寧", ,"李冬冬" <br>
上例表示在集合中"李冬冬"關健字所對應元素后面添加"李新寧"為關健字的元素23（我是想表示年紀）。 <br>
REMOVE方法：刪除一個元素； <br>
集合名.remove "關健字或索引位置" <br>
lxn.remove "李新寧" 或 lxn.remove 5 (如果元素"23"的索引號為5） <br>
索引值是VB自動給每個集合元素添加的，從第1個元素索引號為1開始。 <br>
ITEM方法：引用集合對象中的元素，可省略,格式： 集合名.item（關健字） <br>
省略為：集合名（關健字或索引位置） <br>
x=lxn("李新寧") x就等于23。 <br>
也可用索引位置，如 x=lxn(5)（如果"李新寧"所對元素的索引為5），索引位置（其實就是下標）最小從1開始。 <br>
COUNT屬性：返回集合中的元素個數。格式：集合名.count.如y=lxn.count,y就等于集合中元素個數。 <br>
自定義過程：Private(或public,static) sub 過程名（形參） <br>
…… <br>
end sub <br>
調用：Call 過程名（實參） 或 過程名 實參 <br>
自定義函數：private(或public,static) function 函數名（形參）as 類型 <br>
…… <br>
函數名=值 <br>
end function <br>
調用：函數名（實參） 為一個確定值， <br>
上面函數與過程區別是：函數一定有返回值，所以定義時要指明（返回值）類型，并在函數過程中設定"函數名=值"來確定返回值。調用函數時如果也用CALL，則函數的返回值就失去意義（這樣合是合法）。 <br>
★ 基本的類操作：類形象理解為"控件"即可，創建一個類，也就是自已創建一個象工具箱中控件那樣的"新"控件。自己設置添加它的屬性，方法。只不過自己發明的新控件沒有圖標，所有屬性，方法，事件只能在代碼中進行而已。 <br>
類是用來創建對象實例的模板。 <br>
1，在"工程"菜單中選"添加類模塊"。在屬性窗口修改它的"（名稱）"屬性為想要的名字，這個名字將作為這個類（為好理解，叫成"新控件"）的名字。 <br>
2，制作新控件屬性：在類模塊中通用部分（此時全都是）用Public聲明一群變量，要指明具體類型，這些所有變量就成了新控件的屬性。就這么簡單。 <br>
3，制作新控件方法：在類模塊中建立新過程（用public sub...end sub或public function...end function),這些過程名將作為新控件的方法名。在過程里編寫新控件功能的代碼。 <br>
4，編寫類模塊事件，類模塊事件只有initialize和terminate兩種。當我們在程序中用"新控件"創建一個對象時，在剛剛創建一剎那，觸發這里的initialize事件，這個事件可處理對象實例創建時需要處理的初始化。 <br>
新控件的運用：如何使用自己新做的"控件"呢？因為它沒有在工具箱中的圖標，不可直按"畫"到窗體上，而要完全在代碼中進行。 <br>
1，在通用部分聲明一個對象變量，使它指向"新控件"。如Dim lxn As class1 <br>
class1是我自定的"新控件"名。注意：此時只是聲明變量lxn為對象變量，但并沒有具體代表哪個對象，要用SET語句來確定對象變量的值。用set…new…新建類模塊對象。 <br>
2，在FORM LOAD事件中創建一個"新控件"的對象，用SET…NEW語句， <br>
set 對象變量=new 新控件 <br>
set lxn=new class1 <br>
這時，對象變量名就成了創建的對象的名字（注：沒有NEW是普通的賦值，有NEW就是新建對象）。 <br>
3，進行對象可進行的各種操作。如：lxn.condition=true <br>
下面是自制一個"跑表"控件的例子。 <br>
A ，類模塊中： <br>
Option Explicit <br>
Public timectl As Date '這三個變量作為"跑表"類的屬性 <br>
Public condition As Boolean 'timectl為時間長度，condition為計時/停止狀態 <br>
Public starttime As Date 'starttime為基準時間 <br>
Public Sub start() '開始計時方法 <br>
condition = True <br>
starttime = Time starttime賦值為系統時鐘的當前時間 <br>
End Sub <br>
Public Sub stoptime() '停止計時方法 <br>
Dim lxn As Date <br>
condition = False <br>
lxn = Time - starttime 時間差 <br>
timectl = timectl + lxn 進行多次調用該過程時累積時間長度 <br>
End Sub <br>
Public Sub reset() '清0方法 <br>
condition = False <br>
timectl = 0 <br>
starttime = Time <br>
End Sub <br>
<br>
Private Sub Class_Initialize() 供新建實例時初始化 <br>
starttime = Time <br>
timectl = Time - starttime <br>
condition = False <br>
End Sub <br>
B，程序中： <br>
Dim mywatch As myclass 聲明對象變量將指向myclass創建的實例 <br>
<br>
Private Sub Command1_Click() <br>
Set mywatch = New myclass 重新新建 <br>
Text1.Text = mywatch.timectl <br>
<br>
End Sub <br>
<br>
Private Sub Command2_Click() <br>
Select Case mywatch.condition <br>
Case False <br>
mywatch.start <br>
Text1.Text = "on......" <br>
Case True <br>
mywatch.stoptime <br>
Text1.Text = mywatch.timectl <br>
End Select <br>
End Sub <br>
<br>
Private Sub Form_Load() <br>
Set mywatch = New myclass 新建對象 <br>
Text1.Text = mywatch.timectl <br>
End Sub <br>
★ 程序中的APP對象，它主要提供如本程序的標題，版本信息，路徑等有時很必要的信息，常用屬性有： <br>
App.Title:返回本程序的標題。 <br>
App.Path:返回本程序所在的路徑。與curdir不完全相同，curdir是指當前路徑。如果1個程序創建了快捷方式，則App.path和curdir就可能不同了。應以App.path為準。 <br>
App.EXEname:返回本程序不含擴展名的根名 <br>
如何在VB中控制關機？除了以前講到的exitwindowsex函數外，還有一種更簡單的方法，只要在你需要的地方，比如按扭等等，在事件過程中加入 <br>
Shell "rundll32.exe user.exe,exitwindows" 就可以了。對WIN2000無效！ <br>
在VB中可打開控制面板，由用戶進行設置，打開主面板：在事件過程中寫 <br>
x = Shell("rundll32.exe shell32.dll,Control_RunDLL"，1) <br>
也可打開各個具體項目，如 <br>
x = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl", 1) <br>
打開的是控制面板中"多媒體"項。而 <br>
x = Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5", 1) <br>
打開的是"輔助選項"項目。而 <br>
x = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", 1)顯示的是"顯示器"項目（中的"外觀"選項卡，注：各個選項卡由尾部參數決定，這里是2）。 <br>
在文本輸入時，我們可通過設置ASCII碼的chr(13)+chr(10)來使文本換行，而在VB程序中，可用一個常數vbCrLf來代替這兩個ASCII碼表示換行，如： <br>
text1.text="您如果需要的話" & chr(13)+chr(10) & "可以來找我" <br>
可寫為： text1.text="您如果需要的話" & vbCrLf & "可以來找我" <br>
關于在VB程序中用鍵盤的問題：1,很多控件運行時的使用都可以采用在其caption屬性中寫"& 快捷鍵"的方式指定鍵盤訪問鍵（如菜單，按紐，復選框，選項按紐等等） 2，TAB鍵常用來對各對象間的切換。 <br>
3，設計時改變選定對象的大小：Shift+方向鍵； <br>
設計時改變選定對象的位置：Ctrl+方向鍵。
<p align="center">
<br>
< <a href="050202.htm">上一頁</a>--<a href="http://www.xxby.com" target="_blank">華生小屋</a>--<a href="050204.htm">下一頁</a>
><br>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -