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

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

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

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

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

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

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


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

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

5   голосов , оценка 3.6 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы