Hỏi cách bỏ chọn listbox sau khi dbclick

[HocVBAExcel1973]

Kính gửi các anh chị trong diễn đàn.
Mình có tạo 1 listbox để chọn dữ liệu, mình muốn sau khi double click vào listbox, thì bỏ chọn dòng kẻ màu xanh trên listbox thì phải làm như thế nào. Mong các anh chị giải đáp

 

[HeSanbi]

Bạn sử dụng phương thức Selected của ListBox

listBox1.Selected(listBox1.listIndex) = false

 

[HocVBAExcel1973]

Nó báo lỗi này nè bạn

 

[HeSanbi]

Bạn đã đặt ListStyle = 1 chưa?

 

[HocVBAExcel1973]

Mong được bạn chỉ giáo thêm

 

[HeSanbi]

Bạn cũng cần đặt listbox1.MultiSelect

ListBox chọn danh mục chỉ có các lệnh và thiết đặt đó, không có gì khác.

 

[HocVBAExcel1973]

Không hiệu quả, sau khi nhấn đúp, nó vẫn chọn ngay vị trí mình vừa nhấn chứ không mất đi

 

[ptm0412]

Không hiệu quả, sau khi nhấn đúp, nó vẫn chọn ngay vị trí mình vừa nhấn chứ không mất đi

Mất đi hiểu theo nghĩa nào? Mất màu xanh, hay biến mất hẳn?
Nếu có file thì đã xử lý xong từ lâu. Ngoài ra, thay vì bỏ chọn "màu xanh" thì chọn dòng đầu hoặc dòng cuối, hoặc setFocus vào 1 control khác.

 

[HocVBAExcel1973]

Sau khi khi nhấn đúp vào là mất dấu màu xanh ý, Set Focus vào control khác nó vẫn nháy màu xanh chứ không mất

 

[Hoàng Tuấn 868]

mình muốn sau khi double click vào listbox, thì bỏ chọn dòng kẻ màu xanh trên listbox

View attachment 304896

Mục đích của việc này là để làm gì bạn nhỉ?

 

[HocVBAExcel1973]

Thì sau khi mình nhấn đúp thì dấu chọn màu xanh cứ hiện ngay vị trí nhìn không được thẩm mỹ lắm thôi

 

[Hoàng Tuấn 868]

nhìn không được thẩm mỹ lắm thôi

Vậy thì không quan trọng rồi, có cách sử lý vấn đề này nhưng chỉ để phục vụ nhu cầu thẩm mỹ thì không cần thiết.

 

[HocVBAExcel1973]

Cách xử lý vấn đề này bộ rắc rối lắm hả bạn????

 

[Hoàng Tuấn 868]

Cách xử lý vấn đề này bộ rắc rối lắm hả bạn????

Không hề rắc rối, nhưng thời gian đó để hỗ trợ các bạn khác có những vấn đề quan trọng hơn việc giải quyết thẩm mỹ thì phù hợp hơn.

 

[HeSanbi]

@HocVBAExcel1973 Bác tự mò rồi gộp mã vào dự án kiểu này chắc cái ứng dụng nó lỗi như rừng nhiệt đới.
Chưa gì là thấy lỗi với các hàm API.
Lập trình không đơn giản là đi hỏi rồi ghép vào dự án. Nếu vậy thì người ta bỏ công đi học viết mã chi cho mệt, lên google chép về là xong.

Ví dụ listIndex giá trị khi là -1 làm sao bác biết được mà xử lý.

  If listBox1.listIndex >= 0 Then
    listBox1.Selected(listBox1.listIndex) = false
  End If