home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Pier Shareware 6
/
The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso
/
031
/
pertable.zip
/
VBSOURCE.ZIP
/
ABOUTBOX.FRM
next >
Wrap
Text File
|
1994-09-15
|
6KB
|
171 lines
VERSION 2.00
Begin Form AboutBox
BorderStyle = 3 'Fixed Double
Caption = "About PerTable"
ClientHeight = 2775
ClientLeft = 1365
ClientTop = 1440
ClientWidth = 5640
ClipControls = 0 'False
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 3180
Left = 1305
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2775
ScaleWidth = 5640
Top = 1095
Width = 5760
Begin PictureBox Pic_ApplicationIcon
AutoSize = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 480
Left = 240
Picture = ABOUTBOX.FRX:0000
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 4
TabStop = 0 'False
Top = 1080
Width = 480
End
Begin CommandButton Cmd_OK
Caption = "OK"
Default = -1 'True
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 360
Left = 480
TabIndex = 6
Top = 2160
Width = 1095
End
Begin Label Label3
Caption = "Bugs/Suggestions:"
Height = 195
Left = 120
TabIndex = 9
Top = 1680
Width = 1620
End
Begin Label Label2
Caption = "cking@eosc.osshe.edu"
Height = 195
Left = 1800
TabIndex = 8
Top = 1680
Width = 1995
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H0080FFFF&
Caption = "Design Your Own Wall Chart"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Left = 840
TabIndex = 7
Top = 480
Width = 4005
End
Begin Line lin_HorizontalLine1
BorderWidth = 2
X1 = 2175
X2 = 5520
Y1 = 1905
Y2 = 1905
End
Begin Label Lbl_Periodic
BackColor = &H00FFFF80&
Caption = "PerTable: A Periodic Table Editor"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 15
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Left = 120
TabIndex = 1
Top = 120
Width = 5415
WordWrap = -1 'True
End
Begin Label Lbl_Version
BackColor = &H008080FF&
Caption = "Version 1.0"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 240
Left = 2160
TabIndex = 2
Top = 840
Width = 1170
End
Begin Label Lbl_Microsoft
BackColor = &H0080FF80&
Caption = "Christopher King Chemistry Department Eastern Oregon State College"
Height = 585
Left = 1560
TabIndex = 3
Top = 1080
Width = 2535
End
Begin Label Lbl_Info
Height = 600
Left = 2205
TabIndex = 5
Top = 2025
Width = 1875
End
Begin Label Lbl_InfoValues
Height = 600
Left = 4110
TabIndex = 0
Top = 2025
Width = 1410
End
End
Option Explicit
DefInt A-Z
Sub Cmd_OK_Click ()
Unload AboutBox
End Sub
Sub Form_Load ()
Dim WinFlags As Long
Dim Mode As String, Processor As String
' Dialog Boxes should only have Move and Close items
' in their System menus', so remove the others.
Remove_Items_From_Sysmenu AboutBox
' Center the AboutBox on the screen
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
' Get current Windows configuration
WinFlags = GetWinFlags()
If WinFlags And WF_ENHANCED Then Mode = "386 Enhanced Mode" Else Mode = "Standard Mode"
Lbl_Info.Caption = Mode + NL + "Free Memory:" + NL + "Math Co-processor:"
If WinFlags And WF_80x87 Then Processor = "Present" Else Processor = "None"
Lbl_InfoValues.Caption = NL + Format$(GetFreeSpace(0) \ 1024) + " KB" + NL + Processor
End Sub