how to used ADDRESSOF in vb.net

29 Mar 2005 2:48 PM

Supra

in VC#:
private void NewForm(Form f)
        {
            if(ChildFormsActivate==null)
                ChildFormsActivate=new EventHandler(ChildForms_Activate)
//
//
in vb.net
Private Sub NewForm(ByVal f As Form)
        If (ChildFormsActivate Is Nothing) Then
            ChildFormsActivate = New EventHandler(ChildForms_Activate)
<=== i don't know how to used "ADDRESSOF"
//
//
regards

29 Mar 2005 2:54 PM

Programmer

VB
AddHandler BtnName.EventName AddressOf FunctionName

The Function Must have the same args as the default event of the button ex
(sender as object , e as EventArgs)

Show quoteHide quote

"Supra" <supr***@rogers.com> wrote in message
news:O$Bjh5GNFHA.204@TK2MSFTNGP15.phx.gbl...
> in VC#:
> private void NewForm(Form f)
>         {
>             if(ChildFormsActivate==null)
>                 ChildFormsActivate=new EventHandler(ChildForms_Activate)
> //
> //
> in vb.net
> Private Sub NewForm(ByVal f As Form)
>         If (ChildFormsActivate Is Nothing) Then
>             ChildFormsActivate = New EventHandler(ChildForms_Activate)
> <=== i don't know how to used "ADDRESSOF"
> //
> //
> regards
>
>
>

29 Mar 2005 3:12 PM

Supra

Private ChildFormsActivate As EventHandler = Nothing
Private Sub ChildForms_Activate(ByVal sender As Object, ByVal e As
EventArgs)
//
//
    End Sub

Private Sub NewForm(ByVal f As Form)
        If (ChildFormsActivate Is Nothing) Then
            AddHandler ChildFormsActivate, AddressOf ChildForms_Activate
<=====the ChildFormsActivate is not an event of form1

            f.MdiParent = Me
        End If

Programmer wrote:

Show quoteHide quote

>VB
>AddHandler BtnName.EventName AddressOf FunctionName
>
>The Function Must have the same args as the default event of the button ex
>(sender as object , e as EventArgs)
>
>
>
>"Supra" <supr***@rogers.com> wrote in message
>news:O$Bjh5GNFHA.204@TK2MSFTNGP15.phx.gbl...
>
>
>>in VC#:
>>private void NewForm(Form f)
>>        {
>>            if(ChildFormsActivate==null)
>>                ChildFormsActivate=new EventHandler(ChildForms_Activate)
>>//
>>//
>>in vb.net
>>Private Sub NewForm(ByVal f As Form)
>>        If (ChildFormsActivate Is Nothing) Then
>>            ChildFormsActivate = New EventHandler(ChildForms_Activate)
>><=== i don't know how to used "ADDRESSOF"
>>//
>>//
>>regards
>>
>>
>>
>>
>>
>
>
>
>

29 Mar 2005 4:22 PM

Herfried K. Wagner [MVP]

"Supra" <supr***@rogers.com> schrieb:
> Private ChildFormsActivate As EventHandler = Nothing
> Private Sub ChildForms_Activate(ByVal sender As Object, ByVal e As
> EventArgs)
> //
> //
>    End Sub
>
> Private Sub NewForm(ByVal f As Form)
>        If (ChildFormsActivate Is Nothing) Then
>            AddHandler ChildFormsActivate, AddressOf ChildForms_Activate
> <=====the ChildFormsActivate is not an event of form1

'ChildFormsActivate' is not an event defined in 'Form' and its base classes.
Use 'MdiChildActivate' instead.

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

30 Mar 2005 6:32 PM

Supra

:-)

Herfried K. Wagner [MVP] wrote:

Show quoteHide quote

> "Supra" <supr***@rogers.com> schrieb:
>
>> Private ChildFormsActivate As EventHandler = Nothing
>> Private Sub ChildForms_Activate(ByVal sender As Object, ByVal e As
>> EventArgs)
>> //
>> //
>>    End Sub
>>
>> Private Sub NewForm(ByVal f As Form)
>>        If (ChildFormsActivate Is Nothing) Then
>>            AddHandler ChildFormsActivate, AddressOf ChildForms_Activate
>> <=====the ChildFormsActivate is not an event of form1
>
>
> 'ChildFormsActivate' is not an event defined in 'Form' and its base
> classes. Use 'MdiChildActivate' instead.
>