• 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
Hình đại diện của người dùng
NoBi
Quản trị
Quản trị
Bài viết: 948
Ngày tham gia: T.Ba 18/03/2008 1:22 pm
Đến từ: Sài Gòn
Has thanked: 50 time
Been thanked: 66 time
Liên hệ:

iVB UnicodeControls v2.0

Gửi bàigửi bởi NoBi » T.Tư 02/04/2008 4:59 pm

Tên: iVB UnicodeControls
Loại: OCX, UserControl
Ngôn ngữ lập trình: VB6
Tác giả: iVB Group
Chức năng: Bộ control hổ trợ Unicode hổ trợ cho vb6.


Xin giới thiệu với các bạn bộ Full_Control hổ trợ Unicode + giao diện XP của nhóm iVB bao gồm:
  1. PictureBox
  2. Label
  3. TextBox
  4. Frame
  5. Button
  6. CheckBox
  7. OptionBox
  8. ComboBox
  9. ListBox
  10. Timer
  11. FolderView
  12. TabStrip
  13. Grid
  14. TreeView
  15. ProgressBar
  16. ListView
  17. Slider
  18. DialogBox
  19. ... (nhiều quá kể không hết) :-D
demo.jpg


Mọi ý kiến đóng góp của các bạn sẽ giúp chúng tôi hoàn thiện hơn.

Các thư viện .tbl dùng để tham chiếu:
References.rar
Các file thư viện tlb để references.
(240.45 KiB) Đã tải 5746 lần


UserControl v1.5.2:
UserControl Lite (iVB1.5.2).rar
Source code version 1.5.2
(482.01 KiB) Đã tải 5016 lần


UserControl v2.0:
Unicode Controls V2.0 (fix-27042009).rar
Bản fix lỗi ngày 27-04-2009
(1.15 MiB) Đã tải 6345 lần


Hướng dẫn:
download/file.php?id=5908

Cám ơn haitu đã bỏ nhiều công sức ra hoàn thành bộ control này.


:>

Hình đại diện của người dùng
vie87vn
Thành viên tích cực
Thành viên tích cực
Bài viết: 150
Ngày tham gia: T.Bảy 05/04/2008 10:15 am
Đến từ: Quán Đôi - Củ Chi
Been thanked: 2 time
Liên hệ:

Re: iVB UnicodeControls v2.0

Gửi bàigửi bởi vie87vn » T.Năm 17/04/2008 11:30 am

Dưới đây là 1 số lỗi nho nhỏ em tìm dc.

TextBox:
- Lỗi di chuyển 1 lần 2 ký tự. Tương tự, đè phím Ctrl rồi di chuyển 1 lần 2 từ và khi xóa bằng phím Delete, đôi khi làm việc với nhiều TextBox thì xảy ra luôn với phím BackSpace, 1 lần 2 ký tự, Ctrl + Delete hoặc Ctrl + Backspace 1 lần 2 từ.
Frame:
- Không có thuộc tính làm cho Transparent khi ở Style Default (chỉ cho hiển thì border, việc này rất cần thiết khi vẽ lên TabStrip).
- Khi Enable = False thành GaryScale gây khó khăn khi Disable toàn bộ control trong frame (rất tiện lợi khi làm việc không cho nhập dữ liệu, chỉ ở chế độ xem, vẫn đảm bảo được tính thẩm mỹ) hoặc cho phép 2 chế độ Color và GrayScale khi Disable, cho tùy biến màu ở tất cả Style thì càng hay.
- Không thể bỏ Header trong frame (Hix, đôi khi hok cần rất tiện lợi khi mình chỉ cần đóng khung). Nếu có Position (Top, Bottom) của Header thì càng hay hơn (tham 1 tí thì cho luôn Header nằm bên Trái, bên Phải và đảo luôn chữ theo chiều thì càng chuyên nghiệp).
- Thuộc tính TextBoxHeight gây hiểu nhầm (nên đổi là HeaderHeight)
- Thuộc tính RoundedCornerTxtBox và TextBoxColor không thấy tác dụng.

