XProfan

- Página 2 -

Rolf
Koch

entweder Usted klickst en Ausführliche Antwort escribir y hast como el Formatierungsoptionen oder du setzt lo sin la Leerzeichen zwischen el code (sólo así lo hier dargestellt se):
[c o d e]hier el code[/c o d e]

Jörg
Sellmeyer

Andre Hilprecht

Das verstehe Yo, alles klar.
Tal vez brauchte Yo, el Umweg encima GetText$(Pass%) no ir, porque mein Contraseña kein Wort pero una Zahl es.

Was más, como bekommt ihr el Programmcode aquí en así una Ventana, sieht mejor de y yo muss determinado veces otra vez unos pocos Zeilen Quellcode puesto?

Saludo André

Es kein Umweg pero el einzige Möglichkeit a el Texto a kommen - egal si Texto oder Zahl. Pass% enthält sólo el Handle para Editcontrol.
Si usted una Zahl hast y weiterverwenden willst, darfst No vergessen ellos con Val(GetText$(Pass%)) en una numerischen Valor a verwandeln.

Saludo
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Andre Hilprecht

Tal vez brauchte Yo, el Umweg encima GetText$(Pass%) no ir, porque mein Contraseña kein Wort pero una Zahl es.

Den Umweg wirste ya ir necesario

Beim redactar des Editar-Controls ordnet Windows diesem una Identifizierungnummer a, el Usted en Pass% gespeichert hast. Dort es como sólo el ID para Editar gespeichert. Um a el Texto a kommen, mußt esta con GetText$ auslesen, wobei Usted el ID a el Control übergibst, welches esta Texto enthält.

Yo bin a langsam

, naja alter Mann y el Hitze

Andre
Hilprecht

Hm, ihr macht me gerade klar, el algo no va, qué en me aber funzt ??!!??
Also mein Teil sieht ahora así de:
Kompilieren Marca Separación

Text%    = @Create(Text,D%,Bitte Programmpasswort eingeben:,20,20,300,20)
Pass%    = @Create(Edit,D%,,   20, 50,200,-30)
Font%    = @Create(Font,Sans Serif,24,0,0,0,0)
SetFont Pass%, Font%
sendmessage(Pass%,204,ord(*),0)
OK%      = @Create(DefButton,D%,OK, 20,140, 140,30)
CANCEL%  = @Create(DefButton,D%,Abbruch,180,140,140,30)
@SetFocus(Pass%)
F% = 0

WhileNot F%

    WaitInput

    If Clicked(OK%)

        Pass$    = @GetText$(Pass%)

        If Pass$=0000

            DestroyWindow(OK%)
            F% = 1
            DestroyWindow(D%)
            Client

        ElseIf Pass$ <> 0000

            Text1% = @Create(Text,D%,Das Passwort ist leider,20,200,140,20)
            Text2% = @Create(Text,D%,F A L S C H   ! !,60,220,140,20)
            EnableWindow Text%,0
            EnableWindow Pass%,0
            EnableWindow OK%,0
            EnableWindow CANCEL%,0
            SLEEP 2500
            F% = 1
            DestroyWindow(D%)

        EndIf

    ElseIf @Clicked(CANCEL%)

        F% = 1
        DestroyWindow(D%)

    EndIf

EndWhile

y lo funzt ahora wunschgemäß.

Gracias Euch allen, a para nächsten Denkanstoß Saludo André

Kompilieren Marca Separación

Usted machst lo doch así, como wir schrieben

Pass$  = @Gettext$(Pass%)

Pass% Es el ID vom Editar
Pass$ Es el Stringvariable wo el Texto gespeichert voluntad se

- Página 3 -

Andre
Hilprecht

Hast Recht, stimmt, el musste Yo einbauen porque IMMER el Meldung kam;
Das Contraseña es desafortunadamente falso!
So funzt jetz jedenfalls mi Contraseña-Abfrage wunschgemäß y Sternchen.

Michael
Wodrich

Mir son todavía una Paar Dinge aufgefallen:

Button: Lo debería sólo una DefButton eingesetzt voluntad, Rest es Button.
Der Grund: Def es para Default (Vorgabe). Dies es also el vorgewählte Button.

DestroyWindow(Ok%) - no nötig. Si usted el Diálogo löscht, ir el daraufliegenden Controls freiwillig con...

Überhaupt kannst Usted el ganzen DestroyWindow() en 1 reduzieren. Gebe simplemente el Variables F% valor 2 si el Contraseña stimmt. Dann kannst Usted hinter el Mientras que-Bucle el DestroyWindow conjunto y
Case F% = 2: Client
el Programmteil aufrufen.

Schöne Grüße
Michael Wodrich
(auch Jahrgang 60)

Programmieren, das spannendste Detektivspiel der Welt.

Pedro
Santos

¡Hola

Como ya Pascal erwähnt Sendmessages bieten una Menge Möglichkeiten
Wäre una gute Concepto aquí en el Communty una Container a schafen wo Sendmessages con Descripción qué lo bewirkt abgelegt voluntad. Gerade para Einsteiger es el una Segen

Gruss

Pedro

Windows XP Home
Xprofan 10

@Petro
Das se en Zahl a Messages, el lo son una schwieriges Unterfangen

Alleine el Messages fürs RichEdit würden hier Páginas füllen. Für Windows Allgemein
se el also kaum ir. Aber tal vez ha IF hierzu ne Concepto, porque grundsätzlich debería
como qué posible ser.

Nico
Madysa

Man podría en el Online-Doku una Kapitel Messages invertir.

Nico Madysa

Nunja Yo podría nen MessagesPool erfinden - todos Headerfiles de XProfan como Datenbasis einspeisen - y una leichtes Durchsuchen ermöglichen.

@Nico: In el ODoku hay ya Sheets con Messages.