vba coding using with statements

[bolo]

Hi,

Suppose i have the following code.

With Label1
.caption = "Hello"
.borderstyle = fmbordersingle
?????
end with

sub temp (lbl As msforms.label)
lbl.bordercolor = rgb(255,0,0)
end sub

How do i call the sub temp, within the with statement? (i.e call temp (.) Is it possible?

Thanks

Bolo

 

[Firefly2012]

Hi

I don't think it is possible to write it any shorter than by simply using Label1 again ie:

With Label1
  '...
  Call temp(Label1)
End With

The alternative is longer:

With Label1
  '...
  Call temp(.Parent.Label1)
End With

and hence makes no sense.

There's no "Me" (or equivalent) property that can be used AFAIK.

 

[GTO]

Hi,

...How do i call the sub temp, within the with statement? (i.e call temp (.) Is it possible?

Thanks

Bolo

Not as far as I can see. How about:

Option Explicit
    
Sub temp(lbl As MSForms.Label)
    lbl.BorderColor = RGB(255, 0, 0)
End Sub
    
Private Sub UserForm_Initialize()
    
    With Me
        Call temp(.Label1)
        With Label1
            .Caption = "Hello"
            .BorderStyle = fmBorderStyleSingle
        End With
    End With
End Sub

 

[RoryA]

You could do it with

Private Sub CommandButton1_Click()
   With Label1
      .Caption = "Hello"
      .BorderStyle = fmBorderStyleSingle
      temp .Object
   End With
End Sub
Sub temp(lbl As Object)
   lbl.BorderColor = RGB(255, 0, 0)
End Sub

but I don't see any benefit.

 

[Firefly2012]

You could do it with

Private Sub CommandButton1_Click()
   With Label1
      .Caption = "Hello"
      .BorderStyle = fmBorderStyleSingle
      temp .Object
   End With
End Sub
Sub temp(lbl As Object)
   lbl.BorderColor = RGB(255, 0, 0)
End Sub

but I don't see any benefit.

Ah that's the way to do it - I had erroneously attempted the .Object route without modifying the temp argument type to a variant. Interesting. Thanks

 

[RoryA]

De nada.

Still can't see any real point to it though.