vb程序設計實例

2009-5-22 15:37

提問者： | 懸賞分：20 | 瀏覽次數：1688次

編寫程序，設銀行定期存款的年利率為：1年期2.25%，2年期2.43%，3年期為2.70%，5年期為2.88%（不記復利）。今有X元，5年以后使用，共有如下6中存法：

①存一次5年期；

②存一次3年期，一次2年期； ③存一次3年期，兩次1年期； ④存兩次2年期，一次1年期； ⑤存一次2年期，三次1年期； ⑥存五次1年期.

分別計算各種存法5年后到期的本息合計，如圖所示

1192588淘淘的某在%CC%D4%CC%D4%Bvb程序設計實例020 2009-5-22 17:06 最佳答案

vb程序設計實例

Private Sub Form_Activate()

'1年期2.25%，2年期2.43%，3年期為2.70%，5年期為2.88%（不記復利）。今有X元，5年以后使用，共有如下6中存法：

Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288

Dim x As Double x = Val(InputBox(\"\"))

Print \"①存一次5年期,5年后到期的本息合計\"; ss(x, 5, x5) Print \"②存一次3年期，一次2年期,5年后到期的本息合計\"; ss(ss(x, 3, x3), 2, x2)

Print \"③存一次3年期，兩次1年期,5年后到期的本息合計\"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1)

Print \"④存兩次2年期，一次1年期,5年后到期的本息合計\"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1)

Print \"⑤存一次2年期，三次1年期,5年后到期的本息合計\"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)

Print \"⑥存五次1年期,5年后到期的本息合計\"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1)

vb程序設計實例

End Sub

Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double

ss = a + a * c * b End Function

Private Sub Form_Load() AutoRedraw = True End Sub

如下

Dim str As String Private Sub Command1_Click() str = Text1.SelText Text1.SelText = \"\" Command3.Enabled = True

vb程序設計實例

End Sub

Private Sub Command2_Click() str = Text1.SelText Command3.Enabled = True End Sub

Private Sub Command3_Click() Text1.SelText = str End Sub

Private Sub Command4_Click() End End Sub

Private Sub Command5_Click() Form2.Show Form1.Hide End Sub

Private Sub Form_Load() Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = True End Sub

如何讓Command1~4功能鍵的目標轉向text1 內的內容

vb程序設計實例

我點的時候必須 把text1里面的內容去選定后才能 進行操作 如何讓他自己選定為text1的內容- -！ 上面的Command1剪切功能 Command2復制功能 Command3粘貼功能 Command4退出- -！

三、利用VB三維面板控件設計流動條 2000-09-15 00:00:00· xx·yesky

VB提供了一個三維面板控件，利用這個控件可設計圖形效果的立體界面，從而使應用程序的界面顯得更生動、美觀，該控件還可以設置各種形式的背景，然后在背景上顯示各種形式的字符，令人感興趣的是，使用三維面板控件，還可設計我們經常在安裝程序中看到的表示安裝進程的流動條，并可顯示進程百分比，改變流動條的顏色等。 一、介紹屬性

FloodColor：確定流動條的顏色，缺省為藍色。

vb程序設計實例

FloodPercent：顯示當前過程如流動條進行的百分比，參數改變時顯示的百分數和流動條的面積改變，設為一整型值，取值范圍是0～100。

FloodShowpct：決定是否在三維面板控件上顯示百分比，是一個邏輯值。為 True時顯示，為False時不顯示。

FloodType：表示用戶對三維面板控件的使用方式。可取值有 6個，如下所示：

0 缺省設置

1 表示流動條方向從左到右 2 表示流動條方向從右到左 3 表示流動條方向從上到下 4 表示流動條方向從下到上

5 表示使用指定的顏色從圓心向外畫圓 二、流動條設計

如果在Windows3？X下，工具箱中不存在三維面板控件，可選擇File菜單中的“Add File…”進行添加，在彈出的對話框中找到Windows\\System目錄，然后選定Threed？vbx文件即可，如果使用

vb程序設計實例

VB4.0，需在Tools菜單中選擇 Custom Controls命令，選定Sheridan 3d Controls項，按OK按鈕，可在工具箱中增加三維面板控件。

啟動VB3？0，在窗體中畫一水平方向的長方形三維面板控件，按F4，在屬性窗口中設置其Name為P3d、Bevellnner為2－Raised、FloodType為1、FloodshowPct為True，再在窗體中畫一個按鈕Command1，雙擊該按鈕，鍵入下面的代碼：

Sub Command1_Click() P3d？floodpercent=0 For N％=1 To 100 If N％$#@62;100 THEN Exit Sub End If

P3d？FloodPercent=N％ Next I％ End Sub

按F5，運行該程序，點擊Command按鈕，即可看到流動條效果。 四、

vb程序設計實例

使用VB設計具有動感的命令圖標欄 2000-09-15 00:00:00· 張嶸·VB編程樂園

p> 我們在使用Word、Excel等Windows應用程序時，經常會見到在程序界面頂端

有一行“立體式”圖標按鈕。當用鼠標按下某一個圖標按鈕時，程序就執(zhí)行相應的操作。這一行“立體式”圖標按鈕通常就稱作命令圖標欄或工具條。命令圖標欄一般提供一些最常用的命令，供用戶快速地取用，并且它設計時采用了“立體式”按鈕，操作時會產生凹下去和凸出來的“動感”，筆者這里就談談如何用VB來建立具有“動感”的命令圖標欄。 使命令圖標具有“動感”是依靠對命令圖標的不同狀態(tài)的圖像切換來獲得的。當鼠標按下時，圖標顯示為凹入狀態(tài)的圖像；當松開時，圖標顯示為凸出狀態(tài)的圖像。通過圖像切換就使命令圖標具有了“動感”，具體設計步驟如下： 1。首先在窗體中創(chuàng)建一個圖片框（Picture Box），將其Align屬性置為1，使圖片框固定在窗體上端，調節(jié)其寬度使其能安置圖像或命令按鈕。 2。在圖標框內創(chuàng)建若干個圖像框（Image Control），設置其Autosize＝True，Picture屬性在程序運行中設置。

3。編寫程序代碼。這里假設某個命令圖標凸出狀態(tài)的圖像文件名為＂zrup.bmp＂，凹入狀態(tài)的圖像文件名為＂zrdown.bmp＂。

窗體裝入時：

Sub form－load（）

Imagel.picture＝Loadpicture（＂zrup.bmp＂） ’ 命令圖標凸出 End sub

鼠標按下時：

Sub Imagel－mousedown（Button As Integer Shift As Integer， X As single，Y As single）

Imagel.picture＝Loadpicture（＂zrdown.bmp＂） ’ 命令圖標如下： End sub

鼠標松開時：

Sub Imagel－mouseup（Button As Integer，Shift As Integer，X As single，Y As single） Imagel.picture＝Loadpicture（＂zrup.bmp＂） ’ 命令圖標凸出 End sub

以上只能使命令圖標具備凹下去的功能，但當在按鼠標按鈕不放，并拖曳鼠標使光標移到外頭，原來圖標仍然處于凹下狀態(tài)。要使其自動凸起，就要編寫如下代碼：

Sub Imagel-mouseup(Button As Integer,Shift As Integer,X As single,Y As single)

Select Case Button Case 1

If X$#@60;=0 or X$#@62;Imagel.Width or Y$#@60;=0 or Y$#@62;Imagel.Height then

vb程序設計實例

Imagel.picture=Loadpicture(\"zrup.bmp\") ’凸出 else

Imagel.picture=Lo icture(\"zrdown.bmp\") ’凹入 End if End select End sub

通過以上三步驟就可以建立具有“動感”的命令圖標，若具有多個命令圖標時，可通過創(chuàng)建圖像控制數組來實現。BMP是常見的一種圖像格式，也可以使用VB提供的豐富的不同狀態(tài)的命令圖標位圖文件，它在VB的子目錄＼bitmaps＼中。

窗體頂端

使用VB設計具有動/20000915/1143114301 窗體底端

五、

實現窗體內部的左右移動

'分割區(qū)的寬度

Private Const SPL99vTERWIDTH = 45 '最小移動寬度

Private Const HMIN = 15

'picLeft和picRight的寬度相對于窗體的比例 Private Percent As Single '正在拖動的標志

Private DragFlag As Boolean

vb程序設計實例

'每次拖動后需要重排窗體上的控件 Private Sub RedrawMe() Dim NewWidth As Single ' 忽略窗體縮小的情況

If WindowState = vbMinimized Then Exit Sub

NewWidth = (ScaleWidth - SPL99vTERWIDTH) * Percent Picleft.Move 0, 0, NewWidth, ScaleHeight

Picright.Move NewWidth + SPL99vTERWIDTH, 0, ScaleWidth - NewWidth - SPL99vTERWIDTH, ScaleHeight End Sub

Private Sub Form_Load()

'PicLeft和PicRight的MousePointer=1 Percent = 0.5 End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) DragFlag = True End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '定義鼠標為vbSizeWE型 MousePointer = vbSizeWE Percent = X / ScaleWidth RedrawMe End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) DragFlag = False

vb程序設計實例

MousePointer = 0 '此行語句實際沒有起作用 End Sub

六、

封面的設計

一、封面的設計是這樣的，先出現一窗體，上面為你喜歡的圖案。然后出現一艘從左向右行駛著的船。屏幕上方從兩側分別移動出“歡迎”兩個字。具體的制作方法是：把預先選好的背景圖案裝入封面窗體中，窗體命名為CAI。再分別在三個圖像控件(image)中裝入預先制作好的位圖“歡”、“迎”和船型圖案。然后把三個image放置在初始位置(即圖案剛在窗體出現時的位置)，并把它們的可視屬性都設置為“false”。程序如下：

Sub Form_load() cai.Show ′顯示封面窗體 Dim i ′定義變量

image3.visible=True ′船型圖像控件出現 a1: If image3.Left < 6120 Then

′6120為船移動到屏幕右邊的坐標,此值可以隨需要選取 image3.Move image3.Left＋50

′移動此圖像控件如嫌移動慢,可改變移動值 Goto a1 End If

image1.visible=True ′“歡”字出現 a2: If image1.Left < 2120 Then ′2120為“歡”字移動到屏幕中間的位置

image1.Move image1.Left＋50 ′移動此圖像控件 Goto a2 End If

vb程序設計實例

image2.visible=True ′“迎”字出現 a3: If image2.Left > 20 Then ′20為“迎”字移動到屏幕中間的位置

image2.Move image2.Left－50 ′移動此圖像控件 Goto a3 End If

For i=1 To 10000

′使窗體暫停一段時間時間長短可通過改變循環(huán)次數實現 Next i

menul.Show ′顯示程序主窗體 Unload cai ′卸載封面窗體 End Sub

二、簡單的“動畫”

點擊一3D按鈕后，屏幕表現光線平行進入一玻璃管，在管中有一散射中心，有的光線射到此中心后反射到管的初始端。程序如下：

Sub Command3Dl_Click() Dim i, j, k, m, n ′定義變量 For i=2080 To 5520

′顯示出三條線,直到圖像中的散射中心處,顏色為黑色 Line(2080,2760)－(i,2760),RGB(0, 0, 0) Line(2080,2860)－(i,2860),RGB(0, 0, 0) Line(2080,2660)－(i,2660),RGB(0, 0, 0) Next i

For j=5520 To 4800 Step－1 ′反射光線第一次射到管壁上 Line(5520,2760)－(j,2760－(5520－j)＊.33333333),RGB (255, 0, 0) ′反射光線,顏色為紅色

Line(5520,2660)－(5520＋(5520－j),2660),RGB(0, 0, 0)

vb程序設計實例

Line(5520,2860)－(5520＋(5520－j),2860),RGB(0, 0, 0) ′沒有遇到散射中心的兩條光線,為黑色,繼續(xù)前進 Next j

For k=4800 To 3360 Step－1 ′反射光線第二次射到管壁上 Line(4800,2520)－(k,2520＋(4800－k)＊.33333333), RGB(255, 0, 0) ′反射光線,顏色為紅色

Line(6240,2660)－(6240＋(4800－k),2660),RGB(0,0,0) Line(6240,2860)－(6240＋(4800－k),2860),RGB(0,0,0) ′沒有遇到散射中心的兩條光線,顏色為黑色 Next k

For m=3360 To 2080 Step－1 ′反射光線第三次射到管壁上 Line(3360,3000)－(m,3000－(3360－m)＊.33333333), RGB(255, 0, 0) ′反射光線,顏色為紅色 Next m End Sub

三、封底

封底的設計是：先出現全黑的屏幕，然后從上至下逐漸拉出白底紅字的“再見”的字樣。先按要求在畫板中做一個BMP圖，上面寫著“再見”。然后在一名為BYE的窗體中加入一個全屏大的Picturel,將BMP圖裝入。程序如下：

Sub Form_Load() Dim i ′定義變量 bye.Show ′封底出現 Unload menu1 ′卸載主菜單

al: If picture1.Height < 7130 Then ′7130為圖的高度 picturel.Height=picture1.Height＋50 ′下拉屏幕 GoTo al End If

vb程序設計實例

For i=1 To 20000 ′使窗體暫停一段時間 Next i

End ′結束所有操作 End Sub

利用Visual Basic讓命令行軟件全面轉向Windows

眾所周知，Windows以其優(yōu)美的圖形界面，方便快捷的操作環(huán)境，已成為當今的主流操作系統(tǒng)，但由于其程序編寫過于復雜，有很多用戶常用的工具和小程序仍然只能運行于DOS環(huán)境下，造成Windows和DOS的頻繁切換、使工作缺乏連續(xù)性和效率低下。有什么方法可以解決這一問題呢？等待For Windows版本的面市，但仍會造成重復投資。據筆者觀察發(fā)現，常用工具中有一部分為命令行軟件，這些軟件完全可以利用VB改編成For Windows版本的。首先由于VB的簡單易用，使Windows的界面設計變得異常簡單直觀。所以可輕而易舉的將命令選項、開關等轉化為對應的圖形界面（如復選鈕等）。其次由于VB為用戶提供了Shell函數，也使得命令調用非常簡單。通過Shell其實你只做了個界面，核心還是DOS下的原來工具。其函數格式如下：

Shell（命令字符串<,窗口類型>）

命令字符串即具體執(zhí)行的命令（如字符串“arj e a:user.arj c:\\user ”）有關字符串的操作可查閱有關書籍。至于窗口型類型缺省即可。最后只須注意，在Shell執(zhí)行函數之前，有必要對命令行中有可能引發(fā)錯誤的參數進行檢測，如在執(zhí)行前檢查用戶給的源文件是否存在等，以保證達到預期結果。筆者用VB改編的Arj for Windows版本，其結果出乎想象。希望大家能自己動手全面轉向Windows。

七、

利用VB產生屏幕變暗的效果

想利用 VB 編程實現屏幕變暗的效果（像關閉 Win95 時的效果），只要按下面的步驟來做： 1. 在 Form1 中加入兩個 CommandButton 和一個 PictureBox. 2. 在 Form1 的代碼窗口中添加以下代碼：

vb程序設計實例

Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type

Private Declare Function GetDC Lib \"user32\" (ByVal hwnd As Long) As Long

Private Declare Function ReleaseDC Lib \"user32\" (ByVal hwnd As Long, ByVal hdc As Long) As Long Private Declare Function CreatePatternBrush Lib \"gdi32\" (ByVal hBitmap As Long) As Long Private Declare Function PatBlt Lib \"gdi32\" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal dwRop As Long) As Long Private Declare Function DeleteObject Lib \"gdi32\" (ByVal hObject As Long) As Long

Private Declare Function CreateBitmap Lib \"gdi32\" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long

Private Declare Function SelectObject Lib \"gdi32\" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Declare Function InvalidateRect Lib \"user32\" (ByVal hwnd As Long, ByVal lpRect As Long, ByVal bErase As Long) As Long Private bybits(1 To 16) As Byte

Private hBitmap As Long, hBrush As Long Private hDesktopWnd As Long Private Sub Command1_Click() Dim rop As Long, res As Long

Dim hdc5 As Long, width5 As Long, height5 As Long hdc5 = GetDC(0)

width5 = Screen.Width \\ Screen.TwipsPerPixelX height5 = Screen.Height \\ Screen.TwipsPerPixelY rop = &HA000C9

Call SelectObject(hdc5, hBrush)

res = PatBlt(hdc5, 0, 0, width5, height5, rop) Call DeleteObject(hBrush)

vb程序設計實例

res = ReleaseDC(0, hdc5) End Sub

Private Sub Command2_Click() Dim aa As Long

aa = InvalidateRect(0, 0, 1) End Sub

Private Sub Form_Load() Dim ary Dim i As Long

ary = Array(&H55, &H0, &HAA, &H0, _ &H55, &H0, &HAA, &H0, _ &H55, &H0, &HAA, &H0, _ &H55, &H0, &HAA, &H0) For i = 1 To 16 bybits(i) = ary(i - 1) Next i

hBitmap = CreateBitmap(8, 8, 1, 1, bybits(1)) hBrush = CreatePatternBrush(hBitmap) Picture1.ForeColor = RGB(0, 0, 0) Picture1.BackColor = RGB(255, 255, 255) Picture1.ScaleMode = 3 End Sub

運行程序，按 Command1 就可以使屏幕暗下來，按 Command2 恢復。

八、

Private Declare Function GetDesktopWindow Lib \"user32\" () As Long Private Declare Function GetDC Lib \"user32\" (ByVal hwnd As Long) As Long Private Declare Function StretchBlt Lib \"gdi32\" _ (ByVal hdc As Long, _ ByVal x As Long, _

vb程序設計實例

ByVal y As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long, _ ByVal hSrcDC As Long, _ ByVal xSrc As Long, _ ByVal ySrc As Long, _ ByVal nSrcWidth As Long, _ ByVal nSrcHeight As Long, _ ByVal dwRop As Long) As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) End End Sub

Private Sub Form_Load()

’set the showintaskbar property to false ’set the borderstyle of the form to none Form1.AutoRedraw = True Form1.ScaleMode = vbPixels a = GetDesktopWindow() b = GetDC(a)

StretchBlt Form1.hdc, 0, 0, Screen.Width, Screen.Height, b, 0, _ Screen.Height, Screen.Width, -Screen.Height, vbSrcCop

[1] [2] 下一頁

九

vb程序設計實例

在VB中實現閃動標題欄

摘要

在你的應用程序中，你可能會希望將應用程序的標題欄進行閃動，以提醒用戶進行某種操作，本文介紹了如何使一個窗口的標題欄進行閃動。

閃動標題欄

閃動一個窗口的標題欄意味著改變它的標題欄的外觀，例如它從活動變?yōu)椴换顒樱蚴菑牟换顒幼優(yōu)榛顒拥鹊?。只要你能在Visual Basic中得到窗口的句柄，你就可以使用Windows 應用程序編程接口（API）函數來使該窗口的標題欄進行閃動。函數FlashWindows可以被用使一個特定的窗口閃動一次。要使用該函數，需要將如下的聲明語句包含在你的窗體的通用聲明部分中：

