• 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

iVB UnicodeControls v2.0

Các Module, Class, UserControl và thư viện OCX, DLL hỗ trợ cho Visual Basic
thuyyeu99
Thành viên chính thức
Thành viên chính thức
Bài viết: 24
Ngày tham gia: T.Sáu 19/03/2010 9:28 am
Has thanked: 4 time

Re: iVB UnicodeControls v2.0

Gửi bàigửi bởi thuyyeu99 » T.Sáu 21/10/2011 10:01 am

Các anh cho em hỏi có cách nào làm Tooltiptext của UniLabel hiển thị được chữ Unicode không ?



Hình đại diện của người dùng
tuyen_dt18
Guru
Guru
Bài viết: 256
Ngày tham gia: T.Bảy 19/04/2008 8:46 pm
Đến từ: Hưng Yên
Been thanked: 43 time
Liên hệ:

Re: iVB UnicodeControls v2.0

Gửi bàigửi bởi tuyen_dt18 » T.Sáu 21/10/2011 4:55 pm

Tất cả các thuộc tính ToolTipText của các Control đều là do Visual Basic tự thêm vào. Do Visual Basic không hỗ Unicode trực tiếp nên thuộc tính này chắc chắn không hiển thị được trong Font Unicode.
Bạn có thể hiển thị tiếng Việt với việc sử dụng Font khác như TCVN, VNI, ... Tuy nhiên bạn cũng đồng thời phải chắc chắn luôn mang theo Font này cùng chương trình và đăng ký sử dụng với hệ thống.
Còn một cách hiệu quả là dùng mã chương trình để làm, nếu như bạn có kiến thức tốt và Visual Basic cũng như API
Hỏi ý kiến tác giả trước khi sử dụng hoặc trích dẫn rõ nguồn bài viết khi sử dụng.

huyhdbt
Bài viết: 2
Ngày tham gia: T.Năm 27/09/2012 10:14 am
Has thanked: 1 time

Re: iVB UnicodeControls v2.0

Gửi bàigửi bởi huyhdbt » T.Năm 27/09/2012 10:19 am

  1. Private Sub chkGroupView_Click()
  2. On Error Resume Next
  3.    
  4.    ' very slow unless we do this
  5.   UniListView1.Visible = False
  6.    If (chkGroupView.Value = vbChecked) Then
  7.       Dim i As Long
  8.      
  9.       ' Create three groups and display them on screen:
  10.      UniListView1.ItemGroups.Enabled = True
  11.      
  12.       If (UniListView1.ItemGroups.Count = 0) Then
  13.          ' Create a group and add the first five items to it:
  14.         Dim cG As cItemGroup
  15.          Set cG = UniListView1.ItemGroups.Add(1, "GROUP1", "First Five Items")
  16.          Debug.Print cG.Header
  17.          For i = 1 To 5
  18.             UniListView1.ListItems(i).Group = cG
  19.          Next i
  20.          
  21.          ' Create a group and add the next ten items:
  22.         Set cG = UniListView1.ItemGroups.Add(5, "GROUP2", "Next Ten Items")
  23.          For i = 6 To 15
  24.             UniListView1.ListItems(i).Group = cG
  25.          Next i
  26.          
  27.          ' And the rest:
  28.         Set cG = UniListView1.ItemGroups.Add(15, "GROUP3", "The Remainder")
  29.          For i = 16 To UniListView1.ListItems.Count
  30.             UniListView1.ListItems(i).Group = cG
  31.          Next i
  32.       End If
  33.      
  34.    Else
  35.       ' Hide all the groups:
  36.      UniListView1.ItemGroups.Enabled = False
  37.      
  38.    End If
  39.    UniListView1.Visible = True
  40.    
  41. End Sub


Sao em chạy code này nó lại báo lỗi tại

ctl.fSetItemGroup m_lIndex, cG.Key

Hình đại diện của người dùng
haitu
Guru
Guru
Bài viết: 206
Ngày tham gia: T.Bảy 10/09/2005 2:50 pm
Has thanked: 1 time
Been thanked: 19 time
Liên hệ:

Re: iVB UnicodeControls v2.0

Gửi bàigửi bởi haitu » T.Năm 27/09/2012 10:23 am

theo như mình thấy, thì do bạn đã khóa group trong unilistview nên nó set focus vào không được, bạn bẫy lỗi ở đây bằng từ khóa On Error Resume Next hoặc On Error Goto .... nhãn bẫy lỗi, hoặc bạn cũng có thể lấy source ra và chỉnh lại cũng được.

huyhdbt
Bài viết: 2
Ngày tham gia: T.Năm 27/09/2012 10:14 am
Has thanked: 1 time

Re: iVB UnicodeControls v2.0

Gửi bàigửi bởi huyhdbt » T.Năm 27/09/2012 10:28 am

Anh có thể nói rõ hơn cách khắc phục được không ạh. tự em mới làm quên với LV nên không rành lắm


Quay về “[VB] Module, Class, UserControl, OCX”

Đ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.2 khách