vb6 Funktion ? kp

[Dayn]

Also ,
Ich hab mal wieder eine Frage :wink:
So als 3 Programm wollt ich eine art Leet -> Übersetzer als Generator ...

Ich hab es ja soweit schon fertig ...

halt wie man sieht gibt man oben das wort ein und unten kann man es sich auf leet generiren is ja soweit ganz einfach bloß ich wußte nicht wie es mit der funktion geht also hab ich den cod für jedes eingabe feld verändert (das verändern ging ganz schnell..) aber wo ichs fertig hatte kam dieses hier

also nun möchte ich eine funktion schreiben aber wie die es bei www.reed-blog.de/ gezeigt haben versteh ichs nicht ...

so hier könnt ihr euch das mal anschauen was ich geschrieben hab HIER DER CODE

//Edit: Thx schonmal im vorraus ,ach und das was da steht mit BF ähh ja is nicht wichtig xD also soll nicht wichtig sein :oops:

//Edit 2: Also ich denk mal das man dieses Problem mit einer Funktion lösen kann oder ?

//Edit 3: Achso bei dem bsp. bild hab ich das bis aufs erste text eingabe fenster reduziert das man sich so ca. vorstellen kann wies aussehen soll ..

[hackerking]

Ähmm da steht doch
Producer too large

[Dayn]

*-*
Ja das sehe ich auch aber was soll ich dagegen tun ? ? ?

//Edit 2: Also ich denk mal das man dieses Problem mit einer Funktion lösen kann oder ?

also würde es mich auch freuen wenn wer mir ne lösung sagen würde und nicht das was ich schon weiß...

[sp33dwalker]

alter was ist das für ein code.Nimm doch einfach replace -.-

[Dayn]

Ja ich weiß das der code vielzu lang und verwirren / kompliziert ist ... aber wenn ich sonst nicht weiß wie ichs anstellen soll is das schon doof ... hast du evt. n tut wo replace erklärd wird ? xD =) ?

(und ja ich hab SUFU genutzt)

[redshark]

*-*
Ja das sehe ich auch aber was soll ich dagegen tun ? ? ?

Ja... Prozedur kleiner machen wa? ^^

ne wie wärs damit:

Sub Translate()
text1.Text = Replace(text1.Text, "l", "1")
text1.Text = Replace(text1.Text, "e", "3")
text1.Text = Replace(text1.Text, "t", "7")
text1.Text = Replace(text1.Text, "r", "|2")
End Sub

und so weiter halt

[Dayn]

Ahh das is ne Antwort =) THX redshark
werd es gleich mal testen ... :wink: