Visual Basic Vraagje!

M1d0 · **15-02-2002, 15:53**

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???

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!!

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!!

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

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

Soortgelijke topics
Forum	Topic	Reacties	Laatste bericht
Software & Hardware	Visual Basic form in mijn website laden? Stuiterbal20	10	09-04-2009 16:13
Software & Hardware	tutorials visual basic 2005 pc nerd	2	28-05-2006 09:45
Software & Hardware	[Software] Visual Basic / Studio 6.0 Verwijderd	14	26-05-2004 09:04
Software & Hardware	Visual Basic vraagje Verwijderd	1	19-05-2002 23:55
Software & Hardware	Visual Basic vraagje, over de Timer Verwijderd	2	14-03-2002 15:40
Software & Hardware	visual basic vraag girlspider	2	18-11-2001 18:32

15-02-2002, 16:10
Doc	Code: Private Sub Text1_Change() Text2.Text = Val(Text1.Text) * 2 End Sub Zoiets??? __________________ Ik ontken met kracht dat ik erkenning geef aan mensen die onkennen te erkennen onkennend miskend te zijn...:p

15-02-2002, 16:29
M1d0	Hij geeft een foutmelding bij Textbox1.Text __________________ M1d0 All Rights Reserved 2002 ®

15-02-2002, 16:43
Jozzy	Ehhh heet je tekstvak wel "Textbox1"??

15-02-2002, 16:47
M1d0	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).] __________________ M1d0 All Rights Reserved 2002 ®

16-02-2002, 09:50
Jozzy	Die heb ik dus al gegeven. Als je nou eens kijkt naar wat ik je vraag!!

16-02-2002, 16:28
Jozzy	punt 1 - als je nou zegt dat je tekstvakje "Text1" heet en niet "Textbox1" had ik je dit ook wel kunnen geven 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

Advertentie