Đánh giá chủ đề:
  • 3 Votes - 2.33 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tạo combo box để chọn các ổ đĩa có trên máy tính
#1

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

Mã PHP:
Private Sub MyDrive_GotFocus()
        
Dim fsddcsn
        Set fs 
CreateObject("Scripting.FileSystemObject")
        
Set dc fs.Drives
        n 
0
        
For Each d In dc
            s 
d.DriveLetter ":,"
            
1
        Next
    MyDrive
.ListRows n
    MyDrive
.RowSourceType "Value list"
    
MyDrive.RowSource s
    End Sub 

xem demo: DownLoad
Thủ Thuật này được sưu tầm từ blog sưu tầm bài viết
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar] maidinhdan 13 542 30-11-16, 11:45 AM
Bài mới nhất: ongke0711
  [Thủ Thuật] Khôi phục lại table đã vô tình xóa Xuân Thanh 0 837 01-07-12, 12:17 PM
Bài mới nhất: Xuân Thanh
  Xóa record trên form bằng hàm VBA Xuân Thanh 0 1,354 25-04-12, 11:21 AM
Bài mới nhất: Xuân Thanh
  Danh sách thủ thuật có trên Blog Thủ thuật access Noname 1 2,938 05-04-11, 10:34 PM
Bài mới nhất: mr_toan
  Tính số ngày trong tháng Noname 0 2,037 03-09-10, 06:34 PM
Bài mới nhất: Noname

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