Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Aug 2, 2001

Passing a UDT(User-Defined Type) Between Forms


There is a very simple way to get around the compile error when passing UDT (user-defined type) in procedure between forms. Just declare the procedure as Friend instead of Public.

Example:
 
'Module: Module1
Option Explicit

Public Type Color
    Red As Byte
    Green As Byte
    Blue As Byte
End Type

'Form: Form1
Option Explicit

Private Sub Command1_Click()
Dim vColor As Color

   With vColor
      .Red = &HFF
      .Green = &HC0
      .Blue = &H00
   End With

   Form2.Show

   Form2.mEntryPoint vColor

End Sub

'Form: Form2
Option Explicit

Friend Sub mEntryPoint(vColor As Color)

   With vColor
      Text1.Text = CStr(.Red)
      Text2.Text = CStr(.Green)
      Text3.Text = CStr(.Blue)
   End With

End Sub
Andreas Hillqvist
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date