Можно ли в всплывающую подсказку (Tooltip) вставить картинку? - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

На форме есть кнопка, при наведении на нее курсора мыши должна появляться подсказка с текстом и картинкой, можно ли такое организовать в рамках VB .NET?

Решение задачи: «Можно ли в всплывающую подсказку (Tooltip) вставить картинку?»

textual
Листинг программы
Dim im As Bitmap
Private Sub Form_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
im = loadBitmap("ttt.png")
ToolTip1.OwnerDraw = True
ToolTip1.SetToolTip(Button3, "aa")
End Sub
Private Sub ToolTip1_Draw(sender As System.Object, e As System.Windows.Forms.DrawToolTipEventArgs) Handles ToolTip1.Draw
    e.DrawBackground()
    Dim g As Graphics = e.Graphics
    g.DrawImage(im, 5, 5, 32, 32)
    g.DrawString("ggggggg gggggg 444" & vbCrLf & "aaaaaaaaa aaaaaa 5555", New Font(FontFamily.GenericSansSerif, 8), Brushes.Black, 40, 5, StringFormat.GenericDefault)
    e.DrawBorder()
End Sub
Private Sub ToolTip1_Popup(sender As System.Object, e As System.Windows.Forms.PopupEventArgs) Handles ToolTip1.Popup
    e.ToolTipSize = New Size(190, 40)
End Sub
Public Function loadBitmap(ByVal fileName As String) As Bitmap
    If Not IO.File.Exists(fileName) Then Return Nothing
    Using bm As Bitmap = New Bitmap(fileName)
        Return New Bitmap(bm)
    End Using
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.6 из 5
Похожие ответы