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:

Vy c th vit li hm Shell nh sau Shell("explorer",1) cho gn

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.