Ðề: Xin trợ giúp sự kiện xảy ra trong Combox
1/ Trong combo nó tự động short theo chữ cái đầu của danh sách, chỉ cần gõ là nó hiện ra ngay
2/ Muốn làm theo tên thì không dùng hộip combo mà dùng một textbox rồi gán sự kiện afterupdate của nó để gọi một hàm tự tạo để tìm kiếm. Hàm tự tạo là hàm tìm một từ trong m,ột chuỗi từ cho trước. Nếu tìm thấy thì cho hiển thị, ngược lại thì không
Chắc bạn hiểu ý đồ này và vận dụng vào bài của mình
Thân
Thôi thì gửi cho bạn cái hàm tự tạo đó. Bạn tùy nghi sử dụng vào mục địch của mình
Thân
Mã nguồn PHP:
[COLOR=#000000]
[/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]TimChuoi[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ChuoiMe [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]ChuoiCon [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700]) As [/COLOR][COLOR=#0000BB]String
Dim i [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long
Dim Lm [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long
Dim Lc [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long
Dim Tu [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String
Dim Thay [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Boolean
Thay [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]False
ChuoiMe [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Trim[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ChuoiMe[/COLOR][COLOR=#007700]): [/COLOR][COLOR=#0000BB]ChuoiCon [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Trim[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ChuoiCon[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]Lm [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ChuoiMe[/COLOR][COLOR=#007700]): [/COLOR][COLOR=#0000BB]Lc [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ChuoiCon[/COLOR][COLOR=#007700])
For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To Lm
Tu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ChuoiMe[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Lc[/COLOR][COLOR=#007700])
If [/COLOR][COLOR=#0000BB]Tu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ChuoiCon Then Thay [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]True[/COLOR][COLOR=#007700]: Exit For
[/COLOR][COLOR=#0000BB]Next
[/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Thay [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]True Then
TimChuoi [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ChuoiMe
[/COLOR][COLOR=#007700]Else
[/COLOR][COLOR=#0000BB]MsgBox [/COLOR][COLOR=#DD0000]"Khong tim thay"
[/COLOR][COLOR=#007700]Exit Function
[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If
[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]Function[/COLOR]
Địa chỉ cung cấp mẫu lăng mộ đá khu lăng mộ uy tín chất lượng Đá mỹ nghệ Tài Tuệ là đơn vị hàng đầu trong lĩnh vực điêu khắc chế tác các sản phẩm, công trình tâm linh bằng đá tại làng đá truyền...
Địa chỉ cung cấp mẫu lăng mộ đá khu lăng mộ uy tín chất lượng năm 2024