Picture:
- Không có thuộc tính AutoResize.
- Không có thuộc tính AutoAlignment.
- Nên tách hàm CurrentXY thành 2 hàm CurrentX CurrentY, do nhiều lý do khách quan, mà người dùng chỉ muốn lấy giá trị CurrentX hoặc CurrentY.
TabStrip:
- Không cho phép thêm mới 1 tab bằng code.
- Không cho phép ẩn 1 tab hiện có bằng code.
- Quá nhiều thuộc tính Color không cần thiết, vì quá nhiều khó lòng tạo ra 1 theme mới từ những thuộc tính Color ấy.
- Nên để các thuộc tính từng tab chung 1 mảng, ví dụ: TabName.Tabs(iTabIndex).Properties
- Thực hiện hơn 2 tabs, với 1 tab được đặt Disable trong Properties Page, tức khi thực hiện bỏ check trong Enable của tab thì tab được hiển thị trên form lúc design là màu xám, rồi cho thực thi khi tab được Disable thì khi lúc Run Time, ta chuyển sang tab Enable thì BackGround nó màu xám, hok được màu trắng nguyên thủy.
- Không có button di chuyển khi số lượng tab dài quá chiều dài TabStrip.
- Hiển thị không đúng khi dùng chế độ hiển thị Icon Large, bị tràn xuống phía dưới Tab Detail nếu Chiều cao Tab không được chỉnh lớn hơn kích thước Height của Icon.

DateTimePicker:
- Không tự đóng DropdownListbox lại khi nhấn chuột ra ngoài, bắt buộc phải chọn ngày tháng mới có thể làm việc khác trên form.

ScrollSlider:
- Khi chuyển sang Scroll đứng, cục Slider không chuyển sang cho chính xác hoặc thuộc tính chuyển sang định dạng Silder hình mũi tên trên hoặc dưới, có chăng thì chỉ có thể chèn vào là 1 hình vẽ lý do là cục Slider là 1 Bitmap.

Button:
- Khi ButtonType là isCheckBox, thay đổi thuộc tính Value qua lại giữa True và False khi thực thi thì Button không được vẽ lại tức Button sẽ lỏm xuống khi True nhưng chuyển sang False bằng code thì không lồi lên mà phải rê chuột qua mới hiển thị đúng.

Option Button:
- Trong giao diện thiết kế, chuyển Value = True bị báo lỗi: "Object doesn't support this property or method."

UniComboBox:
- Vẽ trên 1 container với Scale là Pixel thì sẽ vẽ sai vì Height chuẩn luôn là 330. Trong khi các điều khiển chuẩn của VB thì không xảy ra hiện tượng trên.

Timer:
- Có vấn đề khi thực thi, không thực thi ngay mà đôi khi mình dùng 1 Button để chuyển Enable sang True và False liên tục thì Timer mới chịu thực thi.
- Tại sao Timer cần dùng mới vẽ lên thì thuộc tính Enable luôn bằng False?

ImageList:
- Làm việc với độ sâu màu >24bit và kích thước ảnh tầm 72 thì chỉ chèn được 1 ảnh là 1 hồi die cả VB6.

1 điều chung cho tất cả Control: Không có 1 định dạng theme chuẩn cho các control. TabStrip thì chỉ ở dạng XP, 9x và VS.NET 2k3 trong khi Button thì có XP + theme, frame có XP + Gradient + Messenger. Textbox + UniComboBox +UniGird + UniTreeview thì vẽ theo Class (tức cũng theo theme máy và manifest, nếu xài theme khác XP thì pó tay vì những cái này theme khác, trong khi những cái kia theme XP), UpdownBox, ScrollSlider, VScrollBar, HScroolBar, CheckBox, OptionBox thì chỉ 1 theme XP, Processing thì có theme riêng hok hề có theo theme máy. Riêng control DateTimePicker là 1 sự hỗn loạn theme khi bạn chọn 1 theme khác ngoài XP như Theme Vista, Media Center thì sẽ thấy rõ. UnListBox còn kinh hơn khi theme không giống bất cứ 1 control nào.

