Viet Code cho chưuomg trinh Launch

Ta chỉ cần viết code cho menu, sau đó dùng các nút lệnh để gọi menu tương ứng.

Bây giờ chúng ta viết code cho mục Windows Explorer trong menu Windows. Vào Windows chọn Windows Explorer để viết code cho mục chọn menu này.

Private Sub mnuWE_Click() ' dòng này có sẵn

Dim P
P = Shell("explorer", vbNormalFocus)

End Sub ' dòng này có sẵn

Khai báo 1 biến kiểu variant để chứa trị trả về của hàm Shell. Đây là kiểu dữ liệu bao trùm tất cả các kiểu dữ liệu trong Visual Basic.

pathname: là đường dẫn và file thực thi của chương trình cần gọi. Đây là 1 xâu cho nên khi viết bạn phải đặt chúng trong cặp dấu " " mới đúng.

windowstyle: là hằng số qui định phong cách khi khởi động của chương trình cần chạy. Thí dụ: sau khi gọi chương trình bạn cần Maximize, Minimize chương trình đó ... các hằng có giá trị và ý nghĩa như sau:

Lưu ý: Trong phần pathname của hàm shell lý ra phải ghi đầy đủ đường dẫn, thí dụ
"C:\Windows\Explorer.exe" (giả sử thư mục windows là c:\windows) thay vì "explorer.exe". Sở dĩ ta có thể ghi gọn như vậy là vì Windows tự động đặt dường dẫn path đến các thư mục như: Windows; Windows\system. Do đó chỉ cần ghi explorer.exe cho tổng quát (khỏi sợ sai đường dẫn khi đem chạy trên máy khác).

Bây giờ nhấn F5 để chạy chương trình, vào menu Windows chọn Windows Explorer, lập tức chương trình Windows Explorer được khởi động.

Tương tự như vậy bạn có viết code cho tất cả các menu con còn lại của menu Windows.

Đối với Paint và WordPad ta phải dùng 2 file write.exe & pbrush.exe trong thư mục Windows để khởi động. Thực ra 2 file này chỉ có chức năng gọi WordPad.exe và MSPaint.exe (trong thư mục \Program Files\Accessories\) chứ không phải là file chương trình chính. Microsoft phải làm vậy để tương thích với các chương trình cũ.

Còn các mục chọn khác bạn cũng viết hàm Shell tương tự nhưng đường dẫn phải cụ thể và chính xác. Thí dụ để viết code cho menu "Lac Viet td". Vào VietNamese / Lac Viet td, gõ vào

Private Sub mnuLV_Click()

Dim F
F=Shell("d:\tools\lvtd\lvtd.exe",1)

End Sub

Bây giờ ta viết lệnh cho các CommandButton tương ứng. Yêu cầu là viết code sao cho khi nhấn vào nút Windows thì menu Windows tương ứng sẽ hiện ra như hình minh họa

Double click vào cmdWin (hay Right click chọn View code từ menu popup), gõ vào

Private Sub cmdWin_Click()

popupmenu mnuWin

End Sub

popupmenu mnuWin hành vi (method) popupmenu dùng để hiển thị menu có tên mnuWin

Tương tự cho 2 nút lệnh còn lại. Khi chạy thử chương trình bạn click vào nút lệnh nào sẽ xuất hiện menu tương ứng. Từ đây người dùng có thể chọn lệnh từ menu popup hay menu pulldown (menu kéo xuống) đều được.

Nếu đang ở chế động tự động thoát (mục Unload after 20 Sec được chọn) sau 20 giây chương trình sẽ tự động thoát, không cần chúng ta can thiệp. Để làm được việc này ta phải dùng Timer và Picture box (picIns, picOut) đã tạo từ trước.

Sau khi chương trình khởi động hoặc khi check vào checkbox. Mỗi giây độ rộng hiện tại của picIns cộng với độ rộng của picOut/20 (vì 20 giây), cho đến khi độ rông của picIns = picOut thì dừng chương trình. Nếu không check chức năng tự động thoát không hoạt động.

Tình huống Form_Load() sẽ được kích hoạt khi chương trình khởi động, timer hoạt động với trị interval = 1000 (tương đương 1 giây), độ rộng picIns ban đầu là 0.

Khi người dùng Click vào check box. Nếu có chọn sẽ làm cho timer hoạt động tương tự như Form_Load(), nếu không chọn thì cho timer ngừng.

Private Sub chkUnload_Click()
If chkUnload.Value = 1 Then
    PicIns.Visible = True
    Timer1.Interval = 1000
Else
    Timer1.Interval = 0
    PicIns.Visible = False
End If
PicIns.Width = 0
End Sub

Kiểm tra xem độ rộng picIns >= picOut hay không. Nếu có, kết thúc chương trình (End), nếu không tiếp tục tăng độ rộng picIns theo chu kỳ mỗi giây 1 lần.

Private Sub Timer1_Timer()
If PicIns.Width >= PicOut.Width Then
End
Else
PicIns.Width = PicIns.Width + PicOut.Width / 20
End If
End Sub

Chạy thử chương trình xem nó có tự động thoát không. Thử click vào check box xem có hoạt động như mong muốn chưa.

Chúng ta còn sót 1 đối tượng là lblMsg (Label box) chưa sử dụng đến. Label box này ta dùng để in câu thông báo hướng dẫn mỗi khi người dùng rê Mouse qua các Command Button.

Thí dụ như: Khi rê mouse trên nút Windows thì câu thông báo sẽ là "Các ứng dụng chuẩn của Windows" chẳng hạn. Để làm được điều này ta hãy khảo sát tình huống MouseMove của đối tượng, cụ thể là của Command Button và Form. Right click vào nút Windows, chọn View code, chọn tình huống MouseMove.

Private Sub cmdWin_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblMsg.Caption = "Run Windows Utilities (Accessories group)"
End Sub

Hiển thị câu thông báo Run Windows Utilities (Accessories group) trong lblMsg khi mouse di chuyển trên nút Windows. Một cách tương tự bạn có thể làm cho các button còn lại.

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblMsg.Caption = "Please, select a program to start your work."
End Sub

Hiển thị câu thông báo Please, select a program to start your work. trong lblMsg khi mouse di chuyển phía trên form

Khi chạy chương trình, bạn thử rê mouse lên các button sẽ thấy nội dung của lblMsg thay đổi liên tục (hiển thị các câu thông báo của chính bạn).

Đối với Visual Basic version 5 & 6, thì chuyện này rất dễ nhưng có vẻ bí hiểm. Bạn chỉ cần right click lên cửa sổ Form Layout (nếu chưa hiển thị hãy bật lên bằng cách View\Form Layout Window) chọn Startup Position, chọn Center Screen là xong ngay.

Không những thế, bạn còn có thể tự hiệu chỉnh vị trí form sẽ hiển thị trên màn hình khi chạy một cách rất trực quan. Còn nếu bạn khoái thủ công, hãy thêm dòng lệnh này vào tình huống FormLoad của form cần canh giữa màn hình như sau.

Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
End Sub

Tên hằng	Giá trị	ý nghĩa
vbHide	0	Window is hidden and focus is passed to the hidden window.
vbNormalFocus	1	Window has focus and is restored to its original size and position.
vbMinimizedFocus	2	Window is displayed as an icon with focus.
vbMaximizedFocus	3	Window is maximized with focus.
vbNormalNoFocus	4	Window is restored to its most recent size and position. The currently active window remains active.
vbMinimizedNoFocus	5	Window is displayed as an icon. The currently active window remains active.