XProfan

Español

Andre
Hilprecht

¡Hola Helfer,
Kompilieren Marca Separación

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

Yo möchte:
1. In así una Eingabefeld sólo Pagar zulassen (no Buchstaben, Sonderzeichen, Komma usw.
2. el Zona en 0 a 5000 begrenzen
3. los números dunkelblau en el Feld erscheinen dejar
4. muss uno siempre si uno una otro Schrift haben möchte SetFont hinterschicken, oder va el auch para una todo Procedimiento/Programa?

Yo weiß, el son para Euch viel a einfache Fragen, pero yo stehe bastante al Anfang.
Lehrbuch es bestellt y el Ayuda finde Yo a wenig Beispiele, oder ellos son para mich
a wenig kommentiert (also Idiotensicher)

ICH WILLS JA LERNEN, also costumbre Yo Ayuda. Gracias ya veces.
Saludo 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 Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

Zum Lernen Por favor, en el Quelltexten suchen. Beispiele para Edits en [...]

. Farbige Edits simplemente con el SKControl.dll redactar oder Beispiele suchen.
Einschränkungen en einfache Weise:
Kompilieren Marca Separación

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 Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Schau dir veces SpinEdits a, es wahrscheinlich genau el qué du suchst.
Kompilieren Marca Separación

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 uno siempre si uno una otro Schrift haben möchte SetFont hinterschicken, oder va el auch para una todo Procedimiento/Programa?

Siehe SetDialogFont.

XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

18.12.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Andre
Hilprecht

Gracias para el Ayuda, Yo voluntad me el Reihe después de reinziehen.

Das Spinedit es ya bastante brauchbar, aber después de que valor ausgelesen habe,
möchte Yo el lo vom Bildschirm verschwindet. Tut lo auch, sólo el Spins (Pfeile) bleiben sichtbar. Außerdem puede ser todavía Buchstaben eingeben, obwohl Yo, el
Valor en 0-5000 festgesetzt habe

SetDialogFont va no para todos con Crear erzeugten Elemente, also macht lo una
Kombination de beidem.

19.12.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

Ein kleines Ejemplo con Editar y SpinEdit y cómo el SpinEdit destruido. Aber Achtung: una SpinEdit ha una Tausenderpunkt. Der muß para Rechnen con @Translate$(S1,S2,S3) lejos voluntad.
Kompilieren Marca Separación

' 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 Zitat

Absatzweise Cita Zeilenweise Cita

Andre
Hilprecht

Ok, podría Yo alles erfolgreich uso y funktioniert como gewünscht.
Der 2. Teil vom SpinEdit muss also con un 2. DestroWindow lejos voluntad.
Dachte Yo ya, hatte lo sólo no probiert.

Einige Fuente de el Sammlung bekomme Yo no para laufen, como es no correcto
auskommentiert y yo sehe (todavía) no siempre qué Programa y qué Kommentar es. Wäre hilfreicher, si esta Fuente siempre kleine y lauffähige Miniprogramme wären.
Usted hast el prima gemacht. Das kann auch una Principiante nachvollziehen.

Gracias

Como kommen todavía 999 Fragen a mein Prog fertig es.

19.12.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Findus

Was Yo nie rausgekrigt habe es cómo una Texto blau macht oder einfärbt de una Eingabefeld oder Texto.

XProfan 10

21.12.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

Beispiele para Edits hay hier genug oder simplemente con el SKControl.dll oder como RichEdit
Kompilieren Marca Separación

 $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&