VB6 - Voorkomen dat variabele toewijzing label caption ook wijzigt

Status
Niet open voor verdere reacties.
In bijlage een aangepast progr.
Het is een aangepast versie (als alternatief) van een code door u gemaakt en die ook perfect was en werkt

Zolas u zult zien, bj run na input in textboxen, worden wel lijnen getrokken maar ook de namen van de labels wijzigen.
En dat wou ik voorkomen (als het kan). Dus de namen van de labels moeten vast zijn als lijnen getrokken worden.
Ik hoop dat nu duidelijk is wat ik bedoeld.
 

Bijlagen

  • AngepastVoorEdmoor.zip
    2,2 KB · Weergaven: 28
Laatst bewerkt:
De namen van de labels wijzigen niet, alleen het opschrift.
En dat doe je hier dus zelf:
Code: 
Private Sub Command10_Click()
Label1.Caption = Val(Text1.Text)
Label2.Caption = Val(Text2.Text)
Label3.Caption = Val(Text3.Text)
Label4.Caption = Val(Text4.Text)
Label5.Caption = Val(Text5.Text)
Label6.Caption = Val(Text6.Text)
Label7.Caption = Val(Text7.Text)
Label8.Caption = Val(Text8.Text)
Label9.Caption = Val(Text9.Text)
 
Laatst bewerkt:
ja. inderdaad
en hoe voorkomen? Een ander opstelling/syntax?
Ik wil dat de oorspronkelijk opschrift blijf (op het scherm/form)
 
Laatst bewerkt:
Sloop het stuk dat ik liet zien er gewoon uit en controleer of een textBox is gevuld met 1 t/m 9 voordat je de Call naar SetDuo doet.
 
Nee. De textboxen blijven leeg.

en ik wou ook preciseren:
als bv
text1 =3
text2=1

dan moet de eerste lijn getrokken worden vanaf label3 tot label1.
Dus de textboxen beslissen start-end van de lijn
 
Laatst bewerkt:
Dan hebben ze dus geen enkel nut en kunnen dan ook weg.
Ik begrijp niet wat je probeer te bereiken.
 
De nut is bepalen welke lijnen getrokken moet worden (van label x tot label x)bv als
text1 =3
text2=1
zij afb
 

Bijlagen

  • xx.bmp
    338,7 KB · Weergaven: 36
Dan blijven die textboxen dus niet leeg.
 
nee als ik iets input nee. Bij run zijn wel leeg.
Daarna niet meer. Anders krijg je geen lijnen.
 
Laatst bewerkt:
Dus moet je precies doen wat ik in #24 zei.
 
Dan wijzigen die labels dus niet meer en dat is wat je vroeg.
 
Nee.
Maar hoe bepaal ik start-End van de verschillende lijnen?
Door honderden if-then?
Als text1=1 call Call SetDuo(Label1)
....
enz enz
 
Laatst bewerkt:
Ik neem aan dat je dat wilt bepalen door de betreffende cijfers in die textboxjes in te vullen.
Dat moet dan altijd een groepje van 2 zijn en heb je dus 18 textboxjes nodig.
 
ik ga proberen .
Maar voor elke textbox moet je 9 if-then gebruiken.
DE range van elke textbox is 1-9
of niet?
 
Als je per tekstbox een cijfer wilt invullen voordat je op de knop klikt heb je 9*2 tekstboxen nodig die per stuk alleen het cijfer 1, 2, 3, 4, 5, 6, 7, 8 of 9 mag bevatten.
 
Laatst bewerkt:
Ik begrijp perfect wat je voorstel.
Maar de textboxen moeten/mogen geen vaste waarde bevatten.
En ik had zoiets aangegeven bij het begin.

Text1.Text of ieder ander textbox moet bij input een willekeurige cijfer , van 1-9, kunnen krijgen.

Want als ik vaste cijfer toeken dan zouden de lijnen altijd dezelfde zijn.
Elke textbox moet een cijfer kunnen aanvaarden in de range 1-9, maar niet vast.
Text1.text kan wel 1 krijgen maar een ander keer kan 3 zijn of 5.
En zo voor alle textboxen.
Daarom had geprobeerd in het begin met
Code: 
label1.caption=val(text1.text)
....
.....
want de textboxen moeten geen vaste cijfers bevatten maar dynamische cijfers.
Ik weet dat ingewikkeld is.
 
Laatst bewerkt:
Uiteraard mag het ieder willekeurig getal tussen 1 en 9 zijn.
 
Dus niet vast maar een willekeurige cijfer bij input?
Ik heb pas geprobeerd en gaat niet.
Wat moet dan staan onder de start button?

Nu staat
Code: 
Private Sub Command10_Click()
Call SetDuo(Label1)
Call SetDuo(Label2)

....
.....
End Sub

en ik had dit gewist
Code: 
Label1.Caption = Val(Text1.Text)
Label2.Caption = Val(Text2.Text)
Label3.Caption = Val(Text3.Text)
Label4.Caption = Val(Text4.Text)
Label5.Caption = Val(Text5.Text)
Label6.Caption = Val(Text6.Text)
Label7.Caption = Val(Text7.Text)
Label8.Caption = Val(Text8.Text)
Label9.Caption = Val(Text9.Text
 
Laatst bewerkt:
Dat gaat allemaal wel maar je zal de code achter de knop erop moeten aanpassen.
Volgens mij was je al klaar met wat ik liet met het klikken op die labels.
Bestudeer eens goed hoe dat werkt, dan kan je het aanpassen op het gebruik van de tekstboxen.

Wat die tekstboxen betreft, maak 9 groepjes van 2, omdat je altijd 2 punten nodig hebt om een lijn tussen te trekken.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan