Visual Basic - Nhng cu hi nh
Xem bai viet bang font Unicode

thdang@tlnet.com.vn

K 2

Custom Control trong Visual Basic 5.0

Khi vit mt ng dng trong VB nu khng s dng thm bt c mt Custom Control no ngoi cc Control chun ca VB. Sau khi dch thnh file EXE, mun chp sang my khc bn phi chp km theo 2 file th vin chun VB nm trong th mc System.

MSVBVM50.DLL (1.355.776 bytes)

CTL3D32.DLL (45.056 bytes)

y l 2 file th vin cn thit cho bt c ng dng no vit bng Visual Basic. Bi vy c nhiu khi file chng trnh EXE ca bn ch vi ba chc Kb m phi vc theo 2 file ny qu l hi bt tin, tuy nhin bn c th nn chng li cho nh bt, ti  th v sau khi nn ch cn 655.557 bytes thay v 1.400.832 bytes nh lc u.

Cn nu trong ng dng ca bn c xi thm cc Custom Control th nn lu  phi chp thm cc file tng ng, c nh vy khi em qua my khc chng trnh ca bn mi chy c.

Khi bn chn mt Custom Control trong hp thoi Components th file tng ng s c hin th  phn Location, bn hy cn c vo y m tm chp cho ng. Cc file ny thng c phn m rng l DLL hay OCX nm trong th mc System (c th m bng Visual C++).

Hy chp chng vo th mc Windows, System, cc th mc  c t ng dn PATH, hay cho chung vo cng th mc vi file EXE ca my cn chy chng trnh ca bn.

C th dng mt chng trnh to b a Setup v ch nh cho chng chp thm cc file ny, v d nh Create Install chng hn. ng thi nu c trnh Setup, chng trnh ca bn trng c v ng hong v chuyn nghip hn (c th tin cy c).

Phin bn ca ng dng Visual Basic

Khi bn vit mt chng trnh bng Visual Basic, trong ng dng ca bn lun xut hin mt i tng tn l App, trong cc thuc tnh ca i tng App c 3 thuc tnh lu gi s phin bn (Version). Ta c th d dng truy cp 3 thuc tnh ny  bit c version ca chng trnh.

App.Major: Con s chnh

App.Minor: Con s ph

App.Revision: Con s ny cho bit s ln bn hiu chnh v dch li chng trnh.

Bn c th dng mt Msgbox  th hin Version ca chng trnh:

Msgbox "Version: " & App.Major & "." & App.Minor & App.Revision

Tuy nhin bn c th  cho con s Revision t ng tng mi ln dch chng trnh, vo Project \ Properties, chn tab Make v click chn mc Auto Increment trong khung Version Number

Hoc cho chng trnh th hin phin bn ln Caption ca Form khi Load

Private Sub Form_Load()
Me.Caption = Me.Caption & " - Ver " & App.Major & "." & App.Minor & App.Revision
End Sub

To mn hnh Splash Screen

Bn c   khi khi ng Visual Basic khng ? Ttrc khi chng trnh Visual Basic c khi ng thng c mt khung nh sau hin ra trong chc lt li bin mt v VB sn sng cho bn lm vic. Khng ch Visual Basic khng u, hu nh tt c cc phn mm hin nay u c mn hnh ny.

Khung  ta gi l mn hnh Splash Screen, c cho hin th trong lc khi ng nhm trnh cho ngi dng  st rut trong khi chng trnh np d liu hoc thc hin cc lnh cn thit, trn  thng bo cc vn  v bn quyn, phin bn, logo ... Khi chng trnh  sn sng lm vic mn hnh ny t ng bin mt.

Trong VB mn hnh Splash ny tht ra cng l mt Form nhng khng hin th thanh tiu , c np ln mn hnh t th tc tnh hung FormLoad ca 1 form no  trong chng trnh (thng l Form chnh - form s lun lun c hin dch trong sut qu trnh lm vic).

Private Sub Form_Load()

Me.Show
frmSplash.Show
DoEvents

<Cc lnh cn thc hin khi khi ng chng trnh>

Unload frmSplash

End Sub

Me.Show: bt chng trnh v form chnh ln mn hnh. Bn c th ghi Show cng c v lnh Show mc nhin tc ng ln form hin hnh khi khng dc ch r i tng.

frmSplash.Show: Cho hin th mn hnh Splash (bn lu : cho n lc ny frmSplash vn cha hin ln mc d  gi)

DoEvents: Ch cho Windows hin th hon tt frmSplash ln mn hnh.

Sau lnh DoEvents l tp hp cc lnh cn x l trong khi chng trnh khi ng.

Cui cng l lnh Unload frmSplash c tc dng ng mn hnh Splash Screen li. Lc ny chng trnh  sn sng cho ngi dng.

Ngn ng lp trnh Visual Basic ngy cng tr nn ph bin, c rt nhiu ngi quan tm ti. Trong vng 2 nm tr li y bt u xut hin kh nhiu sch vit v ngn ng ny to iu kin cho chng ta tm hiu, theo ti d on trong vi nm ti n s thng dng nh Word, Excel vy. Cch thc lp trnh trong ngn ng ny rt gn gi vi Windows (bn s hiu Windows su sc hn khi lp trnh bng ngn ng ny). Nu bn  hc Microsoft Access th ng nn b qua ngn ng lp trnh "thn tc" ny. Mc d chng trnh c vit ra chy khng hiu qu bng nhng ngn ng khc nhng vi n bn c th to ra mt ng dng Windows nhanh v d dng nh ... "nu mt gi m n lin" lc ny vn  hiu qu c th tm cho qua.

Nu bn mun tm hiu cn bn v Visual Basic th nn chn quyn "T hc lp trnh Visual Basic 5" ca tc gi Phm Thy Nhn, cn nu chu kh th hy tm nhng quyn sch ca Samis, thm ch trong lc i xem sch ti thy c quyn ghi l: "cha bit g, c sch, gp sch li, thnh chuyn gia" na y.

Thin ng, 03 th2 2002 05:52:15 CH

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

Visual Basic - Nhng cu hi nh Xem bai viet bang font Unicode

Visual Basic - Nhng cu hi nh
Xem bai viet bang font Unicode