Lấy tham số truyền từ dòng lệnh Lấy tham số truyền từ dòng lệnh Bởi: Khoa CNTT ĐHSP KT Hưng Yên VB cung cấp cho ta hàm Command() hay Command$() Hàm trả String mà bạn truyền vào từ dòng lệnh gọi chương trình Lưu ý: Hàm Command$() thực trả String Command() lại trả Variant Ví dụ: Hình bên cho thấy ta khởi động chương trình MyPad.exe & truyền cho tham số C:\WINDOWS\WIN.INI Bây thử lấy tham số qua chương trình viết VB Ta viết chương trình tên MYPAD, có form, có TextBox Nếu chạy chương trình người dùng không truyền tham số để TextBox trống (hoặc chứa thông báo) Còn ngược lại kiểm trả xem có phải đường dẫn đến tập tin hay không (tập tin văn bản), 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 2-Vertical hay 3-Both Double Click lên form để tạo code cho kiện FormLoad sau: Private Sub Form_Load() 1/3 Lấy tham số truyền từ dòng lệnh 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 có kích thước với form, bạn gõ code sau vào kiện FormResize Private Sub Form_Resize() Text1.Left = : Text1.Top = Text1.Width = ScaleWidth : Text1.Height = ScaleHeight 2/3 Lấy tham số truyền từ dòng lệnh End Sub Bây bạn cho chạy thử chương trình & truyền cho 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 lưu D:\MYPAD), sau click OK Chương trình MyPad chạy & hiển thị nội dung WIN.INI Textbox Nếu bạn cho chạy MYPAD mà không cho tham số cho sai chương trình hiển thị sau: Vì chương trình thí dụ đơn giản minh cho cách nhận tham số từ dòng lệnh, bạn phải ý file (đường dẫn file) mà bạn truyền cho thuộc tính ẩn, không báo không tìm thấy 3/3 ... Text1.Width = ScaleWidth : Text1.Height = ScaleHeight 2/3 Lấy tham số truyền từ dòng lệnh End Sub Bây bạn cho chạy thử chương trình & truyền cho tham số để mở file WIN.INI Click Start / Run & gõ vào D:MYPADMyPad.exe... MYPAD mà không cho tham số cho sai chương trình hiển thị sau: Vì chương trình thí dụ đơn giản minh cho cách nhận tham số từ dòng lệnh, bạn phải ý file (đường dẫn file) mà bạn truyền cho thuộc tính.. .Lấy tham số truyền từ dòng lệnh Dim sFile As String Dim nd As String, dong As String nd = "" : dong = "" sFile