#If Win32 Then

Declare Function FlashWindow Lib \"user32\" (ByVal hwnd As Long, ByVal bInvert As Long) As Long #Else

Declare Function FlashWindow Lib \"User\" (ByVal hwnd As Integer, ByVal bInvert As Integer) As Integer #End If

該函數需要2個參數，第一個參數是要閃動標題欄的窗口的句柄，第二個參數用于指定是設置窗口的閃動狀態(tài)，還是恢復其原始狀態(tài)。如果該bInvert參數非0，則表明窗口的標題欄被閃動，如果該參數為0，則表明窗口的標題欄被恢復為原始狀態(tài)。該函數所返回的值用于指定調用該函數前窗口的狀態(tài)，如果該返回值非0，則表明窗口在調用該函數之前是活動的，否則，如果返回值為0，則表明調用函數前窗口是非活動的。當使用該FlashWindow函數時，一個較好的方法是將標題欄閃動的頻率設置為同脫字符（也即閃動的光標）相同，脫字符的閃動頻率可以通過調用函數GetCaretBlinkTime來獲得。要使用該函數，需要將如下的聲明語句包含在你的窗體的通用聲明部分中：

#If Win32 Then

Declare Function GetCaretBlinkTime Lib \"user32\" () As Long

vb程序設計實例

