VB6 - Voorkomen dat variabele toewijzing label caption ook wijzigt

[satriano17]

ik zal morgen verder proberen . En ik had wel uw code met het klikken goed gekeken
en proberen te aanpassen. In plaats van klikken een waarde in de textboxen tot nu toe niet gelukt.

 

[satriano17]

Ik heb alles geprobeerd wat ik kon.
Zonder de waarde van de tekstvakken toe te wijzen, kan het niet gaan.
Want de labels hebben dan geen waarde.

Ik weet ook niet wat anders ik kan schrijven onder de startknop.

Een bijkomend probleem: als een of meer tekstboxen leeg zijn, geven ze nog steeds een waarde van '0' door aan
de labels en wordt er nog steeds een ongewenste regel getekend.
Ik heb geprobeerd in geval van '0'

If text1.text ="" then 
exit sub
end if

maar zo stopt dan het programma.

Ik moet, met spijt..... opgeven. Bedankt voor je inzet.
Ik zal dan gewoon uw versie (klikken op de labels) gebruiken.

 

[edmoor]

Kijk eens naar deze:
Bekijk bijlage Satriano.zip

Aan de Sub SetDuo heb ik niets gewijzigd.

 

[satriano17]

Verbazingwekkend, Edmoor.
Ik heb uren bezig geweest . Ik had opgegeven.
Het werkt prachtig en zoals ik het bedoeld.

Dit is een....... kunstwerk.
Bedankt.
Het kan niet beter dan dit !!!

Ik heb al uw naar code gekeken en ik zal nog studeren.

Zeer bedankt.

 

[edmoor]

Er zat toch nog een foutje in de Sub SetDuo.
Bij deze verholpen:
Bekijk bijlage Satriano.zip

 

[satriano17]

Ok. dank

 

[alphamax]

@satriano17
Als je ook nog de .TabIndex aanpast dan kan je met de TAB-toets per regel van kolom "verbind" naar kolom "met" springen.

 

[satriano17]

alphamax ik heb gezien. dat kan altijd nog van pas komen.

 

[edmoor]

Da's netter inderdaad en had ik meteen moeten doen.
Verder ook nog wat aan uitlijning gedaan.
Bij deze:
Bekijk bijlage Satriano.zip

 

[satriano17]

wat kan ik zeggen.. super de luxe.
en nu is het mijn beurt om alles te integreren in mijn programma.
Nogmaals bedankt. Vooral aan u Edmoor voor jouwe professionaliteit.

Dank alphamax voor uw interventie.

Misschien tot de volgende keer.