XBalloonMsgDll.dll
Publicado: 14 Jun 2011 12:01
Buenas amigos ya hace tiempo encontre una dll que se llama "XBalloonMsgDll" y es para mostrar tooltips personalizados en formato baloon... pero esta dll me trae de cabeza puesto que no saco el código he probado mil formas pero nada... aquí os dejo el código en vbnet de un ejemplo y si queréis el código source de la dll mejor que enviéis un pm o comentéis en este post puesto que el source no esta en net sino que esta en cpp y c.
Ademas del source del ejemplo en vbnet os dejo tambien un apz que lleva la dll ya compilada y un par de pruebas que he echo pero nada la verdad es que siempre acabe por darme app crash.
Un saludo ceone.
Ejemplo:
and this is your Dll :
MediaFire.com
Or
dropbox.com
The apz file was re_UpLoaded
and Confirmed the validity of the download links and is now working in good condition by "abood1987" 14/11/2012
Ademas del source del ejemplo en vbnet os dejo tambien un apz que lleva la dll ya compilada y un par de pruebas que he echo pero nada la verdad es que siempre acabe por darme app crash.
Un saludo ceone.
' Updated for XBalloonMsg 1.3
Option Strict Off
Option Explicit On
Friend Class Form1
Inherits System.Windows.Forms.Form
Private Structure POINTAPI
Dim X As Integer
Dim Y As Integer
End Structure
Private Declare Function XBalloonMsgShow Lib "XBalloonMsgDll.dll" (ByVal lpszTitle As String, ByVal lpszMsg As String, ByVal hCtrl As Integer, ByVal hParent As Integer, ByVal hInstance As Integer, ByVal hIcon As Integer, ByVal bUseBalloonTips As Integer, ByVal nTimeOutSeconds As Integer, ByVal pRect As Integer, ByVal bSubclassParent As Integer) As Integer
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Declare Function GetFocus Lib "user32.dll" () As Integer
Private Declare Function GetParent Lib "user32.dll" (ByVal hwnd As Integer) As Integer
Private Declare Function GetCursorPos Lib "User32" (ByRef lpPoint As POINTAPI) As Integer
Private Declare Function WindowFromPoint Lib "User32" (ByVal X As Integer, ByVal Y As Integer) As Integer
Private Sub Form_Initialize_Renamed()
InitCommonControls()
ChDir(My.Application.Info.DirectoryPath)
End Sub
Private Sub ShowMessage(ByRef nIcon As Integer)
Dim ptCursor As POINTAPI
Dim hWndOver As Integer
Dim l As Integer
Call GetCursorPos(ptCursor) ' Get cursor position
hWndOver = WindowFromPoint(ptCursor.X, ptCursor.Y) ' Get window that cursor is over
' do not subclass parent for VB2005
l = XBalloonMsgShow("My Title", "This is My Message", hWndOver, GetParent(hWndOver), 0, nIcon, 1, 0, 0, 0)
End Sub
Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
Call ShowMessage(1)
End Sub
Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
Call ShowMessage(2)
End Sub
Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click
Call ShowMessage(3)
End Sub
Private Sub Command4_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command4.Click
Call ShowMessage(10)
End Sub
Private Sub Command5_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command5.Click
Call ShowMessage(11)
End Sub
Private Sub Command6_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command6.Click
Call ShowMessage(12)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Ejemplo:
and this is your Dll :
MediaFire.com
Or
dropbox.com
The apz file was re_UpLoaded
and Confirmed the validity of the download links and is now working in good condition by "abood1987" 14/11/2012