Lấy tham số truyền từ dũng lệnh

Một phần của tài liệu Lập trình với Visual Basic (Trang 88 - 90)

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

Một phần của tài liệu Lập trình với Visual Basic (Trang 88 - 90)

Tải bản đầy đủ (DOC)

(107 trang)
w