Xin lỗi là mình phải viết trên "chay" như thế mà không điều chỉnh mã nguồn để góp ý được. Lý do: Mở Project mã nguồn lên là chết luôn cái VB6, chẳng bit được cái mặt của mã nguồn nó ra sao nữa.
Hoàng Sa và Trường Sa là của Việt Nam.

Hình đại diện của người dùng
VBNewbie
Thành viên tích cực
Thành viên tích cực
Bài viết: 113
Ngày tham gia: T.Bảy 29/03/2008 7:13 pm
Đến từ: Computer
Been thanked: 3 time
Liên hệ:

Re: iVB UnicodeControls v2.0

Gửi bàigửi bởi VBNewbie » T.Bảy 26/04/2008 10:18 am

Em mới sửa và bỏ bớt user control không quan trọng để phù hợp với chương trình của em hơn. Mệt quá ! Mất cả 2 tiếng đồng hồ ! Nay post lên mong các pác xài thử.
Hình như cái Tetbox trong OCX bị lỗi trong khi cái Text bõ trong Source đâu có bị lỗi.
Tập tin đính kèm
UniControls_v2.0.rar
OCX UnicodeControl v2.0 (edited)
(487.47 KiB) Đã tải 2157 lần
-------[[[[[[[ VMind - PM trắc nghiệm đa năng ]]]]]]]]------
http://vmind.co.cc/vmind
-------[[[[ Diễn đàn trí tuệ Việt Nam ! ]]]]]]]]-----
http://vmind.co.cc

Hình đại diện của người dùng
phongvanvu
Guru
Guru
Bài viết: 151
Ngày tham gia: T.Tư 24/01/2007 2:20 pm
Has thanked: 1 time
Been thanked: 8 time
Liên hệ:

Re: iVB UnicodeControls v2.0

Gửi bàigửi bởi phongvanvu » T.Hai 26/05/2008 9:34 pm

Nobi test thử với các folder có dấu chấm như 0.5 và phong.van xem sao?
Live to fight!

Hình đại diện của người dùng
NoBi
Quản trị
Quản trị
Bài viết: 948
Ngày tham gia: T.Ba 18/03/2008 1:22 pm
Đến từ: Sài Gòn
Has thanked: 50 time
Been thanked: 66 time
Liên hệ:

Re: iVB UnicodeControls v2.0

Gửi bàigửi bởi NoBi » T.Ba 27/05/2008 12:06 am

Ok, mình mới xem lại code. Tạm thời các bạn fix thủ công như vầy:
Mở source bộ control lên, tìm trong toàn project (Ctrl + H, check vào Current Project):

Find What:

Mã: Chọn hết

  1. hSearch = FindFirstFile(StrPtr(sPath & "*." & vbNullChar), uWFD)

Replace With:

Mã: Chọn hết

  1. hSearch = FindFirstFile(StrPtr(sPath & "*.*" & vbNullChar), uWFD)

---> Replace All.

Mình đã fix lỗi và dịch lại file ocx, upload ở bài viết đầu tiên. Các bạn có thể download file ocx đã được fix lỗi ở trên về sử dụng luôn.
:>

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.Hai 30/06/2008 9:15 pm

Hình ảnh

bạn xem kỹ lại xem chứ mình đổi vẫn bình thường mà, mình có attach cái ocx v2 cho bạn luôn
Tập tin đính kèm
UniControls_v2.0.rar
(560.15 KiB) Đã tải 1465 lần

Hình đại diện của người dùng
lanlan
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 310
Ngày tham gia: T.Năm 05/06/2008 8:49 am
Been thanked: 1 time

Re: iVB UnicodeControls v2.0

Gửi bàigửi bởi lanlan » T.Năm 18/12/2008 9:27 am

Các anh cho em hỏi không hiểu sao em cứ bị lỗi này hoành hành

IPAOReal As VBOleGuids.IOleInPlaceActiveObject

