| |
|
|
Hubert Binnewies | ¡Hola zusammen..
Yo habe tiempos de IF ne Rutina bekommen en Textausgaben a zentrieren. Yo habe ahora fleissig esta Rutina verwendet y bin en una Prob gestossen.
Schaut euch veces fogendes Ejemplo a: KompilierenMarcaSeparaciónDeclare TEXT1&,hFontdlg%,Text$
Def @CreateTextM(6)@control("STATIC",@$(2),$50000001,@%(3),@%(4),@%(5),@%(6),@%(1),100, %hInstance)
WINDOW 0,0-400,200
USEFONT "MS Sans Serif",15,0,0,0,0
SETDIALOGFONT 1
Text$="test &&"
TEXT1& = @CreateTextM(%HWND,Text$,0000,0008,0400,0030)
hFontdlg% = @Create("Font","Comic Sans MS",30,0,0,0,0)
setfont TEXT1&,hFontdlg%
wait /a>
Texto$ enthält en diesem Fall 2 & Signo, aber sólo eins se dargestellt. Nehme Yo eins weg es como sólo todavía una Unterstrich. In mi Proggie incluso todavía no veces el Unterstrich, pero garnichts. Yo möchte no hingehen y allen möglichen Textvariablen después de & Signo a suchen, el sería mein Proggie en el doppelte anwachsen dejar.
Sombrero como uno ne Concepto??
Gracias schonmal en el voraus.
Hubert |
|
|
| WinXP Prof, XProfan 9.1 Newbie
Ein kluger Kopf sagte mal: "Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!" | 04.12.2006 ▲ |
|
|
|
|
Jörg Sellmeyer | ¡Hola Hubert, Sollen porque zwei & a sehen ser? Lo se Usted wohl nichts más übrig bleiben, como el siempre abzuchecken. Windows verwendet el Signo como Markierung fürden Unterstrich. Setz veces Texto$=test Te&st una y Usted puede lo sehen. Tauchen el Textos como Literal en el Code en? Dann kannst Usted simplemente alles en &&&& umwandeln y erhältst zwei Signo. Si usted el irgendwo ausliest oder como Eingabe erhälts, wirst Usted el zusätzlichen Zeilen einbauen necesario.
Saludo Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 04.12.2006 ▲ |
|
|
|
|
Hubert Binnewies | lo se sólo eins a sehen ser, y cadena es ne Kundeneingabe. Kann Yo Windows no irgendwie Klarmachen el lo a el lugar el Unterstrich dejar se???...porque a el lugar es con a Sicherheit grenzender Wahrscheinlichkeit NIE una Unterstrich auftauchen, aber con Sicherheit irgendwann una & Signo. |
|
|
| WinXP Prof, XProfan 9.1 Newbie
Ein kluger Kopf sagte mal: "Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!" | 04.12.2006 ▲ |
|
|
|
|
Matthias Arlt | ...y el reicht no ?
Texto$=translate$(Texto$,&,&&) |
|
|
| WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia | 04.12.2006 ▲ |
|
|
|
|
| |
|
| |
|
|
|
Hubert Binnewies | wenns no anders va voluntad Yo el wohl einbauen necesario..... Gracias euch...
Hubert... |
|
|
| WinXP Prof, XProfan 9.1 Newbie
Ein kluger Kopf sagte mal: "Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!" | 04.12.2006 ▲ |
|
|
|
|
| Für el Setzen des Textes wirst Usted tal vez settext nutzen?
Ersetze doch eifnach todos Settext en mySettext - y mySettext sieht sólo así de: KompilierenMarcaSeparación |
|
|
|
|
Frank Abbing | Besser es, en el Static el Windowstyle SS_NOPREFIX a wählen. Dann verhält se el Und-Signo auch como una bastante normales Signo. Also:
Def @CreateTextM(6)@control(STATIC,@$(2),$50000081,@%(3),@%(4),@%(5),@%(6),@%(1),100, %hInstance)
P.S.: Holt euch de meiner Página el ControlBuilder. Damit könnt ihr en Ruhe todos möglichen Controls y Styles ausprobieren y Profano- oder Assemblercode lo generieren... |
|
|
| |
|
|