Visual Basic - Nhung cau hoi nho, ky 6

thphuong@saigon.vnn.vn

Trong k ny:

1. Kim tra s tn ti ca file  bt k u
2. Kim tra  phn gii mn hnh
3. Import file reg vo registry
4. S khc nhau khi load form  ch  MODAL & MODELESS
5. Khi no, ti sao phi dng Option Explicit
6. To menu PopUp

1. Kim tra s tn ti ca file  bt k u

2. Kim tra  phn gii mn hnh
3. Import file reg vo registry
4. S khc nhau khi load form  ch  MODAL & MODELESS
5. Khi no, ti sao phi dng Option Explicit
6. To menu PopUp

 gi cho ng dng ca bn sun s khi chy trnh trng hp b li chng trnh v ngng mt cch "bt hp php", nu ngi gp li l chnh bn th khng c g, nhng nu ngi gp li khng phi l bn, bn s b "mt mt" v chng trnh ca mnh. C th hn, trong qu trnh lm vic vi file, bn cn phi lun kim tra file c tn ti hay khng trc khi thc hin mt tc v ghi c no . Di y l mt chng trnh con dng  kim tra, i s duy nht l ng dn file cn m.

Public Sub VerifyFile(FileName As String)

On Error Resume Next

'M file th  kim tra

