Visual Basic - Nhung cau hoi nho (3)

*VisualBasic*

Nhng Cu Hi Nh
Xem bai viet bang font Unicode

thdang@tlnet.com.vn

T to Progress Bar cho ng dng Visual Basic

[Combo box t hin danh sch] [Form Layout]

Nu cc bn dng cc phin bn Enterprise - 32bit ca Visual Basic, th c sn 1 Custom control cho php bn to nhanh mt Progress bar theo mt ca Windows 9.x trng rt n s nhng chun mc

Cn  y ti xin trnh by cch t ch Progress bar bng cc control chun ca Visual Basic (Picture box), cch ny c bit hu ch cho cc bn cn dng phin bn vb 16bit hay khng mun vc theo file COMCTL.OCX (MSCOMCTL.OCX) kch thc trn di 1Mb km theo ng dng ca mnh.

Bn hy to 2 Picture box lng vo nhau, di chuyn v tr Picture box bn trong, chn mu sc cho thch hp. Cn  n chy c  ? bn hy tng (hoc gim)  rng ca Picture box bn trong, cc i khi  rng Picture box bn trong = bn ngoi, cc tiu khi  rng Picture box bn trong = 0.

Pha trn l  xn, pha di l hng t ch.

Bn thy khng cng ngang nga ch b, khng nhng th hng t to cn cho php chng ta thay i mu sc mt cch v t, mun xanh  tm vng u c c, v kh nng ny th  xn rt kh thc hin nu khng mun ni l khng c.

 minh ha ti  dng mt Timer (Timer1) v 2 Picture box (Picture1 v Picture2), Picture2 mu xanh nm trong Picture1 mu xm. Cng vi on m sau:

Option Explicit

Private Sub Form_Load()

Picture2.Width = 0
Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

If Picture2.Width < Picture1.Width Then

Picture2.Width = Picture2.Width + Picture1.Width \ 20

Else

Timer1.Interval = 0
MsgBox " 20 giy tri qua ri y !"
End

End If

End Sub

Khi chy th chng trnh bn s thy Progress bar ca chng ta thay i mi giy 1 ln, cho n ht 20 giy, thng bo bng hm MsgBox nu bn click OK th n goodbye bn lun.

Lm th no  1 combo box t ng hin danh sch khi nhn c focus, m khng cn ngi dng click chut ?

[T to Progress bar] [Form Layout]

Combo box d thy nht trong cc tho trnh l hp chn font nh hnh di y.

 lm c vic ny, bn cn nh li t hp phm tt  m mt combo box trong Windows l ALT - DownArrow (Mi tn xung). Do  ta ch cn lm sao cho combo box nhn c t hp phm ALT + DownArrow l m chuyn.

Rt d dng bn hy cho lnh Sendkeys gi 1 t hp phm ALT - DownArrow t th tc tnh hung GotFocus ca Combo box cn m.

Hy to 1 form mi trn  to mt control no  v d nh CommandButton, k n bn hy to 1 Combo box. L do bn phi to Command button trc  cho n c focus trc (TabIndex = 0), khi chy chng trnh bn hy nhn phm Tab  chuyn focus sang cho combo box, lc ny bn s thy rt r tc dng ca lnh SendKeys.

Private Sub Combo1_GotFocus()

SendKeys "%{DOWN}"

End Sub

Cu lnh SendKeys "%{DOWN}" dng  gi t hp phm ALT - DownArrow ln Combo box khi chnh n nhn c Focus do ngi s dng dch chuyn bng phm Tab hay bng Mouse. S lm cho combo box t ng m ra (hin danh sch).

Th thut ny hu ch khi bn vit cc ng dng c yu cu nhp d liu, thng th ngi dng nhp d liu bng bn phm, sau  nhn phm Tab n mt combo box, n s bung ra ngay  ngi dng chn la, rt tin dng, khin cho ngi ta cm thy rt hi lng v chng trnh ca mnh.

Ca s Form Layout dng  lm g ?

[T to Progress bar] [Combo box t hin danh sch]

y l mt trong nhng tnh nng mi ca Visual Basic 5 & 6, gip cho lp trnh vin d dng phn b cc form trn mn hnh khi chng trnh thc thi mt cch rt trc quan. Vo View \ Form Layout Windows, hay click vo Icon trn toolbar  hin th ca s Form Layout nu cha xut hin.

 s dng cc chc nng trn ca s ny, bn hy right click trn ca s  bt menu Popup gm cc mc chn sau:

Resolution Guides: Hin th  phn gii mn hnh (ch hin th cc  phn gii thp hn  phn gii m mn hnh ang s dng).

Dockable: Hin th Form Layout bng mt ca s ring hay nm chung vi cc ca s Project, Properties.

Hide: ng ca s Form Layout.

Startup Position: V tr form hin th trn mn hnh

Manual: T bn thit lp, bng cch r form c tn tng ng, v da vo cc Resolution Guides  bit r v tr form s xut hin trn mn hnh khi chy chng trnh.

Center Owner: Nm gia form  gi n.

Center Screen: Nm gia mn hnh  bt k  phn gii no.

Windows Default: Theo chun ca Windows, nm hi chch v gc tri trn ca mn hnh.

Mi form trong giai on thit k, mun hin th trn ca s Form Layout bn phi m form  ln, n s xut hin trn ca s Form Layout bng tn tng ng, v tr thc ca n s xut hin trn mn hnh lc chy c phn nh rt chnh xc trong ca s ny.

Xa nay ngi ta c quan nim l ngn ng lp trnh Visual Basic "b yu" hn cc ngn ng khc do khng c cc hm, th tc can thip n cc thng tin cp thp ca h thng nh ngn ng C. Nhng cng chnh Visual Basic  b vo s thiu ht ng tic ca mnh bng cch lin kt v s dng cc hm API (Application Programmer's Interface) c sn trong Windows qua cu lnh Declare. Gip cho ta lm c khi vic tng chng nh v vng. Tht ra cc hm API ny c to ra bng ngn ng C do  ta c th tn dng c cc kh nng ca C trong Visual Basic. Cc hm API tn ti di dng file c phn m rng l DLL hay EXE trong th mc System.  cc bi vit sau chng ta s cng nhau tm hiu v cc API tuyt vi ny. Mt ng dng Visual Basic vit ng hong, chy ngon lnh th  ai nhn m bit c bn vit bng ngn ng no (bn lu  ch cho ngi ta nhn thi nh).

[T to Progress bar] [Combo box t hin danh sch] [Form Layout]

Nguyn H Thin ng 03 th2 2002 05:52:56 CH

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