Du har helt ret, nu virker det
Tak for hjælpen.
--
Med venlig hilsen
Dennis Bay
"Claus H" <Claus@UseNewsGroup.dk> skrev i en meddelelse
news:3d7a65d8$0$685$ba624c82@nntp04.dk.telia.net...
> Det er ikke helt korrekt - en form har faktisk samme eventmuligheder som
en
> klasse (groft sagt er en klasse bare en form uden brugergrænseflade)!
>
> Jeg tror snarere at det ligegr i, hvordan du åbner underformularen - mit
gæt
> er at du gør noget i retning af
> frmGetKunder.Show
> Dette viser godt nok din formular, men du får ingen events, for
> hovedformularen har ingen reference til underformularen.
> Det er vigtigt at du istedet bruger:
> mobjKunder.Show
> - her bruges den instans som jo er erklæret som frmGetKunder.
>
> Det byrde virke.
>
> Mvh
>
> Claus H
>
>
> "Claus Bernth" <cbernth@worldonline.dk> skrev i en meddelelse
> news:3d7932a2$0$27687$edfadb0f@dspool01.news.tele.dk...
> > Events kan kun skydes af fra class modules.
> >
> > Dvs hvis du laver en class der hedder 'clsTest' og her i skriver
følgende:
> > ---
> > Public Event HejMedDig(sTmp As String)
> >
> > Public Sub RaiseHejMedDig(sTmp As String)
> > RaiseEvent HejMedDig(sTmp)
> > End Sub
> > ---
> >
> >
> > Så kan du nu på formen skrive:
> > ---
> > Private WithEvents oTest As clsTest
> >
> > Private Sub Command1_Click()
> > oTest.RaiseHejMedDig ("Min tekst")
> > End Sub
> >
> > Private Sub Form_Load()
> > Set oTest = New clsTest
> >
> > End Sub
> >
> > Private Sub oTest_HejMedDig(sTmp As String)
> > Me.Text1 = sTmp
> > End Sub
> > ---
> >
> > Helt konkret sker der det at når du trykker på formens Command1 button
> > rejses et event som fanges i formens oTest_HejMedDig sub. Teksten der
> > overføres fra Command1 clikket modtages og skydes ind i Text1...
> >
> > Håber det er til at forstå
> >
> > Det er testet og det virker
> >
> > Vh,
> > Claus
> >
>
>