XProfan

- Seite 2 -

Rolf
Koch

entweder Du klickst auf Ausführliche Antwort schreiben und hast da die Formatierungsoptionen oder du setzt es ohne die Leerzeichen zwischen dem code (nur damit es hier dargestellt wird):
[c o d e]hier der code[/c o d e]

Jörg
Sellmeyer

Andre Hilprecht

Das verstehe ich, alles klar.
Vielleicht brauchte ich den Umweg über GetText$(Pass%) nicht gehen, weil mein Passwort kein Wort sondern eine Zahl ist.

Was anderes, wie bekommt ihr den Programmcode hier in so ein Fenster, sieht besser aus und ich muss bestimmt mal wieder ein paar Zeilen Quellcode posten?

Gruß André

Das ist kein Umweg sondern die einzige Möglichkeit an den Text zu kommen - egal ob Text oder Zahl. Pass% enthält nur das Handle zum Editcontrol.
Wenn Du eine Zahl hast und weiterverwenden willst, darfst Du nicht vergessen sie mit Val(GetText$(Pass%)) in einen numerischen Wert zu verwandeln.

Gruß
Jörg

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

Andre Hilprecht

Vielleicht brauchte ich den Umweg über GetText$(Pass%) nicht gehen, weil mein Passwort kein Wort sondern eine Zahl ist.

Den Umweg wirste schon gehen müssen

Beim erstellen des Edit-Controls ordnet Windows diesem eine Identifizierungnummer zu, die Du in Pass% gespeichert hast. Dort ist als nur die ID zum Edit gespeichert. Um an den Text zu kommen, mußt diesen mit GetText$ auslesen, wobei Du die ID zu dem Control übergibst, welches diesen Text enthält.

Ich bin zu langsam

, naja alter Mann und die Hitze

Andre
Hilprecht

Hm, ihr macht mir gerade klar, das etwas nicht geht, was bei mir aber funzt ??!!??
Also mein Teil sieht jetzt so aus:
Kompilieren Markieren Separieren

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

und es funzt jetzt wunschgemäß.

Danke Euch allen, bis zum nächsten Denkanstoß Gruß André

Kompilieren Markieren Separieren

Du machst es doch so, wie wir schrieben

Pass$  = @Gettext$(Pass%)

Pass% ist die ID vom Edit
Pass$ ist die Stringvariable wo der Text gespeichert werden soll

- Seite 3 -

Andre
Hilprecht

Hast Recht, stimmt, das musste ich einbauen weil IMMER die Meldung kam;
Das Passwort ist leider falsch!
So funzt jetz jedenfalls meine Passwort-Abfrage wunschgemäß und mit Sternchen.

Michael
Wodrich

Mir sind noch ein Paar Dinge aufgefallen:

Button: Es sollte nur ein DefButton eingesetzt werden, Rest ist Button.
Der Grund: Def steht für Default (Vorgabe). Dies ist also der vorgewählte Button.

DestroyWindow(Ok%) - nicht nötig. Wenn Du den Dialog löscht, gehen die daraufliegenden Controls freiwillig mit...

Überhaupt kannst Du die ganzen DestroyWindow() auf 1 reduzieren. Gebe einfach der Variablen F% den Wert 2 wenn das Passwort stimmt. Dann kannst Du hinter der While-Schleife den DestroyWindow setzen und mit
Case F% = 2: Client
den Programmteil aufrufen.

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

Programmieren, das spannendste Detektivspiel der Welt.

Pedro
Santos

Hallo

Wie schon Pascal erwähnt Sendmessages bieten eine Menge Möglichkeiten
Wäre eine gute Idee hier in der Communty ein Container zu schafen wo Sendmessages mit Beschreibung was es bewirkt abgelegt werden. Gerade für Einsteiger ist das ein Segen

Gruss

Pedro

Windows XP Home
Xprofan 10

@Petro
Das wird bei der Zahl an Messages, die es gibt ein schwieriges Unterfangen

Alleine die Messages fürs RichEdit würden hier Seiten füllen. Für Windows Allgemein
wird das also kaum gehen. Aber vielleicht hat iF hierzu ne Idee, weil grundsätzlich sollte
da was möglich sein.

Nico
Madysa

Man könnte in der Online-Doku ein Kapitel Messages anlegen.

Nico Madysa

Nunja ich könnte nen MessagesPool erfinden - alle Headerfiles von XProfan als Datenbasis einspeisen - und ein leichtes Durchsuchen ermöglichen.

@Nico: In der ODoku gibt es bereits Sheets mit Messages.