Creating events for controls

[Dragon]

Hi,

I am trying to create a form and add some controls to it programmatically. I
am pasting the code I have so far, below. here are the issues I am having.

#1. I am having to subtract additional 35 points from the
closeAbuotButton.Top ot the control goes out of form's bounds. I have no
clue why.
#2. I do not know how to access my Close Button's click event. It is asking
me to create "WithEvents" but I can't figure our where/how to use it.

Thank you.
'Code still not working...
Private Sub aboutHelpMenuItem_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles aboutHelpMenuItem.Click
'Create and Display About Dialog.

Dim nameLabel As New Label
Dim messageLabel As New Label
aboutForm = New Form

'Create Form
With aboutForm
.Text = "About"
.FormBorderStyle = FormBorderStyle.FixedDialog
.Height = 150
.Width = 300
'.ControlBox = False
End With

'Add Message Label
aboutForm.Controls.Add(messageLabel)
With messageLabel
.Text = "Programmed by Me"
.Top = 5
.Left = 5
.Width = aboutForm.Width - 5
.Height = 20
.TextAlign = ContentAlignment.MiddleCenter
End With

'Add Close Button
aboutForm.Controls.Add(closeAboutButton)
With closeAboutButton
.Hide()
.Text = "&Close"
.Width = 100
.Height = 25
.Top = aboutForm.Height - closeAboutButton.Height - 35 'For some reason
if I do not have -35, control goes out of form's bounds.
.Left = (aboutForm.Width / 2) - (closeAboutButton.Width / 2)
.Show()
End With

aboutForm.ShowDialog()

End Sub

Private Sub closeAboutButton_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles closeAboutButton.Click
'Close Form
Me.Close()
End Sub

[Chris]

Dragon wrote:

Hi,

I am trying to create a form and add some controls to it programmatically. I
am pasting the code I have so far, below. here are the issues I am having.

#1. I am having to subtract additional 35 points from the
closeAbuotButton.Top ot the control goes out of form's bounds. I have no
clue why.
#2. I do not know how to access my Close Button's click event. It is asking
me to create "WithEvents" but I can't figure our where/how to use it.

Thank you.
'Code still not working...
Private Sub aboutHelpMenuItem_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles aboutHelpMenuItem.Click
'Create and Display About Dialog.

Dim nameLabel As New Label
Dim messageLabel As New Label
aboutForm = New Form

'Create Form
With aboutForm
.Text = "About"
.FormBorderStyle = FormBorderStyle.FixedDialog
.Height = 150
.Width = 300
'.ControlBox = False
End With

'Add Message Label
aboutForm.Controls.Add(messageLabel)
With messageLabel
.Text = "Programmed by Me"
.Top = 5
.Left = 5
.Width = aboutForm.Width - 5
.Height = 20
.TextAlign = ContentAlignment.MiddleCenter
End With

'Add Close Button
aboutForm.Controls.Add(closeAboutButton)
With closeAboutButton
.Hide()
.Text = "&Close"
.Width = 100
.Height = 25
.Top = aboutForm.Height - closeAboutButton.Height - 35 'For some reason
if I do not have -35, control goes out of form's bounds.
.Left = (aboutForm.Width / 2) - (closeAboutButton.Width / 2)
.Show()
End With

aboutForm.ShowDialog()

End Sub

Private Sub closeAboutButton_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles closeAboutButton.Click
'Close Form
Me.Close()
End Sub

You dont' show the code where you create closeAboutButton, but the
declare needs to look like

dim WithEvents Variable as ObjectType

This gives you to hook into events of the object.

As for why you have to -35 off the top. This is because of the border
and Title bar. If you just want the inside height of the form use this.

..Top = aboutForm.ClientSize.Height - closeAboutButton.Height

Hope it helps
Chris

[Herfried K. Wagner [MVP]]

"Dragon" <ba***********@hotmail.com> schrieb:

#2. I do not know how to access my Close Button's click event. It is
asking me to create "WithEvents" but I can't figure our where/how to use
it.

Take a look at the documentation for the 'AddHandler' statement. You can
use this statement to dynamically add an event handler:

\\\
AddHandler btn.Click, AddressOf Me.Button_Click
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Dragon]

Thank you for your reply.

I have tried dimming the button like:

Dim WithEvents closeAboutButton As Button

but I get an error saying "WithEvents" is not valid on a local veriable
declaration.

Any ideas?

"Chris" <[e-mail]> wrote in message
news:%2****************@TK2MSFTNGP12.phx.gbl...

Dragon wrote:

Hi,

I am trying to create a form and add some controls to it
programmatically. I am pasting the code I have so far, below. here are
the issues I am having.

#1. I am having to subtract additional 35 points from the
closeAbuotButton.Top ot the control goes out of form's bounds. I have no
clue why.
#2. I do not know how to access my Close Button's click event. It is
asking me to create "WithEvents" but I can't figure our where/how to use
it.

Thank you.
'Code still not working...
Private Sub aboutHelpMenuItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles aboutHelpMenuItem.Click
'Create and Display About Dialog.

Dim nameLabel As New Label
Dim messageLabel As New Label
aboutForm = New Form

'Create Form
With aboutForm
.Text = "About"
.FormBorderStyle = FormBorderStyle.FixedDialog
.Height = 150
.Width = 300
'.ControlBox = False
End With

'Add Message Label
aboutForm.Controls.Add(messageLabel)
With messageLabel
.Text = "Programmed by Me"
.Top = 5
.Left = 5
.Width = aboutForm.Width - 5
.Height = 20
.TextAlign = ContentAlignment.MiddleCenter
End With

