Thiet Ke Giao Dien

Thit k giao din

Khi ng Visual Basic Ti dng Visual Basic 5  minh ha, cc bn c th dng cc phin bn khc (v4 hay v6) cng khng sao. Cn nu my cha c phi tin hnh ci t, nn chn cc n bn Enterprise  tn dng sc mnh ca Visual Basic (VB). K t Visual Basic 5 tr i Microsoft ch pht hnh version 32 bit, version 16bit cui cng xut hin  Visual Basic 4.

Vo file/ New Project, click chn Standard EXE, click OK, bn s thy ngay mt form trng xut hin sn sng  thit k.

By gi bn hy to cc control khc trn form, v tr cc control bn c th ty  bn hay theo mu minh ha, thit t cc thng s v thuc tnh (properties) nh sau:

Control	Properties	Name	Notes
form	> BorderStyle: 1- FixedSingle > MinButton: True > Icon: cho 1 file .ico, .cur  lm biu tng cho chng trnh. > Caption: Launch	frmMain	form chnh ca chng trnh.
Mc ch ca vic gn thuc tnh BorderStyle: 1- FixedSingle l khng cho ngi dng thay i kch thc ca s chng trnh trong khi chy. MinButton: True, cho php ngi dng Minimaize chng trnh ca mnh. Mc nhin khi chn BorderStyle: 1- FixedSingle th 2 thuc tnh MinButton & MaxButton t ng gn l False.
CommandButton	Caption: Windows	cmdWin	Cc nt nhn  khi ng cc ng dng tng ng trong nhm
CommandButton	Caption: Applications	cmdApp
CommandButton	Caption: VietNamese	cmdVN
CommandButton	Caption: Exit	cmdExit	Nt thot
Ta c th chia nhm cc ng dng  ci t trn my tnh bng nhiu cch. C th phn loi theo chc nng, ngn ng, mi trng hot ng, ... Trong by minh ha ny ti tm phn loi 1 cc n gin thnh 3 nhm sau: Windows (cc ng dng c sn ca Windows), Apptications (cc chng trnh ng dng khc), VietNamese (Cc tin ch v ting vit nh: t in, b g, ...).
Label	Caption:  trng Alignment: 2- Center Font: fontsize = 14	lblMsg	Khung thng bo
CheckBox	Caption: Unload after 20 sec Value: 1-Checked	chkUnload	Nu check th sao 20 giy chng trnh t ng thot.
PictureBox	Height: 255; Width: 5295	picOut
PictureBox	Appearance: 0- Flat BorderStyle: 0- None BackColor: &H00C0FFC0&	picIns	Bn nn chn mt mu no  cho BackColor  d nhn.
Bn t cho kch thc sao cho picIns nh hn picOut 1 cht. V picIns phi nm lt trong picOut,  c th lm picIns lt vo bn trong bn lm nh sau: To picOut, hiu chnh kch thc cho hp l (hnh minh ha), click chn picOut, v thm 1 picturebox bn trong na, iu chnh kch thc v t tn l picIns. Hai PictureBox ny s lm thanh hin th thi gian khi chng trnh  ch  t ng thot.
Timer	(gi nguyn cc thuc tnh)	timer1	Phc v cho vic t ng thot.

To h thng cc menu cho chng trnh:

T trnh n Tools chn Menu Editor hay nhn t hp phm Ctrl - E cng c tc dng tng t.

S lng menu ny ch lm v d. Bn thch a chng trnh no vo menu th to ra mc chn menu tng ng. Trong hp thoi Menu Editor c cc nt vi cng dng nh sau:

Sau y thuc tnh ca cc menu

Caption	Name
&Windows ___ Windows Explorer ___ - ___ Paint ___ WordPad ___ Notepad	mnuWin mnuWE mnusp1 mnuPaint mnuWP mnuNotepad
&Applications ___ Microsoft Word ___ Microsoft Excel ___ Microsoft Access ___ - ___ Paint Shop Pro ___ - ___ Visual Basic ___ Visual C++	mnuApp mnuWord mnuExcel mnuAccess mnusp2 mnuPaintPro mnusp3 mnuVb mnuVc
&Vietnamese ___ VNI Tan Ky 4 ___ VietKey 4.09d ___ - ___ Lac Viet td ___ Just click 'n' see	mnuVN mnuVNI mnuVK mnusp4 mnuLV mnuClickSee
&Exit	mnuExit

Chng ta thy c 4 menu c tn ln lt sp1, sp2, sp3, sp4, thuc tnh Caption ca n ch l du tr "-". Tc dng ca n l to ra cc ng k ngang  phn cch cc mc chn trong menu. Sau khi to xong, bn c cc h thng menu nh sau

Giao din sau khi to xong h thng menu. By gi bn c th chy th chng trnh bng phm F5. Lc ny bn  thit k xong phn giao din ca chng trnh, k tip chng ta s tin hnh vit code cho chng trnh.

Vit code cho chng trnh

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