• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Tạo ListBox và ComboBox... ngược

Các thủ thuật liên quan đến việc xử lý ứng dụng, biểu mẫu và control
Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

Tạo ListBox và ComboBox... ngược

Gửi bàigửi bởi clarkkent » CN 06/07/2008 2:44 pm

Thủ thuật: Tạo ListBox và ComboBox... ngược
Tác giả: Nguyễn Trung Tín
Mô tả: Tạo ListBox và ComboBox... ngược


Test.PNG
Test.PNG (12.37 KiB) Đã xem 2753 lần

Mã: Chọn hết

  1. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  2. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  3. Private Const GWL_STYLE = (-16)
  4. Private Const GWL_EXSTYLE = (-20)
  5.  
  6. Private Sub Form_Load()
  7. 'Test
  8. Dim i As Byte
  9. For i = 0 To 10
  10. Combo1.AddItem "Dong thu " & i
  11. List1.AddItem "Dong thu " & i
  12. Next
  13.  
  14.  
  15. Dim m_Style_Cmb As Long
  16. m_Style_Cmb = GetWindowLong(Combo1.hwnd, GWL_EXSTYLE)
  17. m_Style_Cmb = m_Style_Cmb Or &H3000
  18. Call SetWindowLong(Combo1.hwnd, GWL_EXSTYLE, m_Style_Cmb)
  19.  
  20. Dim m_Style_Lst As Long
  21. m_Style_Lst = GetWindowLong(List1.hwnd, GWL_EXSTYLE)
  22. ' m_Style_Lst = m_Style Or &H4000 'Chu canh lề Trái
  23. m_Style_Lst = m_Style_Lst Or &H5000 'Chu canh lề Phải
  24. Call SetWindowLong(List1.hwnd, GWL_EXSTYLE, m_Style_Lst)
  25. End Sub
  26.  


• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

Hình đại diện của người dùng
anhtuyenbk
Guru
Guru
Bài viết: 1311
Ngày tham gia: T.Năm 22/09/2005 4:12 pm
Đến từ: Một nơi chừa từng biết, chưa từng nghe, chưa từng thấy
Been thanked: 38 time

Re: Tạo ListBox và ComboBox... ngược

Gửi bàigửi bởi anhtuyenbk » CN 06/07/2008 2:57 pm

Cái này hay đấy lạ mắt nhưng như thế thì đa số người ta nhìn ko quen nên chắc ko ai xài đâu :D :D :D
Kiếm cơm cho qua ngày tháng
https://www.facebook.com/pinduphongpisenchinhhang

Hình đại diện của người dùng
Dang Minh Du
Thành viên ưu tú
Thành viên ưu tú
Bài viết: 531
Ngày tham gia: T.Tư 02/04/2008 2:08 pm
Đến từ: RGames Team
Has thanked: 3 time
Been thanked: 17 time
Liên hệ:

Re: Tạo ListBox và ComboBox... ngược

Gửi bàigửi bởi Dang Minh Du » T.Năm 17/07/2008 1:14 pm

Giống như việc in sách ngược cũa Nhật Bản :D
~°Dòng Sông Mùa Thu°~
Studying...!

Hình đại diện của người dùng
vo_minhdat2007
Quản trị
Quản trị
Bài viết: 2227
Ngày tham gia: CN 17/07/2005 1:40 am
Has thanked: 13 time
Been thanked: 87 time
Liên hệ:

Re: Tạo ListBox và ComboBox... ngược

Gửi bàigửi bởi vo_minhdat2007 » T.Năm 17/07/2008 5:28 pm

Cái này Set RightToLeft = True là được mà?


Quay về “[VB] Ứng dụng - Form và Control”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách