home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / toolbar / frmabout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-07  |  16.4 KB  |  500 lines
  1. VERSION 2.00
  2. Begin Form frmAbout 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About..."
  6.    ClientHeight    =   3150
  7.    ClientLeft      =   1395
  8.    ClientTop       =   1590
  9.    ClientWidth     =   6330
  10.    Height          =   3555
  11.    HelpContextID   =   2
  12.    Left            =   1335
  13.    LinkTopic       =   "Form2"
  14.    ScaleHeight     =   210
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   422
  17.    Top             =   1245
  18.    Width           =   6450
  19.    Begin Timer Timer2 
  20.       Interval        =   2500
  21.       Left            =   5100
  22.       Top             =   1110
  23.    End
  24.    Begin Timer Timer1 
  25.       Interval        =   1
  26.       Left            =   5160
  27.       Top             =   1110
  28.    End
  29.    Begin CommandButton Command1 
  30.       Cancel          =   -1  'True
  31.       Caption         =   "&OK"
  32.       Default         =   -1  'True
  33.       Height          =   345
  34.       Left            =   5460
  35.       TabIndex        =   24
  36.       Top             =   240
  37.       Width           =   795
  38.    End
  39.    Begin Frame frainfo 
  40.       Caption         =   "System Information"
  41.       Height          =   285
  42.       Index           =   0
  43.       Left            =   0
  44.       TabIndex        =   23
  45.       Top             =   3690
  46.       Width           =   4635
  47.       Begin Label lblinfo 
  48.          AutoSize        =   -1  'True
  49.          BackColor       =   &H8000000F&
  50.          Caption         =   "Label3"
  51.          Height          =   195
  52.          Index           =   14
  53.          Left            =   60
  54.          TabIndex        =   2
  55.          Top             =   2850
  56.          Width           =   585
  57.       End
  58.       Begin Label lblinfo 
  59.          AutoSize        =   -1  'True
  60.          BackColor       =   &H8000000F&
  61.          Caption         =   "Label3"
  62.          Height          =   195
  63.          Index           =   13
  64.          Left            =   1140
  65.          TabIndex        =   3
  66.          Top             =   2640
  67.          Width           =   585
  68.       End
  69.       Begin Label lblinfo 
  70.          AutoSize        =   -1  'True
  71.          BackColor       =   &H8000000F&
  72.          Caption         =   "Label3"
  73.          Height          =   195
  74.          Index           =   12
  75.          Left            =   1140
  76.          TabIndex        =   4
  77.          Top             =   2460
  78.          Width           =   585
  79.       End
  80.       Begin Label lblinfo 
  81.          AutoSize        =   -1  'True
  82.          BackColor       =   &H8000000F&
  83.          Caption         =   "Label3"
  84.          Height          =   195
  85.          Index           =   11
  86.          Left            =   1140
  87.          TabIndex        =   5
  88.          Top             =   1890
  89.          Width           =   585
  90.       End
  91.       Begin Label lblinfo 
  92.          AutoSize        =   -1  'True
  93.          BackColor       =   &H8000000F&
  94.          Caption         =   "Label3"
  95.          Height          =   195
  96.          Index           =   10
  97.          Left            =   1500
  98.          TabIndex        =   6
  99.          Top             =   3660
  100.          Width           =   585
  101.       End
  102.       Begin Label lblinfo 
  103.          AutoSize        =   -1  'True
  104.          BackColor       =   &H8000000F&
  105.          Caption         =   "Label3"
  106.          Height          =   195
  107.          Index           =   9
  108.          Left            =   1500
  109.          TabIndex        =   7
  110.          Top             =   4110
  111.          Width           =   585
  112.       End
  113.       Begin Label lblinfo 
  114.          AutoSize        =   -1  'True
  115.          BackColor       =   &H8000000F&
  116.          Caption         =   "Label3"
  117.          Height          =   195
  118.          Index           =   8
  119.          Left            =   1140
  120.          TabIndex        =   8
  121.          Top             =   2100
  122.          Width           =   585
  123.       End
  124.       Begin Label lblinfo 
  125.          AutoSize        =   -1  'True
  126.          BackColor       =   &H8000000F&
  127.          Caption         =   "Label3"
  128.          Height          =   195
  129.          Index           =   6
  130.          Left            =   1560
  131.          TabIndex        =   9
  132.          Top             =   4380
  133.          Visible         =   0   'False
  134.          Width           =   585
  135.       End
  136.       Begin Label lblinfo 
  137.          AutoSize        =   -1  'True
  138.          BackColor       =   &H8000000F&
  139.          Caption         =   "Label3"
  140.          Height          =   195
  141.          Index           =   5
  142.          Left            =   1500
  143.          TabIndex        =   10
  144.          Top             =   3840
  145.          Visible         =   0   'False
  146.          Width           =   585
  147.       End
  148.       Begin Label lblinfo 
  149.          AutoSize        =   -1  'True
  150.          BackColor       =   &H8000000F&
  151.          Caption         =   "Label3"
  152.          Height          =   195
  153.          Index           =   4
  154.          Left            =   180
  155.          TabIndex        =   11
  156.          Top             =   1830
  157.          Visible         =   0   'False
  158.          Width           =   585
  159.       End
  160.       Begin Label lblinfo 
  161.          AutoSize        =   -1  'True
  162.          BackColor       =   &H8000000F&
  163.          Caption         =   "Label3"
  164.          Height          =   195
  165.          Index           =   3
  166.          Left            =   180
  167.          TabIndex        =   12
  168.          Top             =   2070
  169.          Visible         =   0   'False
  170.          Width           =   585
  171.       End
  172.       Begin Label lblinfo 
  173.          AutoSize        =   -1  'True
  174.          BackColor       =   &H8000000F&
  175.          Caption         =   "Label3"
  176.          Height          =   195
  177.          Index           =   2
  178.          Left            =   180
  179.          TabIndex        =   13
  180.          Top             =   2340
  181.          Visible         =   0   'False
  182.          Width           =   585
  183.       End
  184.       Begin Label lblinfo 
  185.          AutoSize        =   -1  'True
  186.          BackColor       =   &H8000000F&
  187.          Caption         =   "Label3"
  188.          Height          =   195
  189.          Index           =   1
  190.          Left            =   2460
  191.          TabIndex        =   14
  192.          Top             =   2430
  193.          Visible         =   0   'False
  194.          Width           =   585
  195.       End
  196.       Begin Label Line5 
  197.          AutoSize        =   -1  'True
  198.          BackColor       =   &H8000000F&
  199.          Caption         =   "Line5"
  200.          Height          =   195
  201.          Left            =   120
  202.          TabIndex        =   19
  203.          Top             =   1110
  204.          Visible         =   0   'False
  205.          Width           =   480
  206.       End
  207.    End
  208.    Begin PictureBox Command3D1 
  209.       Height          =   240
  210.       Left            =   1620
  211.       ScaleHeight     =   210
  212.       ScaleWidth      =   570
  213.       TabIndex        =   22
  214.       Top             =   3420
  215.       Width           =   600
  216.    End
  217.    Begin PictureBox PicClip1 
  218.       Height          =   480
  219.       Left            =   0
  220.       Picture         =   FRMABOUT.FRX:0000
  221.       ScaleHeight     =   450
  222.       ScaleWidth      =   1170
  223.       TabIndex        =   26
  224.       Top             =   0
  225.       Width           =   1200
  226.    End
  227.    Begin Shape Shape1 
  228.       Height          =   3135
  229.       Left            =   0
  230.       Top             =   0
  231.       Width           =   6315
  232.    End
  233.    Begin Image Image1 
  234.       Height          =   735
  235.       Left            =   60
  236.       Picture         =   FRMABOUT.FRX:1F8A
  237.       Stretch         =   -1  'True
  238.       Top             =   150
  239.       Width           =   855
  240.    End
  241.    Begin Label LblKeyboard 
  242.       BackColor       =   &H8000000F&
  243.       BackStyle       =   0  'Transparent
  244.       Caption         =   "Label4"
  245.       Height          =   555
  246.       Index           =   0
  247.       Left            =   1560
  248.       TabIndex        =   15
  249.       Top             =   2820
  250.       Visible         =   0   'False
  251.       Width           =   3315
  252.    End
  253.    Begin Label Line1 
  254.       AutoSize        =   -1  'True
  255.       BackColor       =   &H8000000F&
  256.       BackStyle       =   0  'Transparent
  257.       Caption         =   "Line1"
  258.       Height          =   195
  259.       Left            =   1545
  260.       TabIndex        =   16
  261.       Top             =   1920
  262.       Width           =   480
  263.    End
  264.    Begin Label Line2 
  265.       AutoSize        =   -1  'True
  266.       BackColor       =   &H8000000F&
  267.       BackStyle       =   0  'Transparent
  268.       Caption         =   "Line2"
  269.       Height          =   195
  270.       Left            =   1545
  271.       TabIndex        =   17
  272.       Top             =   2100
  273.       Width           =   480
  274.    End
  275.    Begin Label Line3 
  276.       BackColor       =   &H8000000F&
  277.       BackStyle       =   0  'Transparent
  278.       Caption         =   "Line3"
  279.       Height          =   195
  280.       Left            =   1545
  281.       TabIndex        =   18
  282.       Top             =   2280
  283.       Width           =   3555
  284.       WordWrap        =   -1  'True
  285.    End
  286.    Begin Label Page 
  287.       AutoSize        =   -1  'True
  288.       BackColor       =   &H8000000F&
  289.       BackStyle       =   0  'Transparent
  290.       Caption         =   "1"
  291.       FontBold        =   0   'False
  292.       FontItalic      =   0   'False
  293.       FontName        =   "Small Fonts"
  294.       FontSize        =   5.25
  295.       FontStrikethru  =   0   'False
  296.       FontUnderline   =   0   'False
  297.       Height          =   120
  298.       Left            =   5340
  299.       TabIndex        =   20
  300.       Top             =   2910
  301.       Width           =   45
  302.    End
  303.    Begin Label LblKeyboard 
  304.       AutoSize        =   -1  'True
  305.       BackColor       =   &H8000000F&
  306.       Caption         =   "Label4"
  307.       Height          =   195
  308.       Index           =   1
  309.       Left            =   660
  310.       TabIndex        =   21
  311.       Top             =   3660
  312.       Visible         =   0   'False
  313.       Width           =   585
  314.    End
  315.    Begin Line Line6 
  316.       BorderColor     =   &H00800000&
  317.       BorderWidth     =   2
  318.       X1              =   100
  319.       X2              =   388
  320.       Y1              =   124
  321.       Y2              =   124
  322.    End
  323.    Begin Label Label2 
  324.       AutoSize        =   -1  'True
  325.       BackColor       =   &H8000000F&
  326.       BackStyle       =   0  'Transparent
  327.       Caption         =   "Copyright 1994
  328.  Jason R. Noble"
  329.       Height          =   195
  330.       Left            =   1560
  331.       TabIndex        =   1
  332.       Top             =   540
  333.       Width           =   2805
  334.    End
  335.    Begin Label Label1 
  336.       AutoSize        =   -1  'True
  337.       BackColor       =   &H8000000F&
  338.       BackStyle       =   0  'Transparent
  339.       Caption         =   "AppTitle"
  340.       Height          =   195
  341.       Left            =   1560
  342.       TabIndex        =   0
  343.       Top             =   270
  344.       Width           =   720
  345.    End
  346.    Begin Label Line4 
  347.       AutoSize        =   -1  'True
  348.       BackColor       =   &H8000000F&
  349.       BackStyle       =   0  'Transparent
  350.       Caption         =   "Line4"
  351.       Height          =   195
  352.       Left            =   1545
  353.       TabIndex        =   25
  354.       Top             =   2460
  355.       Width           =   480
  356.    End
  357. Sub Command1_Click ()
  358. Unload Me
  359. End Sub
  360. Sub command3d1_click ()
  361. Timer1.Enabled = True
  362. If line1.Caption = lblinfo(2).Caption Then page.Caption = "2"
  363. If line1.Caption = lblinfo(8).Caption Then page.Caption = "3"
  364. If line1.Caption = lblinfo(12).Caption Then page.Caption = "1"
  365. Select Case page.Caption
  366. Case "1"
  367. lblKeyboard(0).Visible = False
  368. frainfo(0).Caption = "Operating System"
  369. line1.Caption = lblinfo(2).Caption
  370. line2.Caption = lblinfo(5).Caption
  371. line3.Caption = lblinfo(4).Caption
  372. line4.Top = line3.Top + 200
  373. line4.Caption = lblinfo(5).Caption
  374. Case "2"
  375. line4.Top = line4.Top + 200
  376. line4.Caption = "   "
  377. frainfo(0).Caption = "Video"
  378. line1.Caption = lblinfo(8).Caption
  379. line2.Caption = lblinfo(9).Caption
  380. line3.Caption = lblinfo(10).Caption
  381. Case "3"
  382. line3.Caption = lblinfo(11).Caption
  383. lblKeyboard(0).Top = line3.Top + 200
  384. lblKeyboard(0).Visible = True
  385. line4.Visible = True
  386. If GetSystemMetrics(SM_MOUSEPRESENT) Then
  387.     lblinfo(11).Caption = "Mouse: " & GetSysini("boot.description", "mouse.drv")
  388. 'line4.Caption = lblinfo(11).Caption
  389. line4.Top = line4.Top - 400
  390.     End If
  391. lblinfo(12).Caption = "Network: " & GetSysini("boot.description", "network.drv")
  392. lblinfo(13).Caption = "Language: " & GetSysini("boot.description", "language.dll")
  393.     lblKeyboard(0).Caption = "Keyboard: " & GetSysini("boot.description", "Keyboard.typ")
  394.     line1.Caption = lblinfo(12).Caption
  395.     line2.Caption = lblinfo(13).Caption
  396.    line3.Caption = lblKeyboard(0).Caption
  397.  'Line3.Caption = lblinfo(11).Caption
  398. End Select
  399. End Sub
  400. Sub fillsysinfo ()
  401. Dim WinFlags As Long, FreeSpace As Currency, FreeBlock As Currency, temp
  402.     Dim i As Integer
  403. ' Operating System Info.
  404.     WinFlags = GetWinFlags()
  405.     If WinFlags And WF_ENHANCED Then
  406.         lblinfo(3).Caption = "(Enhanced Mode)"
  407.     Else
  408.         lblinfo(3).Caption = "(Standard Mode)"
  409.     End If
  410.     lblinfo(2).Caption = "Microsoft Windows Version  " & WindowsVersion() & " " & lblinfo(3).Caption
  411.     lblinfo(4).Caption = "Disk Operating System: " & DosVersion()
  412. ' CPU Info.
  413.     If WinFlags And WF_CPU486 Then
  414.         lblinfo(5).Caption = "CPU: 486"
  415.     ElseIf WinFlags And WF_CPU386 Then
  416.         lblinfo(5).Caption = "CPU: 386"
  417.     ElseIf WinFlags And WF_CPU286 Then
  418.         lblinfo(5).Caption = "CPU: 286"
  419.     End If
  420.     If WinFlags And WF_80x87 Then
  421.         lblinfo(5).Caption = lblinfo(5).Caption & " (with Math coprocessor)"
  422.     End If
  423. ' Video info.
  424.     lblinfo(8).Caption = "Video Driver: " & GetSysini("boot.description", "display.drv")
  425.     lblinfo(9).Caption = "Resolution: " & Screen.Width \ Screen.TwipsPerPixelX & " x " & Screen.Height \ Screen.TwipsPerPixelY
  426.     lblinfo(10).Caption = "Colors: " & DeviceColors((hDC))
  427. ' General info.
  428.     If GetSystemMetrics(SM_MOUSEPRESENT) Then
  429.         lblinfo(11).Caption = "Mouse: " & GetSysini("boot.description", "mouse.drv")
  430.     Else
  431.         lblinfo(11).Caption = "No mouse"
  432.     End If
  433.     lblinfo(12).Caption = "Network: " & GetSysini("boot.description", "network.drv")
  434.     lblinfo(13).Caption = "Language: " & GetSysini("boot.description", "language.dll")
  435.     lblinfo(14).Caption = "Keyboard: " & GetSysini("boot.description", "keyboard.typ")
  436.     lblKeyboard(0).Caption = lblinfo(14).Caption
  437. End Sub
  438. Sub Form_Load ()
  439. centerform frmAbout
  440. Dim f As Integer
  441. fillsysinfo   'If Index <> 5 Then
  442.         'If VisibleFrame Is Nothing Then
  443.          '   fraInfo(0).Visible = False
  444.        ' Else
  445.         '    VisibleFrame.Visible = False
  446.         'End If
  447.        ' fraInfo(Index + 1).Visible = True
  448.        ' Set VisibleFrame = fraInfo(Index + 1)
  449.         'mnuSysInfo(Index).Checked = Not mnuSysInfo(Index).Checked
  450.         'If mnuSysInfo(Index).Checked Then
  451. Dim R As Integer
  452. Const SYNC = 1
  453.     'R = sndPlaySound(ByVal CStr(WindowsDirectory() & "\" & ".wav"), SYNC)
  454. Dim WinPath As String, SoundFile As String, i As Integer
  455.     WinPath = WindowsDirectory()
  456.     SoundFile = Dir(WinPath & "\" & "*.wav")
  457.     If WindowsVersion() > 3# Then
  458.         If waveOutGetNumDevs() = 0 Then
  459.             ' No wave output devices available.
  460.             lblinfo(6).Caption = "No Wave audio device available"
  461.         ElseIf SoundFile = "" Then
  462.             ' No sound files in Windows directory
  463.             Exit Sub
  464.         Else
  465.             lblinfo(6).Caption = Left(SoundFile, InStr(1, SoundFile, ".") - 1)
  466.             lblinfo(6).Enabled = True
  467.             i = 1
  468.             Do
  469.                 SoundFile = Dir
  470.                 If SoundFile = "" Then Exit Do
  471.                 Load lblinfo(6)
  472.                 lblinfo(6).Caption = Left(SoundFile, InStr(1, SoundFile, ".") - 1)
  473.                 i = i + 1
  474.             Loop
  475.         End If
  476.     Else
  477.         ' Wave audio and "always on top" only available in Windows 3.1+
  478.       '  Unload mnuSysInfo(5)
  479.       '  Unload mnuSysInfo(4)
  480.     End If
  481. Label1.Caption = App.Title
  482. line1.Caption = lblinfo(2).Caption
  483. line2.Caption = lblinfo(5).Caption
  484. line3.Caption = lblinfo(4).Caption
  485. line4.Top = line3.Top + 200
  486. line4.Caption = lblinfo(5).Caption
  487. 'Line2.Caption = lblinfo(6).Caption
  488. App.Title = "Tool Tips Framework"
  489. Label1.Caption = App.Title
  490.             SetWindowPos frmAbout.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW
  491.         
  492.             SetWindowPos frmAbout.hWnd, HWND_TOPMOST, 0, 0, 1, 0, SWP_SHOWWINDOW
  493. 'line4.Caption = lblinfo(5).Caption
  494. 'Command3d1.Picture = picclip1.GraphicCell(4)
  495. 'Command3d2.Picture = picclip1.GraphicCell(5)
  496. End Sub
  497. Sub Timer2_Timer ()
  498. command3d1_click
  499. End Sub
  500.