如何使用vb.net将图像添加到工具提示?

时间:2014-01-22 11:16:58

标签: vb.net visual-studio tooltip

我正在使用visual studio 2012(获胜表格)

我想添加带有标题的澄清图像,用于我的文本框和&标签,我尝试将工具提示作为文本,它工作得很好,但我想添加图像给他们就像这个澄清这里的例子: (https://www.youtube.com/watch?v=iGuBIqVUc5c&feature=youtu.be

我在这里搜索了主题,但我找到的唯一一个是c#,我不熟悉,所以任何与vb.net一起使用的帮助都会很棒。 知道属性窗口中唯一可用的属性是“tooltip for tooltip 1”没有关于工具提示图像。

非常感谢..,

2 个答案:

答案 0 :(得分:0)

您可以使用Web Controls Image控件[System.Web.UI.WebControls.Image],只需通过设置此控件的ToolTip属性来设置工具提示。

答案 1 :(得分:0)

这是一个快速而肮脏的黑客,它使用存储为项目文件中的资源的图像

Public Class ImageTip
    Inherits ToolTip

    Public Sub New()
        MyBase.New()
        Me.OwnerDraw = True 'Must be set otherwise will not draw the image properly
        Me.IsBalloon = False
    End Sub

    Private Sub ImageTip_Draw(ByVal sender As Object, ByVal e As DrawToolTipEventArgs) _
                Handles Me.Draw
        'Draws the image in the tooltip popup by reading the tooltip
        'text on the control that you want to have a popup for
         e.Graphics.DrawImage(My.Resources.ResourceManager.GetObject(e.ToolTipText), 0, 0)
    End Sub

    Private Sub ImageTip_Popup(ByVal sender As Object, ByVal e As PopupEventArgs) _
                Handles Me.Popup
        'Creates the popup and sets its dimensions from the resource name
        Dim Image As Image
        Dim ToolText As String

        ToolText = Me.GetToolTip(e.AssociatedControl)
        If ToolText <> "" Then
            Image = My.Resources.ResourceManager.GetObject(ToolText)
            If Image IsNot Nothing Then
                e.ToolTipSize = New Size(Image.Width, Image.Height)
            Else
                e.Cancel = True
            End If
        End If
    End Sub
End Class