start form fra funktion og vent på form lukker med at retunere

Så er det noget i den stil..

Set MyClass = CreateObject("Project1.Class1")

MyClass.ShowForm

MsgBox MyClass.ConfigureStations

Set MyClass = Nothing


' -------------------- Class1 --------------------
Option Explicit

Private Sub Class_Initialize()
  ' eller Form1.Show
End Sub

Public Sub ShowForm()
  Form1.Show
End Sub

Public Function ConfigureStations() As String
  ConfigureStations = m_ConfigureStations
End Function
' -------------------- Class1 --------------------

' -------------------- Module1 --------------------
Option Explicit

Public m_ConfigureStations As String
' -------------------- Module1 --------------------

' -------------------- Form1 --------------------
Option Explicit

Private Sub Form_Unload(Cancel As Integer)
  m_ConfigureStations = "Bla bla.."
End Sub
' -------------------- Form1 --------------------

den forstår jeg ikke helt, du dim'er m_ConfigureStations... og i din funktion retunerer du den så...

vil det sige at den først retunere når værdien er sat ? eller hvordan fungerer det ?

har testet og syntes umiddelbart ikke jeg kan få det til at virke...

Ja nu skal du bare høre :D

1. Det er meget vigtigt at du gemmer din varibal i et Module.. ellers kan du ikke overfør den vadi fra Form1 til din Class1

2. Når du bruger ShowForm() vil den starte din Form1 og når du så lukker din Form1 så setter du så den vadi du ønsker i m_ConfigureStations.

3. Nu er det så bare at hente det som står i ConfigureStations. så skulle den være der.

HUSK:
Det er meget vigtigt at du gemmer din varibal i et Module (m_ConfigureStations)

denne kode:
MyClass.ShowForm
MsgBox MyClass.ConfigureStations

retunerer en msgbox som er "" lige efter den har loadet formen efter jeg har loadet formen..

probmet er at

hov problemet er at vbscriptet ikke venter på at den form der bliver åbnet i MyClass.ShowForm lukker, men går vidre i koden så snart formen er loaded...

håber det giver mere mening..

ahhh skulle starte show form vbmodal