đăng 20:27 27 thg 3, 2012 bởi Hai Yen
[
đã cập nhật 07:43 16 thg 9, 2014
]
Cách tạo combo box để chọn ổ đĩa trên máy tính (tự động đưa tất cả các ổ đĩa trong máy vào combo box)đầu tiên tạo 1 combo box tên là (ví dụ là thế) : Mydrive Private Sub MyDrive_GotFocus() Dim fs, d, dc, s, n Set fs = CreateObject("Scripting.FileSystemObject") Set dc = fs.Drives n = 0 For Each d In dc s = s & d.DriveLetter & ":," n = n + 1 Next MyDrive.ListRows = n MyDrive.RowSourceType = "Value list" MyDrive.RowSource = s End Sub |
|