Keypress uitvoeren in een textbox

[satriano17]

dag
Ik zal een simpel voorbeeld van mijn probleem.
Ik heb 2 textboxen, op het form
Text1.text en text2.text
in text1.text komt een data uit een textfile.
Deze data bevat ook spaces. De spaces moeten/mogen zijn in text1. bv:
12 23 56 67

ik win nu dat die data in text2. text komt voor andere bewerkingen, maar zonder de spaces
Ik heb zo geprobeerd

met deze kopieeer ik eerste de data van text1 naar text2

text2.text=text1.text

Met deze probeer ik de spaces te wissen in text2

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then KeyAscii = 0
End Sub

maar lukt niet.
In text2 heb ik altijd de data MET spaces.
Hoe moet ik doen?
ps. ik heb ook geprobeerde de spaces te wissen al in text1 dan lukt alleen als ik data intoets.
Als data uit een textfiles komt, werkt ook niet.

 

[JoZ1]

[cpp]Text2.Text = Text1.Text.Replace(" ","")[/cpp]

 

[satriano17]

Spaces wissen in textbox

dag
Ik heb twee text boxen.
Text1.text
Text2.text
in text1.text komt data uit een textfile die ook spaces bevat. Bv
34 56 78 89
De spaces mogen/moeten daar staan.
Ik wil nu de data naar text2.text kopieren voor anderen bewerkingen en daar mogen GEEN spaces te zijn
Ik doe dan eerste

Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 32 Then KeyAscii = 0
End Sub

en nog

text2.text=text1.text

maar dat lukt mij niet.
De data in text2.text bevat nog steeds de spaces.
Ho moet ik doen?
dank u
satriano
ps. als ik probeer de spaces al in text1text te wissen

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 32 Then KeyAscii = 0
End Sub

gaat ook niet want dat werkt alleen als ik iets intoets.
Als data uit de textfile komt dan werkt ook in text1 niet.

 

[Tha Devil]

Verplaatst van "Test mijn programma" naar Visual Basic

 

[GIJoe]

Dat is vrij eenvoudig, als we weten met welk programma je werkt (Profox wellicht?) en meer detail weer geeft.
Advies: kalm blijven en goed het probleem weergeven met de tools waarmee je werkt.

 

[satriano17]

van uw tip kriig ik error

invalid qualifier

 

[JoZ1]

Daarom is het handig van tevoren te zeggen in welke programmeertaal je bezig bent. Ik vermoed VB6 ?

In dat geval:
[cpp]Text2.Text = Replace(Text1.Text, " ", "")[/cpp]

 

[satriano17]

ja, vb6
In had intussen
ook gevonden

Text2.Text = Replace(Text1.Text, " ", "")

en nu werkt goed.
dus opgelost !

dank u
satriano

 

[JoZ1]

Uitstekend!
Wil je de status dan even op Opgelost zetten? (Rechtsonderin startpost -> Zet status opgelost)

 

[KwarK]

Twee berichten over dezelfde code samengevoegd; hou het bij één topic als het over hetzelfde programma gaat

 

[satriano17]

mijn excuses
Mijn computer was eventjes geblokkeerd.
satriano

ik heb ook geprobeerd op OPGELOST te zetten.
ik weet niet als gelukt is.

 

[KwarK]

Dat is gelukt in de onderwerpenlijst zie je in de status-kolom het groene vinkje staan.