Open FileName For I`165432nput As #1

If Err Then

MsgBox ("The file " & FileName & " cannot be found.")

Exit Sub

End If

Close #1

End Sub

Bn hy t n vo mt module  s dng cho ton chng trnh.

Nu qu trnh kim tra din ra tt p th khng c g, nu c trc trc bn s thy mt MsgBox xut hin, nh by li, chng trnh ca chng ta vn hot ng tip tc. By gi bn hy to mt form mi, thm vo mt CommandButton (Name: cmdVerify), g vo on Code cho tnh hung Click(), nhn F5 chy th. Vi chng trnh con nh vy bn c th gi n  kim tra s tn ti ca file trong chng trnh.

Private Sub cmdVerify_Click()

Call VerifyFile("MyFile.txt")

End Sub

2. Kim tra  phn gii mn hnh

1. Kim tra s tn ti ca file  bt k u
3. Import file reg vo registry
4. S khc nhau khi load form  ch  MODAL & MODELESS
5. Khi no, ti sao phi dng Option Explicit
6. To menu PopUp

Nu chng trnh ca bn c i hi phi chy trong mt  phn gii mn hnh nht nh no , bn c th dng cch sau y  kim tra  phn gii ca mn hnh c thch hp vi chng trnh ca mnh khng, ri sau  mi chy.

Hm CheckRez(rng, cao) nhn vo 2 tham s l chiu rng v cao ca mn hnh (tnh bng Pixel) tr v mt gi tr kiu Boolean (True/False). Nu tr v True c ngha l  phn gii mn hnh ang s dng thch hp vi  phn gii bn cn kim tra.

Vd: CheckRez(800,600) = True

Do Visual Basic s dng n v l Twip m bn li s dng l Pixel cho nn phi c s chuyn i n v.

Public Function CheckRez(pixelWidth As Long, _
pixelHeight As Long) As Boolean

Dim lngTwipsX As Long

Dim lngTwipsY As Long

' chuyn i t pixels sang twips

lngTwipsX = pixelWidth * 15

lngTwipsY = pixelHeight * 15

' kim tra li  rng v cao ca mn hnh

If lngTwipsX <> Screen.Width Then

CheckRez = False

Else

If lngTwipsY <> Screen.Height Then

CheckRez = False

Else

CheckRez = True

End If

End Function

K n, bn hy dng cu lnh if cng vi iu kin kim tra l hm CheckRez  on m bt u ca chng trnh.

If CheckRez(640, 480) = False Then

MsgBox "Incorrect screen size!"

Else

MsgBox "Screen Resolution Matches!"

End If

3. Inport mt file Registry (*.reg)

1. Kim tra s tn ti ca file  bt k u
2. Kim tra  phn gii mn hnh
4. S khc nhau khi load form  ch  MODAL & MODELESS
5. Khi no, ti sao phi dng Option Explicit
6. To menu PopUp

Nu bn cn Import mt file reg vo Registry m khng mun lm bn tm n ngi dng. Bn hy chy Regedit vi thng s /s km theo sau l tn file v ng dn file reg cn Import vo Registry. C th nh sau:

Dim strFile As String

Dim lngRet

strFile = App.Path & "\myreg.reg"

If Len(Dir$(strFile)) > 1 Then

lngRet = Shell("Regedit.exe /s " & strFile, vbNormalFocus)

End If

Vi cch ny file reg ca bn s c Merge vo Registry mt cch m thm, khng ai hay bit.

V ng nhin bn cng c th g trc tip nh vy vo hp thoi run ca Windows.

4. S khc nhau khi load form  ch  MODAL v MODELESS

1. Kim tra s tn ti ca file  bt k u
2. Kim tra  phn gii mn hnh
3. Import file reg vo registry
5. Khi no, ti sao phi dng Option Explicit
6. To menu PopUp

Nhng Form c load  ch  MODAL thng c yu cu bt buc v ch ngi dng nhp d liu trc khi thi hnh cc lnh khc trong cng mt th tc (Sub / Function). Form loi ny thng gi focus ca chng trnh cho n khi n c ngi dng "gii tn". Khi hin th form  ch  ny, cc lnh khng thuc form ang hin th s khng c thc hin, m phi ch cho n khi form ny c ng li. Cc MsgBox, InputBox chnh l mt dng ca Modal form.  hin th form  ch  ny bn dng c php lnh sau:

MyForm.SHOW vbModal

Khi load form  ch  MODELESS cc lnh s c ln lt thc hin mt cch bnh thng t trn xung di trong mt th tc (khng cn ngi dng phi quan tm,  t t ri xem cng c). cc MDI child lun  dng modeless.  hin th form  ch  modeless bn dng lnh:

MyForm.SHOW

5. Ti sao phi dng Option Explicit?

1. Kim tra s tn ti ca file  bt k u
2. Kim tra  phn gii mn hnh
3. Import file reg vo registry
4. S khc nhau khi load form  ch  MODAL & MODELESS
6. To menu PopUp

Nu dng Option Explicit xut hin trong ca s code ca chng trnh cng c ngha l Vb bc buc bn phi khai bo bin mt cch tng minh trc khi s dng chng. Mnh  Option Explicit c t  dng u tin trong ca s Code (General Declaration). Qu tht vic bt buc phi khai bo bin s lm cho chng trnh r rng, gim thiu ti a cc sai st ngoi  mun (bugs) do kh nng t pht sinh bin mi m khng cn khai bo ca Visual Basic . y cng l con dao 2 li, theo ti tnh nng ny hi nhiu hn l li.

Bn c th g trc tip mnh  Option Explicit hay nh VB t ng thm gip bng cch vo Tools / Options. Check vo Require Variable Declaration trong th (tab) Editor.

Option Explicit s v hiu kh nng t pht sinh bin ca Vb. Nh vy, tt c cc bin mun s dng u phi khai bo bng t kha DIM hay REDIM, bin no cha c khai bo VB s thng bo li v bt bn phi khai bo mi chy c chng trnh. Kiu d liu mc nhin m mi ln Visual Basic (Basic) to bin mi l Variant.

6. To menu PopUp

(THIEN DANG)

1. Kim tra s tn ti ca file  bt k u
2. Kim tra  phn gii mn hnh
3. Import file reg vo registry
4. S khc nhau khi load form  ch  MODAL & MODELESS
5. Khi no, ti sao phi dng Option Explicit

Trong ng dng ngoi loi menu ko xung (PullDown) cn mt loi menu na kh linh ng gi l menu PopUp. Loi menu ny bn rt thng s dng trong Windows 9.x, c kch hot bng phm phi chut. Mt ng dng Windows hon chnh chy trong Windows 9.x khng th khng c loi menu cp tc ny.

Trong Visual Basic loi menu ny tht ra cng l mt menu PullDown bnh thng m thi. Khi no cn hin thnh menu PopUp bn ch vic gi tn menu tng ng (Name ca Menu).  cho thnh menu PopUp th thit bn hy cho menu ny n i (Visible = False), khi no ngi dng nhn phm phi chut bn s cho n hin ra bng method Popupmenu

Trong chng trnh ta c th dng hnh vi (method) popupmenu  gi mt menu hin th, menu ny phi c to trc (menu editor) v c t nht 1 mc chn con tc l menu th cp.

C php: object.PopupMenu menuname, flags, x, y

Trong :

object: tn form m trnh n s xut hin. Nu khng ghi c ngha l dng form hin hnh.

menuname: tn menu cn hin th.

flags: gi tr nguyn qui nh v tr xut hin ca menupopup.

Tn Hng	Gi Tr	 ngha
vbPopupMenuLeftAlign	0	Tr mc nh, cnh tri ca trnh n s  v tr x.
vbPopupMenuCenterAlign	4	Trnh n s canh gia so vi v tr x.
vbPopupMenuRightAlign	8	Cnh phi ca trnh n s  v tr x.
...	...	...
x,y		Ta  trnh n s xut hin. Nu khng ghi mc nhin trnh n s xut hin  v tr mouse

Sau y l mt th d v PopUp menu:

M mt form trng v to 1 h thng menu nh hnh sau. Trong hnh menu chnh l Record (Name: mnuRec) vo c mt s menu con nh: Insert, Append, Edit, Delete.

 "chp" c s kin nhn Mouse bn hy kho st tnh hung MouseDown ca form ny. G vo on Code sau:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then
' Kim tra xem nt phi chut c b nhn khng

PopupMenu mnuRec, 0
' Cho hin th menu mnuRec

End If

End Sub

Nhn F5 chy th bn s c nh hnh bn. Nhng chng ta li khng mun ci menu ny lun xut hin s s trn form, hy cho n bin mt.

Bn ch cn cho ci menu "u n" mnuRec bin mt l cc menu con bn trong cng mt tch theo. Hy m hp thoi Menu Editor ra, click chn menu Record, b du check  CheckBox Visible, click OK. H h by gi n bin mt tiu ri.

Nhn F5, chy th chng trnh, nhn nt phi chut... By gi th thnh cng ri hn. Hy p dng cch ny vo ng dng Visual Basic ca bn  tin cho ngi dng.

Hn gp li  bi vit k sau.

chu nht, thang hai 03, 2002 06:33:57 CH
NGUYEN THI THANH PHUONG
thphuong@saigon.vnn.vn

PcLeHoan 1996 - 2002
Mirror : http://www.pclehoan.com
Mirror : http://www.lehoanpc.net
Mirror : http://www.ktlehoan.com