home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / welcome.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  4.9 KB  |  154 lines
  1. VERSION 4.00
  2. Begin VB.Form frmWelcome 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "#"
  6.    ClientHeight    =   3255
  7.    ClientLeft      =   540
  8.    ClientTop       =   6000
  9.    ClientWidth     =   6435
  10.    ClipControls    =   0   'False
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   0
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    Height          =   3660
  21.    Icon            =   "WELCOME.frx":0000
  22.    Left            =   480
  23.    LinkTopic       =   "Form1"
  24.    LockControls    =   -1  'True
  25.    MaxButton       =   0   'False
  26.    MinButton       =   0   'False
  27.    ScaleHeight     =   3255
  28.    ScaleWidth      =   6435
  29.    Top             =   5655
  30.    Width           =   6555
  31.    Begin VB.CommandButton cmdExit 
  32.       Cancel          =   -1  'True
  33.       Caption         =   "#"
  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          =   420
  44.       Left            =   3705
  45.       TabIndex        =   1
  46.       Top             =   2655
  47.       Width           =   1440
  48.    End
  49.    Begin VB.CommandButton cmdOK 
  50.       Caption         =   "#"
  51.       Default         =   -1  'True
  52.       BeginProperty Font 
  53.          name            =   "MS Sans Serif"
  54.          charset         =   0
  55.          weight          =   400
  56.          size            =   8.25
  57.          underline       =   0   'False
  58.          italic          =   0   'False
  59.          strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   420
  62.       Left            =   1470
  63.       TabIndex        =   0
  64.       Top             =   2655
  65.       Width           =   1440
  66.    End
  67.    Begin VB.Image imgWelcome 
  68.       Height          =   480
  69.       Left            =   630
  70.       Picture         =   "WELCOME.frx":0442
  71.       Top             =   330
  72.       Width           =   480
  73.    End
  74.    Begin VB.Label lblWelcome 
  75.       AutoSize        =   -1  'True
  76.       Caption         =   "*"
  77.       BeginProperty Font 
  78.          name            =   "MS Sans Serif"
  79.          charset         =   0
  80.          weight          =   400
  81.          size            =   8.25
  82.          underline       =   0   'False
  83.          italic          =   0   'False
  84.          strikethrough   =   0   'False
  85.       EndProperty
  86.       Height          =   195
  87.       Left            =   1305
  88.       TabIndex        =   2
  89.       Top             =   330
  90.       Width           =   4800
  91.       WordWrap        =   -1  'True
  92.    End
  93.    Begin VB.Label lblRunning 
  94.       AutoSize        =   -1  'True
  95.       Caption         =   "#"
  96.       BeginProperty Font 
  97.          name            =   "MS Sans Serif"
  98.          charset         =   0
  99.          weight          =   400
  100.          size            =   8.25
  101.          underline       =   0   'False
  102.          italic          =   0   'False
  103.          strikethrough   =   0   'False
  104.       EndProperty
  105.       Height          =   195
  106.       Left            =   435
  107.       TabIndex        =   3
  108.       Top             =   915
  109.       Width           =   5535
  110.       WordWrap        =   -1  'True
  111.    End
  112.    Begin VB.Shape shpWelcome 
  113.       BorderColor     =   &H00000000&
  114.       BorderWidth     =   2
  115.       Height          =   2250
  116.       Left            =   210
  117.       Top             =   135
  118.       Width           =   6015
  119.    End
  120. Attribute VB_Name = "frmWelcome"
  121. Attribute VB_Creatable = False
  122. Attribute VB_Exposed = False
  123. Option Explicit
  124. Option Compare Text
  125. Private Sub cmdExit_Click()
  126.     ExitSetup Me, gintRET_EXIT
  127. End Sub
  128. Private Sub cmdOK_Click()
  129.     Unload Me
  130. End Sub
  131. Private Sub Form_Load()
  132.     Dim intWidth As Integer
  133.     cmdExit.Caption = ResolveResString(resBTNEXIT)
  134.     cmdOK.Caption = ResolveResString(resBTNOK)
  135.     lblRunning.Caption = ResolveResString(resLBLRUNNING)
  136.     Caption = gstrTitle
  137.     intWidth = TextWidth(Caption) + cmdOK.Width * 2
  138.     If intWidth > Width Then
  139.         Width = intWidth
  140.     End If
  141.     lblWelcome.Caption = ResolveResString(resWELCOME, "|1", gstrAppName)
  142.     shpWelcome.Move (ScaleWidth - shpWelcome.Width) \ 2
  143.     cmdOK.Left = (ScaleWidth - cmdOK.Width * 1.5 - cmdExit.Width) \ 2
  144.     cmdExit.Left = cmdOK.Left + cmdOK.Width * 1.5
  145.     EtchedLine Me, shpWelcome.Left - 50, cmdOK.Top - cmdOK.Height \ 2, shpWelcome.Width + 100
  146.     CenterForm Me
  147. End Sub
  148. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  149.     If UnloadMode <> 1 Then
  150.         ExitSetup Me, gintRET_EXIT
  151.         Cancel = 1
  152.     End If
  153. End Sub
  154.