[VB6] If doet vaag

[Spike_wolf]

Hier is een heel vaag probleem:

code:

Private Sub Command1_Click() 
  If Text1.Text = "" Then MsgBox "blaat" 
Else: Text3.Text = Text3.Text & vbCrLf & Text1.Text * Text2.Text 
End If 

End Sub

als ik dit in m'n progje heb staan en probeer deze knop dan krijg ik (of er nu wat in text1 staat of niet) de error "Else without If"
ben ik nou gek of wat? Hij heeft toch wel een if ?¿?

[Stamgastje]

Dit bedoel je volgens mij:

code:

Private Sub Command1_Click()
    If Text1.Text = "" Then
        MsgBox "blaat"
    Else
        Text3.Text = Text3.Text & vbCrLf & Text1.Text * Text2.Text
    End If
End If

Lees voor de rest nog eens goed de documentatie van IF statements door, dat heb je zo te zien nog niet helemaal begrepen.

[ Voor 121% gewijzigd door Stamgastje op 11-04-2004 15:24 ]

[Tukk]

Spike_wolf schreef op 11 april 2004 @ 15:18:
Hier is een heel vaag probleem:

code:

Private Sub Command1_Click() 
  If Text1.Text = "" Then MsgBox "blaat" 
Else: Text3.Text = Text3.Text & vbCrLf & Text1.Text * Text2.Text 
End If 

End Sub

als ik dit in m'n progje heb staan en probeer deze knop dan krijg ik (of er nu wat in text1 staat of niet) de error "Else without If"
ben ik nou gek of wat? Hij heeft toch wel een if ?¿?

Visual Basic:

Private Sub Command1_Click() 
   If Text1.Text = "" Then 
      MsgBox "blaat" 
   Else
      Text3.Text = Text3.Text & vbCrLf & Text1.Text * Text2.Text 
   End If 

End Sub 

Ik ben zo vrij geweest om de code wat leesbaarder te maken.

Mag ik opmerken dat de code mij zeer chaotisch aandoet. Zonder te controleren wat er in Text2 staat voer je al een vermenigvuldiging uit.

Ik heb de code bij mij ge-copy-paste en het werkt gewoon. Heb je niet ergens anders in je code een probleem?

[Spike_wolf]

ik controleer wel wat er in text 2 staat maar dat heb k er ff uit gehaald om het wat duidelijker te maken

[Spike_wolf]

okay, blijkbaar was mijn code inderdaad te chaotiesch. k heb die van Stamgastje ingevoerd en nu werkt hij wel, thanks =-]

[xtra]

Spike_wolf schreef op 11 april 2004 @ 15:32:
okay, blijkbaar was mijn code inderdaad te chaotiesch. k heb die van Stamgastje ingevoerd en nu werkt hij wel, thanks =-]

Chaotisch kan nog wel werken maar dit was gewoon fout zoals de verbeterde code al laat zien.

code:

If Text1.Text = "" Then MsgBox "blaat"

In bovenstaande regel zet je meteen een statement achter if. Dan gaat VB er vanuit dat er niets meer achteraan komt. VB snapt dan niet meer wat er met Else en End If moeten gebeuren. Kortom, twee manieren om If te gebruiken door elkaar halen gaat mis.

[Verwijderd]

Spike_wolf schreef op 11 april 2004 @ 15:18:
Hier is een heel vaag probleem:

code:

Private Sub Command1_Click() 
  If Text1.Text = "" Then MsgBox "blaat" 
Else: Text3.Text = Text3.Text & vbCrLf & Text1.Text * Text2.Text 
End If 

End Sub

En naast de overige opmerkingen...

Wordt de "else" hier opgevat als een label?

[RayNbow]

Verwijderd schreef op 11 april 2004 @ 23:22:
[...]

En naast de overige opmerkingen...

Wordt de "else" hier opgevat als een label?

Nee, de : heeft in VB o.a. de betekenis van een "nieuwe regel" voor een nieuw statement.

In VB kan de If Statement de volgende vormen aannemen:

Visual Basic 6:

If expressie Then Statement1
If expressie Then Statement1 Else Statement2

If expressie Then
  Statement1
  StatementN
End If

If expressie Then
  Statement1
  StatementN
Else
  Statement2
  StatementM
End If

De volgende code kan dus op meerdere manieren worden gefixt...

Visual Basic 6:

If Text1.Text = "" Then MsgBox "blaat"
Else: Text3.Text = Text3.Text & vbCrLf & Text1.Text * Text2.Text
End If

(lelijk) voorbeeld:

Visual Basic 6:

If Text1.Text = "" Then MsgBox "blaat" Else:
Text3.Text = Text3.Text & vbCrLf & Text1.Text * Text2.Text