Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

VB6 Class probleempje

Rob V
8 antwoorden
  • Hoi Luitjes,
    Ik heb een simpel Class'je om alleen valuta invoer toe te laten in bepaalde textboxen. Werkt perfect, behalve wanneer ik meerdere instanties van een textbox plaats, dus met een index.

    Dit werkt wel:
    Dim Bedrag As New ValutaBoxClass
    Private Sub Form_Load()
    Set Bedrag.ValutaBox = txtBedrag
    End Sub

    Dit dus niet:
    Dim Bedrag As New ValutaBoxClass
    Private Sub Form_Load()
    Set Bedrag.GeldBox = txtBedrag(0) <———–
    End Sub

    Dus verschillende textboxen (zonder index) werkt perfect, maar als ik ze dezelfde naam geef (met verschillende indexen) lukt het niet.

    Wie kan me helpen ? Alvast bedankt !

    Rob
  • Waarom staat er in de onderste "Geldbox" i.p.v. Valutabox?? En wat voor foutmelding krijg je? Of krijg je geen foutmelding zoniet wat gebeurd er dan?

    Groeten Wouter
  • Ja, sorry dat moet gewoon ook ValutaBox zijn, omdat ik het net had veranderd, maar in mijn project heet het tegenwoordig ValutaBox.

    De foutmelding die ik krijg is:
    "Object or class does not support the set of events."

    de melding komt op de regel: Set Bedrag.ValutaBox = txtBedrag(0)


    ROB
  • Kun je je class module ook posten, of in elk geval het type van ValutaBox (Currency, String, TextBox, Control, wat anders?)
  • De Class-module begint met:

    Public WithEvents ValutaBox As TextBox

    Verder staan er KeyPress, LostFocus enz. events in die bij een TextBox (zonder Index) horen.
  • Misschien dat je hier wat aan hebt

    http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vamsgObjDoesNotSupportEvents.asp
  • Ik heb het gelezen, maar begrijp niet helemaal wat "Client sinking" betekent. Iemand enig idee?
  • Niet zeker, maar …

    Set Bedrag.GeldBox = txtBedrag(0) –> Set Bedrag(0).GeldBox =
    txtBedrag :-?

    Ik neem hierbij aan dat 'GeldBox' een eigenschap is van het object Bedrag. Als je meerdere tekstboxen hebt die Bedrag heten, dan moet de index dus achter Bedrag.

    Wat is txtBedrag? een andere tekstbox of een variabele?

    Dave,..

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.