XProfan

Italia

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&

12.01.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Michael
Wodrich

...liefert bei mir 19.16.13.1 statt 192.168.13.1.

Und das auch erst nachdem Io l' 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 circa JEDEM Quellcode), und hier wird XPSE nun wirklich nicht necessario.

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 Citazione Zeilenweise Citazione

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 naturalmente der Programmierer gefragt zu erkennen wo die Ursache liegt.

Aber Du hasts ja hinbekommen.

PS: Ich empfehle per das Control - wie fast per 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&