Category : Files from Magazines
Archive   : VOL10N18.ZIP
Filename : SYSMETS

 
Output of file : SYSMETS contained in archive : VOL10N18.ZIP
Declare Function GetSystemMetrics Lib "user"(nIndex As Integer) As Integer

Sub MAIN
Dim SysMet$(36) : Dim M$(36) ' zero-based, not one-based!
SysMet$(0) = "SM®MDNM¯CXSCREEN" : M$(0) = "Width of screen"
SysMet$(1) = "SM®MDNM¯CYSCREEN" : M$(1) = "Height of screen"
SysMet$(2) = "SM®MDNM¯CXVSCROLL"
M$(2) = "Width of arrow bitmap on vertical scroll bar"
SysMet$(3) = "SM®MDNM¯CYHSCROLL"
M$(3) = "Height of arrow bitmap on horizontal scroll bar"
SysMet$(4) = "SM®MDNM¯CYCAPTION" : M$(4) = "Height of caption"
SysMet$(5) = "SM®MDNM¯CXBORDER" : M$(5) = "Width of window frame that can't be sized"
SysMet$(6) = "SM®MDNM¯CYBORDER" : M$(6) = "Height of window frame that can't be sized"
SysMet$(7) = "SM®MDNM¯CXDLGFRAME" : M$(7) = "Width of dialog frame"
SysMet$(8) = "SM®MDNM¯CYDLGFRAME" : M$(8) = "Height of dialog frame"
SysMet$(9) = "SM®MDNM¯CYVTHUMB" : M$(9) = "Height of thumb box on vertical scroll bar"
SysMet$(10) = "SM®MDNM¯CXHTHUMB"
M$(10) = "Width of thumb box on horizontal scroll bar"
SysMet$(11) = "SM®MDNM¯CXICON" : M$(11) = "Width of icon"
SysMet$(12) = "SM®MDNM¯CYICON" : M$(12) = "Height of icon"
SysMet$(13) = "SM®MDNM¯CXCURSOR" : M$(13) = "Width of cursor"
SysMet$(14) = "SM®MDNM¯CYCURSOR" : M$(14) = "Height of cursor"
SysMet$(15) = "SM®MDNM¯CYMENU" : M$(15) = "Height of single-line menu bar"
SysMet$(16) = "SM®MDNM¯CXFULLSCREEN"
M$(16) = "Width of client area for full-screen window"
SysMet$(17) = "SM®MDNM¯CYFULLSCREEN"
M$(17) = "Height of client area for full-screen window"
SysMet$(18) = "SM®MDNM¯CYKANJIWINDOW" : M$(18) = "Height of Kanji window"
SysMet$(19) = "SM®MDNM¯MOUSEPRESENT" : M$(19) = "Is there a mouse in the house?"
SysMet$(20) = "SM®MDNM¯CYVSCROLL"
M$(20) = "Height of arrow bitmap on vertical scroll bar"
SysMet$(21) = "SM®MDNM¯CXHSCROLL"
M$(21) = "Width of arrow bitmap on horizontal scroll bar"
SysMet$(22) = "SM®MDNM¯DEBUG" : M$(22) = "Is Windows debugging version present?"
SysMet$(23) = "SM®MDNM¯SWAPBUTTON"
M$(23) = "Are left and right mouse buttons swapped?"
SysMet$(24) = "SM®MDNM¯RESERVED1" : M$(24) = "Reserved"
SysMet$(25) = "SM®MDNM¯RESERVED2" : M$(25) = "Reserved"
SysMet$(26) = "SM®MDNM¯RESERVED3" : M$(26) = "Reserved"
SysMet$(27) = "SM®MDNM¯RESERVED4" : M$(27) = "Reserved"
SysMet$(28) = "SM®MDNM¯CXMIN" : M$(28) = "Minimum width of window"
SysMet$(29) = "SM®MDNM¯CYMIN" : M$(29) = "Minimum height of window"
SysMet$(30) = "SM®MDNM¯CXSIZE" : M$(30) = "Width of bitmaps in title bar"
SysMet$(31) = "SM®MDNM¯CYSIZE" : M$(31) = "Height of bitmaps in title bar"
SysMet$(32) = "SM®MDNM¯CXFRAME" : M$(32) = "Width of window frame that can be sized"
SysMet$(33) = "SM®MDNM¯CYFRAME" : M$(33) = "Height of window frame that can be sized"
SysMet$(34) = "SM®MDNM¯CXMINTRACK" : M$(34) = "Minimum tracking width of Window"
SysMet$(35) = "SM®MDNM¯CYMINTRACK" : M$(35) = "Minimum tracking height of Window"
SysMet$(36) = "SM®MDNM¯CMETRICS" : M$(36) = "Number of System Metrics"

Begin Dialog UserDialog 390, 220
' the four numbers for each dialog control are, in order, the
' (x,y) location of the control, from the upper-left corner of
' the dialog, and the width and depth of the control itself.
' All units are pixels (yuk!). The two numbers given in the
' Begin Dialog statement above are the width and depth of the
' dialog box itself; WinWord will take care of its location.
Text 20, 10, 310, 10, "System Metrics"
ListBox 20, 30, 350, 160, M$(), .nIndex
OKButton 110, 195, 55, 20
CancelButton 180, 195, 55, 20
End Dialog
Dim SysMets As Dialog UserDialog
On Error Goto done ' Cancel generates error

While 1
Dialog SysMets
n = SysMets.nIndex
MsgBox M$(n) + " = " + Str$(GetSystemMetrics(n)), SysMet$(n)
Wend

done:
End Sub


  3 Responses to “Category : Files from Magazines
Archive   : VOL10N18.ZIP
Filename : SYSMETS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/