home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / verdll / about3.frm (.txt) next >
Encoding:
Visual Basic Form  |  1994-10-15  |  5.9 KB  |  200 lines
  1. VERSION 2.00
  2. Begin Form About2 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About"
  6.    ControlBox      =   0   'False
  7.    FontBold        =   -1  'True
  8.    FontItalic      =   -1  'True
  9.    FontName        =   "MS Sans Serif"
  10.    FontSize        =   8.25
  11.    FontStrikethru  =   0   'False
  12.    FontUnderline   =   0   'False
  13.    ForeColor       =   &H00000000&
  14.    Height          =   3615
  15.    Icon            =   ABOUT3.FRX:0000
  16.    Left            =   1395
  17.    LinkMode        =   1  'Source
  18.    LinkTopic       =   "Form1"
  19.    MaxButton       =   0   'False
  20.    MinButton       =   0   'False
  21.    ScaleHeight     =   3210
  22.    ScaleWidth      =   5190
  23.    Top             =   1500
  24.    Width           =   5310
  25.    Begin Timer Timer1 
  26.       Interval        =   2000
  27.       Left            =   4680
  28.       Top             =   1920
  29.    End
  30.    Begin CommandButton Command1 
  31.       Cancel          =   -1  'True
  32.       Caption         =   "OK"
  33.       Default         =   -1  'True
  34.       Height          =   375
  35.       Left            =   2040
  36.       TabIndex        =   4
  37.       Top             =   2640
  38.       Width           =   1095
  39.    End
  40.    Begin Image Image3 
  41.       Height          =   480
  42.       Left            =   0
  43.       Picture         =   ABOUT3.FRX:0302
  44.       Top             =   1200
  45.       Width           =   480
  46.    End
  47.    Begin Label Lbl_InfoValues 
  48.       Height          =   615
  49.       Left            =   3000
  50.       TabIndex        =   6
  51.       Top             =   1920
  52.       Width           =   1410
  53.    End
  54.    Begin Label Label5 
  55.       Alignment       =   2  'Center
  56.       Caption         =   "John De Palma on CompuServe 76076,571"
  57.       Height          =   255
  58.       Left            =   240
  59.       TabIndex        =   5
  60.       Top             =   1320
  61.       Width           =   4695
  62.    End
  63.    Begin Image Image2 
  64.       Height          =   480
  65.       Left            =   0
  66.       Picture         =   ABOUT3.FRX:0604
  67.       Top             =   600
  68.       Width           =   480
  69.    End
  70.    Begin Image Image1 
  71.       Height          =   480
  72.       Left            =   0
  73.       Picture         =   ABOUT3.FRX:0906
  74.       Top             =   0
  75.       Width           =   480
  76.    End
  77.    Begin Line Line1 
  78.       X1              =   600
  79.       X2              =   4800
  80.       Y1              =   1800
  81.       Y2              =   1800
  82.    End
  83.    Begin Label lbl_Title 
  84.       Alignment       =   2  'Center
  85.       Caption         =   "Title"
  86.       FontBold        =   -1  'True
  87.       FontItalic      =   0   'False
  88.       FontName        =   "BodoniPoster"
  89.       FontSize        =   22.5
  90.       FontStrikethru  =   0   'False
  91.       FontUnderline   =   0   'False
  92.       Height          =   615
  93.       Left            =   720
  94.       TabIndex        =   1
  95.       Top             =   120
  96.       Width           =   4095
  97.    End
  98.    Begin Label lbl_Version 
  99.       Alignment       =   2  'Center
  100.       BackColor       =   &H00FFFFFF&
  101.       BackStyle       =   0  'Transparent
  102.       Caption         =   "Version  6.8.94"
  103.       FontBold        =   -1  'True
  104.       FontItalic      =   0   'False
  105.       FontName        =   "MS Sans Serif"
  106.       FontSize        =   13.5
  107.       FontStrikethru  =   0   'False
  108.       FontUnderline   =   0   'False
  109.       ForeColor       =   &H00800000&
  110.       Height          =   330
  111.       Left            =   600
  112.       TabIndex        =   0
  113.       Top             =   720
  114.       Width           =   4335
  115.    End
  116.    Begin Label Lbl_Info 
  117.       Height          =   615
  118.       Left            =   720
  119.       TabIndex        =   2
  120.       Top             =   1920
  121.       Width           =   1935
  122.    End
  123.    Begin Label Label4 
  124.       Alignment       =   2  'Center
  125.       Caption         =   "LearnWare 
  126.  1994"
  127.       Height          =   255
  128.       Left            =   240
  129.       TabIndex        =   3
  130.       Top             =   1560
  131.       Width           =   4935
  132.    End
  133. 'this stuff from AboutBox of Iconwrks
  134. DefInt A-Z
  135. Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags) As Long
  136. Declare Function GetWinFlags Lib "Kernel" () As Long
  137. Const WF_STANDARD = &H10
  138. Const WF_ENHANCED = &H20
  139. Const WF_80x87 = &H400
  140. Sub Command1_Click ()
  141.     'Cancel About form
  142.     About2.Visible = False
  143. End Sub
  144. Sub Command1_LostFocus ()
  145.     About2.Visible = False
  146. End Sub
  147. Sub Form_Load ()
  148. Dim WinFlags As Long
  149. Dim Mode As String, Processor As String
  150. Dim CRLF As String
  151. CRLF = Chr$(13) + Chr$(10)
  152.     WinFlags = GetWinFlags()
  153.     If WinFlags And WF_ENHANCED Then
  154.         Mode = "386 Enhanced Mode"
  155.     Else
  156.         Mode = "Standard Mode"
  157.     End If
  158.     Lbl_Info.Caption = Mode + CRLF + "Free Memory:" + CRLF + "Math Co-processor:"
  159.     If WinFlags And WF_80x87 Then
  160.         Processor = "Present"
  161.     Else
  162.         Processor = "None"
  163.     End If
  164.     Lbl_InfoValues.Caption = CRLF + Format$(GetFreeSpace(0) \ 1024) + " KB" + CRLF + Processor
  165.     'Center form
  166.     Left = (Screen.Width - Width) / 2
  167.     Top = (Screen.Height - Height) / 2
  168.     'Place three traffic lights
  169.     Image1.Left = 0
  170.     Image1.Top = 0
  171.     Image2.Left = 0
  172.     Image2.Top = 0
  173.     Image3.Left = 0
  174.     Image3.Top = 0
  175.     'Make first icon visible
  176.     Image1.Visible = True
  177.     Image2.Visible = False
  178.     Image3.Visible = False
  179.     lbl_Title.Caption = "Picture Show"
  180.     lbl_Version.Caption = "Version 6.13.94"
  181.     Me.Caption = "About..."
  182. End Sub
  183. Sub Timer1_Timer ()
  184.         
  185.         If Image1.Visible = True Then
  186.             Image1.Visible = False
  187.             Image2.Visible = True
  188.             Image3.Visible = False
  189.         ElseIf Image2.Visible = True Then
  190.             Image2.Visible = False
  191.             Image3.Visible = True
  192.             Image1.Visible = False
  193.         ElseIf Image3.Visible = True Then
  194.             Image1.Visible = True
  195.             Image2.Visible = False
  196.             Image3.Visible = False
  197.         Else
  198.         End If
  199. End Sub
  200.