home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / How_to_use175374642004.psc / frmAddDetails.frm < prev    next >
Text File  |  2004-06-04  |  7KB  |  221 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAddDetails 
  3.    BorderStyle     =   1  'Fest Einfach
  4.    Caption         =   "WMEnc"
  5.    ClientHeight    =   5415
  6.    ClientLeft      =   45
  7.    ClientTop       =   435
  8.    ClientWidth     =   6915
  9.    Icon            =   "frmAddDetails.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    ScaleHeight     =   5415
  13.    ScaleWidth      =   6915
  14.    StartUpPosition =   2  'Bildschirmmitte
  15.    Begin VB.CommandButton cmdNext 
  16.       Caption         =   "&Next >"
  17.       Default         =   -1  'True
  18.       Height          =   375
  19.       Left            =   3840
  20.       TabIndex        =   0
  21.       Top             =   4800
  22.       Width           =   1215
  23.    End
  24.    Begin VB.TextBox txtRating 
  25.       Height          =   285
  26.       Left            =   720
  27.       TabIndex        =   6
  28.       Top             =   3840
  29.       Width           =   5295
  30.    End
  31.    Begin VB.TextBox txtDescription 
  32.       Height          =   285
  33.       Left            =   720
  34.       TabIndex        =   5
  35.       Top             =   3240
  36.       Width           =   5295
  37.    End
  38.    Begin VB.TextBox txtCopyrightInfo 
  39.       Height          =   285
  40.       Left            =   720
  41.       TabIndex        =   4
  42.       Top             =   2640
  43.       Width           =   5295
  44.    End
  45.    Begin VB.TextBox txtAuthor 
  46.       Height          =   285
  47.       Left            =   720
  48.       TabIndex        =   3
  49.       Top             =   2040
  50.       Width           =   5295
  51.    End
  52.    Begin VB.TextBox txtTitle 
  53.       Height          =   285
  54.       Left            =   720
  55.       TabIndex        =   2
  56.       Top             =   1440
  57.       Width           =   5295
  58.    End
  59.    Begin VB.CommandButton cmdBack 
  60.       Caption         =   "< &Back"
  61.       Height          =   375
  62.       Left            =   2640
  63.       TabIndex        =   7
  64.       Top             =   4800
  65.       Width           =   1215
  66.    End
  67.    Begin VB.CommandButton cmdCancel 
  68.       Cancel          =   -1  'True
  69.       Caption         =   "&Cancel"
  70.       Height          =   375
  71.       Left            =   5400
  72.       TabIndex        =   1
  73.       Top             =   4800
  74.       Width           =   1215
  75.    End
  76.    Begin VB.Frame fraDummy 
  77.       BackColor       =   &H00FFFFFF&
  78.       ForeColor       =   &H00FFFFFF&
  79.       Height          =   1455
  80.       Left            =   -120
  81.       TabIndex        =   8
  82.       Top             =   -360
  83.       Width           =   7125
  84.       Begin VB.Label lblStep 
  85.          BackStyle       =   0  'Transparent
  86.          Caption         =   "Step 3 : Add your personal Details."
  87.          BeginProperty Font 
  88.             Name            =   "MS Sans Serif"
  89.             Size            =   13.5
  90.             Charset         =   0
  91.             Weight          =   700
  92.             Underline       =   0   'False
  93.             Italic          =   0   'False
  94.             Strikethrough   =   0   'False
  95.          EndProperty
  96.          Height          =   855
  97.          Left            =   360
  98.          TabIndex        =   9
  99.          Top             =   480
  100.          Width           =   3375
  101.       End
  102.       Begin VB.Image imgTopRight 
  103.          Height          =   810
  104.          Left            =   3960
  105.          Picture         =   "frmAddDetails.frx":0CCA
  106.          Top             =   480
  107.          Width           =   2970
  108.       End
  109.    End
  110.    Begin VB.Label lblDummy 
  111.       Alignment       =   2  'Zentriert
  112.       BackStyle       =   0  'Transparent
  113.       Caption         =   "Note : You can leave these empty."
  114.       Height          =   255
  115.       Index           =   5
  116.       Left            =   720
  117.       TabIndex        =   15
  118.       Top             =   4200
  119.       Width           =   5295
  120.    End
  121.    Begin VB.Label lblDummy 
  122.       BackStyle       =   0  'Transparent
  123.       Caption         =   "Rating Information :"
  124.       Height          =   255
  125.       Index           =   4
  126.       Left            =   720
  127.       TabIndex        =   14
  128.       Top             =   3600
  129.       Width           =   3375
  130.    End
  131.    Begin VB.Label lblDummy 
  132.       BackStyle       =   0  'Transparent
  133.       Caption         =   "Description :"
  134.       Height          =   255
  135.       Index           =   3
  136.       Left            =   720
  137.       TabIndex        =   13
  138.       Top             =   3000
  139.       Width           =   3375
  140.    End
  141.    Begin VB.Label lblDummy 
  142.       BackStyle       =   0  'Transparent
  143.       Caption         =   "Copyright Information :"
  144.       Height          =   255
  145.       Index           =   2
  146.       Left            =   720
  147.       TabIndex        =   12
  148.       Top             =   2400
  149.       Width           =   3375
  150.    End
  151.    Begin VB.Label lblDummy 
  152.       BackStyle       =   0  'Transparent
  153.       Caption         =   "Author :"
  154.       Height          =   255
  155.       Index           =   1
  156.       Left            =   720
  157.       TabIndex        =   11
  158.       Top             =   1800
  159.       Width           =   3375
  160.    End
  161.    Begin VB.Label lblDummy 
  162.       BackStyle       =   0  'Transparent
  163.       Caption         =   "Title :"
  164.       Height          =   255
  165.       Index           =   0
  166.       Left            =   720
  167.       TabIndex        =   10
  168.       Top             =   1200
  169.       Width           =   3375
  170.    End
  171.    Begin VB.Line lin3D 
  172.       BorderColor     =   &H00808080&
  173.       Index           =   0
  174.       X1              =   0
  175.       X2              =   6960
  176.       Y1              =   4560
  177.       Y2              =   4560
  178.    End
  179.    Begin VB.Line lin3D 
  180.       BorderColor     =   &H00FFFFFF&
  181.       Index           =   1
  182.       X1              =   0
  183.       X2              =   6960
  184.       Y1              =   4575
  185.       Y2              =   4575
  186.    End
  187. End
  188. Attribute VB_Name = "frmAddDetails"
  189. Attribute VB_GlobalNameSpace = False
  190. Attribute VB_Creatable = False
  191. Attribute VB_PredeclaredId = True
  192. Attribute VB_Exposed = False
  193. Private Sub cmdBack_Click()
  194.     frmSelectProfile.Show
  195.     Me.Hide
  196. End Sub
  197.  
  198. Private Sub cmdCancel_Click()
  199.     Unload Me
  200. End Sub
  201.  
  202. Private Sub cmdNext_Click()
  203.     ContentTitle = txtTitle.Text
  204.     AuthorName = txtAuthor.Text
  205.     CopyrightInformation = txtCopyrightInfo.Text
  206.     Description = txtDescription.Text
  207.     RatingInformation = txtRating.Text
  208.     frmConfirm.Show
  209.     Me.Hide
  210. End Sub
  211.  
  212. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  213.     Dim retVal As Long
  214.     retVal = MsgBox("Do you want to exit ?", vbQuestion + vbYesNo, "Exit ?")
  215.     If retVal = vbYes Then
  216.         CloseProgram
  217.     Else
  218.         Cancel = True
  219.     End If
  220. End Sub
  221.