XProfan

Français

IP Contrôle SysIPAddress32
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

Michael
Wodrich

...liefert chez mir 19.16.13.1 statt 192.168.13.1.

et cela aussi seulement après que Je l' Doppelpunkt chez Ip&:= entfernt habe.

si absolument qui XPSE verwendet volonté soll, ensuite sollte aussi un einleitendes Steuerelement là son (qui Kommentar steht nämlich sur JEDEM Quellcode), et ici wird XPSE eh bien wirklich pas nécessaire.

belle Grüße
Michael Wodrich

Kleine Veränderung et déjà gehts:
Kompilieren Marque Séparation

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

cela champ était trop eng gestellt - avec 200 était es ensuite richtig joli sichtbar. qui 120 ist chez mir qui erste Wert, qui den vollen le contenu darstellt.

Schönes Contrôle

Programmieren, das spannendste Detektivspiel der Welt.

12.01.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

alors - XPSE ist ici nötig là qui Community := erkannt hat. ici liegt demzufolge ne...aucune faute avant - et ici wird aussi pas generell behauptet XPSE sei nötig. qui annonce ist demzufolge richtig.

cela cela Contrôle sich pas juste comment gewünscht darstellt trifft aussi ensuite trop - si le Schriftarten des Systemes z.B. per DPI-Regler geändert sommes. ici ist naturellement qui Programmierer gefragt trop erkennen wohin qui Ursache liegt.

mais Du hasts oui hinbekommen.

PS: je empfehle pour cela Contrôle - comment presque pour chaque autre Contrôle aussi - MS Sans Serif avec 10pt - ensuite ist mon obige Breitenangabe exakt.

Kompilieren Marque Séparation

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&