Français
Forum

Zum Eingabefeld quelques Fragen

 

Andre
Hilprecht
allô Helfer,
KompilierenMarqueSéparation
var LiterEnde% = @Create("Edit", %hWnd, "4750", 710,65,70,22)
SetFont LiterEnde%,hFont
e>

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
Whilenot Ende%

    Waitinput

    If (val(Gettext$(NumEdit%))<0) OR  (val(Gettext$(NumEdit%))>5000)

        SetText NumEdit%,""

    EndIf

    .......weitere A
n
 
Gruß Thomas
Windows XP SP2, XProfan X2
18.12.2012  
 




Julian
Schmidt
exposition dir la fois SpinEdits à, ist wahrscheinlich oui c'est ca cela quoi tu cherches.
KompilierenMarqueSéparation
CLS
Create("SpinEdit",%hwnd,"50;0;100",10,10,70,25)'Spinedit mit Angabe des Startwertes; Unter Grenze; Obergrenze

WhileNot iskey(27)

    waitinput

EndWh
>

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.
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
18.12.2012  
 




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

 
Gruß Thomas
Windows XP SP2, XProfan X2
19.12.2012  
 




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.
 
21.12.2012  
 




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&
 
Gruß Thomas
Windows XP SP2, XProfan X2
21.12.2012  
 




Findus
merci cela probiere je aus.
 
22.12.2012  
 




Findus
merci cela klappt.
 
27.12.2012  
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

9.983 Views

Untitledvor 0 min.
Normann Strübli24.03.2020
rquindt20.04.2016
H.Brill27.08.2015
Rainer Hoefs28.06.2015
plus...

Themeninformationen



Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie