You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Basic Scripting » Popup
Register User       Forum List       Calendar       FAQ
Page 1 of 1 1
Topic Options
#176039 - 2007-05-07 03:01 PM Popup
04nunhucks Offline
Getting the hang of it

Registered: 2006-09-08
Posts: 66
Hi, how do you create thoese popup things in the Windows System Tray? with a specific icon?

Edited by 04nunhucks (2007-05-07 03:02 PM)
Top
#176041 - 2007-05-07 03:40 PM Re: Popup [Re: 04nunhucks]
Mart Moderator Offline
KiX Supporter
*****

Registered: 2002-03-27
Posts: 4673
Loc: The Netherlands
With just KiXtart you dont.
KixForms clasic and/or .NET can do this.

Edited by Mart (2007-05-07 03:41 PM)
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.

Top
#176046 - 2007-05-07 04:48 PM Re: Popup [Re: Mart]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
If you use KiXforms.Net you will need:
Microsoft .NET Framework Version 1.1 Redistributable Package
Microsoft .NET Framework 1.1 Service Pack 1
KiXforms.Net Development Build

Here is an example with KiXforms.Net:
 Code:
Break On

Dim $SO
$SO=SetOption("NoMacrosInStrings", "ON")
$SO=SetOption("NoVarsInStrings", "ON")
$SO=SetOption("Explicit", "ON")

Global $System,$Form,$ContextMenu,$OpenMenu,$ExitMenu,$NotifyIcon,$FormRunning
Dim $Icon,$nul

;Create 'Kixforms.System' Object.
$System = CreateObject("Kixforms.System")

;Verify the 'Kixforms.System' Object was created if not, notify and exit.
If Not $System
	$nul= MessageBox("KiXforms.Net Not Initiated."+@CRLF+
	"Please verify KiXforms.Net is installed."+@CRLF+
	"This Script Will Now Close.","Error",16)
	Quit()
EndIf

$Form = $System.Form()
$Form.Closing = "ClosingForm()"
$Form.FormBorderStyle = $System.FormBorderStyle_FixedToolWindow
$Form.ShowInTaskbar = 0 ;False
$Form.StartPosition = $System.FormStartPosition_CenterScreen
$Form.Size = $System.Size(400,300) ;(Width,Height)
$Form.Text = "Notify Icon"

$ContextMenu = $System.ContextMenu()
$OpenMenu = $ContextMenu.MenuItems.Add($System.MenuItem("Open"))
$OpenMenu.Click = "OpenMenu_Click()"
$OpenMenu.Enabled = 0
$ExitMenu = $ContextMenu.MenuItems.Add($System.MenuItem("Exit"))
$ExitMenu.Click = "Exit_Form()"

$NotifyIcon = $System.NotifyIcon()
$NotifyIcon.ContextMenu = $ContextMenu
$NotifyIcon.DoubleClick = "OpenMenu_Click()"
$NotifyIcon.Icon = $System.Icon.FromBitmap(Icon())
$NotifyIcon.Visible = -1 ;True
$nul = $Form.Controls.Add($NotifyIcon)

$Form.Show  ;Displays the Form

$FormRunning = 1
While $FormRunning = 1
   $Nul = Execute($Form.DoEvents())
Loop
Exit 0

Function Exit_Form()
	$NotifyIcon.Visible = 0 ;False
	;$FormRunning = 0
	Quit()
EndFunction

Function ClosingForm()
	$Form.ClosingEventArgs.Cancel = -1 ;True
	OpenMenu_Click()
EndFunction

Function OpenMenu_Click()
	If $OpenMenu.Enabled = 0 ;False
		$Form.Hide
		$OpenMenu.Enabled = -1 ;True
	Else
		$Form.Show
		$OpenMenu.Enabled = 0 ;False
	EndIf
EndFunction

Function Icon()
$Icon = "
Qk02EAAAAAAAADYAAAAoAAAAIAAAACAAAAABACAAAAAAAAAAAADEDgAAxA4AAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/
AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/4CAgP+AgID/gICA/4CA
gP+AgID/gICA/4CAgP+AgID/gICA/4CAgP+AgID/gICA/4CAgP+AgID/gICA/4CAgP+AgID/
gICA/4CAgP+AgID/gICA/4CAgP+AgID/gICA/4CAgP+AgID/gICA/4CAgP+AgID/gICA/4CA
gP8AAAD/gICA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/
wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DA
wP/AwMD/wMDA/8DAwP/AwMD/gICA/wAAAP+AgID/wMDA/4CAgP//////////////////////
////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////8DAwP+AgID/AAAA/4CAgP/AwMD/
gICA////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
wMDA/4CAgP8AAAD/gICA/8DAwP+AgID/////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
///////////////////////////AwMD/gICA/wAAAP+AgID/wMDA/4CAgP//////////////
////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////8DAwP+AgID/AAAA/4CA
gP/AwMD/gICA////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
////////wMDA/4CAgP8AAAD/gICA/8DAwP+AgID/////////////////////////////////
////////////////////////////////////////////////////////////////////////
///////////////////////////////////AwMD/gICA/wAAAP+AgID/wMDA/4CAgP//////
////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////8DAwP+AgID/
AAAA/4CAgP/AwMD/gICA////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
////////////////wMDA/4CAgP8AAAD/gICA/8DAwP+AgID/////////////////////////
////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////AwMD/gICA/wAAAP+AgID/wMDA/4CA
gP//////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////8DA
wP+AgID/AAAA/4CAgP/AwMD/gICA////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
////////////////////////wMDA/4CAgP8AAAD/gICA/8DAwP+AgID/////////////////
////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////AwMD/gICA/wAAAP+AgID/
wMDA/4CAgP//////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
/////8DAwP+AgID/AAAA/4CAgP/AwMD/gICA////////////////////////////////////
////////////////////////////////////////////////////////////////////////
////////////////////////////////wMDA/4CAgP8AAAD/gICA/8DAwP+AgID/////////
////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////AwMD/gICA/wAA
AP+AgID/wMDA/4CAgP//////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
/////////////8DAwP+AgID/AAAA/4CAgP/AwMD/gICA////////////////////////////
////////////////////////////////////////////////////////////////////////
////////////////////////////////////////wMDA/4CAgP8AAAD/gICA/8DAwP+AgID/
////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////AwMD/
gICA/wAAAP+AgID/wMDA/4CAgP+AgID/gICA/4CAgP+AgID/gICA/4CAgP+AgID/gICA/4CA
gP+AgID/gICA/4CAgP+AgID/gICA/4CAgP+AgID/gICA/4CAgP+AgID/gICA/4CAgP+AgID/
gICA/4CAgP+AgID/gICA/8DAwP+AgID/AAAA/4CAgP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DA
wP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/
wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/4CAgP8AAAD/gICA/8DA
wP+/AAD/vwAA/78AAP+/AAD/vwAA/78AAP+/AAD/vwAA/78AAP+/AAD/vwAA/78AAP+/AAD/
vwAA/78AAP+/AAD/vwAA/78AAP+/AAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/gICA/wAAAP+AgID/wMDA/78AAP+/AAD/vwAA/78AAP+/AAD/vwAA/78AAP+/AAD/
vwAA/78AAP+/AAD/vwAA/78AAP+/AAD/vwAA/78AAP+/AAD/vwAA/78AAP/AwMD/wMDA/wAA
AP/AwMD/wMDA/wAAAP/AwMD/wMDA/wAAAP+AgID/AAAA/4CAgP/AwMD/vwAA/78AAP+/AAD/
vwAA/78AAP+/AAD/vwAA/78AAP+/AAD/vwAA/78AAP+/AAD/vwAA/78AAP+/AAD/vwAA/78A
AP+/AAD/vwAA/8DAwP/AwMD/AAAA/8DAwP/AwMD/AAAA/8DAwP/AwMD/AAAA/4CAgP8AAAD/
gICA/8DAwP+/AAD/vwAA/78AAP+/AAD/vwAA/78AAP+/AAD/vwAA/78AAP+/AAD/vwAA/78A
AP+/AAD/vwAA/78AAP+/AAD/vwAA/78AAP+/AAD/vwAA/78AAP+/AAD/vwAA/78AAP+/AAD/
vwAA/78AAP+/AAD/gICA/wAAAP+AgID/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DA
wP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/
wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP+AgID/AAAA/4CAgP+AgID/gICA/4CA
gP+AgID/gICA/4CAgP+AgID/gICA/4CAgP+AgID/gICA/4CAgP+AgID/gICA/4CAgP+AgID/
gICA/4CAgP+AgID/gICA/4CAgP+AgID/gICA/4CAgP+AgID/gICA/4CAgP+AgID/gICA/4CA
gP8AAAD/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=="
$Icon = $System.Bitmap.FromBase64String($Icon)
EndFunction

