Forum: Hjälp med med msgbox fel (VB 6)

Forum huvudsida -> Programmering -> Hjälp med med msgbox fel (VB 6)

Sidor: 1

Till botten

abgorD 19:51 - 27:e Maj 2010 | Post #1
Medlem
Inlägg: 2


Skicka PM 		Tjenna får fel på mitt kalkylatorprogram när textbox är tom och man klickar =
Tacksam för svar så snabbt som möjligt =)
koden jag använder:

Dim nummer As Integer
Dim nummer2 As Integer
Dim svar As Integer
nummer = Text1.Text
nummer2 = Text2.Text

If label1.Caption = "+" Then
Text3.Text = nummer + nummer2
Text3.Visible = True
Text2.Visible = False
Else
If label1.Caption = "-" Then
Text3.Text = nummer - nummer2
Text3.Visible = True
Text2.Visible = False
Else
If label1.Caption = "*" Then
Text3.Text = nummer
  • nummer2
Text3.Visible = True
Text2.Visible = False
Else
If label1.Caption = "/" Then
Text3.Text = nummer / nummer2
Text3.Visible = True
Text2.Visible = False
End If
End If
End If
End If

'Testat med denna koden nedan för msgbox men får inte rätt på programmet, klagar på "nummer".
'If nummer = "" Then
' svar = MsgBox("Ange ett tal", vbOKCancel + vbInformation) '
'End If


Sidor: 1

Forum huvudsida -> Programmering -> Hjälp med med msgbox fel (VB 6)
Atom feed

Du får inte posta i den här tråden | Till toppen