| |
|
|
- page 1 - |
|
![Andre Hilprecht: 12.06.2006](.././../../i/a/207537395745cf95cf2e413.jpg) Andre Hilprecht | Hi, brauche la fois wieder Aider. Habe dans mon Prog une Adminbereich qui seulement sur un einzugebendes Mot de passe trop erreichen son soll. Funzt aussi alles bestens - seulement je voudrais maintenant encore erreichen cela aussi im Éditer-champ pour qui Passworteingabe qui ***** (Sternchen) et pas cela Mot de passe dans Reinschrift erscheinen. Habe ici déjà gesucht mais nix passendes trouvé.
Salut 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 | 12.06.2006 ▲ |
|
|
|
| |
|
- page 2 - |
|
|
![Andre Hilprecht: 12.06.2006](.././../../i/a/207537395745cf95cf2e413.jpg) Andre Hilprecht | Jo, jo, jo,
maintenant sommes cela Sternchen vom Feinsten. Comme je le disais, je suis blutiger Débutant, je lerne jeden journée quoi Neues en supplément et quelquefois braucht on plan den Klaps uffn Hinterkopp.
comment soll je car auparavant savons le moi Sternchen per SendMessages à qui Variable Pass% envoyons peux sans mais ihren wirklichen le contenu trop verändern.
merci euch allen. ![](.././../../i/s/ja.gif) |
|
|
| 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 | 12.06.2006 ▲ |
|
|
|
|
![iF: 13.06.2006](.././../../i/a/1.gif) | tu peux cela air des Sternchens aussi simple sur setfont bestimmen. |
|
|
| |
|
|
|
![Michael Wodrich: 13.06.2006](.././../../i/a/8.gif) Michael Wodrich | [quote-part:9ed5506d10]comment soll je car auparavant savons le moi Sternchen per SendMessages à qui Variable Pass% envoyons peux sans mais ihren wirklichen le contenu trop verändern. [/quote-part:9ed5506d10] Pass% contient cela Handle des Éditer-Dialoges. Über cet Handle läßt sich qui Dialog ansprechen et feintunen.
belle Grüße Michael Wodrich |
|
|
| Programmieren, das spannendste Detektivspiel der Welt. | 13.06.2006 ▲ |
|
|
|
|
![Michael Wodrich: 13.06.2006](.././../../i/a/8.gif) Michael Wodrich | j'ai mir encore einmal qui ersten Postings durchgelesen... ![](.././../../i/s/eusa_think.gif)
Vermutest Du quelque chose qui eingegebenen données dans Pass% ???
qui données eines Éditer-Controls erhälst Du avec qui Funktion GetText$().
qui Original-Hilfedatei ist incidemment besser comme son Ruf es trop son scheint. là findest Du aussi Einführungskapitel.
Siehe sous: - introduction - 20.4. Simple Editierfelder
cela sollte aider...
belle Grüße Michael Wodrich |
|
|
| Programmieren, das spannendste Detektivspiel der Welt. | 13.06.2006 ▲ |
|
|
|
|
![Andre Hilprecht: 13.06.2006](.././../../i/a/207537395745cf95cf2e413.jpg) Andre Hilprecht | Muss mich peut-être la fois entschuldigen, si je mich pas so entier professionell ausdrücke. je suis Hobby-Anfangs-Autodidakt. Habe ici niemanden, den je la fois quoi sur Programmieren fragen pourrait, dans qui une école ne...aucune informatique gahabt (suis Baujahr 60). Baue mir mon eigene Philosophie sur cela Programmieren sur et verrenne mich dabei bestimmt aussi la fois. peux mir avec qui Aider so einiges zusammenreimen, mais plan pas toujours. suis lernwillig mais brauche quelquefois une Anschubs et suis Euch c'est pourquoi reconnaissant, cela on ici très vite qui Aider bekommt, qui on braucht. KompilierenMarqueSéparation |
|
|
|
|
![: 13.06.2006](.././../../i/a/noavatar.gif) | suis Baujahr 59, cela sollte alors ne...aucune Problem son ![](.././../../i/s/__upl_ext_1111498557.gif) peut-être verstehste folgendes Code-Snippet et peux es verweden: KompilierenMarqueSéparation |
|
|
|
|
![Andre Hilprecht: 13.06.2006](.././../../i/a/207537395745cf95cf2e413.jpg) Andre Hilprecht | cela verstehe je, alles bien sûr. peut-être brauchte Je l' le détour sur GetText$(Pass%) pas aller, weil mon Mot de passe ne...aucune mot mais une numéro ist.
quoi d'autre, comment bekommt son den Programmcode ici dans so un la fenêtre, sieht besser aus et je muss bestimmt la fois wieder un paire Zeilen Quellcode posten?
Salut 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 | 13.06.2006 ▲ |
|
|
|
|
![Rolf Koch: 13.06.2006](.././../../i/a/11.gif) Rolf Koch | entweder Du klickst sur Ausführliche Antwort écrivons et la hâte là qui Formatierungsoptionen ou bien tu mets es sans qui Leerzeichen entre dem code (seulement avec cela es ici dargestellt wird): [c o d e]ici qui code[/c o d e] |
|
|
| |
|
|
|
![Jörg Sellmeyer: 13.06.2006](.././../../i/a/8132362004294faafc5e8c.jpg) Jörg Sellmeyer | Andre Hilprecht
cela verstehe je, alles bien sûr. peut-être brauchte Je l' le détour sur GetText$(Pass%) pas aller, weil mon Mot de passe ne...aucune mot mais une numéro ist.
quoi d'autre, comment bekommt son den Programmcode ici dans so un la fenêtre, sieht besser aus et je muss bestimmt la fois wieder un paire Zeilen Quellcode posten?
Salut André
c'est ne...aucune le détour mais qui einzige Possibilité à den Text trop venons - égal si Text ou bien numéro. Pass% contient seulement cela Handle zum Editcontrol. si Vous numéro la hâte et weiterverwenden veux, darfst Du pas oublier qc vous avec Val(GetText$(Pass%)) dans une numerischen Wert trop verwandeln.
Salut Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... ![](https://www.wuestensand.info/images/CoverFataMorganaklein.jpg) | 13.06.2006 ▲ |
|
|
|
|
![: 13.06.2006](.././../../i/a/noavatar.gif) | |
|
| |
|
|
|
![Andre Hilprecht: 13.06.2006](.././../../i/a/207537395745cf95cf2e413.jpg) Andre Hilprecht | Hm, vous faites mir justement bien sûr, cela quelque chose pas allez, quoi chez mir mais funzt ??!!?? alors mon partie sieht maintenant so aus: KompilierenMarqueSéparationText% = @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
et es funzt maintenant wunschgemäß.
merci Euch allen, jusqu'à zum prochain Denkanstoß Salut 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 | 13.06.2006 ▲ |
|
|
|
|
![: 13.06.2006](.././../../i/a/noavatar.gif) | tu fais es doch so, comment wir schrieben ![](.././../../i/s/__upl_ext_1111498557.gif) KompilierenMarqueSéparation Pass% ist qui ID vom Éditer Pass$ ist qui Stringvariable wohin qui Text gespeichert volonté soll |
|
|
| |
|
|