home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l405 / 4.ddi / ABOUTBOX.FR_ / ABOUTBOX.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  4.5 KB  |  136 lines
  1. VERSION 2.00
  2. Begin Form AboutBox 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "About IconWorks"
  5.    ClipControls    =   0   'False
  6.    FontBold        =   -1  'True
  7.    FontItalic      =   0   'False
  8.    FontName        =   "System"
  9.    FontSize        =   9.75
  10.    FontStrikethru  =   0   'False
  11.    FontUnderline   =   0   'False
  12.    Height          =   2775
  13.    Icon            =   ABOUTBOX.FRX:0000
  14.    Left            =   1305
  15.    LinkMode        =   1  'Source
  16.    LinkTopic       =   "Form2"
  17.    MaxButton       =   0   'False
  18.    MinButton       =   0   'False
  19.    ScaleHeight     =   2370
  20.    ScaleWidth      =   5640
  21.    Top             =   1080
  22.    Width           =   5760
  23.    Begin PictureBox Pic_ApplicationIcon 
  24.       AutoSize        =   -1  'True
  25.       BorderStyle     =   0  'None
  26.       Height          =   480
  27.       Left            =   255
  28.       Picture         =   ABOUTBOX.FRX:0302
  29.       ScaleHeight     =   480
  30.       ScaleWidth      =   480
  31.       TabIndex        =   4
  32.       Top             =   255
  33.       Width           =   480
  34.    End
  35.    Begin CommandButton Cmd_OK 
  36.       Caption         =   "OK"
  37.       FontBold        =   -1  'True
  38.       FontItalic      =   0   'False
  39.       FontName        =   "System"
  40.       FontSize        =   9.75
  41.       FontStrikethru  =   0   'False
  42.       FontUnderline   =   0   'False
  43.       Height          =   360
  44.       Left            =   4350
  45.       TabIndex        =   6
  46.       Top             =   1800
  47.       Width           =   1035
  48.    End
  49.    Begin Line lin_HorizontalLine1 
  50.       BorderWidth     =   2
  51.       X1              =   975
  52.       X2              =   5010
  53.       Y1              =   1425
  54.       Y2              =   1425
  55.    End
  56.    Begin Label Lbl_IconWorks 
  57.       Caption         =   "IconWorks"
  58.       FontBold        =   -1  'True
  59.       FontItalic      =   0   'False
  60.       FontName        =   "MS Sans Serif"
  61.       FontSize        =   18
  62.       FontStrikethru  =   0   'False
  63.       FontUnderline   =   0   'False
  64.       Height          =   450
  65.       Left            =   990
  66.       TabIndex        =   1
  67.       Top             =   270
  68.       Width           =   1920
  69.    End
  70.    Begin Label Lbl_Version 
  71.       Caption         =   "Version 1.00"
  72.       FontBold        =   -1  'True
  73.       FontItalic      =   0   'False
  74.       FontName        =   "MS Sans Serif"
  75.       FontSize        =   9.75
  76.       FontStrikethru  =   0   'False
  77.       FontUnderline   =   0   'False
  78.       Height          =   240
  79.       Left            =   990
  80.       TabIndex        =   2
  81.       Top             =   840
  82.       Width           =   1470
  83.    End
  84.    Begin Label Lbl_Microsoft 
  85.       Caption         =   "Microsoft Visual Basic for Windows 3.00"
  86.       FontBold        =   -1  'True
  87.       FontItalic      =   0   'False
  88.       FontName        =   "MS Sans Serif"
  89.       FontSize        =   9.75
  90.       FontStrikethru  =   0   'False
  91.       FontUnderline   =   0   'False
  92.       Height          =   240
  93.       Left            =   990
  94.       TabIndex        =   3
  95.       Top             =   1110
  96.       Width           =   4365
  97.    End
  98.    Begin Label Lbl_Info 
  99.       Height          =   600
  100.       Left            =   1005
  101.       TabIndex        =   5
  102.       Top             =   1545
  103.       Width           =   1875
  104.    End
  105.    Begin Label Lbl_InfoValues 
  106.       Height          =   600
  107.       Left            =   2910
  108.       TabIndex        =   0
  109.       Top             =   1545
  110.       Width           =   1410
  111.    End
  112. DefInt A-Z
  113. Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags) As Long
  114. Declare Function GetWinFlags Lib "Kernel" () As Long
  115. Const WF_STANDARD = &H10
  116. Const WF_ENHANCED = &H20
  117. Const WF_80x87 = &H400
  118. Sub Cmd_OK_Click ()
  119.     Unload AboutBox
  120. End Sub
  121. Sub Form_Load ()
  122. Dim WinFlags As Long
  123. Dim Mode As String, Processor As String
  124.     ' Dialog Boxes should only have Move and Close items
  125.     ' in their System menus', so remove the others.
  126.     Remove_Items_From_Sysmenu AboutBox
  127.     ' Center the AboutBox on the screen
  128.      Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  129.     ' Get current Windows configuration
  130.     WinFlags = GetWinFlags()
  131.     If WinFlags And WF_ENHANCED Then Mode = "386 Enhanced Mode" Else Mode = "Standard Mode"
  132.     Lbl_Info.Caption = Mode + CRLF + "Free Memory:" + CRLF + "Math Co-processor:"
  133.     If WinFlags And WF_80x87 Then Processor = "Present" Else Processor = "None"
  134.     Lbl_InfoValues.Caption = CRLF + Format$(GetFreeSpace(0) \ 1024) + " KB" + CRLF + Processor
  135. End Sub
  136.