I want to add Balloon Tip on my textbox in VB.NET
In VB 6.0 i do this but one API has datatype prob
In VB 6.0 i have This Code..
Private Const ECM_FIRST As Long = &H1500
Private Const EM_SHOWBALLOONTIP As Long = (ECM_FIRST + 3)
Private Const EM_HIDEBALLOONTIP As Long = (ECM_FIRST + 4)
Private Type EDITBALLOONTIP
cbStruct As Long
pszTitle As String
pszText As String
ttiIcon As Long
End Type
Private Declare Function SendMessage Lib “user32” _
Alias “SendMessageA” _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Function InitCommonControls Lib “comctl32” () As Long
Private Sub Form_Initialize()
InitCommonControls
End Sub
Private Sub Command1_Click()
Dim ebt As EDITBALLOONTIP
With ebt
.cbStruct = Len(ebt)
.pszTitle = StrConv(“”, vbUnicode)
.pszText = StrConv(“”, vbUnicode)
.ttiIcon = 1
End With
Call SendMessage(Text1.hwnd,M_SHOWBALLOONTIP, 0&, ebt)
End Sub
Tell me how i go in vb.net with this code..