Можно ли в всплывающую подсказку (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