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

Sub Form_load()
cai.Show ′顯示封面窗體
Dim i ′定義變量
image3.visible=True ′船型圖像控件出現(xiàn)
a1: If image3.Left < 6120 Then
′6120為船移動到屏幕右邊的坐標,此值可以隨需要選取
image3.Move image3.Left＋50
′移動此圖像控件如嫌移動慢,可改變移動值
Goto a1
End If
image1.visible=True ′“歡”字出現(xiàn)
a2: If image1.Left < 2120 Then
′2120為“歡”字移動到屏幕中間的位置
image1.Move image1.Left＋50 ′移動此圖像控件
Goto a2
End If
image2.visible=True ′“迎”字出現(xiàn)
a3: If image2.Left > 5420 Then
′5420為“迎”字移動到屏幕中間的位置
image2.Move image2.Left－50 ′移動此圖像控件
Goto a3
End If
For i=1 To 10000
′使窗體暫停一段時間時間長短可通過改變循環(huán)次數(shù)實現(xiàn)
Next i
menul.Show ′顯示程序主窗體
Unload cai ′卸載封面窗體
End Sub

二、簡單的“動畫”
點擊一3D按鈕后，屏幕表現(xiàn)光線平行進入一玻璃管，在管中有一散射中心，有的光線射到此中心后反射到管的初始端。程序如下：

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)
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

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

Sub Form_Load()
Dim i ′定義變量
bye.Show ′封底出現(xiàn)
Unload menu1 ′卸載主菜單
al: If picture1.Height < 7130 Then ′7130為圖的高度
picturel.Height=picture1.Height＋50 ′下拉屏幕
GoTo al
End If
For i=1 To 20000 ′使窗體暫停一段時間
Next i
End ′結(jié)束所有操作
End Sub
利用Visual Basic讓命令行軟件全面轉(zhuǎn)向Windows

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

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

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