_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#176062 - 2007-05-07 06:58 PM Re: Popup [Re: Benny69]
Gargoyle Offline
MM club member
*****

Registered: 2004-03-09
Posts: 1597
Loc: Valley of the Sun (Arizona, US...
 Quote:
thoese popup things in the Windows System Tray


Microsoft official terminology is "Toast"
_________________________
Today is the tomorrow you worried about yesterday.

Top
#176064 - 2007-05-07 07:02 PM Re: Popup [Re: Gargoyle]
Les Offline
KiX Master
*****

Registered: 2001-06-11
Posts: 12734
Loc: fortfrances.on.ca
Better than Pop Tart or is that KiX Tart?
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.

Top
#176066 - 2007-05-07 07:17 PM Re: Popup [Re: Les]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
If you would rather use a .ico file, here is a KiXforms.Net example:

You will need to modify this line to reflect the correct path and filename:
 Code:
$NotifyIcon.Icon = $System.Icon.FromFile("Path\FileName.ico")


 Code:
Break On

Dim $SO
$SO=SetOption("NoMacrosInStrings", "ON")
$SO=SetOption("NoVarsInStrings", "ON")
$SO=SetOption("Explicit", "ON")

Global $System,$Form,$ContextMenu,$OpenMenu,$ExitMenu,$NotifyIcon,$FormRunning
Dim $Icon,$nul

;Create 'Kixforms.System' Object.
$System = CreateObject("Kixforms.System")

;Verify the 'Kixforms.System' Object was created if not, notify and exit.
If Not $System
	$nul= MessageBox("KiXforms.Net Not Initiated."+@CRLF+
	"Please verify KiXforms.Net is installed."+@CRLF+
	"This Script Will Now Close.","Error",16)
	Quit()
EndIf

$Form = $System.Form()
$Form.Closing = "ClosingForm()"
$Form.FormBorderStyle = $System.FormBorderStyle_FixedToolWindow
$Form.ShowInTaskbar = 0 ;False
$Form.StartPosition = $System.FormStartPosition_CenterScreen
$Form.Size = $System.Size(400,300) ;(Width,Height)
$Form.Text = "Notify Icon"

$ContextMenu = $System.ContextMenu()
$OpenMenu = $ContextMenu.MenuItems.Add($System.MenuItem("Open"))
$OpenMenu.Click = "OpenMenu_Click()"
$OpenMenu.Enabled = 0
$ExitMenu = $ContextMenu.MenuItems.Add($System.MenuItem("Exit"))
$ExitMenu.Click = "Exit_Form()"

$NotifyIcon = $System.NotifyIcon()
$NotifyIcon.ContextMenu = $ContextMenu
$NotifyIcon.DoubleClick = "OpenMenu_Click()"
$NotifyIcon.Icon = $System.Icon.FromFile("FullPath\IconFileName.ico")
$NotifyIcon.Visible = -1 ;True
$nul = $Form.Controls.Add($NotifyIcon)

$Form.Show  ;Displays the Form

$FormRunning = 1
While $FormRunning = 1
   $Nul = Execute($Form.DoEvents())
Loop
Exit 0

Function Exit_Form()
	$NotifyIcon.Visible = 0 ;False
	;$FormRunning = 0
	Quit()
EndFunction

Function ClosingForm()
	$Form.ClosingEventArgs.Cancel = -1 ;True
	OpenMenu_Click()
EndFunction

Function OpenMenu_Click()
	If $OpenMenu.Enabled = 0 ;False
		$Form.Hide
		$OpenMenu.Enabled = -1 ;True
	Else
		$Form.Show
		$OpenMenu.Enabled = 0 ;False
	EndIf
EndFunction
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#176075 - 2007-05-07 07:40 PM Re: Popup [Re: Benny69]
04nunhucks Offline
Getting the hang of it

Registered: 2006-09-08
Posts: 66
wow, thanks!
Top
Page 1 of 1 1


Moderator:  Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 837 anonymous users online.
details
Newest Members
ManuvdWielNL, Sir_Barrington, batdk82, StuTheCoder, M_Moore
17887 Registered Users
My Cookies · Mark all read Powered by UBB.threads™ Contact Us · KiXtart.org website · Top

Generated in 0.078 seconds in which 0.041 seconds were spent on a total of 13 queries. Zlib compression enabled.
Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org