Call Statement Difficulty???

[Radith Silva]

Private Sub cmdCalculate_Cl ick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmdCalculate.Cl ick
If txtName.Text <> "" Then
If txtUnits.Text <> "" Then
If optOne.Checked Or optTwo.Checked Or optThree.Checke d
Or optFour.Checked Then
'Data fine
Else
MessageBox.Show ("Please choos an option button")
End If
Else
MessageBox.Show ("txtUnits")
txtUnits.Focus( )
End If
Else
MessageBox.Show ("txtName")
txtName.Focus()
End If
End Sub

Private Sub cmdO_Click(ByVa l sender As Object, ByVal e As
System.EventArg s) Handles cmdO.Click
Call cmdCalculate_Cl ick()
End Sub

I have the two functions as stated above; now the call statement returns
the error:
C:\vbNet\beginn ing\nested_if\F orm1.vb(141): Argument not specified for
parameter 'e' of 'Private Sub cmdCalculate_Cl ick(sender As Object, e As
System.EventArg s)'.

PLS HELP

THANX

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Konrad L. M. Rudolph]

Radith Silva wrote:

Private Sub cmdCalculate_Cl ick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmdCalculate.Cl ick

Call cmdCalculate_Cl ick()

I have the two functions as stated above; now the call statement returns
the error:
C:\vbNet\beginn ing\nested_if\F orm1.vb(141): Argument not specified for
parameter 'e' of 'Private Sub cmdCalculate_Cl ick(sender As Object, e As
System.EventArg s)'.

yea well, you omitted both parameters for cmdCalculate_Cl ick. Obviosuly,
that is wrong.
Try

\\\
cmdCalculate_Cl ick(Nothing, Nothing)
///

btw: why do you write "Call"?

--
Konrad -
http://madrat.net/

[Armin Zingler]

"Radith Silva" <ra****@xtra.co .nz> schrieb

Private Sub cmdCalculate_Cl ick(ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles cmdCalculate.Cl ick
If txtName.Text <> "" Then
If txtUnits.Text <> "" Then
If optOne.Checked Or optTwo.Checked Or
optThree.Checke d
Or optFour.Checked Then
'Data fine
Else
MessageBox.Show ("Please choos an option
button")
End If
Else
MessageBox.Show ("txtUnits")
txtUnits.Focus( )
End If
Else
MessageBox.Show ("txtName")
txtName.Focus()
End If
End Sub

Private Sub cmdO_Click(ByVa l sender As Object, ByVal e As
System.EventArg s) Handles cmdO.Click
Call cmdCalculate_Cl ick()
End Sub

I have the two functions as stated above; now the call statement
returns the error:
C:\vbNet\beginn ing\nested_if\F orm1.vb(141): Argument not specified
for parameter 'e' of 'Private Sub cmdCalculate_Cl ick(sender As
Object, e As System.EventArg s)'.

Better approach (IMO):

private sub Calculate()
If txtName.Text <> "" Then
If txtUnits.Text <> "" Then
If optOne.Checked Or optTwo.Checked Or optThree.Checke d Or
optFour.Checked Then
'Data fine
Else
MessageBox.Show ("Please choos an option button")
End If
Else
MessageBox.Show ("txtUnits")
txtUnits.Focus( )
End If
Else
MessageBox.Show ("txtName")
txtName.Focus()
End If
end sub

Private Sub cmdCalculate_Cl ick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmdCalculate.Cl ick
Calculate()
end sub

Private Sub cmdO_Click(ByVa l sender As Object, ByVal e As System.EventArg s)
Handles cmdO.Click
Calculate
End Sub
- OR -

Delete Sub cmdO_Click and have Sub cmdCalculate_Cl ick handle the click of
both controls:

Private Sub cmdCalculate_Cl ick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmdCalculate.Cl ick, cmdO.Click

Notice the 2nd event after "Handles".
--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Armin Zingler]

"Radith Silva" <ra****@xtra.co .nz> schrieb

Private Sub cmdCalculate_Cl ick(ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles cmdCalculate.Cl ick
If txtName.Text <> "" Then
If txtUnits.Text <> "" Then
If optOne.Checked Or optTwo.Checked Or
optThree.Checke d
Or optFour.Checked Then
'Data fine
Else
MessageBox.Show ("Please choos an option
button")
End If
Else
MessageBox.Show ("txtUnits")
txtUnits.Focus( )
End If
Else
MessageBox.Show ("txtName")
txtName.Focus()
End If
End Sub

Private Sub cmdO_Click(ByVa l sender As Object, ByVal e As
System.EventArg s) Handles cmdO.Click
Call cmdCalculate_Cl ick()
End Sub

I have the two functions as stated above; now the call statement
returns the error:
C:\vbNet\beginn ing\nested_if\F orm1.vb(141): Argument not specified
for parameter 'e' of 'Private Sub cmdCalculate_Cl ick(sender As
Object, e As System.EventArg s)'.

Better approach (IMO):

private sub Calculate()
If txtName.Text <> "" Then
If txtUnits.Text <> "" Then
If optOne.Checked Or optTwo.Checked Or optThree.Checke d Or
optFour.Checked Then
'Data fine
Else
MessageBox.Show ("Please choos an option button")
End If
Else
MessageBox.Show ("txtUnits")
txtUnits.Focus( )
End If
Else
MessageBox.Show ("txtName")
txtName.Focus()
End If
end sub

Private Sub cmdCalculate_Cl ick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmdCalculate.Cl ick
Calculate()
end sub

Private Sub cmdO_Click(ByVa l sender As Object, ByVal e As System.EventArg s)
Handles cmdO.Click
Calculate
End Sub
- OR -

Delete Sub cmdO_Click and have Sub cmdCalculate_Cl ick handle the click of
both controls:

Private Sub cmdCalculate_Cl ick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmdCalculate.Cl ick, cmdO.Click

Notice the 2nd event after "Handles".
--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Jay B. Harlow [MVP - Outlook]]

