Sprache: VB
Siehe Titel
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Integer) As Integer
Public Function GetIconSpacing() As Point
Dim SM_CXICONSPACING As Integer = 38
Dim SM_CYICONSPACING As Integer = 39
Return New Point(GetSystemMetrics(SM_CXICONSPACING), GetSystemMetrics(SM_CYICONSPACING))
End Function
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Integer) As Integer
Public Function GetIconSpacing() As Point
Dim SM_CXICONSPACING As Integer = 38
Dim SM_CYICONSPACING As Integer = 39
Return New Point(GetSystemMetrics(SM_CXICONSPACING), GetSystemMetrics(SM_CYICONSPACING))
End Function
Alte URL:
/snippet/abstaende-der-desktop-icons-ermitteln/350