Scholieren.com forum - Visual Basic Vraagje!

Scholieren.com forum (https://forum.scholieren.com/index.php)

- Software & Hardware (https://forum.scholieren.com/forumdisplay.php?f=20)

- - Visual Basic Vraagje! (https://forum.scholieren.com/showthread.php?t=13375)

M1d0	15-02-2002 15:53

Visual Basic Vraagje!

Hoi,

Ik wil dat als je in Textbox 1 iets invult dat er bij Textbox 2 het antwoord komt..Maar dan steeds verschillende invoeren bij 1 en dus bij 2 ook andere antwoorden....

Voorbeeld:

Ik vul in Textbox1 het getal 20 in en in Textbox 2 komt dan 40 te staan....

Als ik in Textbox1 40 invul, wil ik in Textbox 2 dat er 80 komt.

Wie weet de code hiervoor......

MzzL M1d0

Doc	15-02-2002 16:10

Code:

Private Sub Text1_Change()

 Text2.Text = Val(Text1.Text) * 2

End Sub

Zoiets??? http://forum.scholieren.com/confused.gif

Jozzy

15-02-2002 16:11

Code:

Select case Textbox1.text

  Case Is = 20

    Textbox2.text = "40"

  Case Is = 40

    Textbox2.text = "80"

  Case Is = 1234

    Textbox2.text = "2468"

  Case Else

    Textbox2.text = "blabla"

    '' (Hier komt iets te staan als er geen enkele mogelijkheid die hierboven genoemd is, in dit geval geldt)

End Select

Er vanuit gaande dat je het er NIET om deed het eerste tekstvakje met 2 te vermenigvuldigen, maar dat dat slechts een voorbeeld was...

M1d0	15-02-2002 16:29

Hij geeft een foutmelding bij Textbox1.Text

Jozzy

15-02-2002 16:43

Ehhh heet je tekstvak wel "Textbox1"??

M1d0	15-02-2002 16:47

Ik had het zo maar is er geen makkelijkere manier.....

Code:



Private Sub Command1_Click()



Text1 = "20"

Text2 = "40"



Text1 = "10"

Text2 = "32" 



End Sub

[Dit bericht is aangepast door M1d0 (15-02-2002).]

Jozzy

16-02-2002 09:50

Die heb ik dus al gegeven. Als je nou eens kijkt naar wat ik je vraag!! http://forum.scholieren.com/rolleyes.gif

M1d0	16-02-2002 12:52

Citaat:

ModuM schreef:
Die heb ik dus al gegeven. Als je nou eens kijkt naar wat ik je vraag!! http://forum.scholieren.com/rolleyes.gif

Dus wel makkelijker manier:

Private Sub Command1_Click()

If Text1="20" Then
Text2="10"
End If

End Sub

Jozzy

16-02-2002 16:28

punt 1 - als je nou zegt dat je tekstvakje "Text1" heet en niet "Textbox1" had ik je dit ook wel kunnen geven http://forum.scholieren.com/rolleyes.gif als je niet eens doorhebt dat je Textbox1.text moet vervangen door de naam van je eigen tekstvakje zou ik niet eens aan VB beginnen als ik jou was.
punt 2 - bij dingen met veel meer mogelijkheden is mijn methode makkelijker, omdat dat minder tekst oplevert

Alle tijden zijn GMT +1. Het is nu 13:37.