Lấy list font đưa vào listbox (1 người xem)

[vba_gpe]

Gửi anh chị GPE
Có cách nào lấy được danh sách các font có trong window đưa vào Combobox được không? (Giống như bảng Format Font ấy).
Nếu dùng VB thì dùng lệnh gì ấy nhỉ?

Nhờ anh chị giúp đỡ.
Vô cùng cảm ơn.

 

[Nguyễn Duy Tuân]

Gửi anh chị GPE
Có cách nào lấy được danh sách các font có trong window đưa vào Combobox được không? (Giống như bảng Format Font ấy).
Nếu dùng VB thì dùng lệnh gì ấy nhỉ?

Nhờ anh chị giúp đỡ.
Vô cùng cảm ơn.

Bạn download bộ cài BSAC, trong đó tôi có viết hàm để nhận danh sách font của Windows.

 

[viehoai]

Bạn download bộ cài BSAC, trong đó tôi có viết hàm để nhận danh sách font của Windows.

Anh cho link download để cái nhé. Cảm ơn anh

 

[vba_gpe]

Cảm ơn anh.
Có phải ở đây không anh Tuân.
http://www.giaiphapexcel.com/forum/...-Công-cụ-lập-trình-VBA-VB6-...chuyên-nghiệp!&

 

[Nguyễn Duy Tuân]

Anh cho link download để cái nhé. Cảm ơn anh

Bạn thoe link này nhé. Trong các file ví dụ có nhiều mã nguồn hay các bạn có thể chép về vận dụng.

http://bluesofts.net/giai-phap-phan-mem/bsac-bluesofts-activex-controls.html

 

[ndu96081631]

Gửi anh chị GPE
Có cách nào lấy được danh sách các font có trong window đưa vào Combobox được không? (Giống như bảng Format Font ấy).
Nếu dùng VB thì dùng lệnh gì ấy nhỉ?

Nhờ anh chị giúp đỡ.
Vô cùng cảm ơn.

Đơn giản nhất là vầy:

Private Sub CommandButton1_Click()
  Dim i As Long, Arr()
  With Application.CommandBars.FindControl(ID:=1728)
    ReDim Arr(1 To .ListCount)
    For i = 1 To .ListCount
      Arr(i) = .List(i)
    Next i
  End With
  Me.ListBox1.List() = Arr
End Sub

 

[vba_gpe]

Đơn giản nhất là vầy:

Private Sub CommandButton1_Click()
  Dim i As Long, Arr()
  With Application.CommandBars.FindControl(ID:=1728)
    ReDim Arr(1 To .ListCount)
    For i = 1 To .ListCount
      Arr(i) = .List(i)
    Next i
  End With
  Me.ListBox1.List() = Arr
End Sub

Cảm ơn bác Ndu.
Mình bái phục bác Ndu sát đất.
Đối với bác có vẽ mọi thứ đơn giản quá. (^^)
Mong học hỏi thêm.

 

[vba_gpe]

Lại hỏi thêm cái (ID:1728):
Chỉ số ID này có cách nào để biết chi tiết không ạ. (Nếu có tài liệu thì nhờ bác chỉ với)

Cảm ơn bác nhiều.

 

[ndu96081631]

Lại hỏi thêm cái (ID:1728):
Chỉ số ID này có cách nào để biết chi tiết không ạ. (Nếu có tài liệu thì nhờ bác chỉ với)

Cảm ơn bác nhiều.

Dễ ẹc. Vì hộp Font nằm trong thanh Formatting, vậy ta dùng vòng lập duyệt qua các Item là ra

Sub Test()
  Dim Item As CommandBarControl
  For Each Item In CommandBars("Formatting").Controls
    MsgBox Item.Caption & " - " & Item.ID
  Next
End Sub

 

[viehoai]

Đơn giản nhất là vầy:

Private Sub CommandButton1_Click()
  Dim i As Long, Arr()
  With Application.CommandBars.FindControl(ID:=1728)
    ReDim Arr(1 To .ListCount)
    For i = 1 To .ListCount
      Arr(i) = .List(i)
    Next i
  End With
  Me.ListBox1.List() = Arr
End Sub

Cho em hỏi vì sao nếu kích vào Design Mode, chọn ListBox1 và kích nút Run trong VBE thì code chạy bình thường cho kết quả như ý. Nhưng kích vào nút CommandButton1 trong Sheet thì nó báo lỗi tại dòng

ReDim Arr(1 To .ListCount)

 

[ndu96081631]

Cho em hỏi vì sao nếu kích vào Design Mode, chọn ListBox1 và kích nút Run trong VBE thì code chạy bình thường cho kết quả như ý. Nhưng kích vào nút CommandButton1 trong Sheet thì nó báo lỗi tại dòng

ReDim Arr(1 To .ListCount)

Tôi cũng chẳng biết nữa. Thôi thì cho code vào Module và chạy code bằng Button vẽ từ thanh Forms (đừng chạy bằng CommandButon ActiveX)
------------
Lỗi này thật lạ, trước giờ chưa từng thấy và cũng không biết cách nào khắc phục