Visual Basic 4 Unleashed/Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso/source/chap22/getmet.frm

Visual Basic Form | 1995-09-24 | 5.4 KB | 119 lines

VERSION 4.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   8460
   ClientLeft      =   1140
   ClientTop       =   1515
   ClientWidth     =   6690
   Height          =   8865
   Left            =   1080
   LinkTopic       =   "Form1"
   ScaleHeight     =   8460
   ScaleWidth      =   6690
   Top             =   1170
   Width           =   6810
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Private Const SM_CXVSCROLL = 2
Private Const SM_CYHSCROLL = 3
Private Const SM_CYCAPTION = 4
Private Const SM_CXBORDER = 5
Private Const SM_CYBORDER = 6
Private Const SM_CXDLGFRAME = 7
Private Const SM_CYDLGFRAME = 8
Private Const SM_CYVTHUMB = 9
Private Const SM_CXHTHUMB = 10
Private Const SM_CXICON = 11
Private Const SM_CYICON = 12
Private Const SM_CXCURSOR = 13
Private Const SM_CYCURSOR = 14
Private Const SM_CYMENU = 15
Private Const SM_CXFULLSCREEN = 16
Private Const SM_CYFULLSCREEN = 17
Private Const SM_CYKANJIWINDOW = 18
Private Const SM_MOUSEPRESENT = 19
Private Const SM_CYVSCROLL = 20
Private Const SM_CXHSCROLL = 21
Private Const SM_DEBUG = 22
Private Const SM_SWAPBUTTON = 23
Private Const SM_RESERVED1 = 24
Private Const SM_RESERVED2 = 25
Private Const SM_RESERVED3 = 26
Private Const SM_RESERVED4 = 27
Private Const SM_CXMIN = 28
Private Const SM_CYMIN = 29
Private Const SM_CXSIZE = 30
Private Const SM_CYSIZE = 31
Private Const SM_CXFRAME = 32
Private Const SM_CYFRAME = 33
Private Const SM_CXMINTRACK = 34
Private Const SM_CYMINTRACK = 35
Private Const SM_CXDOUBLECLK = 36
Private Const SM_CYDOUBLECLK = 37
Private Const SM_CXICONSPACING = 38
Private Const SM_CYICONSPACING = 39
Private Const SM_MENUDROPALIGNMENT = 40
Private Const SM_PENWINDOWS = 41
Private Const SM_DBCSENABLED = 42
Private Const SM_CMOUSEBUTTONS = 43
Private Const SM_CMETRICS = 44
Private Declare Function GetSystemMetrics Lib "user32" _
    (ByVal nIndex As Long) As Long
Private Sub logMetric(nIndex As Long, name As String, desc As String)
    Dim ret As Long
    ret = GetSystemMetrics(nIndex)
    Printer.Print name; " = "; ret; Tab(30); "' "; desc
End Sub
Private Sub Form_Load()
    logMetric SM_CXSCREEN, "SM_CXSCREEN", "Screen width in pixels"
    logMetric SM_CYSCREEN, "SM_CYSCREEN", "Screen height in pixels"
    logMetric SM_CXVSCROLL, "SM_CXVSCROLL", "Vertical scroll arrow width"
    logMetric SM_CYHSCROLL, "SM_CYHSCROLL", "Horizontal scroll arrow height"
    logMetric SM_CYCAPTION, "SM_CYCAPTION", "Caption bar height"
    logMetric SM_CXBORDER, "SM_CXBORDER", "Window border width"
    logMetric SM_CYBORDER, "SM_CYBORDER", "Window border height"
    logMetric SM_CXDLGFRAME, "SM_CXDLGFRAME", "Dialog window frame width"
    logMetric SM_CYDLGFRAME, "SM_CYDLGFRAME", "Dialog window frame height"
    logMetric SM_CYVTHUMB, "SM_CYVTHUMB", "Vertical scroll thumb height"
    logMetric SM_CXHTHUMB, "SM_CXHTHUMB", "Horizontal scroll thumb width"
    logMetric SM_CXICON, "SM_CXICON", "Icon width"
    logMetric SM_CYICON, "SM_CYICON", "Icon height"
    logMetric SM_CXCURSOR, "SM_CXCURSOR", "Cursor width"
    logMetric SM_CYCURSOR, "SM_CYCURSOR", "Cursor height"
    logMetric SM_CYMENU, "SM_CYMENU", "Menu bar height"
    logMetric SM_CXFULLSCREEN, "SM_CXFULLSCREEN", "Full screen client area width"
    logMetric SM_CYFULLSCREEN, "SM_CYFULLSCREEN", "Full screen client area height"
    logMetric SM_CYKANJIWINDOW, "SM_CYKANJIWINDOW", "Kanji window height"
    logMetric SM_MOUSEPRESENT, "SM_MOUSEPRESENT", "Mouse present flag"
    logMetric SM_CYVSCROLL, "SM_CYVSCROLL", "Vertical scroll arrow height"
    logMetric SM_CXHSCROLL, "SM_CXHSCROLL", "Horizontal scroll arrow width"
    logMetric SM_DEBUG, "SM_DEBUG", "Debug version flag"
    logMetric SM_SWAPBUTTON, "SM_SWAPBUTTON", "Mouse buttons swapped flag"
    logMetric SM_RESERVED1, "SM_RESERVED1", "Reserved"
    logMetric SM_RESERVED2, "SM_RESERVED2", "Reserved"
    logMetric SM_RESERVED3, "SM_RESERVED3", "Reserved"
    logMetric SM_RESERVED4, "SM_RESERVED4", "Reserved"
    logMetric SM_CXMIN, "SM_CXMIN", "Minimum window width"
    logMetric SM_CYMIN, "SM_CYMIN", "Minimum window height"
    logMetric SM_CXSIZE, "SM_CXSIZE", "Minimize/Maximize icon width"
    logMetric SM_CYSIZE, "SM_CYSIZE", "Minimize/Maximize icon height"
    logMetric SM_CXFRAME, "SM_CXFRAME", "Window frame width"
    logMetric SM_CYFRAME, "SM_CYFRAME", "Window frame height"
    logMetric SM_CXMINTRACK, "SM_CXMINTRACK", "Minimum window tracking width"
    logMetric SM_CYMINTRACK, "SM_CYMINTRACK", "Minimum window tracking height"
    logMetric SM_CXDOUBLECLK, "SM_CXDOUBLECLK", "Double click x tolerance (3.1)"
    logMetric SM_CYDOUBLECLK, "SM_CYDOUBLECLK", "Double click y tolerance (3.1)"
    logMetric SM_CXICONSPACING, "SM_CXICONSPACING", "Horizontal icon spacing (3.1)"
    logMetric SM_CYICONSPACING, "SM_CYICONSPACING", "Vertical icon spacing (3.1)"
    logMetric SM_MENUDROPALIGNMENT, "SM_MENUDROPALIGNMENT", "Left or right menu drop (3.1)"
    logMetric SM_PENWINDOWS, "SM_PENWINDOWS", "Pen extensions installed (3.1)"
    logMetric SM_DBCSENABLED, "SM_DBCSENABLED", "DBCS version of USER32 installed"
    logMetric SM_CMOUSEBUTTONS, "SM_CMOUSEBUTTONS", "Number of buttons on mouse"
    logMetric SM_CMETRICS, "SM_CMETRICS", "SM_CMETRICS"
    Printer.NewPage
    Printer.EndDoc
End Sub