home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / appshell / appabout.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-09-06  |  4.8 KB  |  149 lines
  1. VERSION 2.00
  2. Begin Form AppAbout 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "About App Shell"
  5.    ClientHeight    =   2505
  6.    ClientLeft      =   1425
  7.    ClientTop       =   1425
  8.    ClientWidth     =   3735
  9.    FontBold        =   -1  'True
  10.    FontItalic      =   0   'False
  11.    FontName        =   "System"
  12.    FontSize        =   9.75
  13.    FontStrikethru  =   0   'False
  14.    FontUnderline   =   0   'False
  15.    Height          =   2910
  16.    Icon            =   APPABOUT.FRX:0000
  17.    Left            =   1365
  18.    LinkMode        =   1  'Source
  19.    LinkTopic       =   "Form2"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   2505
  23.    ScaleWidth      =   3735
  24.    Top             =   1080
  25.    Width           =   3855
  26.    Begin CommandButton Cmd_OK 
  27.       Cancel          =   -1  'True
  28.       Caption         =   "OK"
  29.       Default         =   -1  'True
  30.       FontBold        =   -1  'True
  31.       FontItalic      =   0   'False
  32.       FontName        =   "System"
  33.       FontSize        =   9.75
  34.       FontStrikethru  =   0   'False
  35.       FontUnderline   =   0   'False
  36.       Height          =   420
  37.       Left            =   1425
  38.       TabIndex        =   0
  39.       Top             =   1905
  40.       Width           =   930
  41.    End
  42.    Begin PictureBox Pic_HorizontalLine 
  43.       BackColor       =   &H00000000&
  44.       Height          =   45
  45.       Left            =   330
  46.       ScaleHeight     =   15
  47.       ScaleWidth      =   2940
  48.       TabIndex        =   4
  49.       Top             =   975
  50.       Width           =   2970
  51.    End
  52.    Begin PictureBox Pic_ApplicationIcon 
  53.       AutoSize        =   -1  'True
  54.       BorderStyle     =   0  'None
  55.       Height          =   480
  56.       Left            =   315
  57.       Picture         =   APPABOUT.FRX:0302
  58.       ScaleHeight     =   480
  59.       ScaleWidth      =   480
  60.       TabIndex        =   3
  61.       Top             =   285
  62.       Width           =   480
  63.    End
  64.    Begin Label Lbl_InfoValues 
  65.       FontBold        =   -1  'True
  66.       FontItalic      =   0   'False
  67.       FontName        =   "System"
  68.       FontSize        =   9.75
  69.       FontStrikethru  =   0   'False
  70.       FontUnderline   =   0   'False
  71.       Height          =   630
  72.       Left            =   1890
  73.       TabIndex        =   6
  74.       Top             =   1170
  75.       Width           =   1455
  76.    End
  77.    Begin Label Lbl_Info 
  78.       FontBold        =   -1  'True
  79.       FontItalic      =   0   'False
  80.       FontName        =   "System"
  81.       FontSize        =   9.75
  82.       FontStrikethru  =   0   'False
  83.       FontUnderline   =   0   'False
  84.       Height          =   630
  85.       Left            =   330
  86.       TabIndex        =   5
  87.       Top             =   1155
  88.       Width           =   1470
  89.    End
  90.    Begin Label Label1 
  91.       Caption         =   "Copyright 1991"
  92.       FontBold        =   -1  'True
  93.       FontItalic      =   0   'False
  94.       FontName        =   "System"
  95.       FontSize        =   9.75
  96.       FontStrikethru  =   0   'False
  97.       FontUnderline   =   0   'False
  98.       Height          =   255
  99.       Left            =   975
  100.       TabIndex        =   7
  101.       Top             =   600
  102.       Width           =   1980
  103.    End
  104.    Begin Label Lbl_Version 
  105.       Caption         =   "Version 1.00"
  106.       FontBold        =   -1  'True
  107.       FontItalic      =   0   'False
  108.       FontName        =   "System"
  109.       FontSize        =   9.75
  110.       FontStrikethru  =   0   'False
  111.       FontUnderline   =   0   'False
  112.       Height          =   255
  113.       Left            =   975
  114.       TabIndex        =   1
  115.       Top             =   375
  116.       Width           =   1980
  117.    End
  118.    Begin Label Lbl_Company 
  119.       Caption         =   "by Jim Presley"
  120.       FontBold        =   -1  'True
  121.       FontItalic      =   0   'False
  122.       FontName        =   "System"
  123.       FontSize        =   9.75
  124.       FontStrikethru  =   0   'False
  125.       FontUnderline   =   0   'False
  126.       Height          =   270
  127.       Left            =   975
  128.       TabIndex        =   2
  129.       Top             =   135
  130.       Width           =   2340
  131.    End
  132. DefInt A-Z
  133. Sub cmd_OK_Click ()
  134.     Unload AppAbout
  135. End Sub
  136. Sub Form_Load ()
  137.   Dim WinFlags As Long
  138.   Dim Mode As String, Processor As String
  139.   Remove_Items_From_SysMenu AppAbout
  140.   Place_DialogBox_in_Form AppAbout, AppMain
  141.   ' Get current Windows configuration
  142.   WinFlags = GetWinFlags()
  143.   ' Display configuration values in Lbl_Info.Caption and Lbl_InfoValues.Caption
  144.   ' (NOTE: CRLF variable causes a line break in a labels caption)
  145.   Lbl_Info.Caption = "Mode:" + CRLF + "Free Memory:"
  146.   If WinFlags And WF_ENHANCED Then Mode = "386 Enhanced" Else Mode = "Standard"
  147.   Lbl_InfoValues.Caption = Mode + CRLF + Format$(GetFreeSpace(0) \ 1024) + " KB"
  148. End Sub
  149.