[VB6] Calculator komma probleem.

[Verwijderd]

Ik ben een rekenmachine voor school aan het maken, deze werkt tot nu toe goed.
Alleen ik heb een probleem met de komma.
Mijn doel is om het hetzelfde te laten werken als in de rekenmachine in windows.
Dus dat de komma er de hele tijd al staat, maar dat als komma = false dat de cijfers ervoor verschijnen, en als komma = true is dat de cijfers er achter komen.
Dit heb ik in alle cijfer toetsen gezet:

Dim komma As Boolean

Private Sub cmd7_Click()
If komma = False Then
Text.Text = cmd7.Caption & Text.Text
End If

If komma = True Then
Text.Text = Text.Text & cmd7.Caption
End If
End Sub

Private Sub cmdkomma_Click()
If komma = False Then
komma = True
End If

End Sub

opzich werkt dit wel, alleen als komma = false aan staat dan komen de cijfers in spiegelbeeld in de textbox.
Als ik dus 123 intik komt er in de textbox 321 te staan.
Als komma = true aan staat heb ik dit probleem niet, en komt er gewoon 123 in de textbox als ik dat intik.
Weet iemand wat ik er tegen kan doen dat me tekst in verkeerde volgorde in de textbox verschijnt.

[DukeMan]

Op dinsdag 21 mei 2002 21:35 schreef Mito het volgende:
Private Sub cmd7_Click()
If komma = False Then
Text.Text = cmd7.Caption & Text.Text
End If

moet zijn

code:

Private Sub cmd7_Click()
If komma = False Then
      Text.Text = replace(Text.Text & cmd7.Caption, ",", "") & ","
End If

Dit zet alle getallen aan elkaar, haalt de komma eruit en plaatst deze achter aan...

Gr

[robjanssen]

code:

Private Sub cmd7_Click()
Dim lngPos as Long

If komma Then
  Text.Text = Text.Text & cmd7.Caption
Else
  lngPos = InStr(",", Text.Text)
  Text.Text = Left(Text.Text, lngPos-1) + cmd7.Caption + Mid(Text.Text, lngPos)
End If

End Sub

[Verwijderd]

Ok, het werkt perfect
bedankt!!