home *** CD-ROM | disk | FTP | other *** search
/ Super Net 1 / SUPERNET_1.iso / PC / OTROS / EXTRAS / WINWAIS / VB / MULTI.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-08-26  |  2.8 KB  |  100 lines
  1. VERSION 2.00
  2. Begin Form multi_form 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Select Type"
  6.    ClientHeight    =   1860
  7.    ClientLeft      =   3255
  8.    ClientTop       =   3195
  9.    ClientWidth     =   2655
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Height          =   2265
  13.    Left            =   3195
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   1860
  18.    ScaleWidth      =   2655
  19.    Top             =   2850
  20.    Width           =   2775
  21.    Begin CommandButton multi_cancel 
  22.       Caption         =   "Cancel"
  23.       Height          =   345
  24.       Left            =   1440
  25.       TabIndex        =   3
  26.       Top             =   1410
  27.       Width           =   825
  28.    End
  29.    Begin CommandButton multi_ok 
  30.       Caption         =   "OK"
  31.       Height          =   345
  32.       Left            =   390
  33.       TabIndex        =   2
  34.       Top             =   1410
  35.       Width           =   825
  36.    End
  37.    Begin SSPanel Panel3D1 
  38.       Align           =   1  'Align Top
  39.       Alignment       =   6  'Center - TOP
  40.       AutoSize        =   3  'AutoSize Child To Panel
  41.       BackColor       =   &H00C0C0C0&
  42.       BevelInner      =   1  'Inset
  43.       Caption         =   "Panel3D1"
  44.       Font3D          =   1  'Raised w/light shading
  45.       ForeColor       =   &H00000000&
  46.       Height          =   1260
  47.       Left            =   0
  48.       TabIndex        =   0
  49.       Top             =   0
  50.       Width           =   2655
  51.       Begin ListBox type_list 
  52.          BackColor       =   &H00FFFFFF&
  53.          FontBold        =   0   'False
  54.          FontItalic      =   0   'False
  55.          FontName        =   "Terminal"
  56.          FontSize        =   9
  57.          FontStrikethru  =   0   'False
  58.          FontUnderline   =   0   'False
  59.          Height          =   1110
  60.          Left            =   75
  61.          Sorted          =   -1  'True
  62.          TabIndex        =   1
  63.          Top             =   75
  64.          Width           =   2505
  65.       End
  66.    End
  67. Sub Form_Activate ()
  68.     For x = 1 To Len(tag)
  69.       c$ = Mid$(tag, x, 1)
  70.       Select Case c$
  71.         Case Chr$(0)
  72.           type_list.AddItem e$
  73.           Exit For
  74.         Case ","
  75.           type_list.AddItem e$
  76.           e$ = ""
  77.         Case Else
  78.           e$ = e$ + UCase$(c$)
  79.       End Select
  80.     Next x
  81.     If e$ <> "" Then
  82.       type_list.AddItem e$
  83.     End If
  84. End Sub
  85. Sub multi_cancel_Click ()
  86.   tag = "CANCEL"
  87.   multi_form.Hide
  88. End Sub
  89. Sub multi_ok_click ()
  90.     If type_list.ListIndex = -1 Then
  91.       MsgBox ("Please select a document type")
  92.       Exit Sub
  93.     End If
  94.     tag = type_list.Text
  95.     multi_form.Hide
  96. End Sub
  97. Sub type_list_DblClick ()
  98.    multi_ok_click
  99. End Sub
  100.