home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Learn_Basi1768047102004.psc / tutorials / frm_list.frm < prev    next >
Text File  |  2004-07-10  |  10KB  |  318 lines
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "List Box control"
  5.    ClientHeight    =   7215
  6.    ClientLeft      =   45
  7.    ClientTop       =   315
  8.    ClientWidth     =   7845
  9.    LinkTopic       =   "Form3"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   7215
  13.    ScaleWidth      =   7845
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.CommandButton Command1 
  17.       Caption         =   "Exit"
  18.       BeginProperty Font 
  19.          Name            =   "MS Sans Serif"
  20.          Size            =   9.75
  21.          Charset         =   0
  22.          Weight          =   400
  23.          Underline       =   0   'False
  24.          Italic          =   0   'False
  25.          Strikethrough   =   0   'False
  26.       EndProperty
  27.       Height          =   855
  28.       Left            =   1080
  29.       Picture         =   "frm_list.frx":0000
  30.       Style           =   1  'Graphical
  31.       TabIndex        =   13
  32.       Top             =   6240
  33.       Width           =   5415
  34.    End
  35.    Begin VB.Frame Frame3 
  36.       Caption         =   "Choose Your Option"
  37.       BeginProperty Font 
  38.          Name            =   "MS Sans Serif"
  39.          Size            =   9.75
  40.          Charset         =   0
  41.          Weight          =   700
  42.          Underline       =   0   'False
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       ForeColor       =   &H00FF0000&
  47.       Height          =   1455
  48.       Left            =   4560
  49.       TabIndex        =   9
  50.       Top             =   4680
  51.       Width           =   3135
  52.       Begin VB.CommandButton cmd_clr 
  53.          Caption         =   "Clear List"
  54.          BeginProperty Font 
  55.             Name            =   "MS Sans Serif"
  56.             Size            =   9.75
  57.             Charset         =   0
  58.             Weight          =   400
  59.             Underline       =   0   'False
  60.             Italic          =   0   'False
  61.             Strikethrough   =   0   'False
  62.          EndProperty
  63.          Height          =   255
  64.          Left            =   360
  65.          TabIndex        =   12
  66.          Top             =   1080
  67.          Width           =   2415
  68.       End
  69.       Begin VB.CommandButton cmd_rem 
  70.          Caption         =   "Remove Selected Item"
  71.          BeginProperty Font 
  72.             Name            =   "MS Sans Serif"
  73.             Size            =   9.75
  74.             Charset         =   0
  75.             Weight          =   400
  76.             Underline       =   0   'False
  77.             Italic          =   0   'False
  78.             Strikethrough   =   0   'False
  79.          EndProperty
  80.          Height          =   255
  81.          Left            =   360
  82.          TabIndex        =   11
  83.          Top             =   720
  84.          Width           =   2415
  85.       End
  86.       Begin VB.CommandButton cmd_addnew 
  87.          Caption         =   "Add New Element"
  88.          BeginProperty Font 
  89.             Name            =   "MS Sans Serif"
  90.             Size            =   9.75
  91.             Charset         =   0
  92.             Weight          =   400
  93.             Underline       =   0   'False
  94.             Italic          =   0   'False
  95.             Strikethrough   =   0   'False
  96.          EndProperty
  97.          Height          =   255
  98.          Left            =   360
  99.          TabIndex        =   10
  100.          Top             =   360
  101.          Width           =   2415
  102.       End
  103.    End
  104.    Begin VB.Frame Frame2 
  105.       Caption         =   "Choose Your Option"
  106.       BeginProperty Font 
  107.          Name            =   "MS Sans Serif"
  108.          Size            =   9.75
  109.          Charset         =   0
  110.          Weight          =   700
  111.          Underline       =   0   'False
  112.          Italic          =   0   'False
  113.          Strikethrough   =   0   'False
  114.       EndProperty
  115.       ForeColor       =   &H00FF0000&
  116.       Height          =   1455
  117.       Left            =   120
  118.       TabIndex        =   5
  119.       Top             =   4680
  120.       Width           =   3015
  121.       Begin VB.CommandButton cmd_clear 
  122.          Caption         =   "Clear List"
  123.          BeginProperty Font 
  124.             Name            =   "MS Sans Serif"
  125.             Size            =   9.75
  126.             Charset         =   0
  127.             Weight          =   400
  128.             Underline       =   0   'False
  129.             Italic          =   0   'False
  130.             Strikethrough   =   0   'False
  131.          EndProperty
  132.          Height          =   255
  133.          Left            =   120
  134.          TabIndex        =   8
  135.          Top             =   1080
  136.          Width           =   2535
  137.       End
  138.       Begin VB.CommandButton cmd_add 
  139.          Caption         =   "Add New Element"
  140.          BeginProperty Font 
  141.             Name            =   "MS Sans Serif"
  142.             Size            =   9.75
  143.             Charset         =   0
  144.             Weight          =   400
  145.             Underline       =   0   'False
  146.             Italic          =   0   'False
  147.             Strikethrough   =   0   'False
  148.          EndProperty
  149.          Height          =   255
  150.          Left            =   120
  151.          TabIndex        =   7
  152.          Top             =   360
  153.          Width           =   2535
  154.       End
  155.       Begin VB.CommandButton cmd_Remove 
  156.          Caption         =   "Remove selected Item"
  157.          BeginProperty Font 
  158.             Name            =   "MS Sans Serif"
  159.             Size            =   9.75
  160.             Charset         =   0
  161.             Weight          =   400
  162.             Underline       =   0   'False
  163.             Italic          =   0   'False
  164.             Strikethrough   =   0   'False
  165.          EndProperty
  166.          Height          =   255
  167.          Left            =   120
  168.          TabIndex        =   6
  169.          Top             =   720
  170.          Width           =   2535
  171.       End
  172.    End
  173.    Begin VB.Frame Frame1 
  174.       Caption         =   "List Demo"
  175.       Height          =   4455
  176.       Left            =   120
  177.       TabIndex        =   0
  178.       Top             =   120
  179.       Width           =   7575
  180.       Begin VB.CommandButton cmd_trans 
  181.          Caption         =   "<"
  182.          BeginProperty Font 
  183.             Name            =   "MS Sans Serif"
  184.             Size            =   9.75
  185.             Charset         =   0
  186.             Weight          =   700
  187.             Underline       =   0   'False
  188.             Italic          =   0   'False
  189.             Strikethrough   =   0   'False
  190.          EndProperty
  191.          Height          =   375
  192.          Left            =   3360
  193.          TabIndex        =   4
  194.          Top             =   2280
  195.          Width           =   855
  196.       End
  197.       Begin VB.CommandButton cmd_transfer 
  198.          Caption         =   ">"
  199.          BeginProperty Font 
  200.             Name            =   "MS Sans Serif"
  201.             Size            =   9.75
  202.             Charset         =   0
  203.             Weight          =   700
  204.             Underline       =   0   'False
  205.             Italic          =   0   'False
  206.             Strikethrough   =   0   'False
  207.          EndProperty
  208.          Height          =   375
  209.          Left            =   3360
  210.          TabIndex        =   3
  211.          Top             =   1680
  212.          Width           =   855
  213.       End
  214.       Begin VB.ListBox List2 
  215.          BeginProperty Font 
  216.             Name            =   "MS Sans Serif"
  217.             Size            =   9.75
  218.             Charset         =   0
  219.             Weight          =   400
  220.             Underline       =   0   'False
  221.             Italic          =   0   'False
  222.             Strikethrough   =   0   'False
  223.          EndProperty
  224.          Height          =   3420
  225.          Left            =   4440
  226.          Sorted          =   -1  'True
  227.          TabIndex        =   2
  228.          Top             =   600
  229.          Width           =   2895
  230.       End
  231.       Begin VB.ListBox List1 
  232.          BeginProperty Font 
  233.             Name            =   "MS Sans Serif"
  234.             Size            =   9.75
  235.             Charset         =   0
  236.             Weight          =   400
  237.             Underline       =   0   'False
  238.             Italic          =   0   'False
  239.             Strikethrough   =   0   'False
  240.          EndProperty
  241.          Height          =   3420
  242.          Left            =   120
  243.          Sorted          =   -1  'True
  244.          TabIndex        =   1
  245.          Top             =   600
  246.          Width           =   2895
  247.       End
  248.    End
  249. End
  250. Attribute VB_Name = "Form3"
  251. Attribute VB_GlobalNameSpace = False
  252. Attribute VB_Creatable = False
  253. Attribute VB_PredeclaredId = True
  254. Attribute VB_Exposed = False
  255.  
  256.  
  257. Private Sub cmd_add_Click()
  258. Dim strinput As String
  259. strinput = InputBox("Enter Item To Add to List :", "Add")
  260. List1.AddItem strinput
  261. End Sub
  262.  
  263. Private Sub cmd_addnew_Click()
  264. 'For adding the new item in listbox2
  265. Dim strinput As String
  266. strinput = InputBox("Enter Item To Add to List :", "Add")
  267. List2.AddItem strinput
  268. End Sub
  269.  
  270. Private Sub cmd_clear_Click()
  271. 'The clear method clears the entire list box.
  272. List1.Clear
  273. End Sub
  274.  
  275. Private Sub cmd_clr_Click()
  276. 'clear the items of list2
  277. List2.Clear
  278. End Sub
  279.  
  280. Private Sub cmd_rem_Click()
  281. If List2.ListIndex >= 0 Then
  282. List2.RemoveItem List2.ListIndex
  283. Else
  284. MsgBox "Select Item for remove", vbInformation, "Error"
  285. End If
  286. End Sub
  287.  
  288. Private Sub cmd_Remove_Click()
  289. 'The removeitem property removes the item
  290. 'from the listbox which is particularly selected.If no item
  291. ' is being selected an error occured
  292. If List1.ListIndex >= 0 Then
  293. List1.RemoveItem List1.ListIndex
  294. Else
  295.     MsgBox "Select Item for remove", vbInformation, "Error"
  296. End If
  297. End Sub
  298.  
  299.  
  300. Private Sub cmd_trans_Click()
  301. If List2.ListIndex >= 0 Then
  302. List1.AddItem List2.Text
  303. List2.RemoveItem List2.ListIndex
  304. End If
  305. End Sub
  306.  
  307. Private Sub cmd_transfer_Click()
  308. If List1.ListIndex >= 0 Then
  309. List2.AddItem List1.Text
  310. List1.RemoveItem List1.ListIndex
  311. End If
  312. End Sub
  313.  
  314. Private Sub Command1_Click()
  315. Unload Me
  316. Form2.Show
  317. End Sub
  318.