home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / msdn_vcb / samples / vc98 / sdk / dbmsg / sql / vbsql / adbabout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-04-03  |  8.7 KB  |  264 lines

  1. VERSION 2.00
  2. Begin Form fAbout 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About ADBPubs 1"
  6.    ForeColor       =   &H00C0C0C0&
  7.    Height          =   2475
  8.    Left            =   1335
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2070
  13.    ScaleWidth      =   6330
  14.    Top             =   1800
  15.    Width           =   6450
  16.    Begin SSPanel panOm 
  17.       AutoSize        =   3  'AutoSize Child To Panel
  18.       BackColor       =   &H00C0C0C0&
  19.       BevelInner      =   2  'Raised
  20.       BevelOuter      =   1  'Inset
  21.       BorderWidth     =   2
  22.       Font3D          =   1  'Raised w/light shading
  23.       ForeColor       =   &H00000000&
  24.       Height          =   1935
  25.       Left            =   60
  26.       TabIndex        =   2
  27.       Top             =   45
  28.       Width           =   6225
  29.       Begin SSPanel Panel3D1 
  30.          AutoSize        =   3  'AutoSize Child To Panel
  31.          BackColor       =   &H00C0C0C0&
  32.          BevelWidth      =   0
  33.          BorderWidth     =   0
  34.          Caption         =   "for Microsoft Corporation"
  35.          Font3D          =   1  'Raised w/light shading
  36.          ForeColor       =   &H00000000&
  37.          Height          =   255
  38.          Left            =   900
  39.          TabIndex        =   14
  40.          Top             =   630
  41.          Width           =   3945
  42.       End
  43.       Begin PictureBox picFlag 
  44.          BackColor       =   &H00C0C0C0&
  45.          BorderStyle     =   0  'None
  46.          Height          =   555
  47.          Left            =   5310
  48.          ScaleHeight     =   555
  49.          ScaleWidth      =   555
  50.          TabIndex        =   7
  51.          Top             =   240
  52.          Width           =   555
  53.       End
  54.       Begin PictureBox Picture1 
  55.          BackColor       =   &H00FFFFFF&
  56.          Height          =   525
  57.          Left            =   180
  58.          Picture         =   ADBABOUT.FRX:0000
  59.          ScaleHeight     =   495
  60.          ScaleWidth      =   495
  61.          TabIndex        =   6
  62.          Top             =   240
  63.          Width           =   525
  64.       End
  65.       Begin SSPanel Panel3D2 
  66.          AutoSize        =   3  'AutoSize Child To Panel
  67.          BackColor       =   &H00C0C0C0&
  68.          BevelWidth      =   0
  69.          BorderWidth     =   0
  70.          Caption         =   "Made by ADB-Arkitektur AB, Sweden 1993"
  71.          Font3D          =   1  'Raised w/light shading
  72.          ForeColor       =   &H00000000&
  73.          Height          =   255
  74.          Left            =   900
  75.          TabIndex        =   5
  76.          Top             =   345
  77.          Width           =   3945
  78.       End
  79.       Begin SSPanel Panel3D3 
  80.          AutoSize        =   3  'AutoSize Child To Panel
  81.          BackColor       =   &H00C0C0C0&
  82.          BevelWidth      =   0
  83.          BorderWidth     =   0
  84.          Caption         =   "ADBPubs 1"
  85.          Font3D          =   1  'Raised w/light shading
  86.          ForeColor       =   &H00000000&
  87.          Height          =   255
  88.          Left            =   900
  89.          TabIndex        =   4
  90.          Top             =   105
  91.          Width           =   3945
  92.       End
  93.       Begin SSCommand cmdOk 
  94.          Caption         =   "&Ok"
  95.          Font3D          =   3  'Inset w/light shading
  96.          ForeColor       =   &H00000000&
  97.          Height          =   375
  98.          Left            =   5040
  99.          TabIndex        =   3
  100.          Top             =   1425
  101.          Width           =   1020
  102.       End
  103.       Begin Label Label2 
  104.          Alignment       =   2  'Center
  105.          BackColor       =   &H00000000&
  106.          ForeColor       =   &H00000000&
  107.          Height          =   45
  108.          Left            =   855
  109.          TabIndex        =   13
  110.          Top             =   975
  111.          Width           =   3945
  112.       End
  113.       Begin Label lblCoProcessorInfo 
  114.          BackColor       =   &H00C0C0C0&
  115.          FontBold        =   0   'False
  116.          FontItalic      =   0   'False
  117.          FontName        =   "MS Sans Serif"
  118.          FontSize        =   8.25
  119.          FontStrikethru  =   0   'False
  120.          FontUnderline   =   0   'False
  121.          Height          =   195
  122.          Left            =   3135
  123.          TabIndex        =   12
  124.          Top             =   1590
  125.          Width           =   1695
  126.       End
  127.       Begin Label lblModeInfo 
  128.          BackColor       =   &H00C0C0C0&
  129.          FontBold        =   0   'False
  130.          FontItalic      =   0   'False
  131.          FontName        =   "MS Sans Serif"
  132.          FontSize        =   8.25
  133.          FontStrikethru  =   0   'False
  134.          FontUnderline   =   0   'False
  135.          Height          =   195
  136.          Left            =   855
  137.          TabIndex        =   11
  138.          Top             =   1125
  139.          Width           =   2280
  140.       End
  141.       Begin Label lblMemoryInfo 
  142.          BackColor       =   &H00C0C0C0&
  143.          FontBold        =   0   'False
  144.          FontItalic      =   0   'False
  145.          FontName        =   "MS Sans Serif"
  146.          FontSize        =   8.25
  147.          FontStrikethru  =   0   'False
  148.          FontUnderline   =   0   'False
  149.          Height          =   195
  150.          Left            =   3135
  151.          TabIndex        =   10
  152.          Top             =   1380
  153.          Width           =   1725
  154.       End
  155.       Begin Label Label3 
  156.          AutoSize        =   -1  'True
  157.          BackColor       =   &H00C0C0C0&
  158.          Caption         =   "Math Co-Processor:"
  159.          FontBold        =   0   'False
  160.          FontItalic      =   0   'False
  161.          FontName        =   "MS Sans Serif"
  162.          FontSize        =   8.25
  163.          FontStrikethru  =   0   'False
  164.          FontUnderline   =   0   'False
  165.          Height          =   195
  166.          Left            =   870
  167.          TabIndex        =   9
  168.          Top             =   1590
  169.          Width           =   1395
  170.       End
  171.       Begin Label Label1 
  172.          AutoSize        =   -1  'True
  173.          BackColor       =   &H00C0C0C0&
  174.          Caption         =   "Memory:"
  175.          FontBold        =   0   'False
  176.          FontItalic      =   0   'False
  177.          FontName        =   "MS Sans Serif"
  178.          FontSize        =   8.25
  179.          FontStrikethru  =   0   'False
  180.          FontUnderline   =   0   'False
  181.          Height          =   195
  182.          Left            =   870
  183.          TabIndex        =   8
  184.          Top             =   1350
  185.          Width           =   600
  186.       End
  187.    End
  188.    Begin SSCommand picFlagOrg 
  189.       Font3D          =   1  'Raised w/light shading
  190.       ForeColor       =   &H00000000&
  191.       Height          =   600
  192.       Index           =   1
  193.       Left            =   150
  194.       Picture         =   ADBABOUT.FRX:0302
  195.       TabIndex        =   1
  196.       Top             =   2160
  197.       Visible         =   0   'False
  198.       Width           =   675
  199.    End
  200.    Begin SSCommand picFlagOrg 
  201.       Font3D          =   1  'Raised w/light shading
  202.       ForeColor       =   &H00000000&
  203.       Height          =   600
  204.       Index           =   2
  205.       Left            =   825
  206.       Picture         =   ADBABOUT.FRX:0604
  207.       TabIndex        =   0
  208.       Top             =   2160
  209.       Visible         =   0   'False
  210.       Width           =   675
  211.    End
  212.    Begin Timer Timer1 
  213.       Interval        =   50
  214.       Left            =   1545
  215.       Top             =   2265
  216.    End
  217. Dim FlagNmbr As Integer
  218. Sub cmdOk_Click ()
  219.     Timer1.Enabled = False
  220.     Unload Me
  221. End Sub
  222. Sub Form_Load ()
  223.     Me.Height = 2470
  224.     Me.Width = 6480
  225.     ' Center form
  226.     Left = screen.Width / 2 - Width / 2
  227.     Top = screen.Height / 2 - Height / 2
  228.     ' Retrieve current Windows system and memory configuration
  229.     WinFlags = GetWinFlags()
  230.     ' Display mode information
  231.     If WinFlags And WF_ENHANCED Then
  232.         lblModeInfo = "386 Enhanced Mode"
  233.     Else
  234.         lblModeInfo = "Standard Mode"
  235.     End If
  236.     ' Display math co-processor information
  237.     If WinFlags And WF_80x87 Then
  238.         lblCoProcessorInfo = "Present"
  239.     Else
  240.         lblCoProcessorInfo = "Not Present"
  241.     End If
  242.     ' Scan global heap to get memory information
  243.     temp = GetFreeSpace(0)
  244.     If Sgn(temp) = -1 Then
  245.         FreeSpace = CLng(temp + 1&) Xor &HFFFFFFFF
  246.     Else
  247.         FreeSpace = temp
  248.     End If
  249.     ' Divide by 1024 to display info in KB
  250.     FreeSpace = FreeSpace / 1024
  251.     lblMemoryInfo = Format(FreeSpace, "#,#") + " KB Free"
  252.     FlagNmbr = 1
  253.     Timer1.Interval = 150
  254.     Timer1.Enabled = True
  255. End Sub
  256. Sub Timer1_Timer ()
  257.     picFlag.Picture = picFlagOrg(FlagNmbr).Picture
  258.     If FlagNmbr = 1 Then
  259.         FlagNmbr = 2
  260.     Else
  261.         FlagNmbr = 1
  262.     End If
  263. End Sub
  264.