home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / codeli_1 / setup.exe / _SETUP.1 / frmPropertiesDialog.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-08-14  |  3.2 KB  |  100 lines
  1. VERSION 5.00
  2. Begin VB.Form frmPropertiesDialog 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Displaying the Properties Dialog Box"
  5.    ClientHeight    =   1605
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4815
  9.    Icon            =   "frmPropertiesDialog.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1605
  14.    ScaleWidth      =   4815
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin VB.TextBox txtFileName 
  18.       Height          =   285
  19.       Left            =   480
  20.       TabIndex        =   0
  21.       Text            =   "C:\Autoexec.bat"
  22.       Top             =   120
  23.       Width           =   4215
  24.    End
  25.    Begin VB.CommandButton Command1 
  26.       Caption         =   "&Properties..."
  27.       Default         =   -1  'True
  28.       Height          =   375
  29.       Left            =   3480
  30.       TabIndex        =   1
  31.       Top             =   480
  32.       Width           =   1215
  33.    End
  34.    Begin VB.Label Label3 
  35.       Alignment       =   1  'Right Justify
  36.       AutoSize        =   -1  'True
  37.       Caption         =   "http://www.geocities.com/SiliconValley/Way/6445"
  38.       BeginProperty Font 
  39.          Name            =   "MS Sans Serif"
  40.          Size            =   8.25
  41.          Charset         =   0
  42.          Weight          =   700
  43.          Underline       =   0   'False
  44.          Italic          =   0   'False
  45.          Strikethrough   =   0   'False
  46.       EndProperty
  47.       ForeColor       =   &H00800000&
  48.       Height          =   195
  49.       Left            =   360
  50.       TabIndex        =   4
  51.       Top             =   1320
  52.       Width           =   4365
  53.    End
  54.    Begin VB.Label Label2 
  55.       Alignment       =   1  'Right Justify
  56.       AutoSize        =   -1  'True
  57.       Caption         =   "Written for the VB Center Code Library"
  58.       BeginProperty Font 
  59.          Name            =   "Small Fonts"
  60.          Size            =   6.75
  61.          Charset         =   0
  62.          Weight          =   400
  63.          Underline       =   0   'False
  64.          Italic          =   0   'False
  65.          Strikethrough   =   0   'False
  66.       EndProperty
  67.       Height          =   165
  68.       Left            =   2340
  69.       TabIndex        =   3
  70.       Top             =   1080
  71.       Width           =   2355
  72.    End
  73.    Begin VB.Label Label1 
  74.       AutoSize        =   -1  'True
  75.       Caption         =   "File:"
  76.       Height          =   195
  77.       Left            =   120
  78.       TabIndex        =   2
  79.       Top             =   150
  80.       Width           =   285
  81.    End
  82. Attribute VB_Name = "frmPropertiesDialog"
  83. Attribute VB_GlobalNameSpace = False
  84. Attribute VB_Creatable = False
  85. Attribute VB_PredeclaredId = True
  86. Attribute VB_Exposed = False
  87. Private Sub Command1_Click()
  88.   Dim r As Long
  89.   Dim FileName As String
  90.   ' Get the file name and path from txtFileName
  91.   FileName = (txtFileName)
  92.   ' Show the properties dialog, passing the filename
  93.   ' and the owner of the dialog
  94.   r = ShowProperties(FileName, Me.hwnd)
  95.      
  96.   ' Display an error if the properties dialog could
  97.   ' not be displayed
  98.   If r <= 32 Then MsgBox "Error"
  99. End Sub
  100.