🚀 go-pugleaf

Ben momenteel "objectgeorienteerd" aan het programmeren in VB.

Ik zit nu met het volgende probleem ... Heb enkele klassen gemaakt met
events ... dus stel BsWerknemer met een bepaalde raiseEvent .. die neem ik
dan volledig over in bijvoorbeeld TsWerknemer waarin ik ook mijn Dbase heb
gedefieneerd ... Nu wil ik in mijn form die events binnenhalen ... maar ik
kom dan het volgende tegen : Ik kan hem wel iets laten melden, via msgbox
... maar zie niet direct een manier om iets te herstarten (exit sub gaat
niet, want with event is een sub op zich)...

Misschien niet echt duidelijk ... hier enkele stukjes kode ..

BsWerknemer

Private mPostcode As Integer
Public Event VerkeerdeInvoerPostcode(msg As String)
...
...


Public Property Let Postcode(ByVal nPostcode As Integer)
    If nPostcode > 999 And nPostcode < 10000 Then
      mPostcode = nPostcode
    Else
      RaiseEvent VerkeerdeInvoerPostcode("Verkeerde invoer voor Postcode")
    End If
End Property

TsWerknemer

Private WithEvents Wn As BsWerknemer
....

FrmWerknemer
Private WithEvents mWerknemer As BsWerknemer
Private WithEvents Wn As TsWerknemer

Private Sub mWerknemer_VerkeerdeInvoerPostcode(msg As String)
  Lblfout.Caption = msg
  TxtPost.SetFocus
End Sub

//Dit laatste werkt ... maar daar ben ik niks mee ... Hij loopt daar gewoon
overheen (msgbox ... doet idem ... geeft foutmelding, maar neemt dan inhoud
ban het eerste record, indien het niet aan de vw'en voldoet

Hierin moet ik een manier vinden om toch iets te kunnen onderbreken zodat ik
gehoor kan geven aan de foutmeldingen...

Private Sub cmdOK_Click()
  Lblfout.Caption = ""
  On Error GoTo UpdateError


  If IsNumeric(TxtPost.Text) = False Then
      Lblfout.Caption = "Gelieve een numerieke Postnummer in te geven!"
      TxtPost.SetFocus
      TxtPost.SelStart = 0
      TxtPost.SelLength = Len(TxtPost.Text)
      Exit Sub
  Else
//dit werkt


  With mWerknemer
      .Naam = TxtNaam.Text
      .VoorNaam = TxtVoornaam.Text
      .Adres = TxtAdres.Text
      .Woonplaats = TxtPlaats.Text
      .Postcode = CInt(TxtPost.Text)    //heeft ondertussen al iets in
mWerknmer.postcode gezet...
      .Functie = TxtFunctie.Text
    End With
  End If


  If toevoegvlag Then
    Wn.Voegtoe
  ElseIf wijzigvlag Then
    Wn.wijzig
  End If
  Toggle (True)
  Exit Sub

UpdateError:
  MsgBox Err.Description
End Sub


Thx voor eventuele reacties (hoop dat ik een klein beetje duidelijk ben
geweest)

Bart

www.zenoke.web.be