home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98a.iso / Wtestowe / SOFTSRC / vtrial15.exe / DATA.1 / PVIEW.FRM < prev    next >
Text File  |  1996-09-01  |  3KB  |  99 lines
  1. VERSION 4.00
  2. Begin VB.Form PViewForm 
  3.    Caption         =   "PView Settings"
  4.    ClientHeight    =   2310
  5.    ClientLeft      =   4680
  6.    ClientTop       =   2280
  7.    ClientWidth     =   6675
  8.    Height          =   2715
  9.    Left            =   4620
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2310
  12.    ScaleWidth      =   6675
  13.    Top             =   1935
  14.    Width           =   6795
  15.    Begin VB.TextBox PViewPath 
  16.       Height          =   375
  17.       Left            =   360
  18.       TabIndex        =   2
  19.       Top             =   1200
  20.       Width           =   6015
  21.    End
  22.    Begin VB.CommandButton CancelCmd 
  23.       Cancel          =   -1  'True
  24.       Caption         =   "Cancel"
  25.       Height          =   375
  26.       Left            =   3840
  27.       TabIndex        =   1
  28.       Top             =   1800
  29.       Width           =   1335
  30.    End
  31.    Begin VB.CommandButton OKCmd 
  32.       Caption         =   "OK"
  33.       Default         =   -1  'True
  34.       Height          =   375
  35.       Left            =   1560
  36.       TabIndex        =   0
  37.       Top             =   1800
  38.       Width           =   1335
  39.    End
  40.    Begin VB.Label Label1 
  41.       Alignment       =   2  'Center
  42.       BackColor       =   &H00808080&
  43.       BorderStyle     =   1  'Fixed Single
  44.       Caption         =   $"PView.frx":0000
  45.       BeginProperty Font 
  46.          name            =   "MS Sans Serif"
  47.          charset         =   0
  48.          weight          =   700
  49.          size            =   9.75
  50.          underline       =   0   'False
  51.          italic          =   0   'False
  52.          strikethrough   =   0   'False
  53.       EndProperty
  54.       ForeColor       =   &H0000FFFF&
  55.       Height          =   855
  56.       Left            =   240
  57.       TabIndex        =   3
  58.       Top             =   120
  59.       Width           =   6255
  60.    End
  61. End
  62. Attribute VB_Name = "PViewForm"
  63. Attribute VB_Creatable = False
  64. Attribute VB_Exposed = False
  65. Option Explicit
  66.  
  67. Private Sub CancelCmd_Click()
  68. '
  69. '
  70. '
  71.     gblPView = False
  72.     PViewForm.Hide
  73. End Sub
  74.  
  75. Private Sub Form_Load()
  76. '
  77. '   init the PView Settings Form
  78. '
  79.     PViewForm.Top = (Screen.Height - PViewForm.Height) / 2
  80.     PViewForm.Left = (Screen.Width - PViewForm.Width) / 2
  81.     
  82.     Dim pPath$
  83.     pPath$ = GetSetting("Vdraft_Test", "Settings", "PView", "D:\MSVC20\BIN\PVIEW.EXE")
  84.     PViewPath.Text = pPath$
  85. End Sub
  86.  
  87. Private Sub OKCmd_Click()
  88. '
  89. '
  90. '
  91.     Dim pPath$
  92.     pPath$ = PViewForm.PViewPath.Text
  93.     SaveSetting "Vdraft_Test", "Settings", "PView", pPath$
  94.     gblPView = True
  95.     PViewForm.Hide
  96. End Sub
  97.  
  98.  
  99.