Die Community zu .NET und Classic VB.
Menü

Tipp-Upload: VB 5/6 0466: Alle derzeit aktuellen Ausgaben von GetSystemMetrics mit textueller Interpretation

 von 

Hinweis zum Tippvorschlag  

Dieser Vorschlag wurde noch nicht auf Sinn und Inhalt überprüft und die Zip-Datei wurde noch nicht auf schädlichen Inhalt hin untersucht.
Bitte haben Sie ein wenig Geduld, bis die Freigabe erfolgt.

Über den Tipp  

Dieser Tippvorschlag ist noch unbewertet.

Der Vorschlag ist in den folgenden Kategorien zu finden:

  • System

Dem Tippvorschlag wurden folgende Schlüsselwörter zugeordnet:
GetSystemMetrics

Der Vorschlag wurde erstellt am: 06.03.2024 19:23.
Die letzte Aktualisierung erfolgte am 06.03.2024 19:23.

Zurück zur Übersicht

Beschreibung  

Hier werden alle aktuell (heutiges Datum: 06.03.2024) vorhandenen Ausgaben von GetSystemMetrics mit Interpretationstext (kopiert von https://learn.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-getsystemmetrics) ausgegeben.

Schwierigkeitsgrad

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

GetSystemMetrics

Download:

Download des Beispielprojektes [4,91 KB]

' Dieser Source stammt von http://www.activevb.de
' und kann frei verwendet werden. Für eventuelle Schäden
' wird nicht gehaftet.

' Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
' Ansonsten viel Spaß und Erfolg mit diesem Source!

' ------------- Anfang Projektdatei Projekt1.vbp -------------

' --------- Anfang Formular "Form1" alias Form1.frm  ---------

' Steuerelement: Textfeld "Text1"
' Steuerelement: Schaltfläche "Command1"

Option Explicit

Private Declare Function GetSystemMetrics Lib "user32.dll" ( _
                         ByVal nIndex As Long) As Long

' See https://learn.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-getsystemmetrics

' -- Specifies how the system arranges minimized windows
Private Const SM_ARRANGE As Long = 56
Private Const ARW_BOTTOMLEFT As Long = 0
Private Const ARW_BOTTOMRIGHT As Long = 1
Private Const ARW_TOPLEFT As Long = 2
Private Const ARW_TOPRIGHT As Long = 3
Private Const ARW_LEFT As Long = 0
Private Const ARW_RIGHT As Long = 0
Private Const ARW_UP As Long = 4
Private Const ARW_DOWN As Long = 4
Private Const ARW_HIDE As Long = 8

' -- Specifies how the system was started
Private Const SM_CLEANBOOT As Long = 67

' -- Specifies the number of visible monitors
Private Const SM_CMONITORS As Long = 80

' -- Specifies the number of mouse buttons
Private Const SM_CMOUSEBUTTONS As Long = 43

' -- Specifies the state of the laptop or slate mode
Private Const SM_CONVERTIBLESLATEMODE As Long = &H2003

' -- Specifies the width of a window border, in pixels
Private Const SM_CXBORDER As Long = 5

' -- Specifies the nominal width of a cursor, in pixels
Private Const SM_CXCURSOR As Long = 13

' -- Specifies the width of the rectangle around the location of a first click in a
' double-click sequence, in pixels
Private Const SM_CXDOUBLECLK As Long = 36

' -- Specifies the number of pixels on either side of a mouse-down point that the mouse
' pointer can move before a drag operation begins
Private Const SM_CXDRAG As Long = 68

' -- Specifies the width of the rectangle around the location of a first click in a
' double-click sequence, in pixels
Private Const SM_CXFIXEDFRAME As Long = 7

' -- Specifies the width of the left and right edges of the focus rectangle that the
' DrawFocusRect draws, in pixels
Private Const SM_CXFOCUSBORDER As Long = 83

' -- Specifies the width of the client area for a full-screen window on the primary display
' monitor, in pixels
Private Const SM_CXFULLSCREEN As Long = 16

' -- Specifies the width of the arrow bitmap on a horizontal scroll bar, in pixels
Private Const SM_CXHSCROLL As Long = 21

' -- Specifies the width of the thumb box in a horizontal scroll bar, in pixels
Private Const SM_CXHTHUMB As Long = 10

' -- Specifies the system large width of an icon, in pixels
Private Const SM_CXICON As Long = 11

' -- Specifies the width of a grid cell for items in large icon view, in pixels
Private Const SM_CXICONSPACING As Long = 38

' -- Specifies the default width, in pixels, of a maximized top-level window on the primary
' display monitor
Private Const SM_CXMAXIMIZED As Long = 61

' -- Specifies the default maximum width of a window that has a caption and sizing borders,
' in pixels
Private Const SM_CXMAXTRACK As Long = 59

' -- Specifies the width of the default menu check-mark bitmap, in pixels
Private Const SM_CXMENUCHECK As Long = 71

' -- Specifies the width of menu bar buttons, such as the child window close button that is
' used in the multiple document interface, in pixels
Private Const SM_CXMENUSIZE As Long = 54

' -- Specifies the minimum width of a window, in pixels
Private Const SM_CXMIN As Long = 28

' -- Specifies the width of a minimized window, in pixels
Private Const SM_CXMINIMIZED As Long = 57

' -- Specifies the width of a grid cell for a minimized window, in pixels
Private Const SM_CXMINSPACING As Long = 47

' -- Specifies the minimum tracking width of a window, in pixels
Private Const SM_CXMINTRACK As Long = 34

' -- Specifies the amount of border padding for captioned windows, in pixels
Private Const SM_CXPADDEDBORDER As Long = 92

' -- Specifies the width of the screen of the primary display monitor, in pixels
Private Const SM_CXSCREEN As Long = 0

' -- Specifies the width of a button in a window caption or title bar, in pixels
Private Const SM_CXSIZE As Long = 30

' -- Specifies the thickness of the sizing border around the perimeter of a window that can
' be resized, in pixels
Private Const SM_CXSIZEFRAME As Long = 32

' -- Specifies the system small width of an icon, in pixels
Private Const SM_CXSMICON As Long = 49

' -- Specifies the width of small caption buttons, in pixels
Private Const SM_CXSMSIZE As Long = 52

' -- Specifies the width of the virtual screen, in pixels
Private Const SM_CXVIRTUALSCREEN As Long = 78

' -- Specifies the width of a vertical scroll bar, in pixels
Private Const SM_CXVSCROLL As Long = 2

' -- Specifies the height of a window border, in pixels
Private Const SM_CYBORDER As Long = 6

' -- Specifies the height of a caption area, in pixels
Private Const SM_CYCAPTION As Long = 4

' -- Specifies the nominal height of a cursor, in pixels
Private Const SM_CYCURSOR As Long = 14

' -- Specifies the height of the rectangle around the location of a first click in a
' double-click sequence, in pixels
Private Const SM_CYDOUBLECLK As Long = 37

' -- Specifies the number of pixels above and below a mouse-down point that the mouse
' pointer can move before a drag operation begins
Private Const SM_CYDRAG As Long = 69

' -- Specifies the height of a 3-D border, in pixels
Private Const SM_CYEDGE As Long = 46

' -- Specifies the thickness of the frame around the perimeter of a window that has a
' caption but is not sizable, in pixels
Private Const SM_CYFIXEDFRAME As Long = 8

' -- Specifies the height of the top and bottom edges of the focus rectangle drawn by
' DrawFocusRect, in pixels
Private Const SM_CYFOCUSBORDER As Long = 84

' -- Specifies the height of the client area for a full-screen window on the primary display
' monitor, in pixels
Private Const SM_CYFULLSCREEN As Long = 17

' -- Specifies the height of a horizontal scroll bar, in pixels
Private Const SM_CYHSCROLL As Long = 3

' -- Specifies the system large height of an icon, in pixels
Private Const SM_CYICON As Long = 12

' -- Specifies the height of a grid cell for items in large icon view, in pixels
Private Const SM_CYICONSPACING As Long = 39

' -- For double byte character set versions of the system, this is the height of the Kanji
' window at the bottom of the screen, in pixels
Private Const SM_CYKANJIWINDOW As Long = 18

' -- Specifies the default height, in pixels, of a maximized top-level window on the primary
' display monitor
Private Const SM_CYMAXIMIZED As Long = 62

' -- Specifies the default maximum height of a window that has a caption and sizing borders,
' in pixels
Private Const SM_CYMAXTRACK As Long = 60

' -- Specifies the height of a single-line menu bar, in pixels
Private Const SM_CYMENU As Long = 15

' -- Specifies the height of the default menu check-mark bitmap, in pixels
Private Const SM_CYMENUCHECK As Long = 72

' -- Specifies the height of menu bar buttons, such as the child window close button that is
' used in the multiple document interface, in pixels
Private Const SM_CYMENUSIZE As Long = 55

' -- Specifies the minimum height of a window, in pixels
Private Const SM_CYMIN As Long = 29

' -- Specifies the height of a minimized window, in pixels
Private Const SM_CYMINIMIZED As Long = 58

' -- Specifies the height of a grid cell for a minimized window, in pixels
Private Const SM_CYMINSPACING As Long = 48

' -- Specifies the minimum tracking height of a window, in pixels
Private Const SM_CYMINTRACK As Long = 35

' -- Specifies the height of the screen of the primary display monitor, in pixels
Private Const SM_CYSCREEN As Long = 1

' -- Specifies the height of a button in a window caption or title bar, in pixels
Private Const SM_CYSIZE As Long = 31

' -- Specifies the thickness of the sizing border around the perimeter of a window that can
' be resized, in pixels
Private Const SM_CYSIZEFRAME As Long = 33

' -- Specifies the height of a small caption, in pixels
Private Const SM_CYSMCAPTION As Long = 51

' -- Specifies the system small height of an icon, in pixels
Private Const SM_CYSMICON As Long = 50

' -- Specifies the height of small caption buttons, in pixels
Private Const SM_CYSMSIZE As Long = 53

' -- Specifies the height of the virtual screen, in pixels
Private Const SM_CYVIRTUALSCREEN As Long = 79

' -- Specifies the height of the arrow bitmap on a vertical scroll bar, in pixels
Private Const SM_CYVSCROLL As Long = 20

' -- Specifies the height of the thumb box in a vertical scroll bar, in pixels
Private Const SM_CYVTHUMB As Long = 9

' -- Nonzero if User32.dll supports DBCS
Private Const SM_DBCSENABLED As Long = 42

' -- Nonzero if the debug version of User.exe is installed
Private Const SM_DEBUG As Long = 22

' -- Nonzero if the current operating system is Windows 7 or Windows Server 2008 R2 and the
' Tablet PC Input service is started (bit mask)
Private Const SM_DIGITIZER As Long = 94

' -- Nonzero if Input Method Manager/Input Method Editor features are enabled
Private Const SM_IMMENABLED As Long = 82

' -- Nonzero if there are digitizers in the system
Private Const SM_MAXIMUMTOUCHES As Long = 95

' -- Nonzero if the current operating system is the Windows XP, Media Center Edition
Private Const SM_MEDIACENTER As Long = 87

' -- Nonzero if drop-down menus are right-aligned with the corresponding menu-bar item
Private Const SM_MENUDROPALIGNMENT As Long = 40

' -- Nonzero if the system is enabled for Hebrew and Arabic languages
Private Const SM_MIDEASTENABLED As Long = 74

' -- Nonzero if a mouse is installed
Private Const SM_MOUSEPRESENT As Long = 19

' -- Nonzero if a mouse with a horizontal scroll wheel is installed
Private Const SM_MOUSEHORIZONTALWHEELPRESENT As Long = 91

' -- Nonzero if a mouse with a vertical scroll wheel is installed
Private Const SM_MOUSEWHEELPRESENT As Long = 75

' -- The least significant bit is set if a network is present
Private Const SM_NETWORK As Long = 63

' -- Nonzero if the Microsoft Windows for Pen computing extensions are installed
Private Const SM_PENWINDOWS As Long = 41

' -- This system metric is used in a Terminal Services environment to determine if the
' current Terminal Server session is being remotely controlled. Its value is nonzero if the
' current session is remotely controlled
Private Const SM_REMOTECONTROL As Long = &H2001

' -- This system metric is used in a Terminal Services environment. If the calling process
' is associated with a Terminal Services client session, the return value is nonzero
Private Const SM_REMOTESESSION As Long = &H1000

' -- Nonzero if all the display monitors have the same color format
Private Const SM_SAMEDISPLAYFORMAT As Long = 81

' -- The build number if the system is Windows Server 2003 R2
Private Const SM_SERVERR2 As Long = 89

' -- Nonzero if the user requires an application to present information visually in
' situations where it would otherwise present the information only in audible form
Private Const SM_SHOWSOUNDS As Long = 70

' -- Nonzero if the current session is shutting down
Private Const SM_SHUTTINGDOWN As Long = &H2000

' -- Nonzero if the computer has a low-end (slow) processor
Private Const SM_SLOWMACHINE As Long = 73

' -- Nonzero if the current operating system is Windows 7 Starter Edition, Windows Vista
' Starter, or Windows XP Starter Edition
Private Const SM_STARTER As Long = 88

' -- Nonzero if the meanings of the left and right mouse buttons are swapped
Private Const SM_SWAPBUTTON As Long = 23

' -- Reflects the state of the docking mode, 0 for Undocked Mode and non-zero otherwise
Private Const SM_SYSTEMDOCKED As Long = &H2004

' -- Nonzero if the current operating system is the Windows XP Tablet PC edition or if the
' current operating system is Windows Vista or Windows 7 and the Tablet PC Input service is
' started
Private Const SM_TABLETPC As Long = 86

' -- Specifies the coordinates for the left side of the virtual screen
Private Const SM_XVIRTUALSCREEN As Long = 76

' -- Specifies the coordinates for the top of the virtual screen
Private Const SM_YVIRTUALSCREEN As Long = 77

Private Sub Command1_Click()

    Dim retVal As Long
    Dim returnString As String

    Form1.Text1 = ""

    retVal = GetSystemMetrics(SM_ARRANGE)
    Form1.Text1 = Form1.Text1 & "Window arrangement scheme: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CLEANBOOT)

    If retVal = 0 Then returnString = "Normal boot"
    If retVal = 1 Then returnString = "Fail-safe boot"
    If retVal = 2 Then returnString = "Fail-safe with network boot"
    Form1.Text1 = Form1.Text1 & "System boot mode: " & returnString & vbNewLine

    retVal = GetSystemMetrics(SM_CMONITORS)
    Form1.Text1 = Form1.Text1 & "Number of visible monitors: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CMOUSEBUTTONS)
    Form1.Text1 = Form1.Text1 & "Number of mouse buttons: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CONVERTIBLESLATEMODE)
    Form1.Text1 = Form1.Text1 & "Slate mode: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXBORDER)
    Form1.Text1 = Form1.Text1 & "Width of a window border, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXCURSOR)
    Form1.Text1 = Form1.Text1 & "Nominal width of a cursor, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXDOUBLECLK)

    Form1.Text1 = Form1.Text1 & "Width of the rectangle around the location of a first " & _
        "click in a double-click sequence, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXDRAG)

    Form1.Text1 = Form1.Text1 & "Number of pixels on either side of a mouse-down point " & _
        "that the mouse pointer can move before a drag operation begins: " & retVal & _
        vbNewLine

    retVal = GetSystemMetrics(SM_CXFIXEDFRAME)

    Form1.Text1 = Form1.Text1 & "Width of the rectangle around the location of a first " & _
        "click in a double-click sequence, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXFOCUSBORDER)

    Form1.Text1 = Form1.Text1 & "Width of the left and right edges of the focus rectangle " & _
        "that the DrawFocusRect draws, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXFULLSCREEN)

    Form1.Text1 = Form1.Text1 & "Width of the client area for a full-screen window on the " & _
        "primary display monitor, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXHSCROLL)

    Form1.Text1 = Form1.Text1 & "Width of the arrow bitmap on a horizontal scroll bar, in " & _
        "pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXHTHUMB)

    Form1.Text1 = Form1.Text1 & "Width of the thumb box in a horizontal scroll bar, in " & _
        "pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXICON)
    Form1.Text1 = Form1.Text1 & "System large width of an icon, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXICONSPACING)

    Form1.Text1 = Form1.Text1 & "Width of a grid cell for items in large icon view, in " & _
        "pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXMAXIMIZED)

    Form1.Text1 = Form1.Text1 & "Default width, in pixels, of a maximized top-level " & _
        "window on the primary display monitor: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXMAXTRACK)

    Form1.Text1 = Form1.Text1 & "Default maximum width of a window that has a caption and " & _
        "sizing borders, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXMENUCHECK)

    Form1.Text1 = Form1.Text1 & "Width of the default menu check-mark bitmap, in " & _
        "pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXMENUSIZE)

    Form1.Text1 = Form1.Text1 & "Width of menu bar buttons, such as the child window " & _
        "close button that is used in the multiple document interface, in pixels: " & retVal _
        & vbNewLine

    retVal = GetSystemMetrics(SM_CXMIN)
    Form1.Text1 = Form1.Text1 & "Minimum width of a window, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXMINIMIZED)
    Form1.Text1 = Form1.Text1 & "Width of a minimized window, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXMINSPACING)

    Form1.Text1 = Form1.Text1 & "Width of a grid cell for a minimized window, in " & _
        "pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXMINTRACK)

    Form1.Text1 = Form1.Text1 & "Minimum tracking width of a window, in pixels: " & retVal & _
        vbNewLine

    retVal = GetSystemMetrics(SM_CXPADDEDBORDER)

    Form1.Text1 = Form1.Text1 & "Amount of border padding for captioned windows, in " & _
        "pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXSCREEN)

    Form1.Text1 = Form1.Text1 & "Width of the screen of the primary display monitor, in " & _
        "pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXSIZE)

    Form1.Text1 = Form1.Text1 & "Width of a button in a window caption or title bar, in " & _
        "pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXSIZEFRAME)

    Form1.Text1 = Form1.Text1 & "Thickness of the sizing border around the perimeter of a " & _
        "window that can be resized, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXSMICON)
    Form1.Text1 = Form1.Text1 & "System small width of an icon, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXSMSIZE)
    Form1.Text1 = Form1.Text1 & "Width of small caption buttons, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXVIRTUALSCREEN)
    Form1.Text1 = Form1.Text1 & "Width of the virtual screen, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CXVSCROLL)
    Form1.Text1 = Form1.Text1 & "Width of a vertical scroll bar, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYBORDER)
    Form1.Text1 = Form1.Text1 & "Height of a window border, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYCAPTION)
    Form1.Text1 = Form1.Text1 & "Nominal height of a cursor, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYDOUBLECLK)

    Form1.Text1 = Form1.Text1 & "Height of the rectangle around the location of a first " & _
        "click in a double-click sequence, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYDRAG)

    Form1.Text1 = Form1.Text1 & "Number of pixels above and below a mouse-down point that " & _
        "the mouse pointer can move before a drag operation begins: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYEDGE)
    Form1.Text1 = Form1.Text1 & "Height of a 3-D border, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYFIXEDFRAME)

    Form1.Text1 = Form1.Text1 & "Thickness of the frame around the perimeter of a window " & _
        "that has a caption but is not sizable, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYFOCUSBORDER)

    Form1.Text1 = Form1.Text1 & "Height of the top and bottom edges of the focus " & _
        "rectangle drawn by DrawFocusRect, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYFULLSCREEN)

    Form1.Text1 = Form1.Text1 & "Height of the client area for a full-screen window on " & _
        "the primary display monitor, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYHSCROLL)

    Form1.Text1 = Form1.Text1 & "Height of a horizontal scroll bar, in pixels: " & retVal & _
        vbNewLine

    retVal = GetSystemMetrics(SM_CYICON)
    Form1.Text1 = Form1.Text1 & "System large height of an icon, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYICONSPACING)

    Form1.Text1 = Form1.Text1 & "Height of a grid cell for items in large icon view, in " & _
        "pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYKANJIWINDOW)

    Form1.Text1 = Form1.Text1 & "For double byte character set versions of the system, " & _
        "this is the height of the Kanji window at the bottom of the screen, in pixels: " & _
        retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYMAXIMIZED)

    Form1.Text1 = Form1.Text1 & "Default height, in pixels, of a maximized top-level " & _
        "window on the primary display monitor: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYMAXTRACK)

    Form1.Text1 = Form1.Text1 & "Default maximum height of a window that has a caption " & _
        "and sizing borders, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYMENU)

    Form1.Text1 = Form1.Text1 & "Height of the default menu check-mark bitmap, in " & _
        "pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYMENUSIZE)

    Form1.Text1 = Form1.Text1 & "Height of menu bar buttons, such as the child window " & _
        "close button that is used in the multiple document interface, in pixels: " & retVal _
        & vbNewLine

    retVal = GetSystemMetrics(SM_CYMIN)
    Form1.Text1 = Form1.Text1 & "Minimum height of a window, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYMINIMIZED)
    Form1.Text1 = Form1.Text1 & "Height of a minimized window, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYMINSPACING)

    Form1.Text1 = Form1.Text1 & "Height of a grid cell for a minimized window, in " & _
        "pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYMINTRACK)

    Form1.Text1 = Form1.Text1 & "Minimum tracking height of a window, in pixels: " & retVal & _
        vbNewLine

    retVal = GetSystemMetrics(SM_CYSCREEN)

    Form1.Text1 = Form1.Text1 & "Height of the screen of the primary display monitor, in " & _
        "pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYSIZE)

    Form1.Text1 = Form1.Text1 & "Height of a button in a window caption or title bar, in " & _
        "pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYSIZEFRAME)

    Form1.Text1 = Form1.Text1 & "Thickness of the sizing border around the perimeter of a " & _
        "window that can be resized, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYSMCAPTION)
    Form1.Text1 = Form1.Text1 & "Height of a small caption, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYSMICON)
    Form1.Text1 = Form1.Text1 & "Height of small caption buttons, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYVIRTUALSCREEN)
    Form1.Text1 = Form1.Text1 & "Height of the virtual screen, in pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_CYVSCROLL)

    Form1.Text1 = Form1.Text1 & "Height of the thumb box in a vertical scroll bar, in " & _
        "pixels: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_DBCSENABLED)
    Form1.Text1 = Form1.Text1 & "Nonzero if User32.dll supports DBCS: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_DEBUG)

    Form1.Text1 = Form1.Text1 & "Nonzero if the debug version of User.exe is installed: " & _
        retVal & vbNewLine

    retVal = GetSystemMetrics(SM_DIGITIZER)

    Form1.Text1 = Form1.Text1 & "Nonzero if the current operating system is Windows 7 or " & _
        "Windows Server 2008 R2 and the Tablet PC Input service is started (bit mask): " & _
        retVal & vbNewLine

    retVal = GetSystemMetrics(SM_IMMENABLED)

    Form1.Text1 = Form1.Text1 & "Nonzero if Input Method Manager/Input Method Editor " & _
        "features are enabled: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_MAXIMUMTOUCHES)

    Form1.Text1 = Form1.Text1 & "Nonzero if there are digitizers in the system: " & retVal & _
        vbNewLine

    retVal = GetSystemMetrics(SM_MEDIACENTER)

    Form1.Text1 = Form1.Text1 & "Nonzero if the current operating system is the Windows " & _
        "XP, Media Center Edition: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_MENUDROPALIGNMENT)

    Form1.Text1 = Form1.Text1 & "Nonzero if drop-down menus are right-aligned with the " & _
        "corresponding menu-bar item: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_MIDEASTENABLED)

    Form1.Text1 = Form1.Text1 & "Nonzero if the system is enabled for Hebrew and Arabic " & _
        "languages: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_MOUSEPRESENT)
    Form1.Text1 = Form1.Text1 & "Nonzero if a mouse is installed: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_MOUSEHORIZONTALWHEELPRESENT)

    Form1.Text1 = Form1.Text1 & "Nonzero if a mouse with a horizontal scroll wheel is " & _
        "installed: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_MOUSEWHEELPRESENT)

    Form1.Text1 = Form1.Text1 & "Nonzero if a mouse with a vertical scroll wheel is " & _
        "installed: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_NETWORK)

    Form1.Text1 = Form1.Text1 & "The least significant bit is set if a network is " & _
        "present: " & retVal & " (" & IIf(retVal And 1, "true", "false") & ")" & vbNewLine

    retVal = GetSystemMetrics(SM_PENWINDOWS)

    Form1.Text1 = Form1.Text1 & "Nonzero if the Microsoft Windows for Pen computing " & _
        "extensions are installed: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_REMOTECONTROL)

    Form1.Text1 = Form1.Text1 & "This system metric is used in a Terminal Services " & _
        "environment to determine if the current Terminal Server session is being " & _
        "remotely controlled. Its value is nonzero if the current session is remotely " & _
        "controlled: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_REMOTESESSION)

    Form1.Text1 = Form1.Text1 & "This system metric is used in a Terminal Services " & _
        "environment. If the calling process is associated with a Terminal Services " & _
        "client session, the return value is nonzero: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_SAMEDISPLAYFORMAT)

    Form1.Text1 = Form1.Text1 & "Nonzero if all the display monitors have the same color " & _
        "format: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_SERVERR2)

    Form1.Text1 = Form1.Text1 & "The build number if the system is Windows Server 2003 " & _
        "R2: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_SHOWSOUNDS)

    Form1.Text1 = Form1.Text1 & "Nonzero if the user requires an application to present " & _
        "information visually in situations where it would otherwise present the " & _
        "information only in audible form: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_SHUTTINGDOWN)

    Form1.Text1 = Form1.Text1 & "Nonzero if the current session is shutting down: " & retVal _
        & vbNewLine

    retVal = GetSystemMetrics(SM_SLOWMACHINE)

    Form1.Text1 = Form1.Text1 & "Nonzero if the computer has a low-end (slow) " & _
        "processor: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_STARTER)

    Form1.Text1 = Form1.Text1 & "Nonzero if the current operating system is Windows 7 " & _
        "Starter Edition, Windows Vista Starter, or Windows XP Starter Edition: " & retVal & _
        vbNewLine

    retVal = GetSystemMetrics(SM_SWAPBUTTON)

    Form1.Text1 = Form1.Text1 & "Nonzero if the meanings of the left and right mouse " & _
        "buttons are swapped: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_SYSTEMDOCKED)

    Form1.Text1 = Form1.Text1 & "Reflects the state of the docking mode, 0 for Undocked " & _
        "Mode and non-zero otherwise: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_TABLETPC)

    Form1.Text1 = Form1.Text1 & "Nonzero if the current operating system is the Windows " & _
        "XP Tablet PC edition or if the current operating system is Windows Vista or " & _
        "Windows 7 and the Tablet PC Input service is started: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_XVIRTUALSCREEN)

    Form1.Text1 = Form1.Text1 & "Specifies the coordinates for the left side of the " & _
        "virtual screen: " & retVal & vbNewLine

    retVal = GetSystemMetrics(SM_YVIRTUALSCREEN)

    Form1.Text1 = Form1.Text1 & "Specifies the coordinates for the top of the virtual " & _
        "screen: " & retVal & vbNewLine

End Sub

' ---------- Ende Formular "Form1" alias Form1.frm  ----------

' -------------- Ende Projektdatei Projekt1.vbp --------------

	

Diskussion  

Diese Funktion ermöglicht es, Fragen, die die Veröffentlichung des Tipps betreffen, zu klären, oder Anregungen und Verbesserungsvorschläge einzubringen. Nach der Veröffentlichung des Tipps werden diese Beiträge nicht weiter verlinkt. Allgemeine Fragen zum Inhalt sollten daher hier nicht geklärt werden.

Um eine Diskussion eröffnen zu können, müssen sie angemeldet sein.