#Else

Declare Function GetCaretBlinkTime Lib \"User\" () As Integer #End If

該函數返回用毫秒值表示的時間。

樣例程序

1. 在Visual Basic中開始一個新的工程，采用缺省的方法建立Form1。 2. 在Form1上添加一個定時器控件，采用缺省的方法建立Timer1。 3. 將如下的代碼添加到Form1的Form_GotFocus事件中：

Private Sub Form_GotFocus() Timer1.Enabled = False End Sub

4. 將如下的代碼添加到Form1的Form_Load事件中：

Private Sub Form_Load()

Timer1.Interval = GetCaretBlinkTime() Form2.Show End Sub

5. 將如下的代碼添加到Timer1的Timer1_Timer事件中：

Private Sub Timer1_Timer()

Success = FlashWindow(Form1.hwnd, 1) End Sub

6. 添加第二個窗體，采用缺省的方法建立Form2。

vb程序設計實例

7. 將如下的代碼添加到Form2的單擊事件中：

Private Sub Form_Click() Form1.Timer1.Enabled = True End Sub

8. 添加一個新的模塊，采用缺省的方法建立Module1.Bas。將如下的代碼添加到該模塊的通用聲明部分中：

#If Win32 Then

Declare Function FlashWindow Lib \"user32\" ( _ ByVal hwnd As Long, _ ByVal bInvert As Long) As Long

