XProfan

Español

IP Control SysIPAddress32
Kompilieren Marca Separación

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

Michael
Wodrich

...liefert en me 19.16.13.1 en lugar de 192.168.13.1.

Und el auch sólo después de que el Doppelpunkt en Ip&:= lejos habe.

Wenn necesariamente el XPSE verwendet voluntad se, entonces debería auch una einleitendes Steuerelement como ser (el Kommentar es nämlich encima JEDEM Quellcode), y aquí se XPSE nun wirklich no benötigt.

Schöne Grüße
Michael Wodrich

Kleine Veränderung y ya gehts:
Kompilieren Marca Separación

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

Das Feld war a eng gestellt - con 200 war lo entonces correcto schön sichtbar. El 120 es en me el erste Valor, el el vollen Inhalt darstellt.

Schönes Control

Programmieren, das spannendste Detektivspiel der Welt.

12.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Also - XPSE es hier nötig como el Comunidad := erkannt ha. Hier liegt demzufolge kein Fehler antes - y aquí se auch no generell behauptet XPSE sei nötig. El Meldung es demzufolge correcto.

Das el Control se no es igual como gewünscht darstellt trifft auch entonces a - si la Schriftarten des Systemes z.B. por DPI-Regler geändert son. Hier es natürlich el Programmierer gefragt a erkennen wo el Ursache liegt.

Aber Usted hasts sí hinbekommen.

PS: Yo empfehle para el Control - como fast para cada otro Control auch - MS Sans Serif con 10pt - entonces mi obige Breitenangabe exakt.

Kompilieren Marca Separación

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&