Creating events for controls

[Dragon]

Hi,

I am trying to create a form and add some controls to it programmaticall y. 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
closeAbuotButto n.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 aboutHelpMenuIt em_Click(ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles aboutHelpMenuIt em.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"
.FormBorderStyl e = FormBorderStyle .FixedDialog
.Height = 150
.Width = 300
'.ControlBox = False
End With

'Add Message Label
aboutForm.Contr ols.Add(message Label)
With messageLabel
.Text = "Programmed by Me"
.Top = 5
.Left = 5
.Width = aboutForm.Width - 5
.Height = 20
.TextAlign = ContentAlignmen t.MiddleCenter
End With

'Add Close Button
aboutForm.Contr ols.Add(closeAb outButton)
With closeAboutButto n
.Hide()
.Text = "&Close"
.Width = 100
.Height = 25
.Top = aboutForm.Heigh t - closeAboutButto n.Height - 35 'For some reason
if I do not have -35, control goes out of form's bounds.
.Left = (aboutForm.Widt h / 2) - (closeAboutButt on.Width / 2)
.Show()
End With

aboutForm.ShowD ialog()

End Sub

Private Sub closeAboutButto n_Click(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles closeAboutButto n.Click
'Close Form
Me.Close()
End Sub

[Chris]

Dragon wrote:

Hi,

I am trying to create a form and add some controls to it programmaticall y. 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
closeAbuotButto n.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 aboutHelpMenuIt em_Click(ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles aboutHelpMenuIt em.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"
.FormBorderStyl e = FormBorderStyle .FixedDialog
.Height = 150
.Width = 300
'.ControlBox = False
End With

'Add Message Label
aboutForm.Contr ols.Add(message Label)
With messageLabel
.Text = "Programmed by Me"
.Top = 5
.Left = 5
.Width = aboutForm.Width - 5
.Height = 20
.TextAlign = ContentAlignmen t.MiddleCenter
End With

'Add Close Button
aboutForm.Contr ols.Add(closeAb outButton)
With closeAboutButto n
.Hide()
.Text = "&Close"
.Width = 100
.Height = 25
.Top = aboutForm.Heigh t - closeAboutButto n.Height - 35 'For some reason
if I do not have -35, control goes out of form's bounds.
.Left = (aboutForm.Widt h / 2) - (closeAboutButt on.Width / 2)
.Show()
End With

aboutForm.ShowD ialog()

End Sub

Private Sub closeAboutButto n_Click(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles closeAboutButto n.Click
'Close Form
Me.Close()
End Sub

You dont' show the code where you create closeAboutButto n, 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.Clien tSize.Height - closeAboutButto n.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 closeAboutButto n 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******** ********@TK2MSF TNGP12.phx.gbl. ..

Dragon wrote:

Hi,

I am trying to create a form and add some controls to it
programmaticall y. 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
closeAbuotButto n.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 aboutHelpMenuIt em_Click(ByVal sender As System.Object, ByVal
e As System.EventArg s) Handles aboutHelpMenuIt em.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"
.FormBorderStyl e = FormBorderStyle .FixedDialog
.Height = 150
.Width = 300
'.ControlBox = False
End With

'Add Message Label
aboutForm.Contr ols.Add(message Label)
With messageLabel
.Text = "Programmed by Me"
.Top = 5
.Left = 5
.Width = aboutForm.Width - 5
.Height = 20
.TextAlign = ContentAlignmen t.MiddleCenter
End With

'Add Close Button
aboutForm.Contr ols.Add(closeAb outButton)
With closeAboutButto n
.Hide()
.Text = "&Close"
.Width = 100
.Height = 25
.Top = aboutForm.Heigh t - closeAboutButto n.Height - 35 'For some
reason if I do not have -35, control goes out of form's bounds.
.Left = (aboutForm.Widt h / 2) - (closeAboutButt on.Width / 2)
.Show()
End With

aboutForm.ShowD ialog()

End Sub

Private Sub closeAboutButto n_Click(ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles closeAboutButto n.Click
'Close Form
Me.Close()
End Sub

You dont' show the code where you create closeAboutButto n, 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.Clien tSize.Height - closeAboutButto n.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******** ******@tk2msftn gp13.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 closeAboutButto n 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******** ********@TK2MSF TNGP12.phx.gbl. ..

Dragon wrote:

Hi,

I am trying to create a form and add some controls to it
programmatic ally. 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
closeAbuotBu tton.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 aboutHelpMenuIt em_Click(ByVal sender As System.Object, ByVal
e As System.EventArg s) Handles aboutHelpMenuIt em.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"
.FormBorderStyl e = FormBorderStyle .FixedDialog
.Height = 150
.Width = 300
'.ControlBox = False
End With

'Add Message Label
aboutForm.Co ntrols.Add(mess ageLabel)
With messageLabel
.Text = "Programmed by Me"
.Top = 5
.Left = 5
.Width = aboutForm.Width - 5
.Height = 20
.TextAlign = ContentAlignmen t.MiddleCenter
End With

'Add Close Button
aboutForm.Co ntrols.Add(clos eAboutButton)
With closeAboutButto n
.Hide()
.Text = "&Close"
.Width = 100
.Height = 25
.Top = aboutForm.Heigh t - closeAboutButto n.Height - 35 'For some
reason if I do not have -35, control goes out of form's bounds.
.Left = (aboutForm.Widt h / 2) - (closeAboutButt on.Width / 2)
.Show()
End With

aboutForm.Sh owDialog()

End Sub

Private Sub closeAboutButto n_Click(ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles closeAboutButto n.Click
'Close Form
Me.Close()
End Sub

You dont' show the code where you create closeAboutButto n, 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.Clien tSize.Height - closeAboutButto n.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******** ********@TK2MSF TNGP15.phx.gbl. ..

I am trying to create a form and add some controls to it programmaticall y. #1. I am having to subtract additional 35 points from the
closeAbuotButto n.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.Heig ht 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******** ********@TK2MSF TNGP15.phx.gbl. ..

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

#1. I am having to subtract additional 35 points from the
closeAbuotButto n.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.Heig ht 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.