Visual Basic - Nhung cau hoi nho

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

(K 9: Ly tham s truyn t dng lnh. Ly cc biu tng ca s. Thu nh chng trnh sau khi dch bng NeoLite 2.0)

1. Ly tham s truyn t dng lnh

VB cung cp cho ta hm Command() hay Command$(). Hm ny tr v mt String m bn truyn vo t dng lnh khi gi chng trnh.

Lu : Hm Command$() mi thc s tr v mt String cn Command() li tr v mt Variant

V d: Hnh bn di cho thy ta khi ng chng trnh MyPad.exe & truyn cho n mt tham s l C:\WINDOWS\WIN.INI

By gi chng ta hy th ly tham s  qua mt chng trnh vit bng VB.

Ta s vit mt chng trnh tn MYPAD, c mt form, trn  c mt TextBox. Nu khi chy chng trnh ngi dng khng truyn tham s th  TextBox  trng (hoc cha mt thng bo). Cn ngc li th kim tr xem  c phi l ng dn n mt tp tin hay khng (tp tin vn bn), nu ng th hin th ni dung file  vo TextBox.

i vi TextBox bn phi t thuc tnh Multiline = TRUE. ScrollBars l 2-Vertical hay 3-Both

Double Click ln form  to code cho s kin FormLoad nh sau:

Private Sub Form_Load()

Dim sFile As String

Dim nd As String, dong As String

nd = "" : dong = ""

sFile = Command$()

If Dir$(sFile) <> "" And sFile <> "" Then

Open sFile For Input As #1

Do While Not EOF(1)

Line Input #1, dong

nd = nd + dong + vbCrLf

Loop

Close #1

Text1 = nd

Caption = "MyPad - " & sFile

Else

Text1 = "Tp tin: [" & sFile & "] khng tm thy." & vbCrLf & "Hoc khng cho ng dn file."

End If

End Sub

 cho Textbox (Text1) lc no cng c kch thc bng vi form, bn hy g code sau vo s kin FormResize.

Private Sub Form_Resize()

Text1.Left = 0 : Text1.Top = 0

Text1.Width = ScaleWidth : Text1.Height = ScaleHeight

End Sub

By gi bn hy cho chy th chng trnh & truyn cho n mt tham s  m file WIN.INI

Click Start / Run & g vo D:\MYPAD\MyPad.exe C:\WINDOWS\WIN.INI (Gi s chng trnh MyPad ca ti lu trn D:\MYPAD), sau  click OK. Chng trnh MyPad ca chng ta chy & hin th ni dung ca WIN.INI trong Textbox.

Nu bn cho chy MYPAD m khng cho tham s hoc cho sai chng trnh s hin th nh sau:

V y ch l mt chng trnh th d n gin minh cho cch nhn tham s t dng lnh, cho nn bn phi ch  l file (ng dn file) m bn truyn cho n khng c c thuc tnh n, nu khng n s bo l khng tm thy.

V u trang

2. Ly cc biu tng chun ca ca s trong Windows

Nu bn c nhu cu t vit ly mt ca s cho mnh th chc chn bn s cn cc k t sau y.

Windows dng font tn l Marlett  th hin cc k t ny. Mun th hin cc k t ny bn g cc k t t 0 n 9 & t a n y, sau  chn font l Marlett. T  bn c th tm thy biu tng mnh cn.

Chng trnh sau y s th hin cc biu tng :

- Bn hy to 1 Project mi

- To mt Textbox (Text1) & mt CommandButton (Command1) t Caption cho nt ny l "Marlett"

- Nhp on Code sau y vo Form1 ri chy th

Option Explicit

Private Sub Form_Load()

Text1.FontName= "Tahoma"

Text1.FontSize = 20

Text1.Text = "0123456789" & vbCrLf & _

"abcdefghijkl" & vbCrLf & "mnopqrtusxy"

End Sub

Private Sub Command1_Click()

Text1.FontName = "Marlett"

End Sub

Khi chng trnh chy bn s thy cc k t xut hin bnh thng vi font Tahoma.

Nhng khi click vo nt Marlett th kt qu nh hnh sau y.

Rt tuyt phi khng bn, nh vy nu cn biu tng no bn c th dng ngay m khng phi mt cng v li.

V u trang

3. Thu nh kch thc tp tin exe sau khi dch chng trnh.

Sau khi dch chng trnh thnh file exe nu thy file ny hi ln, bn c th dng chng trnh NeoLite  nn n li cho nh bt. Chng trnh c th nn cc file sau:

NeoLite dng  nn cc chng trnh 32 bit ca Windows (.EXE, .DLL v .OCX). Sau khi  nn chng trnh ny vn chy bnh thng nh khi cha nn, ngi dng kh m pht hin c s thay i do tc  ca chng trnh gn nh khng h suy gim. Ch c 1 s khc bit duy nht l file  nn nh ch bng 60% lc u do  tit kim c mt lng ng k khong trng ca chng trnh trc khi phn phi n ngi dng.

- NeoLite c 2 mc nn: nn c kh nng phc hi & nn vnh vin (khng phc hi c, ty chn ny cho t l nn cao hn).

- Khng nhng thu nh kch thc m vic nn c th bo v cho chng trnh, trnh c vic dch ngc (de-compilers, dis-assemblers).

- Khng c g m bo file sau khi nn cn chy tt trm phn trm, cho nn bn phi cn thn khi s dng, c bit l phi sao lu trc khi nn.

* C ch nn ca NeoLite:

Khi NeoLite nn mt chng trnh n s ghp mt module c bit ca chnh mnh vi module ca file chng trnh  c nn, module c bit  ca NeoLite c gi l loader program (xem hnh).

Khi file chng trnh ny c triu gi, loader program s chy trc v m nn module ca chng trnh  nn trc tip vo b nh v cho thc thi nh mt chng trnh bnh thng.

Mi s ta nhn th vn c tng din ra bnh thng, nhng tht ra ng sau hu trng m i y, chng trnh cn phi tn cht thi gian  t m nn chnh n trc khi np vo b nh, khong thi gian ny ln hay nh l cn ty thuc vo kch thc thc ca file chng trnh & tc  x l ca my tnh.

V u trang

Mi  kin ng gp v bi vit xin lin h Thin ng thiendang@tlnet.com.vn. Ti rt mong nhn c s ng h nhit tnh t ngi c, hn gp li trong bi vit sau.

02/03/2002

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