working with types , Copy data of type inside other variable with different type

[mutley]

Hi

I would like working variables like below

Private Type AA
  AA01 As String * 2
  AA02 As String * 2
End Type
Private Type BB
   BB01 As String * 4
End Type
Private Sub Form_Load()
  Dim K As AA
  Dim L As BB
  
  K.AA01 = "11"
  K.AA02 = "22"
 
  'Here I want put the data of K inside L
  'Is there some way to do it ?
End Sub

[Arnoutdv]

  L.BB01 = K.AA01 & K.AA02
  Debug.Print L.BB01

[mutley]

Thank you, But Is there some way to do put the put the data directly, no field by field

Like
L = K?

[dilettante]

Look up the LSet statement.

[Arnoutdv]

Yes ofcourse, forgot all about the LSet statement!

[Gruff]

My preference would be to write a function before using LSet.

Option Explicit

Private Type AA
  AA01 As String * 2
  AA02 As String * 2
End Type

Private Type BB
  BB01 As String * 4
End Type

Private Sub Form_Load()
  Dim K As AA
  Dim L As BB
  
  K.AA01 = "11"
  K.AA02 = "22"
 
  L = ToBB(K)
 
  MsgBox L.BB01
End Sub

Private Function ToBB(A As AA) As BB
  ToBB.BB01 = A.AA01 & A.AA02
End Function

[dilettante]

If somebody is playing with UDTs for anything but API call "struct" stand-ins they are probably lost anyway.

[Arnoutdv]

Do you prefer classes above UDTs in all situations?

[Gruff]

For me there is no one size fits all answer.