• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Tạo combo box để chọn các ổ đĩa có trên máy tính

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • Tạo combo box để chọn các ổ đĩa có trên máy tính
• Tạo combo box để chọn các ổ đĩa có trên máy tính

• Tạo combo box để chọn các ổ đĩa có trên máy tính

  Noname > 28-08-10, 10:58 AM

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


  
  xem demo: DownLoad
  Thủ Thuật này được sưu tầm từ blog sưu tầm bài viết
• Bài trước Bài tiếp