Radith,
In addition to the other's comments, you can also use Button.PerformC lick.

Private Sub cmdO_Click(ByVa l sender As Object, ByVal e As
System.EventArg s) Handles cmdO.Click
cmdCalculate.Pe rformClick()
End Sub
This way if you have multiple handlers for a given button, then all the
handlers will be invoked.

Although I prefer to use Armin's first example. I normally have a single
handler both handle the same event.

Remember VB.NET event model is not your VB6 event model! You can have
multiple handlers for a given event, plus a given event handler can handle
events from multiple objects.

Notice in the following "Button_Cli ck" handles the click event for all three
buttons, while each button also has their own specific handler. This would
be handy if you have some common logic that needed to occur for every click,
plus some specific logic for every click. Or the buttons occur in the base
form and the base form wants to handle the events, plus the derived form
wants to handle the events...

Private WithEvents Button1 As Button
Private WithEvents Button2 As Button
Private WithEvents Button3 As Button
Private Sub Button_Click(By Val sender As Object, ByVal e As
System.EventArg s) Handles Button1.Click, Button2.Click, Button3.Click
End Sub Private Sub Button1_Click(B yVal sender As Object, ByVal e As
System.EventArg s) Handles Button1.Click
End Sub Private Sub Button2_Click(B yVal sender As Object, ByVal e As
System.EventArg s) Handles Button2.Click
End Sub Private Sub Button3_Click(B yVal sender As Object, ByVal e As
System.EventArg s) Handles Button3.Click
End Sub
Hope this helps
Jay

"Radith Silva" <ra****@xtra.co .nz> wrote in message
news:eB******** ******@TK2MSFTN GP12.phx.gbl... Private Sub cmdCalculate_Cl ick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmdCalculate.Cl ick
If txtName.Text <> "" Then
If txtUnits.Text <> "" Then
If optOne.Checked Or optTwo.Checked Or optThree.Checke d
Or optFour.Checked Then
'Data fine
Else
MessageBox.Show ("Please choos an option button")
End If
Else
MessageBox.Show ("txtUnits")
txtUnits.Focus( )
End If
Else
MessageBox.Show ("txtName")
txtName.Focus()
End If
End Sub

Private Sub cmdO_Click(ByVa l sender As Object, ByVal e As
System.EventArg s) Handles cmdO.Click
Call cmdCalculate_Cl ick()
End Sub

I have the two functions as stated above; now the call statement returns
the error:
C:\vbNet\beginn ing\nested_if\F orm1.vb(141): Argument not specified for
parameter 'e' of 'Private Sub cmdCalculate_Cl ick(sender As Object, e As
System.EventArg s)'.

PLS HELP

THANX

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Herfried K. Wagner [MVP]]

* "Konrad L. M. Rudolph" <ko************ @madrat.net> scripsit:

yea well, you omitted both parameters for
cmdCalculate_Cl ick. Obviosuly, that is wrong.

Try

\\\
cmdCalculate_Cl ick(Nothing, Nothing)
///

btw: why do you write "Call"?

I would call the button's 'PerformClick' method. Instead of passing
'Nothing', you should pass a reference to the button in the 1st
parameter and 'EventArgs.Empt y' in the 2nd parameter.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Cor Ligthert]

Hi Radith,

A lot of answers mostly on click events, I give another approach however
more with the point to show you the purpose of the OrElse operator.

I also give another method for that click event (Keep in mind there is no
best and there are much more methods).

Private Sub cmdCalculate_Cl ick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmdCalculate.Cl ick
If txtName.Text <> "" Then
If txtUnits.Text <> "" Then
If optOne.Checked OrElse optTwo.Checked OrElse
optThree.Checke d

The OrElse stops evaluating when the condition is True.

OrElse optFour.Checked Then
'Data fine
Else
MessageBox.Show ("Please choos an option button")
End If
Else
MessageBox.Show ("txtUnits")
txtUnits.Focus( )
End If
Else
MessageBox.Show ("txtName")
txtName.Focus()
End If
End Sub

Private Sub cmdO_Click(ByVa l sender As Object, ByVal e As
System.EventArg s) Handles cmdO.Click
cmdCalculate_Cl ick(sender, e) 'Only when the signatures are equal
as in this case
End Sub