Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Private Sub UserForm_Initialize() 'Nạp danh sách ảnh vào combobox
Application.ScreenUpdating = False
Dim fA()
Dim i, n As Integer
Dim dName As Variant
ChDir "D:\03_HEO2018\12_Userform-Get-Picture-by-combobox" 'Địa chỉ đường dẫn nơi chứa ảnh
dName = Dir("*.jpg") 'Tên đối tượng được chọn là các ảnh có đuôi .jpg trong thư mục
'Nạp các đối tượng có trong thư mục vào trong 1 danh sách
Do While dName <> ""
n = n + 1
ReDim Preserve fA(1 To n)
fA(n) = dName
dName = Dir()
Loop
'Nạp danh sách vào Combobox cbSale
For i = 1 To n
cbSale.AddItem fA(i)
Next
Application.ScreenUpdating = True
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment