2 felter som skal lægges sammen i et 3 felt

"hvor man kun kan" skulle der stå

Den er klar

Private Sub tal2_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case vbKeyReturn 'Enter-tast
      SendKeys "{tab}" 'Sender tabulatortegn i stedet for
    Case vbKeyBack 'Backspace
    Case 48 To 57 'Tallene 0-9
    Case Else 'Alle andre tastetryk
      KeyAscii = 0 'Sletter det tastede tegn
  End Select
End Sub

textbox3.text = CLng(textbox1.text) + CLng(textbox2.text)

Se evt http://www.w3schools.com/vbscript/vbscript_ref_functions.asp#conversion

SÅ skal der stå "tal" i stedet for "textbox"..

jeg fik den til at virke med en msgbox. Men jeg er ikke helt med i den anden

Private Sub txtOutput_Change()
txtOutput.Text = CLng(tal1.Tal) + CLng(tal2.Tal)
End Sub

Men jeg skal vel fortælle min knap et eller andet, skal jeg ikk?

det her skulle da gerne virke... hvis du f.eks bruger en knap:

sub command1_click()
txtOutput.Text = tal1.text + tal2.text
end sub

eller måske txtOutput.Text = (tal1.text + tal2.text) ?

da textboxe er af typen "tekst", vil 2 + 2 give 22.
Derfor CLng, som konverter indeholdet til tal, hvilket giver 2+2=4.

det andet virker da her.. underligt... virker nok også med int()?

Ja, men Int og CInt acceptere vist ikke komma tal.. dvs "3.5" bliver rundet af til enten "3" eller "4".

det er rigtigt :) det er hvis man vil have rundet op eller ned...

Hehe... kan ikke huske så meget vb mere efter jeg gik over til C++ for 3 år siden...

min fejl, jeg skrev det ind i det textfelt der skulle virke som output.

hvad betyder det? :-)

jeg skrev det ind i textbox 3 og ikke ind i knappen.

Ahhh... nu forstår jeg.. tror jeg :-)

nm :)

nu har jeg sidste spørgsmål.

case.

jeg har nu lavet en extra textbox(2) hvor man kun kan skrive + - * /

nu skal jeg så have lavet sådan at hvis der står + i textboxen så skal der plusses, hvis der står *, så skal der ganges.

skal jeg skrive noget i textbox 2 ang. case?
case "gange" = *

hvordan starter jeg en case?


Select Case ?? fra textbox2 ?
            Case "gange"
txtOutput.Text = CLng(tal1.Text) * CLng(tal2.Text)

Case "plus"
txtOutput.Text = CLng(tal1.Text) + CLng(tal2.Text)

dim a, b, t
t = NavnPåBoksMedMatematikTegnet.text
a = CLng(tal1.text)
b = CLng(tal2.text)

Select Case t
case "+"
  txtOutput = a+b
case "-"
  txtOutput = a-b
case "*"
  txtOutput = a*b
case "/"
  txtOutput = a/b
case else
  Msgbox "Det valgte matematik tegn er ikke understøttet." & vbCrLf & "Understøttet tegn er: +, -, *, /"
End Select

nice work
læg et svar

Ellers slå "select case" op i hjælpen - det er det den er der for ;o)

Svar lagt :-)

Lukketid?