'Add Close Button
aboutForm.Controls.Add(closeAboutButton)
With closeAboutButton
.Hide()
.Text = "&Close"
.Width = 100
.Height = 25
.Top = aboutForm.Height - closeAboutButton.Height - 35 'For some
reason if I do not have -35, control goes out of form's bounds.
.Left = (aboutForm.Width / 2) - (closeAboutButton.Width / 2)
.Show()
End With

aboutForm.ShowDialog()

End Sub

Private Sub closeAboutButton_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles closeAboutButton.Click
'Close Form
Me.Close()
End Sub

You dont' show the code where you create closeAboutButton, but the declare
needs to look like

dim WithEvents Variable as ObjectType

This gives you to hook into events of the object.

As for why you have to -35 off the top. This is because of the border and
Title bar. If you just want the inside height of the form use this.

.Top = aboutForm.ClientSize.Height - closeAboutButton.Height

Hope it helps
Chris

[Dragon]

Thank you Herfried. I will have to look into this for sure.
"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:uJ**************@tk2msftngp13.phx.gbl...

"Dragon" <ba***********@hotmail.com> schrieb:

#2. I do not know how to access my Close Button's click event. It is
asking me to create "WithEvents" but I can't figure our where/how to use
it.

Take a look at the documentation for the 'AddHandler' statement. You can
use this statement to dynamically add an event handler:

\\\
AddHandler btn.Click, AddressOf Me.Button_Click
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[I Don't Like Spam]

Dragon wrote:

Thank you for your reply.

I have tried dimming the button like:

Dim WithEvents closeAboutButton As Button

but I get an error saying "WithEvents" is not valid on a local veriable
declaration.

Any ideas?

"Chris" <[e-mail]> wrote in message
news:%2****************@TK2MSFTNGP12.phx.gbl...

Dragon wrote:

Hi,

I am trying to create a form and add some controls to it
programmatically. I am pasting the code I have so far, below. here are
the issues I am having.

#1. I am having to subtract additional 35 points from the
closeAbuotButton.Top ot the control goes out of form's bounds. I have no
clue why.
#2. I do not know how to access my Close Button's click event. It is
asking me to create "WithEvents" but I can't figure our where/how to use
it.

Thank you.
'Code still not working...
Private Sub aboutHelpMenuItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles aboutHelpMenuItem.Click
'Create and Display About Dialog.

Dim nameLabel As New Label
Dim messageLabel As New Label
aboutForm = New Form

'Create Form
With aboutForm
.Text = "About"
.FormBorderStyle = FormBorderStyle.FixedDialog
.Height = 150
.Width = 300
'.ControlBox = False
End With

'Add Message Label
aboutForm.Controls.Add(messageLabel)
With messageLabel
.Text = "Programmed by Me"
.Top = 5
.Left = 5
.Width = aboutForm.Width - 5
.Height = 20
.TextAlign = ContentAlignment.MiddleCenter
End With

'Add Close Button
aboutForm.Controls.Add(closeAboutButton)
With closeAboutButton
.Hide()
.Text = "&Close"
.Width = 100
.Height = 25
.Top = aboutForm.Height - closeAboutButton.Height - 35 'For some
reason if I do not have -35, control goes out of form's bounds.
.Left = (aboutForm.Width / 2) - (closeAboutButton.Width / 2)
.Show()
End With

aboutForm.ShowDialog()

End Sub

Private Sub closeAboutButton_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles closeAboutButton.Click
'Close Form
Me.Close()
End Sub

You dont' show the code where you create closeAboutButton, but the declare
needs to look like

dim WithEvents Variable as ObjectType

This gives you to hook into events of the object.

As for why you have to -35 off the top. This is because of the border and
Title bar. If you just want the inside height of the form use this.

.Top = aboutForm.ClientSize.Height - closeAboutButton.Height

Hope it helps
Chris

You must declare the button on the form level for it to work, not inside
a sub or function.

Chris

[Phill. W]

"Dragon" <ba***********@hotmail.com> wrote in message
news:%2****************@TK2MSFTNGP15.phx.gbl...

I am trying to create a form and add some controls to it programmatically. #1. I am having to subtract additional 35 points from the
closeAbuotButton.Top ot the control goes out of form's bounds.
Form.Height and .Width describe the Form /overall/, including
the borders and menubars.

Try using ClientArea.Height and .Width instead.
#2. I do not know how to access my Close Button's click event.
It is asking me to create "WithEvents" but I can't figure our where/how
to use it.

As you add each Control, use the AddHandler statement to
"wire up" the Events you're interested in to routines that can process
them, as in ...

Private Sub AnyButton_Click( sender as Object, e as EventArgs )
. . .
End Sub

.... then ...

x = New Button
AddHandler x.Click, AddressOf AnyButton_Click

HTH,
Phill W.

[Dragon]

Thank you Phil.
"Phill. W" <P.A.Ward@o-p-e-n-.-a-c-.-u-k> wrote in message
news:dj**********@yarrow.open.ac.uk...

"Dragon" <ba***********@hotmail.com> wrote in message
news:%2****************@TK2MSFTNGP15.phx.gbl...

I am trying to create a form and add some controls to it
programmatically.

#1. I am having to subtract additional 35 points from the
closeAbuotButton.Top ot the control goes out of form's bounds.

Form.Height and .Width describe the Form /overall/, including
the borders and menubars.

Try using ClientArea.Height and .Width instead.

#2. I do not know how to access my Close Button's click event.
It is asking me to create "WithEvents" but I can't figure our where/how
to use it.

As you add each Control, use the AddHandler statement to
"wire up" the Events you're interested in to routines that can process
them, as in ...

Private Sub AnyButton_Click( sender as Object, e as EventArgs )
. . .
End Sub

... then ...

x = New Button
AddHandler x.Click, AddressOf AnyButton_Click

HTH,
Phill W.