Skip to content
  • Categories
  • Recent
  • Tags
  • Popular
  • World
  • Users
  • Groups
Skins
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • Default (No Skin)
  • No Skin
Collapse
Code Project
  1. Home
  2. General Programming
  3. Visual Basic
  4. Passing user defined types

Passing user defined types

Scheduled Pinned Locked Moved Visual Basic
helptutorialquestion
1 Posts 1 Posters 0 Views 1 Watching
  • Oldest to Newest
  • Newest to Oldest
  • Most Votes
Reply
  • Reply as topic
Log in to reply
This topic has been deleted. Only users with topic management privileges can see it.
  • D Offline
    D Offline
    D Millar
    wrote on last edited by
    #1

    Platform: VB6 I would like to pass a user defined type to a form. What I get is: Compile error: Only public user defined types defined in public object modules can be used as parameters or return types for public procedures of class modules or as fields of public user defined types. I understand that the compiler is whining that it doesn't know what the user defined type is composed of, but how do I go about describing the type definition to the compiler, before it reaches the form. Also, I cannot find any definition of what a 'public object module' is supposed to be in VB6. ------------------------------ A simplistic example would be: Project entry point: TestFrame.Main Form: frmBaseUse Option Explicit Private udtmThing As UserDefinedType Public Sub Begin(ByRef udtThingy As UserDefinedType) ' Make the passed in structure local to the form. udtmThing = udtThingy Call Me.Show(vbModal) End Sub Module: TestFrame Option Explicit Public Type UserDefinedType iX As Integer iY As Integer End Type Public Sub Main() Dim udtThg As UserDefinedType Dim fUseIt As New frmBaseUse udtThg.iX = 1 udtThg.iY = 2 Call fUseIt.Begin(udtThg) End Sub ------------------------------ Thanks for your help. denimined

    1 Reply Last reply
    0
    Reply
    • Reply as topic
    Log in to reply
    • Oldest to Newest
    • Newest to Oldest
    • Most Votes


    • Login

    • Don't have an account? Register

    • Login or register to search.
    • First post
      Last post
    0
    • Categories
    • Recent
    • Tags
    • Popular
    • World
    • Users
    • Groups