• 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ự động xổ Combo khi bấm bàn phím mũi tên

Các thủ thuật liên quan đến việc xử lý ứng dụng, biểu mẫu và control
QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Tự động xổ Combo khi bấm bàn phím mũi tên

Gửi bàigửi bởi QuangHoa » T.Tư 07/05/2008 9:24 am

Thủ thuật: Tự động xổ Combo khi bấm bàn phím mũi tên
Tác giả: Võ Quang Hòa
Mô tả: Bình thường sử dụng Combo thì nếu bấm phím mũi tên (lên xuống) thì Combo sẻ thay đổi giá trị. Mẹo sau sẻ làm cho nó khi bấm mũi tên thì có menu xổ xuống như thể là ta bấm nút tam giác vậy.



Mã: Chọn hết

  1. Private Declare Function SendMessageLong Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wmsg As Long, ByVal wpa As Long, ByVal lpa As Long) As Long
  2. Public Property Let Xocombo(ByRef com1 As ComboBox, ByVal bstate As Boolean)
  3.     SendMessageLong com1.hwnd, &H155, Abs(bstate), 0
  4. End Property
  5. Public Property Get comboExtendededUI(ByRef com1 As ComboBox) As Boolean
  6.     Xocombo = (SendMessageLong(com1.hwnd, &H156, 0, 0) <> 0)
  7. End Property
  8. Private Sub Form_Load()
  9. Xocombo(combo1) = True
  10. End Sub

Thử nhé. :x


朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

Hình đại diện của người dùng
NoBi
Quản trị
Quản trị
Bài viết: 948
Ngày tham gia: T.Ba 18/03/2008 1:22 pm
Đến từ: Sài Gòn
Has thanked: 50 time
Been thanked: 66 time
Liên hệ:

Re: Tự động xổ Combo khi bấm bàn phím mũi tên

Gửi bàigửi bởi NoBi » CN 11/05/2008 8:17 pm

Ví dụ này sao mình chạy thử thì bị crash liền. Có ai bị nữa hay không hay là do máy mình bị lỗi ?.
:>

Hình đại diện của người dùng
tieurongtien
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 79
Ngày tham gia: T.Tư 26/03/2008 7:56 pm
Đến từ: Nơi mà ai-cũng-biết-là-nơi-nào-đó
Liên hệ:

Re: Tự động xổ Combo khi bấm bàn phím mũi tên

Gửi bàigửi bởi tieurongtien » T.Hai 12/05/2008 8:21 am

Sao em chạy bình thường, không có lỗi gì hết, chắc tại máy của anh bị lỗi rồi
Đừng xấu hổ khi không biết, chỉ xấu hổ khi không học

QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Re: Tự động xổ Combo khi bấm bàn phím mũi tên

Gửi bàigửi bởi QuangHoa » T.Hai 12/05/2008 9:00 am

NoBi đã viết:Ví dụ này sao mình chạy thử thì bị crash liền. Có ai bị nữa hay không hay là do máy mình bị lỗi ?.


Cái này thì em cũng chịu, em chạy được vô tư mà :-/
朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

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ự động xổ Combo khi bấm bàn phím mũi tên

Gửi bàigửi bởi anhtuyenbk » T.Hai 12/05/2008 9:17 am

Mới kiểm tra, chạy bình thường.
Kiếm cơm cho qua ngày tháng
https://www.facebook.com/pinduphongpisenchinhhang

malyfo
Bài viết: 9
Ngày tham gia: T.Tư 25/06/2008 2:05 pm

Re: Tự động xổ Combo khi bấm bàn phím mũi tên

Gửi bàigửi bởi malyfo » T.Ba 08/07/2008 11:04 am

Mã: Chọn hết

  1. Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
  2.     'Caption = KeyCode & " " & Shift
  3.     If (KeyCode = 38 Or KeyCode = 40) And Shift = 0 Then
  4.         SendKeys "%{DOWN}"
  5.     End If
  6. End Sub

Cái này không hay bằng của bạn nhưng mình thấy cũng tạm được.

kaildo
Thành viên chính thức
Thành viên chính thức
Bài viết: 43
Ngày tham gia: T.Sáu 26/11/2010 12:57 am
Has thanked: 6 time
Been thanked: 3 time

Re: Tự động xổ Combo khi bấm bàn phím mũi tên

Gửi bàigửi bởi kaildo » CN 06/10/2013 4:55 pm

Xài cái auto complete của bác nobi hay hơn


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