XProfan

Français

Andre
Hilprecht

allô Helfer,
Kompilieren Marque Séparation

var LiterEnde% = @Create("Edit", %hWnd, "4750", 710,65,70,22)
SetFont LiterEnde%,hFont

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 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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:
Kompilieren Marque Séparation

Whilenot Ende%

    Waitinput

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

        SetText NumEdit%,""

    EndIf

    .......weitere A

Gruß Thomas
Windows XP SP2, XProfan X2

18.12.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

exposition dir la fois SpinEdits à, ist wahrscheinlich oui c'est ca cela quoi tu cherches.
Kompilieren Marque Sé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 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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.

19.12.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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é.
Kompilieren Marque Sé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 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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.

19.12.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Findus

quoi je nie rausgekrigt habe ist comment on une Text bleu pouvoir ou bien einfärbt de einem Eingabefeld ou bien Text.

XProfan 10

21.12.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Thomas
Freier

Beispiele pour Edits gibt es ici genug ou bien simple avec qui SKControl.dll ou bien comme RichEdit
Kompilieren Marque Sé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&