Declare Function GetCaretBlinkTime Lib \"user32\" () As Long

Dim Success As Long #Else

Declare Function FlashWindow Lib \"User\" ( _ ByVal hwnd As Integer, _

ByVal bInvert As Integer) As Integer

Declare Function GetCaretBlinkTime Lib \"User\" () As Integer

Dim Success As Integer

vb程序設計實例

#End If

通過單擊F5鍵來運行該樣例程序，單擊Form2窗體，這時Form1窗體將處于非活動方式，其標題欄將會不斷閃爍。單擊Form1使它它變?yōu)榛顒臃绞?，則窗體的標題欄將不再閃爍

11、

一組VB實用小程序

用VB實現編程離不開函數調用及Windows API函數的調用，以下是筆者收集的一些實用的小例程，它們可以直接用在你的實際編程中，也可以根據實際應用加以擴充完善。其中涉及Windows API函數調用的代碼你可以從VB5.0系統(tǒng)的API函數查看器中復制函數定義內容，以避免出錯。 1.系統(tǒng)型表單

系統(tǒng)型意味著用戶完成當前表單操作之前無法進行其它操作，這對于編制系統(tǒng)口令保護界面尤為重要。如果你希望當前表單系統(tǒng)型表單，需如下定義API函數：

Declare Function SetSysModalWindow Lib \"User\" (ByVal hWnd As Integer) As Integer 然后調用：oldSysModal = SetSysModalWindow([Form].hWnd) 2.獲取驅動器類型 代碼如后：

Declare Function GetDriveType Lib “Kernel\" (ByVal nDrive As Integer) As Integer Global Const DRIVE_REMOVEABLE％ = 2, DRIVE_FIXED％ = 3 Global Const DRIVE_REMOTE％ = 4 3.表單在對中

本子程序功能使表單定位在屏幕，在表單中任何需要表單對中的地方只需加入一行代碼： “centerwindow.me”即可成功調用。 Public Sub CenterWindow(f As Form)

f.Top = (Screen.Height ＊ .5) － (f.Height ＊ .5) f.Left = (Screen.Width ＊ .5) － (f.Width ＊ .5) End Sub

vb程序設計實例

4. 定義變量

許多的程序員習慣于如下定義變量： Dim iNum, iNextNum, iLastNum as Integer

實際上只有最后一個變量被設為了整型，前兩個變量則是系統(tǒng)的缺省的Variant 數據類型，而Variant 數據類型可用來替換任何數據類型，顯然對于精練的程序設計是不利的。 正確的方法如下： Dim iNum as Integer Dim iNextNum as Integer Dim iLastNum as Integer 5. 使文本高亮

本子程序使被觸發(fā)的諸如文本，標簽等控件的文本被選中 Public Sub SetSelected() Screen.ActiveControl.SelStart = 0

Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text) End Sub 6. 關閉其它程序

下面的代碼可關閉內存中的其它程序

title = \"MyAPP\" '定義你需關閉的程序窗口的標題 ihWnd = findWindow(0＆, Title) ihTask = GetWindowTask (ihWnd)

iRet = PostAppMessage(ihTask, WM_QU99v, 0, 0＆) 7. 文件存在否?

本函數返回查找的文件是否存在。

Function FileExist(Filename as string) as Boolean FileExist = Iif(Dir(Filename) <> \"\ End Function 8. 主程序唯一

用下面提供的代碼作你的主程序可防止應用程序的多重執(zhí)行，你應當將它放在確信需要它的代碼模塊內。 Public Sub Main() If App.PrevInstance Then

vb程序設計實例

BringWindowToTop frmMain.hwnd Else

Load frmMain End If End Sub

上面這些精悍的代碼對于專業(yè)程序員來說非常有實用價值，希望你能從中獲得啟發(fā)。

12、

VB5.0中實現字體閃爍效果

用Visual Basic我們可設計出形形色色符合用戶要求的應用程序，它確實是一種很好的用戶程序開發(fā)工具，可VB提供的基本控件中都沒有閃爍屬性設置，使應用程序界面缺乏“活性”，近期筆者設計軟件封面時，就要求字體不斷地閃爍，為此，經反復分析、實踐，最后終于成功地實現字體閃爍效果，現將設計過程說明如下：

(1)創(chuàng)建一個新目標文件(project1)，并建立一個窗體Form1。

(2)在Form1上配置一個計時器控制Timer1、標簽控件Label1、命令控件Command1。 (3)各控件屬性設置：

Timer1的Enabled設置為True;

Label1的Caption設置為需閃爍的字體：“江西省黎川縣職業(yè)中專電腦室設計”、 Font設置字體及大小、Backstyle設置為“0－Transparent”； Command1中的Caption設置為“退出”。 (4)程序代碼清單： Option Explicit

Private Sub Form_ Load() Label1.Top=850 ′設置閃爍字體的顯示位置 Label1.Left=750 Timer1.Interval=555

vb程序設計實例

′設置字體閃爍間隔時間 Form1.Windowstate=2 End Sub

′利用計時器控件Timer有規(guī)律地改變字體顏色(Forecolor) Private Sub Timer1_Timer() Chc Label1,1,4,8 End Sub

′Chc過程是循環(huán)地改變字體顏色(Forecolor)

Sub Chc(Cont As Control,Color1 As Integer,Color2 As Integer,Color3 As Integer) If Val(Cont.Tag)=Color1 Then Cont.Tag=Color2

ElseIf Val(Cont.Tag)=Color2 Then Cont.Tag=Color3

ElseIf Val(Cont.Tag)=Color3 Then Cont.Tag=Color1 Else

Cont.Tag=Color1 End If

Cont.ForeColor=QBColor(Cont.Tag) End Sub

Private Sub Command1_Click() End End Sub

程序除標簽控件外，還適用于許多VB基本控件，實現諸多閃爍效果，例如：閃爍文本框、閃爍文件列表框等，極大豐富了VB應用程序界面，相當實用。

13、

vb程序設計實例

VB實用編程兩例

該程序通過VB的多媒體控件MCI32.OCX可以打開MPEG壓縮文件(如VCD2.0版的.DAT文件)來實現一個VCD播放器的設計

首先必須確保在你的Windows系統(tǒng)中SYSTEM.INI文件關于[MCI]中需有MPEGVideo項(一般Windows 95和Windows 98中均有此項)。

次在VB中建立一個新窗口,加入多媒體部件Microsoft Multimedia Control 5.0( 位于C:\\Windows\\System\\MCI32.OCX),以及對話框部件Microsoft Common Dialog Control 5.0( 位于C:\\Windows\\System\\COMMONDLG32.OCX),將MCI控件拖放至窗體Form上,調整其大小,并將窗體的大小也調整為與其同樣大小;將其九個按鈕(從左至右為:Prev、Next、Play、Pause、Back、Step、Stop、Record和Eject)中的Record按鈕的Visible屬性設為False,其余按鈕中的Visible屬性和Enabled屬性設為True,以上按鈕的設置可通過MMControl的屬性欄內\"自定義\"項來設置。對話框控件的DefaultExt屬性設為.DAT,DialogTitle屬性設為\"打開多媒體文件\屬性設為\"*.DAT,*.WAV\屬性設為\"G:\\MPEGAV\"(假設光驅盤符為G)。 源代碼如下: Option Explicit

Private Sub Form_Load() Dim Response As Integer

MMControl1.DeviceType = \"MPEGVideo\"

CommonDialog1.ShowOpen '通過對話框選擇不同的VCD文件 MMControl1.filename = CommonDialog1.filename '選定要播放的文件 MMControl1.Command = \"Open\" MMControl1.Command = \"Play\" End Sub

Private Sub Form_Unload(Cancel As Integer) MMControl1.Command = \"close\" End Sub

Private Sub MMControl1_BackClick(Cancel As Integer) '對Back按鈕的功能改進 Dim i As Integer

i = MMControl1.Position - 100 '數值100為后退量,可適當調整 If i < 0 Then MMControl1.From = 0

vb程序設計實例

Else MMControl1.From = i End If

MMControl1.Command = \"Play\" End Sub

Private Sub MMControl1_StepClick(Cancel As Integer) '對Step按鈕的功能改進 Dim j As Integer

j = MMControl1.Position + 100 '數值100為前進量,可適當調整

If j > MMControl1.Length Then MMControl1.From = MMControl1.Length Else MMControl1.From = j End If

MMControl1.Command = \"Play\" End Sub

MCI控件還有很多屬性,如畫面播放位置hWndDisplay屬性等等,大家可參閱相關資料自行摸索。 調整好窗體的標題、圖標、顏色等,然后編譯成.EXE文件,你就可以在Windows 下 擁有自己的VCD播放器了。

有時在一個窗口中出現較多的控制件時，如果能向導式地建議用戶下一步該做什么，不失為上策。在Visual Basic的程序設計中，我們可以使用語句：object.SetFaocus使我們希望的控件得到輸入焦點，舉個例子：在Form1中我們加入一個按鈕Command1和一個文本輸入Text1，雙擊按鈕控件，然后鍵入如下代碼：text1.SetFocus

再按F5運行程序，您就會看到一單擊按鈕，文本框會立即取得輸入焦點。另外，我們還可以使用語句：Sendkeys \"{TAB}\"使下一個控件獲得焦點，但我們需要在設計時確定各控件的Index值。(在Properties窗口中)讓控件自己感知自己的工作已完成，而主動將焦點讓出，會使用戶覺得應用程序很聰明，也減少了用戶出錯的機會。

可是當焦點切換的兩個控件相隔有一定距離時，上述的方法有時也不足以引起用戶的注意，那么一種好的解決方法是將鼠標箭頭也移到控件上?？上?，VB并不支持鼠標移動，那我們就求助API函數，API函數SetCursorPos可讓我們如愿。

下面是子程序MoveCursorOn，它可讓鼠標移動到指定控件上方。下列代碼請放在declarations段中：

Type PoinTAPI x As Integer

vb程序設計實例

y As Integer End Type

Declare Sub SetCursorPos Lib \"User\"(Byval x As Integer,Byval y As Integer)

Declare Sub ClientToScreen Lib \"User\"(Byval hwnd As Integer,IpPoint As PointAPI) Declare Function GetParent Lib \"User\"(Byval hwnd As Integer)As Integer

然后建立一個新的子程序(ALT＋N→N→鍵入子程序名MoveCursorOn)，下面是子程序的代碼： Sub MoveCursorOn(source As Control) Dim Pt As PoinTAPI Dim hparent As Integer

p.x=(Source.Left＋Source.Width/2)/Screen.Twipsperpixel) p.y=(Source.Top＋Source.Height/2)/Screen.Twipsperpixel) hparent=GetParent(source.hwnd) ClientToScreen hparent pt SetCursorPos pt.x pt.y End Sub

使用該子程序很容易，例如我們想把鼠標移動到按鈕Command1上，就可使用語句Move Cursor On Command1 您會看到鼠標箭頭已經指著按鈕Command1。

需要說明的是，千萬不要濫用該子程序。讓鼠標自己滿屏亂飛，我們的用戶會感到失去對應用程序的控制，這是違反我們的初衷的。 在有數個輸入框的窗口中(這在數據庫應用程序中是很典型的)，當用戶完成第一個輸入框的輸入后，總愛習慣性的加一個回車，希望輸入焦點落到下一個輸入框中(DOS中大多數應用程序是如此)，可往往事與愿違，這一回車卻觸發(fā)了擁有Default特性的按鈕，結果不是關閉了當前窗口就是又蹦出另一窗口。