Можно ли в всплывающую подсказку (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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д