• 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
Posts: 24
Joined: Fri 19/03/2010 9:28 am
Has thanked: 4 times

Re: iVB UnicodeControls v2.0

Postby thuyyeu99 » Fri 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 ?



User avatar
tuyen_dt18
Guru
Guru
Posts: 261
Joined: Sat 19/04/2008 8:46 pm
Location: Hưng Yên
Been thanked: 43 times
Contact:

Re: iVB UnicodeControls v2.0

Postby tuyen_dt18 » Fri 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
Posts: 2
Joined: Thu 27/09/2012 10:14 am
Has thanked: 1 time

Re: iVB UnicodeControls v2.0

Postby huyhdbt » Thu 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

User avatar
haitu
Guru
Guru
Posts: 206
Joined: Sat 10/09/2005 2:50 pm
Has thanked: 1 time
Been thanked: 19 times
Contact:

Re: iVB UnicodeControls v2.0

Postby haitu » Thu 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
Posts: 2
Joined: Thu 27/09/2012 10:14 am
Has thanked: 1 time

Re: iVB UnicodeControls v2.0

Postby huyhdbt » Thu 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


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

Who is online

Users browsing this forum: No registered users and 1 guest