• 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

Tạo ToolTip Đặc sắc

Các Module, Class, UserControl và thư viện OCX, DLL hỗ trợ cho Visual Basic
giongto35
Thành viên danh dự
Thành viên danh dự
Bài viết: 194
Ngày tham gia: T.Năm 19/04/2007 10:17 am
Đến từ: Đà Nẵng City
Been thanked: 1 time
Liên hệ:

Tạo ToolTip Đặc sắc

Gửi bàigửi bởi giongto35 » T.Năm 03/04/2008 1:18 pm

Tên: Tạo Tooltip đặc sắc
Loại: Activex Control
Ngôn ngữ lập trình: VB6
Tác giả: Sưu tầm
Chức năng: Tạo control Tooltip.



Đây là một serries bài của Wokawidget tại http://www.vbforums.com/showthread.php?t=297009&page=1
Nội dung của bài này là hướng dẫn để thay đổi tooltip từ bình thường trở nên đẹp hơn , thậm chí còn được cả multiline
Mỗi dự án được thêm vào trong chuyên mục này sẽ có thêm nhiều hàm mới so với cũ
Cái này sẽ được xây dựng thêm những hiệu ứng đồ họa nữa nhưng bóng đổ , icon , chế độ đồ họa
Sửa lần cuối bởi giongto35 vào ngày T.Năm 03/04/2008 1:36 pm với 1 lần sửa.


________________________________________________________________________________________________
. . . . . . . . . . . . .. .

giongto35
Thành viên danh dự
Thành viên danh dự
Bài viết: 194
Ngày tham gia: T.Năm 19/04/2007 10:17 am
Đến từ: Đà Nẵng City
Been thanked: 1 time
Liên hệ:

Re: Tạo ToolTip Đặc sắc

Gửi bàigửi bởi giongto35 » T.Năm 03/04/2008 1:21 pm

Bài 1: Creating ToolTips
đây là bài hướng dẫn tạo tooltip bằng cách sử dụng API , sử dụng cho control trên form lúc đang thực thi
Các điểm đặc biệt :

    Add ToolTip

    Remove ToolTip
    Change ToolTip Text
CreatingToolTip.zip
(5.22 KiB) Đã tải 1473 lần


Bài 2: Owner Drawn ToolTip
Thay vì để cho window tạo ra và vẽ tooltip, chúng ta sẽ sử dụng subclass để bẫy sự kiện WM_PAINT của tooltip . Trong sự kiện đó , ta sẽ tạo vùng vẽ riêng của chúng ta để viết thêm chữ hoặc xử lí đồ họa để trang điểm cho cái tooltip của chúng ta
Điểm mới:

    ToolTip can now display multiline strings.

OwnerDrawnTooltip.zip
(8.62 KiB) Đã tải 873 lần


Bài 3: Custom Colors
màu cho chữ và màu cho tooltip đã được thêm vào trong Class Tooltip . Khi chúng ta vẽ tooltip ra chúng ta sẽ chỉnh màu cho tooltip .
Điểm mới:

    BalloonColor

    TextColor
CreatingToolTip.zip
(5.22 KiB) Đã tải 1473 lần
Tập tin đính kèm
CustomColors.zip
(8.67 KiB) Đã tải 713 lần
Sửa lần cuối bởi giongto35 vào ngày T.Bảy 05/04/2008 6:09 pm với 1 lần sửa.
________________________________________________________________________________________________
. . . . . . . . . . . . .. .

giongto35
Thành viên danh dự
Thành viên danh dự
Bài viết: 194
Ngày tham gia: T.Năm 19/04/2007 10:17 am
Đến từ: Đà Nẵng City
Been thanked: 1 time
Liên hệ:

Re: Tạo ToolTip Đặc sắc

Gửi bàigửi bởi giongto35 » T.Bảy 05/04/2008 6:19 pm

Nhác dịch we' , thôi thi chép lại zậy

Bài 4: sửa code
nghĩa là sửa cho bài 2 và bài 3 code hơi bị lộn xộn

Right, if you have downloaded Stage 2 and Stage 3, and looked at the code, you will notice that the manual drawing of the tooltip is quite "messy"...Lots of constants flying about, not to mention all those evil API commands.
If things stay like this, and we keep adding to the drawing code then sooner or later it will become so much of a mess that it will be very hard to add to it easily.
This can be solved by creating a new class, clsDraw. This wraps up all this horrible API code and just has some simple methods exposed so that the drawing is made way easier.

No new features have been implemented at this stage.

