LynxGrid (Unicode support)

Các Module, Class, UserControl và thư viện OCX, DLL hỗ trợ cho Visual Basic
Post Reply
User avatar
thuongall
Quản trị
Quản trị
Posts: 456
Joined: Wed 26/01/2005 8:05 am
Location: Quê hương Đồng Khởi
Been thanked: 9 times
Contact:

LynxGrid (Unicode support)

Post by thuongall »

Tên: LynxGrid (Unicode support)
Loại: User Control
Ngôn ngữ lập trình: VB6
Tác giả: Morgan Haueisen (Unicode Edit intergrated by thuongall with UniTextBox by TrungDung1977)
Chức năng: Một Grid khá đẹp, nhiều tính năng, hỗ trợ Unicode đầy đủ
Cái này khá nặng nhưng nó xứng đáng để được bạn sử dụng khi cần!
Attachments
LynxGrid_UnicodeEdit.rar
(366.86 KiB) Downloaded 2214 times
User avatar
thuongall
Quản trị
Quản trị
Posts: 456
Joined: Wed 26/01/2005 8:05 am
Location: Quê hương Đồng Khởi
Been thanked: 9 times
Contact:

Re: LynxGrid (Unicode support)

Post by thuongall »

Mấy cái demo cần cái ocx này thôi, chứ cái LynxGrid này không cần.
Attachments
mscomct2.rar
(290.05 KiB) Downloaded 1075 times
User avatar
vie87vn
Thành viên tích cực
Thành viên tích cực
Posts: 150
Joined: Sat 05/04/2008 10:15 am
Location: Quán Đôi - Củ Chi
Been thanked: 2 times
Contact:

Re: LynxGrid (Unicode support)

Post by vie87vn »

Hiện tại nếu tải ver2 từ Planet Source Code về thì không có bị nhưng không có support unicode bởi vì grid này dùng textbox chuẩn, còn nếu thay thế bằng text như của anh thuongall thì sẽ bị lỗi xung đột, các bạn sẽ không thể thay đổi thuộc tính Name được, thay đổi là bị văng ngay và sẽ bị tình trạng là khi Edit bằng các phím như Enter, F2 và click qua dòng khác là các bạn không thể nào Edit lại bằng các phím đó hay là khi nhấn phím Edit rồi, nhấm phím mũi tên xuống thì phải nhấn 2 lần v.v... trong khi dùng textbox chuẩn thì không bị hiện tượng ấy.

Nếu ai có textbox khác thay thế thì hay quá.
Cách Unicode hóa bản tải từ trên Planet Source Code bản 2 về:
- Tìm dòng:

Code: Select all

Private Withevent txtEdit as TextBox

Code: Select all

Set txtEdit = Usercontrol.Controls.Add("VB.TextBox","txtEdit")
Comment 2 dòng ấy đi rồi vẽ lên Lynxgrid control 1 control textbox support Unicode (bắt buộc phải có thêm các thuộc tính mà Lynxgrid xài, ví dụ mình làm thử thì lấy UniTextBox của LQHung từ Datagrid cũng của LQHung thì thiếu 2 thuộc tính Visible và Font.Underline) đặt tên là txtEdit thế là xong.

Tiện thể hỏi lun, nếu dùng dòng Code:

Code: Select all

Set txtEdit = Usercontrol.Controls.Add("VB.TextBox","txtEdit")
thì ta sẽ thêm được 1 control chuẩn của VB mà không cần vẽ lên, vậy nếu thêm 1 Usercontrol thì sao?
Mình làm thử thế này:

Code: Select all

Set txtEdit = Usercontrol.Controls.Add("<prjName.UniTextBox","txtEdit")
thì nó báo là vào Project Properties -> thẻ Make -> Uncheck "Remove information ...." đi, làm theo nó bị báo là "Out of Stack".
Ai bit cách để thêm 1 usercontrol từ dòng code như trên hok hay 1 cách làm tương tự mà không cần phải vẽ?
----------------
Xin lỗi phải post bài hỏi ngay đây nhưng vì cùng 1 ý nên post đây luôn cho ... dễ hiểu ý :D
Hoàng Sa và Trường Sa là của Việt Nam.
Post Reply

Return to “[VB] Module, Class, UserControl, OCX”