home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wg_lib / winfrm.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1995-09-06  |  7.9 KB  |  287 lines
  1. VERSION 2.00
  2. Begin Form WinFrm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "WIN Environment"
  5.    ClientHeight    =   3150
  6.    ClientLeft      =   1110
  7.    ClientTop       =   1800
  8.    ClientWidth     =   6420
  9.    Height          =   3555
  10.    Left            =   1050
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   3150
  14.    ScaleWidth      =   6420
  15.    Top             =   1455
  16.    Width           =   6540
  17.    Begin Label EI 
  18.       Alignment       =   2  'Center
  19.       Height          =   225
  20.       Index           =   4
  21.       Left            =   1620
  22.       TabIndex        =   12
  23.       Top             =   2655
  24.       Width           =   600
  25.    End
  26.    Begin Label Label8 
  27.       BackColor       =   &H00C0C0C0&
  28.       Caption         =   "Mouse?:"
  29.       Height          =   210
  30.       Left            =   840
  31.       TabIndex        =   8
  32.       Top             =   2655
  33.       Width           =   735
  34.    End
  35.    Begin Label WI 
  36.       Alignment       =   2  'Center
  37.       Height          =   210
  38.       Index           =   5
  39.       Left            =   4200
  40.       TabIndex        =   24
  41.       Top             =   2400
  42.       Width           =   1740
  43.    End
  44.    Begin Label Label15 
  45.       BackColor       =   &H00C0C0C0&
  46.       Caption         =   "Win Program:"
  47.       Height          =   195
  48.       Left            =   2985
  49.       TabIndex        =   19
  50.       Top             =   2415
  51.       Width           =   1155
  52.    End
  53.    Begin Label EI 
  54.       Alignment       =   2  'Center
  55.       Height          =   225
  56.       Index           =   3
  57.       Left            =   1620
  58.       TabIndex        =   11
  59.       Top             =   2355
  60.       Width           =   600
  61.    End
  62.    Begin Label Label9 
  63.       BackColor       =   &H00C0C0C0&
  64.       Caption         =   "Memory KB:"
  65.       Height          =   210
  66.       Left            =   540
  67.       TabIndex        =   9
  68.       Top             =   2370
  69.       Width           =   1035
  70.    End
  71.    Begin Label WI 
  72.       Height          =   195
  73.       Index           =   4
  74.       Left            =   4200
  75.       TabIndex        =   23
  76.       Top             =   2040
  77.       Width           =   555
  78.    End
  79.    Begin Label Label14 
  80.       BackColor       =   &H00C0C0C0&
  81.       Caption         =   "Temp Drive:"
  82.       Height          =   195
  83.       Left            =   3075
  84.       TabIndex        =   18
  85.       Top             =   2025
  86.       Width           =   1065
  87.    End
  88.    Begin Label EI 
  89.       Alignment       =   2  'Center
  90.       Height          =   225
  91.       Index           =   2
  92.       Left            =   1620
  93.       TabIndex        =   10
  94.       Top             =   2040
  95.       Width           =   600
  96.    End
  97.    Begin Label Label7 
  98.       BackColor       =   &H00C0C0C0&
  99.       Caption         =   "Func keys:"
  100.       Height          =   210
  101.       Left            =   615
  102.       TabIndex        =   7
  103.       Top             =   2040
  104.       Width           =   975
  105.    End
  106.    Begin Label EI 
  107.       Height          =   225
  108.       Index           =   1
  109.       Left            =   1620
  110.       TabIndex        =   13
  111.       Top             =   1710
  112.       Width           =   720
  113.    End
  114.    Begin Label Label4 
  115.       BackColor       =   &H00C0C0C0&
  116.       Caption         =   "KB Type:"
  117.       Height          =   210
  118.       Left            =   750
  119.       TabIndex        =   6
  120.       Top             =   1740
  121.       Width           =   825
  122.    End
  123.    Begin Label WI 
  124.       Height          =   195
  125.       Index           =   3
  126.       Left            =   2985
  127.       TabIndex        =   22
  128.       Top             =   1695
  129.       Width           =   2985
  130.    End
  131.    Begin Label Label13 
  132.       BackColor       =   &H00C0C0C0&
  133.       Caption         =   "WIN System Directory"
  134.       Height          =   195
  135.       Left            =   2985
  136.       TabIndex        =   17
  137.       Top             =   1485
  138.       Width           =   1935
  139.    End
  140.    Begin Label Label2 
  141.       BackColor       =   &H00C0C0C0&
  142.       Caption         =   " Equip Info"
  143.       Height          =   195
  144.       Left            =   705
  145.       TabIndex        =   5
  146.       Top             =   1470
  147.       Width           =   990
  148.    End
  149.    Begin Label WI 
  150.       Height          =   195
  151.       Index           =   2
  152.       Left            =   2985
  153.       TabIndex        =   21
  154.       Top             =   1185
  155.       Width           =   2985
  156.    End
  157.    Begin Label Label12 
  158.       BackColor       =   &H00C0C0C0&
  159.       Caption         =   "WINDOWS Directory"
  160.       Height          =   195
  161.       Left            =   2985
  162.       TabIndex        =   16
  163.       Top             =   960
  164.       Width           =   1920
  165.    End
  166.    Begin Label BI 
  167.       Alignment       =   2  'Center
  168.       Height          =   210
  169.       Index           =   2
  170.       Left            =   1485
  171.       TabIndex        =   3
  172.       Top             =   960
  173.       Width           =   495
  174.    End
  175.    Begin Label Label3 
  176.       BackColor       =   &H00C0C0C0&
  177.       Caption         =   "Mode:"
  178.       Height          =   225
  179.       Left            =   780
  180.       TabIndex        =   2
  181.       Top             =   960
  182.       Width           =   600
  183.    End
  184.    Begin Label WI 
  185.       Alignment       =   2  'Center
  186.       Height          =   210
  187.       Index           =   1
  188.       Left            =   4080
  189.       TabIndex        =   20
  190.       Top             =   645
  191.       Width           =   1365
  192.    End
  193.    Begin Label Label11 
  194.       BackColor       =   &H00C0C0C0&
  195.       Caption         =   "WIN Ticks:"
  196.       Height          =   195
  197.       Left            =   2985
  198.       TabIndex        =   15
  199.       Top             =   645
  200.       Width           =   1020
  201.    End
  202.    Begin Label BI 
  203.       Alignment       =   1  'Right Justify
  204.       Height          =   210
  205.       Index           =   1
  206.       Left            =   1485
  207.       TabIndex        =   1
  208.       Top             =   615
  209.       Width           =   495
  210.    End
  211.    Begin Label Label1 
  212.       BackColor       =   &H00C0C0C0&
  213.       Caption         =   "Version:"
  214.       Height          =   225
  215.       Left            =   630
  216.       TabIndex        =   0
  217.       Top             =   630
  218.       Width           =   765
  219.    End
  220.    Begin Label Label10 
  221.       BackColor       =   &H00C0C0C0&
  222.       Caption         =   " WIN Sys Info"
  223.       Height          =   210
  224.       Left            =   3315
  225.       TabIndex        =   14
  226.       Top             =   315
  227.       Width           =   1275
  228.    End
  229.    Begin Label Label5 
  230.       BackColor       =   &H00C0C0C0&
  231.       Caption         =   " Basic Info"
  232.       Height          =   165
  233.       Left            =   705
  234.       TabIndex        =   4
  235.       Top             =   315
  236.       Width           =   960
  237.    End
  238. DefInt A-Z
  239. Dim WMode$(1 To 2)
  240. Sub Form_Load ()
  241.    WMode$(1) = "Std"
  242.    WMode$(2) = "Enh"
  243.    BI(1).Caption = Format$(WinVer() / 100, "#.#0")
  244.    BI(2).Caption = WMode$(WinMode())
  245.    Select Case WinKeyBdType()
  246.        Case 1
  247.           k$ = "XT 83"
  248.        Case 2
  249.           k$ = "Ol. 101"
  250.        Case 3
  251.            k$ = "AT 84"
  252.        Case 4
  253.            k$ = "IBM 101"
  254.        Case 5
  255.            k$ = "Noika"
  256.        Case Else
  257.            k$ = "Unk"
  258.    End Select
  259.    EI(1).Caption = k$
  260.    EI(2).Caption = Format$(WinKBFuncKeys())
  261.    EI(3).Caption = Format$(WinMem() \ 1024)
  262.    If WinMouse() Then
  263.        EI(4).Caption = "Yes"
  264.    Else
  265.        EI(4).Caption = "No"
  266.    End If
  267.    WI(1).Caption = Format$(WinCurTime())
  268.    WI(2).Caption = WinDirectory$()
  269.    WI(3).Caption = WinSysDir$()
  270.    WI(4).Caption = WinTempDrive$()
  271.    WI(5).Caption = WinPrgName$()
  272. End Sub
  273. Sub Form_Paint ()
  274.     EmbossFrm WinFrm, 390, 525, 1260, 2100, 1
  275.     ConcaveCtl BI(1), 3
  276.     ConcaveCtl BI(2), 3
  277.     For x = 1 To 4
  278.         ConcaveCtl EI(x), 3
  279.     Next x
  280.     For x = 1 To 5
  281.         ConvexCtl WI(x), 3
  282.     Next x
  283.     EmbossFrm WinFrm, 1560, 525, 2965, 2465, 1
  284.     EmpressFrm WinFrm, 435, 2820, 2715, 6060, 1
  285.     ConvexFrm WinFrm, 5
  286. End Sub
  287.