Feedback

Abstände der Desktop Icons ermitteln

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