VB6 Class probleempje

[anoniem]

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

[anoniem]

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

[anoniem]

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

[anoniem]

Kun je je class module ook posten, of in elk geval het type van ValutaBox (Currency, String, TextBox, Control, wat anders?)

[anoniem]

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.

[anoniem]

Misschien dat je hier wat aan hebt [url]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vamsgObjDoesNotSupportEvents.asp[/url]

[anoniem]

Ik heb het gelezen, maar begrijp niet helemaal wat "Client sinking" betekent. Iemand enig idee?

[anoniem]

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,..

[anoniem]

OK EVEN ALLES OP EEN RIJTJE NU: (ik heb er maar een CurrencyBox van gemaakt, vergeet GeldBox en ValutaBox !!) Ik heb een classmodule die textbox-events bevat. dat ziet er zo uit: [code:1:1ce0acb567]Public WithEvents CurrencyBox As TextBox Private Sub CurrencyBox_KeyPress(KeyAscii As Integer) enz.... End Sub Private Sub CurrencyBox_GotFocus() enz... End Sub Private Sub CurrencyBox_LostFocus() enz... End Sub[/code:1:1ce0acb567] Op een form zet ik 2 textboxen, txtBedrag(0) en txtBedrag(1) In het Form_Load event zet ik dit: [code:1:1ce0acb567]Dim myClass As New CurrencyBoxClass Dim myTextBox As TextBox Private Sub Form_Load() Set myTextBox = txtBedrag(0) Set myClass.CurrencyBox = myTextBox 'Foutmelding op regel hier boven: "Object or class does not support the set of events." End Sub[/code:1:1ce0acb567] Wanneer ik dus maar 1 textbox op het form plaats (txtBedrag, zonder index), gaat het wel goed. Maar ik wil door heel mijn applicatie van deze textboxen zetten waar je een bedrag in moet typen, dus dacht ik meerdere instanties van txtBedrag te plaatsen. HOE KAN IK TOCH INDEXEN GEBRUIKEN ??? groetjes ROB