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