home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / HelpACoder45984132002.psc / Form3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-01-04  |  5.0 KB  |  165 lines
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    Caption         =   "Upload Your Project"
  4.    ClientHeight    =   3780
  5.    ClientLeft      =   4005
  6.    ClientTop       =   4320
  7.    ClientWidth     =   7395
  8.    LinkTopic       =   "Form3"
  9.    ScaleHeight     =   3780
  10.    ScaleWidth      =   7395
  11.    Begin VB.Frame Frame1 
  12.       Caption         =   "Upload"
  13.       Height          =   3735
  14.       Left            =   0
  15.       TabIndex        =   7
  16.       Top             =   0
  17.       Width           =   7335
  18.       Begin VB.Frame Frame7 
  19.          Caption         =   "Download Url"
  20.          Height          =   615
  21.          Left            =   120
  22.          TabIndex        =   13
  23.          Top             =   1680
  24.          Width           =   3495
  25.          Begin VB.TextBox Url 
  26.             Height          =   285
  27.             Left            =   120
  28.             TabIndex        =   2
  29.             Top             =   240
  30.             Width           =   3255
  31.          End
  32.       End
  33.       Begin VB.Frame Frame4 
  34.          Caption         =   "E-mail"
  35.          Height          =   615
  36.          Left            =   120
  37.          TabIndex        =   12
  38.          Top             =   960
  39.          Width           =   3495
  40.          Begin VB.TextBox Email 
  41.             Height          =   285
  42.             Left            =   120
  43.             TabIndex        =   1
  44.             Top             =   240
  45.             Width           =   3255
  46.          End
  47.       End
  48.       Begin VB.CommandButton Command1 
  49.          Caption         =   "Upload"
  50.          Height          =   495
  51.          Left            =   120
  52.          TabIndex        =   6
  53.          Top             =   3120
  54.          Width           =   3495
  55.       End
  56.       Begin VB.Frame Frame6 
  57.          Caption         =   "Type Of Upload"
  58.          Height          =   615
  59.          Left            =   120
  60.          TabIndex        =   11
  61.          Top             =   2400
  62.          Width           =   3495
  63.          Begin VB.ComboBox Types 
  64.             Height          =   315
  65.             ItemData        =   "Form3.frx":0000
  66.             Left            =   120
  67.             List            =   "Form3.frx":0002
  68.             TabIndex        =   3
  69.             Text            =   "Source"
  70.             Top             =   240
  71.             Width           =   3255
  72.          End
  73.       End
  74.       Begin VB.Frame Frame5 
  75.          Caption         =   "Extra Info:"
  76.          Height          =   2655
  77.          Left            =   3720
  78.          TabIndex        =   10
  79.          Top             =   960
  80.          Width           =   3495
  81.          Begin VB.TextBox Info 
  82.             Height          =   2325
  83.             Left            =   120
  84.             MultiLine       =   -1  'True
  85.             ScrollBars      =   2  'Vertical
  86.             TabIndex        =   5
  87.             Top             =   240
  88.             Width           =   3255
  89.          End
  90.       End
  91.       Begin VB.Frame Frame3 
  92.          Caption         =   "Project Name:"
  93.          Height          =   615
  94.          Left            =   3720
  95.          TabIndex        =   9
  96.          Top             =   240
  97.          Width           =   3495
  98.          Begin VB.TextBox fProject 
  99.             Height          =   285
  100.             Left            =   120
  101.             MaxLength       =   25
  102.             TabIndex        =   4
  103.             Top             =   240
  104.             Width           =   3255
  105.          End
  106.       End
  107.       Begin VB.Frame Frame2 
  108.          Caption         =   "Your Name:"
  109.          Height          =   615
  110.          Left            =   120
  111.          TabIndex        =   8
  112.          Top             =   240
  113.          Width           =   3495
  114.          Begin VB.TextBox Yname 
  115.             Height          =   285
  116.             Left            =   120
  117.             MaxLength       =   20
  118.             TabIndex        =   0
  119.             Top             =   240
  120.             Width           =   3255
  121.          End
  122.       End
  123.    End
  124. Attribute VB_Name = "Form3"
  125. Attribute VB_GlobalNameSpace = False
  126. Attribute VB_Creatable = False
  127. Attribute VB_PredeclaredId = True
  128. Attribute VB_Exposed = False
  129. Private Sub Command1_Click()
  130. 'check for any blank info
  131.     If Info = "" Then Info = "No Information Provided"
  132.     If Yname = "" Or Email = "" Or Url = "" _
  133.     Or fProject = "" Then
  134.     MsgBox "All boxes must be filled in", vbInformation, "Error"
  135.     Exit Sub
  136.     End If
  137.     '
  138. 'If type is made up dont upload
  139.     If Types.Text = "Source" Or Types.Text = "Help Me" _
  140.     Or Types.Text = "Freeware" Then
  141.     Else
  142.     MsgBox "You must select a type from the list given", vbInformation, "Error"
  143.     Exit Sub
  144.     End If
  145.     '
  146. 'Build File
  147.     'You can use .text at the end of those but
  148.     'i didnt want it to take up to many lines
  149.     txt = Yname & "
  150. " & fProject & "
  151. " & Email & "
  152.     & Types.Text & "
  153. " & Info & "
  154. " & Url
  155.     '
  156. 'Have it make and send file
  157.     MakeFile (txt)
  158.     '
  159. End Sub
  160. Private Sub Form_Load()
  161. Types.AddItem "Source"
  162. Types.AddItem "Help Me"
  163. Types.AddItem "Freeware"
  164. End Sub
  165.