các anh giúp em với :">
"•´¨*•.¸¸.*..^_^ one love-one heart ^_^..*.¸¸.•*¨."
_______"•´`•.(¸.•´(¸.•* *•.¸)`•.¸).•´`•"
________________*(¨`•.•´¨)*
__________________`•.¸.•’

Hình đại diện của người dùng
thuongall
Quản trị
Quản trị
Bài viết: 455
Ngày tham gia: T.Tư 26/01/2005 8:05 am
Đến từ: Quê hương Đồng Khởi
Been thanked: 9 time
Liên hệ:

Re: iVB UnicodeControls v2.0

Gửi bàigửi bởi thuongall » CN 21/12/2008 11:41 pm

Reference đến file OLEGUIDS.TLB là OK.

Hình đại diện của người dùng
NoBi
Quản trị
Quản trị
Bài viết: 948
Ngày tham gia: T.Ba 18/03/2008 1:22 pm
Đến từ: Sài Gòn
Has thanked: 50 time
Been thanked: 66 time
Liên hệ:

Re: iVB UnicodeControls v2.0

Gửi bàigửi bởi NoBi » T.Sáu 26/12/2008 12:38 pm

Không phải gõ tiếng Việt trực tiếp như vậy mà phải như vầy:
UniLabel.Caption = "Ca4u la5c bo65 VB" khi chạy sẽ ra "Câu lạc bộ VB"
Phải trỏ đúng thư viện OLEGUIDS.TLB mới được. OleGuids3 là 1 thư viện khác nữa.
\Unicode Controls V2.0\Resource\OLEGUIDS.TLB
:>

Hình đại diện của người dùng
vietteiv
Quản trị
Quản trị
Bài viết: 1318
Ngày tham gia: T.Bảy 10/02/2007 12:17 am
Đến từ: Cung cấp giải pháp quản lý doanh nghiệp, dự án, tư vấn xây dựng
Has thanked: 6 time
Been thanked: 69 time
Liên hệ:

Re: iVB UnicodeControls v2.0

Gửi bàigửi bởi vietteiv » CN 28/12/2008 1:54 pm

đây là code của form3 gồm 1 listview và 1 label. trong demo có hết mấy cái này chứ sao lại ko. ứng dụng thay dữ liệu từ CSDL bằng chuỗi "Test Item " & i

Mã: Chọn hết

  1. Private Sub Form_Load()
  2. Dim colX As cColumn
  3. Dim itmX As cListItem
  4. Dim i As Integer
  5.  
  6.    With UniListView1
  7.       .Visible = False
  8.       .CustomDraw = True
  9.            
  10.       .AutoArrange = True
  11.      
  12.       ' Set up image lists:
  13. '      .ImageList(eLVLargeIcon) = ilsIcons32
  14. '      .ImageList(eLVSmallIcon) = ilsIcons16
  15. '      .ImageList(eLVTileImages) = ilsIcons48
  16. '      .ImageList(eLVHeaderImages) = ilsIcons16
  17.      
  18.       ' Add column headers
  19.       Set colX = .Columns.Add(, "NAME", "Name")
  20.       colX.Tag = "Stores the name of the item"
  21.       colX.IconIndex = 0
  22.       Set colX = .Columns.Add(, "DATE", "Date")
  23.       colX.Tag = "Stores the date of the item"
  24.       colX.IconIndex = 1
  25.       Set colX = .Columns.Add(, "SIZE", "Size")
  26.       colX.Tag = "Stores the size of the item"
  27.       colX.Alignment = eLVColumnAlignRight
  28.            
  29.  
  30.       For i = 1 To 3
  31.          .Columns(i).ItemData = i * 100
  32.       Next i
  33.      
  34.       With .ListItems
  35.          For i = 1 To 100
  36.             Set itmX = .Add(, "I" & i, "Test Item " & i)
  37.             If (i Mod 2) = 0 Then
  38.                itmX.ToolTipText = "This is a test tool tip for item " & i
  39.             End If
  40.             With itmX.SubItems(1)
  41.                .Caption = DateSerial(Year(Now), Rnd * Month(Now) + 1, Rnd * Day(Now) + 1)
  42.                .ShowInTile = ((i Mod 2) = 0)
  43.                '.IconIndex = itmX.IconIndex
  44.             End With
  45.             With itmX.SubItems(2)
  46.                .Caption = CLng(Rnd * 1024 * 1024)
  47.                .ShowInTile = True
  48.             End With
  49.             If (i = 1) Then
  50.                ' test font/colours:
  51.                itmX.BackColor = RGB(98, 176, 255)
  52.                itmX.ForeColor = RGB(240, 248, 255)
  53.                Dim sFnt As New StdFont
  54.                sFnt.Name = "Tahoma"
  55.                sFnt.Size = 10
  56.                sFnt.Bold = True
  57.                itmX.Font = sFnt
  58.             End If
  59.          Next i
  60.       End With
  61.      
  62.       .TileViewItemLines = 3
  63.                
  64.       .Visible = True
  65.    End With
  66.  
  67. End Sub
  68.  
  69. Private Sub UniListView1_ItemClick(Item As UniControls.cListItem)
  70.     UniLabel1.Caption = Item.Text
  71. End Sub
  72.  

Hình đại diện của người dùng
vietteiv
Quản trị
Quản trị
Bài viết: 1318
Ngày tham gia: T.Bảy 10/02/2007 12:17 am
Đến từ: Cung cấp giải pháp quản lý doanh nghiệp, dự án, tư vấn xây dựng
Has thanked: 6 time
Been thanked: 69 time
Liên hệ:

Re: iVB UnicodeControls v2.0

Gửi bàigửi bởi vietteiv » T.Bảy 21/03/2009 10:49 am

chạy project GROUP để test. xem hình minh họa add các file resource vào project UniControl
Screenshot - 21_03_2009 , 10_45_47 AM.jpg
các tập tin trong thư mục resource, chép vào system32
Screenshot - 21_03_2009 , 10_45_47 AM.jpg (7.27 KiB) Đã xem 10609 lần

Screenshot - 21_03_2009 , 10_44_56 AM.jpg
chọn project Unicontrol rồi add các file tlb nếu còn thiếu

p/s: bác Nobi đưa cái hình add resource này lên trang đầu luôn đi. để mems khỏi phải hỏi nữa :)

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.Hai 27/04/2009 12:16 pm

