General discussion

Locked

API Prob..

By waqasnet ·
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..

This conversation is currently closed to new comments.

0 total posts (Page 1 of 1)  
| Thread display: Collapse - | Expand +

All Comments

Back to Web Development Forum
0 total posts (Page 1 of 1)  

Related Discussions

Related Forums