Tập tin đính kèm RestructuringCode.zip hiện tại không còn trên máy chủ

Bài 5: Thêm Style
nói chung là tạo class style để chỉnh màu color thôi
As suggested by kleinma I have added the ability to create styles.
The project now as 3 new classes:
  • ToolTipStyle
  • TextStyle
  • BalloonStyle
The class ToolTipStyle holds references to the TextStyle and BalloonStyle classes.
So, for example, to get the TextColor we now do:

Mã: Chọn hết

 Dim objStyle As ToolTipStyle   Set objStyle = New ToolTipStyle   MsgBox objStyle.TextStyle.Color   Set objStyle = Nothing 

The reason I have written it like this is because over the next few days we are going to add many many properties to the project that allows you to change the appearance of the ToolTip, some related to text, some related to the balloon.
Since these properties are for different things I thought I'd create a class to hold them. This makes things slightly easier in the long run. I admitt it's a little overkill for the color properties we have now, but you will soon see the benefits of this structure.

New features:
  • Ability to create and set styles to individual tooltips
Tập tin đính kèm AddingStyles.zip hiện tại không còn trên máy chủ


Bài 6: Simple Custom Properties
I have added a few properties for both the balloon style and text style.
The balloon can now have rounded corners. The level of rounding can be set by the property CurveIndex in the BalloonStyle class. If CurveIndex is 0 then a square balloon is drawn. By default this is set to 7.

Margin properties have been added to the text style class. This allows you to specify the gap between the edge of the balloon and the text. All 4 margins, Top, Bottom, Left and Right, are available to change by the user. By default ALL margins are set to 5.

New Feautures:
Add rounded corners to balloon
Specify margin gaps to position the text in the balloon
Tập tin đính kèm stage 6 - simple custom properties.zip hiện tại không còn trên máy chủ


Bài 7: Balloon And Text Shadows
A new class has been added, Shadow. This holds properties related to a shadow, ie X and Y offsets, color and whether it's visible or not.
The shadow class is used by the text style class and the balloon style class.
You'll notice that while drawing the tooltip, there is a little bit more work to be done to work out the position of grafix that are drawn to the screen. This is the only really messy thing that we have to do now, but it's unavoidable.

New Features:
Balloon Shadows
Text Shadows
Tập tin đính kèm stage 7 - balloon and text shadows.zip hiện tại không còn trên máy chủ


Bài 8: Font Properties
At this stage I have added font attributes to the TextStyle class.
These are used when drawing text onto our tooltip.

New Features:
Font Type
Font Size
Bold
Italic
Underline

We now have a fully functional method of creating custom tooltips.
We can create nice tips, like the one I like in this example (not sure about the bold though), or we can create evil tips that look crap, like the 2 buttons in the middle.
It's all about what properties you set.
if you don't create a style then the default style is used. This is demonstrated by the 1st button of the form.

We could leave it at this...but an icon would be nice don't you think?
The next stage will have the ability to add an icon to the tooltip.
Tập tin đính kèm stage 8 - font properties.zip hiện tại không còn trên máy chủ


Bài 9: Backgorund Image
The ballon class now has a new property, Image.
An image can be set by using:

Mã: Chọn hết

objTip.Style.BalloonStyle.Image = Image1.Picture

If a bakground image is specified then this overrides the background color.

I have also changed the demo app.
This now incorporates a listview and allows you to set tooltips for individual listitems, and for the listview itself if no item is selected.

New Features:
Ability to add a background image to the tooltip
RestructuringCode.zip
(9.49 KiB) Đã tải 668 lần


Bài 10: Play Sound
Anyways, to add sound when displaying a tooltip use the WavFile property on the Style class:

Mã: Chọn hết

ObjTip.Style.WavFile = "C:\Woof.wav"

New Features:
Play asynchronous sound when displaying tooltip
AddingStyles.zip
(11.1 KiB) Đã tải 622 lần
________________________________________________________________________________________________
. . . . . . . . . . . . .. .

Hình đại diện của người dùng
NoBi
Quản trị
Quản trị
Bài viết: 952
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: Tạo ToolTip Đặc sắc

Gửi bàigửi bởi NoBi » T.Tư 09/04/2008 8:07 pm

Unicode thì code mẫu cái bên dưới (mặc định nó kg hổ trợ), những cái khác tự khám phá nha ;;)
Tập tin đính kèm
AddingStyles_Uni.rar
Support Unicode
(10.49 KiB) Đã tải 737 lần
:>


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