gởi các bạn bản fix lỗi mới của bộ UnicodeControl v2.0, bản này đã fix 1 số lỗi xử lý và 1 vài lỗi mà các bạn đã thông báo. :)
Xem chi tiết ở bài viết đầu tiên.
download/file.php?id=5431

@ vietteiv : lâu nay bận quá không vào diễn đàn, cám ơn bác tận tình giúp đỡ các thành viên khác :)

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.Hai 08/06/2009 2:46 am

bữa trước đang viết 1 project hướng dẫn các thuộc tính của các controls trong bộ iVB Unicode 2.0 nhưng nếu có thêm 2 bác vietteiv, tuyen_dt18 cùng hỗ trợ thì mình nghĩ nên viết 1 file hướng dẫn sử dụng luôn cho nó chuyên nghiệp, cấu trúc và cách trình bày thì mình đã thực hiện trong file này rồi, 2 bạn có thể tải về xem trước như thế nào sau đó cùng nhau góp ý để thống nhất ý kiến rồi phân công nhau làm, như vậy sẽ nhanh hơn.

công cụ sử dụng:
Phần mềm tạo file help: HelpMaker v7.3.38.0 vì đây là phần mềm free vừa đơn giản vừa dễ sử dụng, lại gọn nhẹ, mà còn hỗ trợ unicode nữa, nếu 2 bác biết xài MS Word thì thằng này còn dễ hơn MS Word nữa --> chọn thằng này vì free nên không sợ vi phạm bản quyền :D (cái này xài lâu rồi bây giờ chắc có phiên bản mới rồi)

:-B trời sáng rồi, đi ngủ thôi :)
Tập tin đính kèm
iVB_Unicode_v2_manual.rar
(33.97 KiB) Đã tải 2754 lần

OKMimo
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 445
Ngày tham gia: T.Sáu 11/02/2011 3:36 pm
Has thanked: 107 time
Been thanked: 56 time

Re: iVB UnicodeControls v2.0

Gửi bàigửi bởi OKMimo » T.Tư 13/07/2011 8:52 pm

mình có một lỗi ngoài ý muốn mà mong các bạn cho giải pháp:
lần đầu tiên mình tạo một project exe và reference tới OleGuids3.tlb (cùng các tlb khác), và mình đã sử dụng được các controls bình thường. vấn đề là khi mình tạo một project khác thì xảy ra vấn đề sau:
mình add lần lượt các controls của ivb vào project mới này, sau đó mình đưa một control trong các control trên vào form - khi đó xuất hiện lỗi ở một dòng (thiếu một type mà nó nằm trong OleGuids3.tlb), mình đã kiểm tra lại trong reference xem có thấy OleGuids3.tlb đã check chưa thì chưa thấy nó được check, khi đó mình đã check vào nó nhằm reference cho project mới này, nhưng lỗi đã xảy ra (lưu ý là thư viện trên đang nằm trong hộp thoại add reference và mình chỉ cần check vào nó thôi):
- hình ảnh khi check:

Hình ảnh



- sau khi nhấn OK:

Hình ảnh


vậy lỗi đó là lỗi gì vậy? mình phải xử lý ra sao? mong các bạn giúp. mình xin lưu ý lại là OleGuids3.tlb đã nằm trong danh sách hộp thoại add reference nhưng nó chưa được chek (chắc là do mình đã làm việc với nó trong project cũ nên nó vẫn còn nằm trong danh sách này, vì thế mình không thể browse tới OleGuids3.tlb để add nó vào add reference được). cảm ơn các bạn
Sửa lần cuối bởi OKMimo vào ngày T.Bảy 01/10/2011 10:31 am với 1 lần sửa.

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 14/07/2011 9:44 am

có thể là do bạn đã sử dụng thư viện OleGuids3.tlb trong 1 project khác nên nó còn lưu lại đường dẫn cũ của project này và nếu thư mục đó kg tồn tại thì bị lỗi trên, bạn để ý dòng location là đường dẫn của thư viện đang chọn xem có đúng không, để tránh phiền hà khi viết nhiều project có sử dụng các file .tlb thì mình khuyên bạn nên bỏ các file này vào thư mục system32 của windows và add reference vào 1 lần, các lần sau thì chỉ cần chọn vào nó thôi, vì file .tlb khi biên dịch VB sẽ tự add các file .tlb vào file .EXE nên kg cần phải đem nó theo project

OKMimo
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 445
Ngày tham gia: T.Sáu 11/02/2011 3:36 pm
Has thanked: 107 time
Been thanked: 56 time

Re: iVB UnicodeControls v2.0

Gửi bàigửi bởi OKMimo » T.Năm 14/07/2011 11:42 am

cảm ơn bạn haitu rất nhiều, bạn đúng là người xứng danh với chức danh guru mà diễn đàn đã tặng cho bạn, một lần nữa cảm ơn bạn và mong bạn dúp mình khi những bỡ ngỡ của mình đang còn rất nhiều

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.Hai 17/10/2011 3:26 pm

Nhờ các anh hướng dẩn giúp em cách xuống dòng trong Label với.

Ví dụ:
Câu lạc
bộ Vb

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.Hai 17/10/2011 3:30 pm

bạn phải gán trong code
vd:
label1.caption = "Ca6u la5c" & vbCrLf & " bo6 VB"

nhớ chọn autosize = false và kéo độ cao label xuống để hiển thị được nội dung xuống dòng

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.Hai 17/10/2011 3:39 pm

Cám ơn anh rất nhiều.
Có cách nào mình tính được autosize khi mình dùng vbCrLf không anh

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.Hai 17/10/2011 3:47 pm

bạn thử code sau:
Dim str as String = "Ca6u la5c" & vbCrLf & " bo6 VB"

gọi TextHeight(str) để lấy chiều cao của chuỗi

hoặc bạn tra cứu trong vblib đó, mình kg dùng vb6 lâu rồi nên cũng kg nhớ rõ :D


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