AMSSpecialist

' 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

Title = "My Title";
Message = "This is My Message"

window_pos = Window.GetPos(Application.GetWndHandle());
cursor_pos = DLL.CallFunction("CursorPos.dll", "GetMouseXY", "", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL);
strlength = String.Length(cursor_pos);
delimiter = String.Find(cursor_pos, ";;", "1", false);
cursor_x = String.Left(cursor_pos, (delimiter - 1));
cursor_y = String.Right(cursor_pos, (strlength - (delimiter + 1)));
cursor_x = String.ToNumber(cursor_x);
cursor_y = String.ToNumber(cursor_y);

--hWndOver = DLL.CallFunction("user32.dll", "WindowFromPoint", cursor_x..","..cursor_y, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
--Parent = DLL.CallFunction("user32.dll", "GetParent", hWndOver, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);

Parent = Application.GetWndHandle();
hWndOver = Application.GetWndHandle();

arg = "\""..Title.."\",\""..Message.."\","..hWndOver..","..Parent..",0,3,1,0,0,0"
Dialog.Message("", arg);

DLL.CallFunction("AutoPlay\\Docs\\XBalloonMsgDll.dll", "XBalloonMsgShow", arg, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);


--l = XBalloonMsgShow("My Title", "This is My Message", hWndOver, GetParent(hWndOver), 0, nIcon, 1, 0, 0, 0)
--result = DLL.CallFunction("user32.dll", "GetCursorPos", x..","..y, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);