XProfan

Deutsch

IP Control SysIPAddress32
Kompilieren Markieren Separieren

declare ip&
cls
ip&:=Control("SysIPAddress32","0.0.0.0",$50010000,133,68,100,18,%Hwnd,1000,%Hinstance,$204)
sendmessage(ip&,1125,0,ip2ip(192,168,13,1))
settext %hwnd,gettext$(ip&)
waitinput
end

proc ip2ip

    parameters l1&,l2&,l3&,l4&
    return (l1&*16777216)+(l2&*65536)+(l3&*256)+l4&

endproc

Salve, iF.

12.01.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
Wodrich

...liefert bei mir 19.16.13.1 statt 192.168.13.1.

Und das auch erst nachdem ich den Doppelpunkt bei Ip&:= entfernt habe.

Wenn unbedingt der XPSE verwendet werden soll, dann sollte auch ein einleitendes Steuerelement da sein (der Kommentar steht nämlich über JEDEM Quellcode), und hier wird XPSE nun wirklich nicht benötigt.

Schöne Grüße
Michael Wodrich

Kleine Veränderung und schon gehts:
Kompilieren Markieren Separieren

Ip&=Control("SysIPAddress32","0.0.0.0",$50010000,133,68,120,18,%Hwnd,1000,%Hinstance,$204)

Das Feld war zu eng gestellt - mit 200 war es dann richtig schön sichtbar. Die 120 ist bei mir der erste Wert, der den vollen Inhalt darstellt.

Schönes Control

Programmieren, das spannendste Detektivspiel der Welt.

12.01.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Also - XPSE ist hier nötig da die Community := erkannt hat. Hier liegt demzufolge kein Fehler vor - und hier wird auch nicht generell behauptet XPSE sei nötig. Die Meldung ist demzufolge richtig.

Das das Control sich nicht gleich wie gewünscht darstellt trifft auch dann zu - wenn die Schriftarten des Systemes z.B. per DPI-Regler geändert sind. Hier ist natürlich der Programmierer gefragt zu erkennen wo die Ursache liegt.

Aber Du hasts ja hinbekommen.

PS: Ich empfehle für das Control - wie fast für jedes andere Control auch - MS Sans Serif mit 10pt - dann ist auch meine obige Breitenangabe exakt.

Kompilieren Markieren Separieren

Declare Ip&
Cls
Ip&=Control("SysIPAddress32","0.0.0.0",$50010000,10,68,200,18,%Hwnd,1000,%Hinstance,$204)
Sendmessage(Ip&,1125,0,Ip2ip(192,168,13,1))
Settext %Hwnd,Gettext$(Ip&)
Waitinput
End

Proc Ip2ip

    Parameters L1&,L2&,L3&,L4&
    Return (L1&*16777216)+(L2&*65536)+(L3&*256)+L4&

Endproc