Làm việc với Listbox và ComboBox trong VBA AutoCad

Trong quá trình lập trình những ứng dụng trong Autocad, những chức năng này không thể thiếu khi bạn cần chọn những gí trị nhất định mà không muốn bị sai kết quả thì đây chính là chức năng rất quan trọng. Vậy chức năng được sử dụng như thế nào? Ví dụ dưới đây sẽ mô tả cách đưa dữ liệu vào ListBox và ComboBox. Từ hộp Toolbox, bạn cần phải vẽ 1 Listbox và 1 ComboBox và tại hộp Properties của chúng đặt tên cho chúng là:

Listbox: lstBox

ComboBox: cmbBox

Bây giờ chúng ta có thể thêm dữ liệu vào ListBox và ComboBox đơn giản rồi. Ở đây có 2 trường hợp đưa giữa liệu vào các đối tượng này.

1. Đưa dữ liệu lúc bắt đầu chạy chương trình, tức là tự động đưa dữ liệu vào:

Việc đầu tiên bạn cần làm là, bấm phải chuột chọn View Code và thêm câu lệnh sau:

Private Sub UserForm_Initialize()

End Sub

Chức năng của hàm này là khởi tạo các giá trị khi form được xây dựng.

2. Sử dụng nút để đưa dữ liệu vào Listbox và ComboBox: việc này bạn chỉ cần bấm 2 nhanh lần vào nút Hello ở trên và bạn sẽ có một hàm mới

Private Sub Botton_hello()

End Sub

Giờ thì chỉ cần điền mã lệnh để thực hiện chương trình vào là xong. Dưới đây là mã lệnh của chương trình, rất đơn giản bạn chỉ cần làm như sau:

- Chèn vào Combo Box

        cmbBox.AddItem "Hello 1”

- Chèn vào list Box

        lstBox.AddItem "Hello 2"

Private Sub UserForm_Initialize()

    cmbBox.AddItem "Hello 1"

    cmbBox.AddItem "Hello 2"

    cmbBox.AddItem "Hello 3"

    cmbBox.AddItem "Hello 4"

    lstBox.AddItem "Hello 1"

    lstBox.AddItem "Hello 2"

    lstBox.AddItem "Hello 3"

    lstBox.AddItem "Hello 4"

End Sub  

Chạy chương trình bằng cách bấm F5 bạn sẽ thu được kết quả:

Với các đối tượng khác, cũng chỉ cần thực hiện tượng tự. Để lấy giá trị ra bạn chỉ cần dùng lệnh: lstBox.Text lập tức các đối tượng đó sẽ trả về giá trị được chọn ở trên.