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 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
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