home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / IMDB_tool_2054503182007.psc / frmHistory.frm < prev    next >
Text File  |  2007-02-10  |  2KB  |  80 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmHistory 
  4.    Caption         =   "History"
  5.    ClientHeight    =   5805
  6.    ClientLeft      =   5670
  7.    ClientTop       =   4425
  8.    ClientWidth     =   6810
  9.    BeginProperty Font 
  10.       Name            =   "Tahoma"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Icon            =   "frmHistory.frx":0000
  19.    LinkTopic       =   "Form1"
  20.    MDIChild        =   -1  'True
  21.    ScaleHeight     =   387
  22.    ScaleMode       =   3  'Pixel
  23.    ScaleWidth      =   454
  24.    Begin MSComctlLib.ListView lstHistory 
  25.       Height          =   4395
  26.       Left            =   180
  27.       TabIndex        =   0
  28.       Top             =   480
  29.       Width           =   5595
  30.       _ExtentX        =   9869
  31.       _ExtentY        =   7752
  32.       View            =   3
  33.       LabelEdit       =   1
  34.       LabelWrap       =   -1  'True
  35.       HideSelection   =   -1  'True
  36.       FullRowSelect   =   -1  'True
  37.       _Version        =   393217
  38.       ForeColor       =   -2147483640
  39.       BackColor       =   -2147483643
  40.       BorderStyle     =   1
  41.       Appearance      =   1
  42.       NumItems        =   2
  43.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  44.          Object.Width           =   6615
  45.       EndProperty
  46.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  47.          SubItemIndex    =   1
  48.          Object.Width           =   3440
  49.       EndProperty
  50.    End
  51. End
  52. Attribute VB_Name = "frmHistory"
  53. Attribute VB_GlobalNameSpace = False
  54. Attribute VB_Creatable = False
  55. Attribute VB_PredeclaredId = True
  56. Attribute VB_Exposed = False
  57. Private Sub Form_Load()
  58. lstHistory.ListItems.Clear
  59. Dim aa As ListItem
  60.  
  61. For i = 0 To UBound(History)
  62.     With History(i)
  63.         If Trim(.mTitle) <> "" Then
  64.             Set aa = lstHistory.ListItems.Add(, , .mTitle)
  65.                 aa.Tag = i
  66.                 aa.SubItems(1) = .ttID
  67.         End If
  68.     End With
  69. Next
  70. End Sub
  71.  
  72. Private Sub Form_Resize()
  73. lstHistory.Move 3, 3, Me.ScaleWidth - 3, Me.ScaleHeight - 3
  74. End Sub
  75.  
  76. Private Sub lstHistory_DblClick()
  77. ShowMovieData History(lstHistory.SelectedItem.Tag)
  78.  
  79. End Sub
  80.