form's method problem

[Agnes]

In my system,every form needs to check the right first, if it return false,
the myInvform should not process 'newclick'. How can I do that ?, I write
the following codes, it seems wrong.

---------------------------------
in myBaseform,
Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnNew.Click
If check_right = false Then
MessageBox.Show("U are no right to access !", "Error Message - New Doc",
MessageBoxButtons.OK, MessageBoxIcon.Warning)
exit sub
End If
End Sub

in myInvform , [Which is inherited myBaseForm]
Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnNew.Click
Me.stdSB_screenmode.Text = "NEW"
Me.txtCompanyCode.setfocus
end sub
--------------------------------------------------------------

[Matt S]

It looks like you have overridden the Sub btnNew_Click in myInvForm - so
only your new implementation will execute from myInvForm. You could call:
MyBase.btnNew_Click before your new implementation to fix this.

Hope this helps.

"Agnes" <ag***@dynamictech.com.hk> wrote in message
news:uf**************@TK2MSFTNGP11.phx.gbl...

In my system,every form needs to check the right first, if it return false, the myInvform should not process 'newclick'. How can I do that ?, I write
the following codes, it seems wrong.

---------------------------------
in myBaseform,
Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnNew.Click
If check_right = false Then
MessageBox.Show("U are no right to access !", "Error Message - New Doc",
MessageBoxButtons.OK, MessageBoxIcon.Warning)
exit sub
End If
End Sub

in myInvform , [Which is inherited myBaseForm]
Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnNew.Click
Me.stdSB_screenmode.Text = "NEW"
Me.txtCompanyCode.setfocus
end sub
--------------------------------------------------------------

[Matt S]

Note that if you use MyBase.btnNew_Click, then BOTH the implementations will
execute, so this will be functionally incorrect, but should explain why the
problem was occurring.

Hope this helps.

"Matt S" <ma**@toomuchspamalready.com> wrote in message
news:%2***************@TK2MSFTNGP12.phx.gbl...

It looks like you have overridden the Sub btnNew_Click in myInvForm - so
only your new implementation will execute from myInvForm. You could call:
MyBase.btnNew_Click before your new implementation to fix this.

Hope this helps.

"Agnes" <ag***@dynamictech.com.hk> wrote in message
news:uf**************@TK2MSFTNGP11.phx.gbl...

In my system,every form needs to check the right first, if it return

false,

the myInvform should not process 'newclick'. How can I do that ?, I write the following codes, it seems wrong.

---------------------------------
in myBaseform,
Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnNew.Click
If check_right = false Then
MessageBox.Show("U are no right to access !", "Error Message - New Doc",
MessageBoxButtons.OK, MessageBoxIcon.Warning)
exit sub
End If
End Sub

in myInvform , [Which is inherited myBaseForm]
Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnNew.Click
Me.stdSB_screenmode.Text = "NEW"
Me.txtCompanyCode.setfocus
end sub
--------------------------------------------------------------

[Herfried K. Wagner [MVP]]

* "Agnes" <ag***@dynamictech.com.hk> scripsit:

In my system,every form needs to check the right first, if it return false,
the myInvform should not process 'newclick'. How can I do that ?, I write
the following codes, it seems wrong.

---------------------------------
in myBaseform,
Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnNew.Click
If check_right = false Then
MessageBox.Show("U are no right to access !", "Error Message - New Doc",
MessageBoxButtons.OK, MessageBoxIcon.Warning)
exit sub
End If
End Sub

in myInvform , [Which is inherited myBaseForm]
Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnNew.Click
Me.stdSB_screenmode.Text = "NEW"
Me.txtCompanyCode.setfocus
end sub
--------------------------------------------------------------

\\\
RemoveHandler Me.Button1.Click, AddressOf MyBase.Button1_Click
///

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