home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l406 / 1.ddi / ABOUTDLG.FR_ / ABOUTDLG.bin (.txt)
Encoding:
Visual Basic Form  |  1992-10-21  |  4.7 KB  |  143 lines
  1. VERSION 2.00
  2. Begin Form AboutDlg 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "About VB JigSaw"
  5.    FontBold        =   -1  'True
  6.    FontItalic      =   0   'False
  7.    FontName        =   "System"
  8.    FontSize        =   9.75
  9.    FontStrikethru  =   0   'False
  10.    FontUnderline   =   0   'False
  11.    Height          =   2655
  12.    Icon            =   0
  13.    Left            =   1305
  14.    LinkMode        =   1  'Source
  15.    LinkTopic       =   "Form2"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   2250
  19.    ScaleMode       =   0  'User
  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         =   ABOUTDLG.FRX:0000
  29.       ScaleHeight     =   480
  30.       ScaleMode       =   0  'User
  31.       ScaleWidth      =   480
  32.       TabIndex        =   4
  33.       Top             =   150
  34.       Width           =   480
  35.    End
  36.    Begin CommandButton Cmd_OK 
  37.       Caption         =   "OK"
  38.       FontBold        =   -1  'True
  39.       FontItalic      =   0   'False
  40.       FontName        =   "System"
  41.       FontSize        =   9.75
  42.       FontStrikethru  =   0   'False
  43.       FontUnderline   =   0   'False
  44.       Height          =   360
  45.       Left            =   4350
  46.       TabIndex        =   6
  47.       Top             =   1695
  48.       Width           =   1035
  49.    End
  50.    Begin Line Line1 
  51.       BorderWidth     =   2
  52.       X1              =   990
  53.       X2              =   5355
  54.       Y1              =   1340
  55.       Y2              =   1340
  56.    End
  57.    Begin Label Lbl_IconWorks 
  58.       Caption         =   "VB JigSaw"
  59.       FontBold        =   -1  'True
  60.       FontItalic      =   0   'False
  61.       FontName        =   "MS Sans Serif"
  62.       FontSize        =   18
  63.       FontStrikethru  =   0   'False
  64.       FontUnderline   =   0   'False
  65.       Height          =   450
  66.       Left            =   990
  67.       TabIndex        =   1
  68.       Top             =   165
  69.       Width           =   1920
  70.    End
  71.    Begin Label Lbl_Version 
  72.       Caption         =   "Version 1.01"
  73.       FontBold        =   -1  'True
  74.       FontItalic      =   0   'False
  75.       FontName        =   "MS Sans Serif"
  76.       FontSize        =   9.75
  77.       FontStrikethru  =   0   'False
  78.       FontUnderline   =   0   'False
  79.       Height          =   240
  80.       Left            =   990
  81.       TabIndex        =   2
  82.       Top             =   735
  83.       Width           =   1470
  84.    End
  85.    Begin Label Lbl_Microsoft 
  86.       Caption         =   "Microsoft Visual Basic for Windows 3.x"
  87.       FontBold        =   -1  'True
  88.       FontItalic      =   0   'False
  89.       FontName        =   "MS Sans Serif"
  90.       FontSize        =   9.75
  91.       FontStrikethru  =   0   'False
  92.       FontUnderline   =   0   'False
  93.       Height          =   240
  94.       Left            =   990
  95.       TabIndex        =   3
  96.       Top             =   1005
  97.       Width           =   4365
  98.    End
  99.    Begin Label Lbl_Info 
  100.       Height          =   600
  101.       Left            =   1005
  102.       TabIndex        =   5
  103.       Top             =   1440
  104.       Width           =   1875
  105.    End
  106.    Begin Label Lbl_InfoValues 
  107.       Height          =   600
  108.       Left            =   2910
  109.       TabIndex        =   0
  110.       Top             =   1440
  111.       Width           =   1410
  112.    End
  113. DefInt A-Z
  114. Declare Function GetWinFlags Lib "Kernel" () As Long
  115. Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags) As Long
  116. Const WF_STANDARD = &H10
  117. Const WF_ENHANCED = &H20
  118. Const WF_80x87 = &H400
  119. Sub Cmd_OK_Click ()
  120.     Unload AboutDlg
  121. End Sub
  122. Sub Form_Load ()
  123. Dim WinFlags As Long
  124. Dim Mode As String, Processor As String
  125.     ' Dialog Boxes should only have Move and Close items
  126.     ' in their System menus', so remove the others.
  127.     '
  128.     Remove_Items_From_Sysmenu AboutDlg
  129.     ' Center the AboutBox on the screen
  130.     '
  131.      Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  132.     ' Get current Windows configuration
  133.     '
  134.     WinFlags = GetWinFlags()
  135.     ' Display configuration values in Lbl_Info.Caption and Lbl_InfoValues.Caption
  136.     ' (NOTE: CRLF variable causes a line break in a labels caption)
  137.     '
  138.     If WinFlags And WF_ENHANCED Then Mode = "386 Enhanced Mode" Else Mode = "Standard Mode"
  139.     Lbl_Info.Caption = Mode + Chr$(13) + Chr$(10) + "Free Memory:" + Chr$(13) + Chr$(10) + "Math Co-processor:"
  140.     If WinFlags And WF_80x87 Then Processor = "Present" Else Processor = "None"
  141.     Lbl_InfoValues.Caption = Chr$(13) + Chr$(10) + Format$(GetFreeSpace(0) \ 1024) + " KB" + Chr$(13) + Chr$(10) + Processor
  142. End Sub
  143.