XProfan

Español

Detlef
Tussing

hallo allen Profaner`n

tener ya otra vez una Cuestión, en el zusammenkopieren de verschiedenen Programmen mach Yo ahora 2 Ventana en. Yo hätte aber gerne el ListBox en el Ventana 1, y kein weiters Ventana.
Kompilieren Marca Separación

1. Fenster
DEF GETSYSCOLOR(1) !USER32,GetSysColor
WINDOWSTYLE 31 47
WINDOWTITLE Test
WINDOW SUB(DIV(%MAXX,2),DIV(740,2)),SUB(DIV(%MAXY,2),DIV(500,2))-660,500
SETTRUECOLOR 1
CLS GETSYSCOLOR(1)15
SETDIALOGFONT 1
2.Fenster im 1. Fenster
dlg% = create(Dialog,%Hwnd,Test2,340,200,250,100)
CBox& = @Control(ComboBox,,$5421034E,10,10,200,200,Dlg%,2000,%hinstance)
End%=@createbutton(Dlg%,Auswahl,80,40,80,32)
Addfiles *.DAT
MoveListToChoice(CBox&

y como Yo auch neugierig bin, wüste Yo gern qué el $5421034E en el 2. Ventana
bedeutet.
Yo habe el komplette Programa en una otro Rechner kopiert,
como son el Ventana a uno andern Punto como en me, hängt el con el Einstellung el Grafikkarte zusammen?

Gruß Detlef Tussing
Windows XP, XProfan 10

09.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

Detlef
Tussing

y qué mach I, con ENTER anstatt OK

Gruß Detlef Tussing
Windows XP, XProfan 10

09.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Probier veces %key 13 oder 10.

09.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Detlef
Tussing

Ihr seid todos hilfsbereit, doch wo sol Yo %key13 eingeben ?

Gruß Detlef Tussing
Windows XP, XProfan 10

09.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Kompilieren Marca Separación

WHILENOT ENDE%

    if %(key=255) or (key%=13)

        BREAK
        elseif.

09.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@Sorry Franco

if %(key=255) or (key%=13)

Passiert me auch manchmal - aber así wäre lo correcto:

Kompilieren Marca Separación

if (%key=255) or (%key=13)re>

No hauen -

10.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Detlef
Tussing

Bitte para bastante dumme una vez más

Mein Prog reagiert sólo en Ok no en ENTER
Kompilieren Marca Separación

declare exit&,e%,a$
declare edit&,vorgabe$
DEF GETSYSCOLOR(1) !USER32,GetSysColor
WINDOWSTYLE 31 47
WINDOWTITLE Apex Elektronik GmbH Grevenbroich Tel. 02181-24040
WINDOW SUB(DIV(%MAXX,2),DIV(740,2)),SUB(DIV(%MAXY,2),DIV(500,2))-400,150
SETTRUECOLOR 1
CLS GETSYSCOLOR(1)15
SETDIALOGFONT 1
exit& = CreateButton(%HWnd,Ok,150,50,100,35)
vorgabe$ =
edit& = CONTROL(Edit,vorgabe$,$54810020,150,20,100,25,%HWnd,0,%HInstance,$0200)
SetFocus(edit&)

whilenot e%

    if (%key=255) or (%key=13) or getfocus(exit&)

        e% = 1

    endif

wend

A$ = gettext$(edit&)

if a$=qwert

    print a$
    waitinput

else

    end

endif

Gruß Detlef Tussing
Windows XP, XProfan 10

10.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@¡Hola Detlef
Como DU XPROFAN10 hast, tener Yo Su Texto algo abgeändert y Erklärungen dazu geschrieben. Hoffe, Usted kommst por...

Kompilieren Marca Separación

declare exit&,e%,a$
e%=0 besser
declare edit&,vorgabe$
DEF GETSYSCOLOR(1) !USER32,GetSysColor
WINDOWSTYLE 3147
WINDOWTITLE Apex Elektronik GmbH Grevenbroich Tel. 02181-24040
WINDOW SUB(DIV(%MAXX,2),DIV(740,2)),SUB(DIV(%MAXY,2),DIV(500,2))-400,150
Für das Fenster hatte ich Dir eine andere Möglichkeit weiter oben gepostet
SET(TRUECOLOR,1) Muss nicht sein - XProfan ist standartdmäßig so eingestellt
CLS GETSYSCOLOR(1)15
SETDIALOGFONT 1
exit& = CreateButton(%HWnd,&Ok,150,50,100,35)überholt
exit&=CREATE(BUTTON,%HWND,&OK,150,50,100,35)
vorgabe$ =  Wenn die Vorgabe  ist, warum schreibst Du dann nicht im Edit& auch
edit& = CONTROL(Edit,vorgabe$,$54810020,150,20,100,25,%HWnd,0,%HInstance,$0200)
edit& = CONTROL(Edit,,$54810020,150,20,100,25,%HWnd,0,%HInstance,$0200)
SetFocus(edit&)

whilenot e%

    if  ISKEY(255) | (ISKEY(18) & ISKEY(79)) | CLICKED(exit&)

        Du hast den Focus auf der Eingabe(SetFocus(edit&)) daher kann die Enter(13)-Taste nicht
        reagieren. Da Du XProfan10 hast, nimm anstelle von %Key  -   ISKEY
        Hier ist jetzt die ALT(18)-Taste und die O(79)-Taste kombiniert. Zusammen gedrückt, schliessen sie auch
        Anstelle von GetFocus besser CLICKED verwenden. Das ist der Windows-Standard.
        Befehl wird erst beim Loslassen des Buttons ausgeführt.
        e% = 1

    endif

    ENDWHILE Wend ist überholt
    A$ = gettext$(edit&)

    if a$=qwert

        print a$
        waitinput

    else

        end

    endif

    -----------------------------
    FIN

10.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Detlef
Tussing

Gracias, el Erklärung el Befehle es erheblich mejor como en XProfan Ayuda doch con ENTER komm Yo no más

Gruß Detlef Tussing
Windows XP, XProfan 10

10.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Detlef
El ENTER-Taste es auch no aktiv ! - In el Code, el Yo Usted geändert habe kannst Usted ahora encima el Systemmenu oben rechts con el [X]-Button, con el OK-Button oder con el beiden Tasten ALT + O final. El ENTER-Taste es para Beenden uno Programmes no üblich.
Si usted Su WindowsStyle así angibst : 31 + 512, hast Usted el Reacción uno Dialoigfensters en el Ventana principal. Dann kannst Usted con el TAB-Taste de EDIT en el Button umschalten y luego funktioniert auch el ENTER-Taste. Aber, como dijo, ENTER para el Programmende es no üblich

10.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 3 -

Detlef
Tussing

Nach el Eigabe es doch más rápido Enter a drücken como con ratón el Button a betätigen, y una Eingabe beschliest uno sonst auch con Enter oder?
Yo voluntad el Programa no final, sólo el Eingabe abschliessen.
el con +512 va aber por qué el Umweg encima TAB
Wenn Yo en XProfan einlogge es el gleiche, Name TAB Contraseña TAB y Enter por qué no es igual Enter después de Contraseña ??

Gruß Detlef Tussing
Windows XP, XProfan 10

10.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Yo Usted doch ahora unos pocos Beispiele rübergeschickt. Si usted necesariamente el ENTER-Taste haben willst, entonces definiere ellos doch:
Kompilieren Marca Separación

Case CLICKED(OK%) | ISKEY(13):END  oder was hier sonst passieren soll

Dadurch, dass Usted sólo el Eingabefenster hier ausgibst, blanco Yo sí no, qué Usted vorhast. In el Profano-Ayuda son todos Scancodes. Alle Tasten- y Buchstabenwerte. Como el zusammen aufgerufen voluntad, tener Yo Usted auch geschrieben. Nu mach veces...

10.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dietmar
Horn

¡Hola Detlef,

Usted hast doch unseren XProfan-Manager. Gib doch simplemente veces hay en el Suchmaschine (F2) oder en el Baby-Box el Suchbegriff Tastatur una, entonces findest Usted massenhaft Codes y Demos a Tastaturabfrage.

Saludo
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]