Hallo,
weiss jemand einen Weg wie ich zu einer Schrift x die zugehörigen verfügbaren Schriftgrössen bekomme? Alldiweil nicht jede Schrift jede Grösse unterstützt.
Desweiteren würde ich mal eine Anfrage stellen ob sich jemand mit der Programmierung von Routern auskennt?
Speziell geht es darum, zu ermitteln ob man hinter einem Router sitzt.
Mein derzeitiger Stand ist, das ich den Standart Gateway ermitteln kann und auch Ports sperren, mehr aber auch nicht 
MfG Alex
Hallo Anno,
weiss jemand einen Weg wie ich zu einer Schrift x die
zugehörigen verfügbaren Schriftgrössen bekomme? Alldiweil
nicht jede Schrift jede Grösse unterstützt.
einen Weg ja, aber schön ist der nicht.
Option Explicit
Private Sub Command1\_Click()
Dim w As Double
Dim e As Double
Dim ea As Double
On Error Resume Next
For w = 1 To 3000
Label1.FontSize = w
ea = e
e = Label1.FontSize
If ea e Then
List1.AddItem e
End If
If e \> w Then w = e
Next
End Sub
Keine Ahnung, ob Dir das etwas nützt. Eine ‚elegante‘ Lösung habe ich nicht gefunden.
Gruß, Rainer
Hallo Rainer,
mein Retter in der Not 
Dafür gabs auch ein Sternchen
Ich habe das mal meinen Bedürfnissen angepasst. Ergo die Schleife auf 6 bis 100 getrimmt und es klappt wunderbar Grosses Danke an dich
MfG Alex
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]