Visual Basic - Nhung cau hoi nho

Visual Basic

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

thdang@tlnet.com.vn

C rt nhiu cch gi trnh duyt Internet Explorer ca Windows.  y ti xin by cho bn 1 cch n gin nht.  chy mt chng trnh khc t Visual Basic, bn buc phi dng hm Shell(), i s l g,  mi l iu quan trng.

Thng IE nm  Program Files\Internet Explorer\IExplorer.exe th mc Program Files nm cng  a vi th mc Windows. Tm li, ta tm th mc Windows   a no, sau  ly 2 k t u tin l tn  a (Vi d C:), k n bn hy ghp vi "Program Files\Internet Explorer\IExplorer.exe"  c ng dn n IE r rng. Tuy nhin cch ny s "ph sn" nu nh ngi dng "ngu hng" ci IE  mt th mc khc.

C mt cch khc hi "mnh mung" mt cht, nhng n gin hn v trit  hn rt nhiu. Bn c th "x gt" Windows  gi IE thng qua Windows Explorer bng cch chuyn cho n mt tham s l file htm, lc ny t ng Windows Explorer nhn bit v "al" n cho IE  vo th ch. Vy cng xong chuyn, vic gi Windows Explorer rt  dng

Th d: Cn gi IE  hin th file "testfile.htm" bn c th dng hm Shell() nh sau:

Shell("explorer.exe testfile.htm",vbNormalFocus)

Lu : cch ny i hi h thng bn phi c Internet Explorer 4 tr ln.

Tht l n gin phi khng bn ?

To chc nng WordWrap bng thuc tnh ScrollBars ca TextBox

Gi Internet Explorer / Mu hm API

Trong cc trnh son tho vn bn (nh Notepad). Nu chc nng Wordwrap c chn, khi g vn bn n gii hn ca cnh phi ca s, th vn bn t ng rt xung dng di. Ngc li nu khng cho hiu lc chc nng ny, ch khi no bn nhn phm Enter mi xung dng c.

Bn c mun to 1 tnh nng Wordwrap nh trong Notepad khng ? Cng d lm. Chng ta hy li dng thuc tnh ScrollBars ca Textbox  lm tnh nng Wordwrap.

Properties ScrollBars

Thuc tnh ny dng  quy nh cho Textbox c cc thanh cun hay khng, nhng thuc tnh ny ch c tc dng khi thuc tnh Multiline ca Textbox = True.

0 - None: Textbox khng c thanh cun.

1 - Horizontal: Ch c thanh cun ngang.

2 - Vertical: Ch c thanh cun ng.

3 - Both: C c 2 thanh cun ngang v ng.

Tnh nng Wordwrap ch c tc dng khi thuc tnh ScrollBars l:

0 - None hoc 2 - Vertical

Khng c Wordwrap khi ScrollBars l:

1 - Horizontal hoc 3 - Both

Nhng thuc tnh ny khng th thay i trong lc chng trnh thc thi. Ch cho php thay i trong lc thit k m thi. Do  bn phi to lun 2 Textbox: Mt Textbox khng c Wordwrap (Text1), mt Textbox c Wordwrap (Text2).

Trong lc thit k bn hy cho 1 Textbox n i (Visible = False). Trong th d minh ha ny ti cho Text2 n.

Text1.Visible = True

Text2.Visible = False

Sau  hy to mt Control no   chuyn i qua li gia ch  Wordwrap v khng Wordwrap. Trong minh ha ny ti  to lun mt trnh Notepad, v t lnh Wordwrap vo menu Edit ca chng trnh (Name: WWrap).

Sau y l Code ca mt s Control cn thit cho vic Demo chc nng Wordwrap.

Option Explicit

Private Sub Form_Resize()

Text1.Move 0, 0, ScaleWidth, ScaleHeight
Text2.Move 0, 0, ScaleWidth, ScaleHeight

End Sub

iu chnh kch thc v v tr ca 2 Textbox, cho thch hp vi kch thc ca Form mi khi ngi dng thay i kch thc ca s, hoc chng trnh khi ng. Xin bn hy nh mt iu l: tnh hung Form_Resize lun lun c triu gi mi khi Form_Load.

