Click here to Skip to main content
15,885,366 members
Search within:


Articles / Desktop Programming / Win32
 

XBalloonMsg - a non-MFC balloon-shaped message box

Rate me:
Please Sign up or sign in to vote.
4.99/5 (69 votes)
11 Jul 2008CPOL10 min read 525.4K   2.9K   145  
XBalloonMsg displays a message box using balloon-style tooltips. Message and title strings may be embedded or stored in string resource.
 
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Partial Class Form1
#Region "Windows Form Designer generated code "
	<System.Diagnostics.DebuggerNonUserCode()> Public Sub New()
		MyBase.New()
		'This call is required by the Windows Form Designer.
		InitializeComponent()
		Form_Initialize_renamed()
	End Sub
	'Form overrides dispose to clean up the component list.
	<System.Diagnostics.DebuggerNonUserCode()> Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
		If Disposing Then
			If Not components Is Nothing Then
				components.Dispose()
			End If
		End If
		MyBase.Dispose(Disposing)
	End Sub
	'Required by the Windows Form Designer
	Private components As System.ComponentModel.IContainer
	Public ToolTip1 As System.Windows.Forms.ToolTip
	Public WithEvents Command6 As System.Windows.Forms.Button
	Public WithEvents Command5 As System.Windows.Forms.Button
	Public WithEvents Command4 As System.Windows.Forms.Button
	Public WithEvents Command3 As System.Windows.Forms.Button
	Public WithEvents Command2 As System.Windows.Forms.Button
	Public WithEvents Command1 As System.Windows.Forms.Button
	'NOTE: The following procedure is required by the Windows Form Designer
	'It can be modified using the Windows Form Designer.
	'Do not modify it using the code editor.
	<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
		Me.components = New System.ComponentModel.Container
		Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
		Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
		Me.Command6 = New System.Windows.Forms.Button
		Me.Command5 = New System.Windows.Forms.Button
		Me.Command4 = New System.Windows.Forms.Button
		Me.Command3 = New System.Windows.Forms.Button
		Me.Command2 = New System.Windows.Forms.Button
		Me.Command1 = New System.Windows.Forms.Button
		Me.SuspendLayout()
		'
		'Command6
		'
		Me.Command6.BackColor = System.Drawing.SystemColors.Control
		Me.Command6.Cursor = System.Windows.Forms.Cursors.Default
		Me.Command6.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Command6.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Command6.Location = New System.Drawing.Point(432, 64)
		Me.Command6.Name = "Command6"
		Me.Command6.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Command6.Size = New System.Drawing.Size(65, 32)
		Me.Command6.TabIndex = 5
		Me.Command6.Text = "Question"
		Me.Command6.UseVisualStyleBackColor = False
		'
		'Command5
		'
		Me.Command5.BackColor = System.Drawing.SystemColors.Control
		Me.Command5.Cursor = System.Windows.Forms.Cursors.Default
		Me.Command5.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Command5.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Command5.Location = New System.Drawing.Point(352, 64)
		Me.Command5.Name = "Command5"
		Me.Command5.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Command5.Size = New System.Drawing.Size(65, 32)
		Me.Command5.TabIndex = 4
		Me.Command5.Text = "Vista Help"
		Me.Command5.UseVisualStyleBackColor = False
		'
		'Command4
		'
		Me.Command4.BackColor = System.Drawing.SystemColors.Control
		Me.Command4.Cursor = System.Windows.Forms.Cursors.Default
		Me.Command4.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Command4.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Command4.Location = New System.Drawing.Point(272, 64)
		Me.Command4.Name = "Command4"
		Me.Command4.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Command4.Size = New System.Drawing.Size(65, 32)
		Me.Command4.TabIndex = 3
		Me.Command4.Text = "XP Help"
		Me.Command4.UseVisualStyleBackColor = False
		'
		'Command3
		'
		Me.Command3.BackColor = System.Drawing.SystemColors.Control
		Me.Command3.Cursor = System.Windows.Forms.Cursors.Default
		Me.Command3.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Command3.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Command3.Location = New System.Drawing.Point(192, 64)
		Me.Command3.Name = "Command3"
		Me.Command3.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Command3.Size = New System.Drawing.Size(65, 32)
		Me.Command3.TabIndex = 2
		Me.Command3.Text = "Error"
		Me.Command3.UseVisualStyleBackColor = False
		'
		'Command2
		'
		Me.Command2.BackColor = System.Drawing.SystemColors.Control
		Me.Command2.Cursor = System.Windows.Forms.Cursors.Default
		Me.Command2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Command2.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Command2.Location = New System.Drawing.Point(112, 64)
		Me.Command2.Name = "Command2"
		Me.Command2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Command2.Size = New System.Drawing.Size(65, 32)
		Me.Command2.TabIndex = 1
		Me.Command2.Text = "Warning"
		Me.Command2.UseVisualStyleBackColor = False
		'
		'Command1
		'
		Me.Command1.BackColor = System.Drawing.SystemColors.Control
		Me.Command1.Cursor = System.Windows.Forms.Cursors.Default
		Me.Command1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Command1.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Command1.Location = New System.Drawing.Point(32, 64)
		Me.Command1.Name = "Command1"
		Me.Command1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Command1.Size = New System.Drawing.Size(65, 32)
		Me.Command1.TabIndex = 0
		Me.Command1.Text = "Info"
		Me.Command1.UseVisualStyleBackColor = False
		'
		'Form1
		'
		Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 14.0!)
		Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
		Me.BackColor = System.Drawing.SystemColors.Control
		Me.ClientSize = New System.Drawing.Size(528, 163)
		Me.Controls.Add(Me.Command6)
		Me.Controls.Add(Me.Command5)
		Me.Controls.Add(Me.Command4)
		Me.Controls.Add(Me.Command3)
		Me.Controls.Add(Me.Command2)
		Me.Controls.Add(Me.Command1)
		Me.Cursor = System.Windows.Forms.Cursors.Default
		Me.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
		Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
		Me.Location = New System.Drawing.Point(3, 29)
		Me.MaximizeBox = False
		Me.Name = "Form1"
		Me.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
		Me.Text = "XBalloonMsgDllTest 1.3"
		Me.ResumeLayout(False)

	End Sub
#End Region 
End Class

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


Written By
Hans Dietrich
Software Developer (Senior) Hans Dietrich Software
United States United States
I attended St. Michael's College of the University of Toronto, with the intention of becoming a priest. A friend in the University's Computer Science Department got me interested in programming, and I have been hooked ever since.

Recently, I have moved to Los Angeles where I am doing consulting and development work.

For consulting and custom software development, please see www.hdsoft.org.






Comments and Discussions

Permalink
Advertise
Privacy
Cookies
Terms of Use
Layout: fixed | fluid

Posted 23 Jun 2008

Article Copyright 2008 by Hans Dietrich
Everything else Copyright © CodeProject, 1999-2024

Web02 2.8:2024-04-02:1