Tipp-Upload: VB 5/6 0466: Alle derzeit aktuellen Ausgaben von GetSystemMetrics mit textueller Interpretation
von BAGZZlash
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.
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 |
Verwendete API-Aufrufe: GetSystemMetrics |
Download: |
' 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.