Private Sub mnuWWrap_Click()

    mnuWWrap.Checked = Not (mnuWWrap.Checked)
    If mnuWWrap.Checked = True Then
        Text1.Visible = False
        Text2.Visible = True
        Text2.SetFocus
    Else
        Text1.Visible = True
        Text2.Visible = False
        Text1.SetFocus
    End If

End Sub

Cc lnh cn x l khi ngi dng chn chc nng Wordwrap. Cho n hin Text1 hay Text2 ty theo trng thi (check hoc khng check) ca menu WordWrap.

Private Sub Text1_Change()

Text2.Text = Text1.Text

End Sub

Private Sub Text2_Change()

Text1.Text = Text2.Text

End Sub

Tuy nhin ti mi thi im, ngi dng ch lm vic (g vn bn) trn mt Textbox m thi, cho nn ta phi tin hnh cp nht lin tc ni dung ca 2 Textbox mi khi c 1 s thay i no  trn bt c Textbox no nh vo th tc tnh hung Change.

Nhng nu ch by nhiu  thi th khng n. Mi ln ngi dng chuyn qua li gia Wordwrap v khng Wordwrap tc l thay i Textbox, t nhin ngi dng c cm gic l l do con tr khng nm ng v tr qu tht l hi "v duyn".  khc phc nhc im trn bn hy thm vi dng Code sau y vo chng trnh m bo ngi dng khng h bit c l bn  nh tro Textbox ca h mi khi chn chc nng Wordwrap.

Private Sub Text1_GotFocus()

Text1.SelStart = Text2.SelStart

End Sub

Private Sub Text2_GotFocus()

Text2.SelStart = Text1.SelStart

End Sub

By gi bn hy chy th chng trnh v g vo vi dng vn bn, sau  chn lnh Wordwrap vi ln xem, i cha ! tht l tuyt, chnh bn cn b "la"na.

Ly cc mu khai bo hm API

Gi Internet Explorer / Chc nng Wordwrap

 bit cch khai bo hm API bn cn khi ng tin ch API Text Viewer c cung cp km theo Visual Basic.

Np file Win32api.txt vo, chn Declares trong phn API Type (c th bn phi ch giy lt  chng trnh load file ny ln v kch thc rt ln). Hoc bn cng c th xem trc tip file ny (dng Text) bng Wordpad.

Sau , bn hy chn hm trong danh sch Available Items, hm no cn dng nhn nt Add  thm vo hp vn bn Select Items pha i. Sau khi  chn xong tt c cc hm cn dng, nhn nt Copy  chp cc hm va chn vo Clipboard. K n bn ch vic Paste vo Visual Basic  dng m thi.

Cc hm API c 2 dng: hm (Function) c tr tr v v th tc (Sub) khng c tr tr v.

Khai bo cho hm c tr tr v nh sau:

Declare Function <tn hm API> Lib <Tn th vin> [Alias <tn b danh>]([danh sch cc i s])

Khai bo cho cc th tc:

Declare Sub <tn hm API> Lib <tn th vin> [Alias <tn b danh>]([danh sch cc i s])

<tn hm API> l tn hm trong cc file th vin DLL.

<tn th vin> tn file th vin DLL  Visual Basic tm cc hm API. Cc file th vin ny phi c y  tn cng phn m rng, ring i vi 3 th vin USER, KERNEL, v GUI th khng cn phi c phn m rng. Tn ny l mt String nn cn phi bao trong du "".

[Alias <tn b danh>] c th c hay khng cng c. Bn cn khai bo b danh khi mun triu gi hm API vi mt ci tn khc do chnh bn t, hoc trong tn hm chun c cha k t b cm s dng trong Visual Basic, lc ny bn hy t b danh cho n  Visual Basic s dng c.

V d hm API "AddfontResource " sau y c t li b danh l AddFont cho ngn gn mi ln gi hm.

Declare Function AddFontResource Lib "gdi32" Alias "AddFont" (ByVal lpFileName As String) As Long

Phm vi s dng ca hm API cng ph thuc vo cc v tr khai bo n nh cch khai bo cc bin trong Visual Basic.

Gi Internet Explorer / Chc nng Wordwrap / Mu hm API

Nguyn H Thin ng chu nht, thang hai 03, 2002

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