| |
| |
|
| - Page 1 - |
|
Andre
Hilprecht | Hi,
need time again Help. have in my Prog a Adminbereich the only over one einzugebendes Password To achieve his should. working too everything fine - only i want yet achieve the in Edit-area for Passworteingabe The ***** (asterisk) and not the Password in Reinschrift attend.
have here already sought  but nothing suitable found.
Greeting André |
|
| |
| Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen
XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils | 06/12/06 ▲ |
|
| |
|
| |
| |
| - Page 2 - |
|
|
Andre
Hilprecht | Jo, jo, jo,
now are the asterisk of Feinsten. As I said, i'm blutiger Beginner, I learn each day what New moreover and sometimes need one even whom pat uffn Hinterkopp.
How should I because before know that I asterisk by SendMessages on The Variable Pass% send can without but ihren real Content To change.
thanks you all.  |
|
| |
| Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen
XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils | 06/12/06 ▲ |
|
| |
|
|
 | You can the Appearance the Sternchens too simply over setfont  to determine. |
|
| |
| |
| |
|
|
Michael
Wodrich | [quote:9ed5506d10]How should I because before know that I asterisk by SendMessages on The Variable Pass% send can without but ihren real Content To change.
[/quote:9ed5506d10]
Pass% contains the lever the Edit-Dialoges. About this lever can itself the dialog address and feintunen.
Best wishes
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 06/13/06 ▲ |
|
| |
|
|
Michael
Wodrich | I have me once more the first Postings durchgelesen... 
Vermutest You something The inputted data in Pass% ???
The data one Edit-Controls erhälst You with the function GetText$().
The Original-Helpfile is incidentally rather as your reputation it To his shining. there find You too Einführungskapitel.
See under:
- introduction
- 20.4. Einfache Editierfelder
the ought to help...
Best wishes
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 06/13/06 ▲ |
|
| |
|
|
Andre
Hilprecht | must me Perhaps time entschuldigen, if I me not so integrally professional expressions. i'm hobby-initially-Autodidakt. have here niemanden, whom I something over program ask could, in the school no Computer science gahabt (be Baujahr 60).
building me my Own philosophy over the program on and verrenne me thereby certainly too time. can me with the Help so some zusammenreimen, but even not always. be lernwillig but need sometimes a Anschubs and be you therefore grateful, the one here very quick The Help get, everybody can need.
CompileMarkSeparation |
|
| |
|
|
 | be Baujahr 59, the ought to means no trouble his 
Perhaps verstehste the following code-Snippet and can it verweden:
CompileMarkSeparation |
|
| |
|
|
Andre
Hilprecht | the understand I, everything clear.
Perhaps needed I the detour over GetText$(Pass%) not weg, because my Password no word separate a number is.
what other, How get your whom Programmcode here in so one Window, sees rather from what about me must certainly time again couple Lines Source post?
Greeting André |
|
| |
| Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen
XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils | 06/13/06 ▲ |
|
| |
|
|
Rolf
Koch | either You click on Ausführliche response write and have since the Formatierungsoptionen or You setting it without The space between the code (only so it here displayed becomes):
[c o d e]here the code[/c o d e] |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Andre Hilprecht
the understand I, everything clear.
Perhaps needed I the detour over GetText$(Pass%) not weg, because my Password no word separate a number is.
what other, How get your whom Programmcode here in so one Window, sees rather from what about me must certainly time again couple Lines Source post?
Greeting André
this is no detour separate The only Possibility on whom Text To come - alike whether Text or number. Pass% contains only the lever to that Editcontrol.
If you a number have and weiterverwenden want, must You do not forget tappt im dunkeln with Val(GetText$(Pass%)) in a numerischen worth To transform.
Greeting
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 06/13/06 ▲ |
|
| |
|
|
| |
| |
| |
| |
|
|
Andre
Hilprecht | Hm, your power me straight clear, the something not goes, what by me but working ??!!??
means my part sees now so from:
CompileMarkSeparationText% = @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
and it working now wunschgemäß.
thanks you all, until next Denkanstoß Greeting André |
|
| |
| Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen
XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils | 06/13/06 ▲ |
|
| |
|
|
| You make it still so, as we wrote
CompileMarkSeparation
Pass% is the ID of Edit
Pass$ is the Stringvariable where the Text stored go should |
|
| |
| |
| |
|
(442)
, naja old man and the heat 
Deutsch
English
Français
Español
Italia