| |
|
|
Andre Hilprecht | allô Helfer, KompilierenMarqueSéparation je voudrais: 1. dans so einem Eingabefeld seulement payons zulassen (aucun Buchstaben, Sonderzeichen, Komma usw. 2. den Bereich sur 0 jusqu'à 5000 begrenzen 3. les numéros bleu-foncé im champ erscheinen laisser 4. muss on toujours si on une autre Schrift avons voudrais SetFont hinterschicken, ou bien allez cela aussi pour une ganze Procédure/Programme?
je sais, ce sont pour Euch viel trop simple Fragen, mais je stehe entier am Anfang. Lehrbuch ist bestellt et dans qui Aider finde je trop wenig Beispiele, ou bien ils sont pour mich trop wenig kommentiert (alors Idiotensicher)
ICH WILLS JA LERNEN, alors coutume je Aider. merci déjà la fois. Salut Andre |
|
|
| 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 | 18.12.2012 ▲ |
|
|
|
|
Thomas Freier | Zum apprendre s'il te plaît dans den Quelltexten chercher. Beispiele pour Edits chez [...] . Farbige Edits simple avec qui SKControl.dll erstellen ou bien Beispiele chercher. Einschränkungen sur simple Weise: KompilierenMarqueSéparation |
|
|
| |
|
|
|
Julian Schmidt | exposition dir la fois SpinEdits à, ist wahrscheinlich oui c'est ca cela quoi tu cherches. KompilierenMarqueSéparation Andre Hilprecht (18.12.12)
4. muss on toujours si on une autre Schrift avons voudrais SetFont hinterschicken, ou bien allez cela aussi pour une ganze Procédure/Programme?
Siehe SetDialogFont. |
|
|
| |
|
|
|
Andre Hilprecht | merci pour qui Aider, je werde mir cela qui Reihe pour reinziehen.
cela Spinedit ist déjà entier brauchbar, mais après que J'apprécie ausgelesen habe, voudrais je cela es vom Bildschirm verschwindet. Tut es aussi, seulement qui Spins (Pfeile) rester sichtbar. Aussi peux on toutefois Buchstaben eingeben, quoique Je l' Wert sur 0-5000 festgesetzt habe
SetDialogFont allez pas pour alle avec Créer erzeugten Elemente, alors pouvoir es une Kombination de beidem. |
|
|
| 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 | 19.12.2012 ▲ |
|
|
|
|
Thomas Freier | un kleines Beispiel avec Éditer et SpinEdit et comment cela SpinEdit détruit wird. mais attention: un SpinEdit hat une Tausenderpunkt. qui doit zum le calcul avec @Translate$(S1,S2,S3) entfernt volonté. KompilierenMarqueSéparation' für nur Zahlen
Def GetWindowLong(2) !"USER32", "GetWindowLongA"
Def SetWindowLong(3) !"USER32", "SetWindowLongA"
Def SetEditNumeric(1) SetWindowLong(@&(1),-16, (GetWindowLong(@&(1), -16) | $2002))
cls
var loes%=Create("Button",%hwnd,"SpinnEdit löschen",470,380,140,24)
var ed%=Create("Edit",%HWnd,"",480,10,120,24)
SetEditNumeric(ed%)'nur Ziffereingaben erlauben
sendmessage(ed%,$00C5,4,0)'nur 4 Zeichen
var spin%=Create("SpinEdit",%HWnd,"3000;0;5000",480,80,120,24)
SetEditNumeric(spin%)'nur Ziffereingaben erlauben
sendmessage(spin%,$00C5,4,0)'nur 4 Zeichen
while 1
waitinput
If getfocus(ed%)
case val(gettext$(ed%)) > 5000 : settext ed%,""
endif
If getfocus(loes%)
DestroyWindow(GetHandle(%hwnd,ItemID(spin%) + 1))
DestroyWindow(spin%)
endIf
endwhile
|
|
|
| |
|
|
|
Andre Hilprecht | Ok, konnte je alles erfolgreich verwenden et funktioniert comment gewünscht. qui 2. partie vom SpinEdit muss alors avec einem 2. DestroWindow entfernt volonté. Dachte je mir déjà, hatte es seulement pas probiert.
quelques Source aus qui recueil bekomme je pas zum courir, voilà pas richtig auskommentiert et je vois (encore) pas toujours quoi Programme et quoi Kommentar ist. Wäre hilfreicher, si cet Source toujours kleine et lauffähige Miniprogramme wären. tu as cela prima gemacht. cela peux aussi un Débutant nachvollziehen.
merci
là venons encore 999 Fragen jusqu'à mon Prog fertig ist. |
|
|
| 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 | 19.12.2012 ▲ |
|
|
|
|
Findus | quoi je nie rausgekrigt habe ist comment on une Text bleu pouvoir ou bien einfärbt de einem Eingabefeld ou bien Text. |
|
|
| |
|
|
|
Thomas Freier | Beispiele pour Edits gibt es ici genug ou bien simple avec qui SKControl.dll ou bien comme RichEdit KompilierenMarqueSéparation $H windows.ph
$H messages.ph
$H RichEdit.ph
$I profalt.inc
Def GetSysColor(1) !"USER32","GetSysColor"
Declare hDlg&,Edit&,Textzeile&,hAbbruch&,Exit%
Declare font&,dll&,Text$
Cls
font&=CreateFont("Arioso",16,0,0,0,0)
hDlg& = Create("Dialog",%hWnd,"RichEdit einzeilig ohne Rahmen",400,200,400,200)
hAbbruch& = Create("Button",hDlg&,"Abbruch",180,140,70,24)
setfont hAbbruch&,font&,Text$
dll&=usedll("riched32.dll")
Edit& = control("RichEdit20A","",$543150C0,10,10,280,24,hDlg&,100,%hinstance,$200)
setfont Edit&,font&
Textzeile& = control("RichEdit20A","",$543150C0,10,80,280,24,hDlg&,100,%hinstance,$200)
setfont Textzeile&,font&
declare rtf#
dim rtf#,60
clear rtf#
long rtf#,0=60
long rtf#,4=$40000000
long rtf#,20=rgb(0,0,255)
sendmessage(Edit&,1092,1,rtf#)
sendmessage(Textzeile&,1092,1,rtf#)
dispose rtf#
ShowWindow(Edit&,0)
ShowWindow(Textzeile&,0)
SetStyle Edit&,$50FF00F4
SetStyle Textzeile&,$50FF00F4
SendMessage(Textzeile&,~EM_SETBKGNDCOLOR,0,GetSysColor(15))' Hintergrundfarbe
SendMessage(Textzeile&,~em_SetReadOnly,1,0)' nur Lesen setzen
text$="Ich screibe blau "
SendMessage(edit&, 177, $FFFF, $FFFF)' EM_SETSEL
SendMessage(edit&, 194, 0, Addr(Text$))' EM_REPLACESEL
text$="Ich bin blau"
SendMessage(Textzeile&, 177, $FFFF, $FFFF)' EM_SETSEL
SendMessage(Textzeile&, 194, 0, Addr(Text$))' EM_REPLACESEL
ShowWindow(Edit&,1)
ShowWindow(Textzeile&,1)
setfocus(Edit&)
WhileNot Exit%
WaitInput
case getfocus(Textzeile&): setfocus(hdlg&)
If Clicked(hAbbruch&)
Exit% = 1
EndIf
EndWhile
DeleteObject font&
DestroyWindow(edit&)
DestroyWindow(Textzeile&)
DestroyWindow(hDlg&)
FreeDLL dll&
|
|
|
| |
|
|
|
Findus | merci cela probiere je aus. |
|
|
| |
|
|
|
Findus | |
|
| |
|
|