View Full Version : [Q] Hoi cach search giong MTD300
Các bạn chắc đã dùng qua cái MTD300 rồi ohải không ?
Khi tôi muốn tra tử love chẳng hạn :khi gõ l thì hiện tất cả các từ bắt đầu từ l ,gõ tiếp o thỉ hiện tất cả các từ bắt đầu từ lo...
Tôi đang viết một chương trình tìm kiếm trên cơ sở dữ liệu mdb
bằng SQL
Rất muốn làm cái giống như trong MTD300 đó
Mong giúp đỡ
lol
come2one
28-09-2002, 22:08
Bạn có thể khai thác các tính năng của Listbox Control, hoặc tạo một control riêng phục vụ cho yêu cầu này bằng API functions.
Tui không hiểu nói rõ chút coi
bạn dùng listbox-control chứa danh sách, tạo biến để chứa những gì bạn đang gõ trên listbox, mỗi khi nhập, xoá hay thay đổi bạn cho listbox tìm kiếm đến item tương ứng, tui nghĩ giải thuật này cũng dễ viết thôi mà...
Nếu bạn có nghiên cứu về các hàm API thì mail cho tui, tui sẽ cho ebook hướng dẫn, dùng hàm API dễ hơn, có thể dùng cho cả textbox để có những chức năng giống listbox vậy...
xin lỗi đã không để lại mail: vth_bk@yahoo.com
đúng cái mà chỉ cần dùng textbox ý (tôi sẽ mail cho bạn ngay)
cảm ơn !
quaitieutu
30-09-2002, 10:37
Trong PC Word gần đây có bày " chiêu này đó",dùng API.Cũng không phức tạp lắm
Cách tra từ điển như vậy cũng dễ, bạn dùng hàm SendMessage.
White_Rose
01-10-2002, 02:01
Mình nghĩ đây là cái mà bạn cần.
Find in Listview (quickly) <<-- Click here (http://www.chip81.com/vbasp/vbasp.asp?cat=1&sec=3&topic=2&id=246)
Sử dụng Listview lưu danh sách các từ cần tra --> dùng hàm trên để chuyển nhanh tới từ đó.
Sau đó bạn search trong database từ cần tìm.
Không cần phải sử dụng đến List View đâu White_Rose ạ. Cái này người ta thường dùng 1 text box để người dùng gõ vào và 1 listbox khi gõ vào Textbox thì nó sẽ gửi message đến List box để chuyển đến đúng vị trí.
Mình sẽ post bài ngay khi có thể !!!
westlife
01-10-2002, 21:13
Thêm vào Project 1 textbox và 1 listbox sau đó thêm đoạn code sau :
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const LB_FINDSTRING = &H18F
Private Sub Form_Load()
With List1
.AddItem "Computer"
.AddItem "Screen"
.AddItem "Modem"
.AddItem "Printer"
.AddItem "Scanner"
.AddItem "Sound Blaster"
.AddItem "Keyboard"
.AddItem "CD-Rom"
.AddItem "Mouse"
End With
End Sub
Private Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub
Chúc thành công !!!
Web của Nicky hay tuyệt đó !
Chỉ cho tôi cách tạo một cái được không ?
Viết chi tiết họ nhớ
Ủa lovely muốn tạo một cái gì ? Làm Web hả ? Nicky thực ra không giỏi làm web đâu. Chỉ là biết sơ sơ để làm một cái homepage chơi vui thôi. Nếu lovely thích thì có gì hay lovely gửi cho Nicky, Nicky sẽ đưa lên web của Nicky.
Cảm ơn Lovely đã ủng hộ Nicky !!!
Trời ! Nicky mến ý tôi muốn hỏi đư trang Web cá nhân lên mạng như thế nào ? Thủ tục có rắc rối không thôi mà ?
Nicky hiểu rùi !!!
Việc đưa một homepage lên Net cũng đơn giản thui, Nicky đang dùng dịch vụ miễn phí tại www.fateback.com. Nếu lovely thích thì đến đấy để đăng kí 1 account rồi up trang web của Lovely lên. Còn nếu Lovely muốn đăng kí 1 tên miền đàng hoàng thì Nicky không biết.
Chúc thành công !!
Xin chào Lovely,
Mình có viết một đoạn Search trong VB đúng như yêu cầu của bạn.
Thậm chí còn có thể vừa Search mà vừa lọc những từ có các kí tự giống trong mục nữa kia.!
Nếu bạn thật sự còn có nhu cầu, hãy báo cho mình, mình sẽ gửi code cho bạn.
Anh Vũ.:)
anhdungsofts
22-12-2003, 14:58
gui cho tu haanhdung@hopthu.com thank you
Powered by vBulletin® Version 4.2.0 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.