home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch29code / frmabout.frm (.txt) < prev    next >
Visual Basic Form  |  1995-08-02  |  12KB  |  347 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAbout 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "About Program"
  6.    ClientHeight    =   3105
  7.    ClientLeft      =   810
  8.    ClientTop       =   1560
  9.    ClientWidth     =   5490
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    BeginProperty Font 
  13.       name            =   "MS Sans Serif"
  14.       charset         =   0
  15.       weight          =   700
  16.       size            =   8.25
  17.       underline       =   0   'False
  18.       italic          =   0   'False
  19.       strikethrough   =   0   'False
  20.    EndProperty
  21.    Height          =   3510
  22.    Icon            =   "frmabout.frx":0000
  23.    Left            =   750
  24.    LinkMode        =   1  'Source
  25.    LinkTopic       =   "Form1"
  26.    MaxButton       =   0   'False
  27.    MinButton       =   0   'False
  28.    ScaleHeight     =   3105
  29.    ScaleWidth      =   5490
  30.    Top             =   1215
  31.    Width           =   5610
  32.    Begin VB.CommandButton cmdSysInfo 
  33.       Caption         =   "&System Info..."
  34.       BeginProperty Font 
  35.          name            =   "MS Sans Serif"
  36.          charset         =   0
  37.          weight          =   400
  38.          size            =   8.25
  39.          underline       =   0   'False
  40.          italic          =   0   'False
  41.          strikethrough   =   0   'False
  42.       EndProperty
  43.       Height          =   375
  44.       Left            =   4200
  45.       TabIndex        =   7
  46.       Top             =   600
  47.       Visible         =   0   'False
  48.       Width           =   1230
  49.    End
  50.    Begin VB.CommandButton cmdOk 
  51.       Caption         =   "&Ok"
  52.       Default         =   -1  'True
  53.       BeginProperty Font 
  54.          name            =   "MS Sans Serif"
  55.          charset         =   0
  56.          weight          =   400
  57.          size            =   8.25
  58.          underline       =   0   'False
  59.          italic          =   0   'False
  60.          strikethrough   =   0   'False
  61.       EndProperty
  62.       Height          =   375
  63.       Left            =   4200
  64.       TabIndex        =   0
  65.       Top             =   150
  66.       Width           =   1215
  67.    End
  68.    Begin VB.Line Lines 
  69.       BorderColor     =   &H00808080&
  70.       Index           =   3
  71.       X1              =   840
  72.       X2              =   5400
  73.       Y1              =   2910
  74.       Y2              =   2910
  75.    End
  76.    Begin VB.Line Lines 
  77.       BorderColor     =   &H00FFFFFF&
  78.       Index           =   0
  79.       X1              =   825
  80.       X2              =   5400
  81.       Y1              =   2925
  82.       Y2              =   2925
  83.    End
  84.    Begin VB.Line Lines 
  85.       BorderColor     =   &H00FFFFFF&
  86.       Index           =   2
  87.       X1              =   840
  88.       X2              =   5400
  89.       Y1              =   2280
  90.       Y2              =   2280
  91.    End
  92.    Begin VB.Line Lines 
  93.       BorderColor     =   &H00808080&
  94.       Index           =   1
  95.       X1              =   855
  96.       X2              =   5400
  97.       Y1              =   2265
  98.       Y2              =   2265
  99.    End
  100.    Begin VB.Label Labels 
  101.       AutoSize        =   -1  'True
  102.       BackStyle       =   0  'Transparent
  103.       Caption         =   "This product is licensed to:"
  104.       BeginProperty Font 
  105.          name            =   "MS Sans Serif"
  106.          charset         =   0
  107.          weight          =   400
  108.          size            =   8.25
  109.          underline       =   0   'False
  110.          italic          =   0   'False
  111.          strikethrough   =   0   'False
  112.       EndProperty
  113.       Height          =   195
  114.       Index           =   8
  115.       Left            =   855
  116.       TabIndex        =   8
  117.       Top             =   1215
  118.       Width           =   1890
  119.    End
  120.    Begin VB.Image img 
  121.       Height          =   480
  122.       Left            =   90
  123.       Top             =   135
  124.       Width           =   480
  125.    End
  126.    Begin VB.Label Labels 
  127.       BackStyle       =   0  'Transparent
  128.       Caption         =   "Software Technical Support at (555) 555-5555."
  129.       BeginProperty Font 
  130.          name            =   "MS Sans Serif"
  131.          charset         =   0
  132.          weight          =   400
  133.          size            =   8.25
  134.          underline       =   0   'False
  135.          italic          =   0   'False
  136.          strikethrough   =   0   'False
  137.       EndProperty
  138.       Height          =   255
  139.       Index           =   7
  140.       Left            =   855
  141.       TabIndex        =   9
  142.       Top             =   2655
  143.       Width           =   4000
  144.    End
  145.    Begin VB.Label Labels 
  146.       BackStyle       =   0  'Transparent
  147.       Caption         =   "For problems with this product, please call Martinsen's"
  148.       BeginProperty Font 
  149.          name            =   "MS Sans Serif"
  150.          charset         =   0
  151.          weight          =   400
  152.          size            =   8.25
  153.          underline       =   0   'False
  154.          italic          =   0   'False
  155.          strikethrough   =   0   'False
  156.       EndProperty
  157.       Height          =   255
  158.       Index           =   6
  159.       Left            =   855
  160.       TabIndex        =   10
  161.       Top             =   2385
  162.       Width           =   4000
  163.    End
  164.    Begin VB.Label Labels 
  165.       BackStyle       =   0  'Transparent
  166.       Caption         =   "Product ID: 546A56-4565D-J56E31"
  167.       BeginProperty Font 
  168.          name            =   "MS Sans Serif"
  169.          charset         =   0
  170.          weight          =   400
  171.          size            =   8.25
  172.          underline       =   0   'False
  173.          italic          =   0   'False
  174.          strikethrough   =   0   'False
  175.       EndProperty
  176.       Height          =   195
  177.       Index           =   5
  178.       Left            =   855
  179.       TabIndex        =   6
  180.       Top             =   1980
  181.       Width           =   3000
  182.    End
  183.    Begin VB.Label Labels 
  184.       BackStyle       =   0  'Transparent
  185.       Caption         =   "The VB Programmer Shop"
  186.       BeginProperty Font 
  187.          name            =   "MS Sans Serif"
  188.          charset         =   0
  189.          weight          =   400
  190.          size            =   8.25
  191.          underline       =   0   'False
  192.          italic          =   0   'False
  193.          strikethrough   =   0   'False
  194.       EndProperty
  195.       Height          =   195
  196.       Index           =   4
  197.       Left            =   855
  198.       TabIndex        =   5
  199.       Top             =   1725
  200.       Width           =   3000
  201.    End
  202.    Begin VB.Label Labels 
  203.       BackStyle       =   0  'Transparent
  204.       Caption         =   "John Doe"
  205.       BeginProperty Font 
  206.          name            =   "MS Sans Serif"
  207.          charset         =   0
  208.          weight          =   400
  209.          size            =   8.25
  210.          underline       =   0   'False
  211.          italic          =   0   'False
  212.          strikethrough   =   0   'False
  213.       EndProperty
  214.       Height          =   195
  215.       Index           =   3
  216.       Left            =   840
  217.       TabIndex        =   4
  218.       Top             =   1470
  219.       Width           =   3000
  220.    End
  221.    Begin VB.Label Labels 
  222.       BackStyle       =   0  'Transparent
  223.       Caption         =   "Copyright 
  224.  1993-1994 Martinsen's Software"
  225.       BeginProperty Font 
  226.          name            =   "MS Sans Serif"
  227.          charset         =   0
  228.          weight          =   400
  229.          size            =   8.25
  230.          underline       =   0   'False
  231.          italic          =   0   'False
  232.          strikethrough   =   0   'False
  233.       EndProperty
  234.       Height          =   255
  235.       Index           =   2
  236.       Left            =   855
  237.       TabIndex        =   3
  238.       Top             =   675
  239.       Width           =   3255
  240.    End
  241.    Begin VB.Label Labels 
  242.       BackStyle       =   0  'Transparent
  243.       Caption         =   "Version 1.00.01"
  244.       BeginProperty Font 
  245.          name            =   "MS Sans Serif"
  246.          charset         =   0
  247.          weight          =   400
  248.          size            =   8.25
  249.          underline       =   0   'False
  250.          italic          =   0   'False
  251.          strikethrough   =   0   'False
  252.       EndProperty
  253.       Height          =   255
  254.       Index           =   1
  255.       Left            =   855
  256.       TabIndex        =   2
  257.       Top             =   405
  258.       Width           =   3555
  259.    End
  260.    Begin VB.Label Labels 
  261.       BackStyle       =   0  'Transparent
  262.       Caption         =   "Product Name"
  263.       BeginProperty Font 
  264.          name            =   "MS Sans Serif"
  265.          charset         =   0
  266.          weight          =   400
  267.          size            =   8.25
  268.          underline       =   0   'False
  269.          italic          =   0   'False
  270.          strikethrough   =   0   'False
  271.       EndProperty
  272.       Height          =   255
  273.       Index           =   0
  274.       Left            =   855
  275.       TabIndex        =   1
  276.       Top             =   135
  277.       Width           =   3555
  278.    End
  279. Attribute VB_Name = "frmAbout"
  280. Attribute VB_Creatable = False
  281. Attribute VB_Exposed = False
  282. '****************************************************************
  283. ' FRMABOUT.FRM - Demonstrates how to handle a missing componet.
  284. '****************************************************************
  285. Option Explicit
  286. Private WinDir As String
  287. #If Win32 Then
  288. Const SYSINFO = "msapps\msinfo\msinfo32.exe"
  289. Private Declare Function GetWindowsDirectory& Lib "Kernel32" _
  290.     Alias "GetWindowsDirectoryA" (ByVal buffer$, ByVal bufLen&)
  291. #Else
  292. Const SYSINFO = "msapps\msinfo\msinfo.exe"
  293. Private Declare Function GetWindowsDirectory% Lib "Kernel" _
  294.     (ByVal buffer$, ByVal bufLen%)
  295. #End If
  296. '****************************************************************
  297. ' Unload the form.
  298. '****************************************************************
  299. Private Sub cmdOk_Click()
  300.     Unload Me
  301. End Sub
  302. '****************************************************************
  303. ' Start the Microsoft System Information program.
  304. '****************************************************************
  305. Private Sub cmdSysInfo_Click()
  306.     Shell WinDir & SYSINFO, vbNormalFocus
  307. End Sub
  308. '****************************************************************
  309. ' Load the form and determine if the System Info button should
  310. ' be visible.
  311. '****************************************************************
  312. Private Sub Form_Load()
  313.     '************************************************************
  314.     ' Always use system colors.
  315.     '************************************************************
  316.     Lines(0).BorderColor = vb3DHighlight
  317.     Lines(1).BorderColor = vb3DShadow
  318.     Lines(2).BorderColor = vb3DHighlight
  319.     Lines(3).BorderColor = vb3DShadow
  320.     BackColor = vb3DFace
  321.     '************************************************************
  322.     ' Change the picture displayed in the image control.
  323.     '************************************************************
  324.     img.picture = Me.Icon
  325.     '************************************************************
  326.     ' Center the form.
  327.     '************************************************************
  328.     Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  329.     '************************************************************
  330.     ' Get the path to the Windows directory.
  331.     '************************************************************
  332.     WinDir = Space(2048)
  333.     WinDir = Left(WinDir, GetWindowsDirectory(WinDir, _
  334.              Len(WinDir))) & "\"
  335.     '************************************************************
  336.     'Set the visible status depending on the existence of the file.
  337.     '************************************************************
  338.     cmdSysInfo.Visible = FileExists(WinDir & SYSINFO)
  339. End Sub
  340. '****************************************************************
  341. ' Determine if the file exists, and return the result.
  342. '****************************************************************
  343. Private Function FileExists(sFileName As String) As Boolean
  344.     On Error Resume Next
  345.     FileExists = IIf(Dir(sFileName) <> "", True, False)
  346. End Function
  347.