home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / vrac / mlist460.zip / VIRTUAL.FRM < prev    next >
Text File  |  1994-02-27  |  3KB  |  115 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   5052
  5.    ClientLeft      =   1368
  6.    ClientTop       =   1644
  7.    ClientWidth     =   5724
  8.    Height          =   5472
  9.    Left            =   1320
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5052
  12.    ScaleWidth      =   5724
  13.    Top             =   1272
  14.    Width           =   5820
  15.    Begin MListBox MList1 
  16.       Alignment       =   0  'None
  17.       AllowFocusRect  =   -1  'True
  18.       BorderStyle     =   0  'Normal
  19.       CheckColor      =   &H00000000&
  20.       CheckStyle      =   1  'Check Mark
  21.       DrawRegions     =   2
  22.       EnableVirtualMsgs=   -1  'True
  23.       ExtendedSelect  =   0   'False
  24.       FallColor       =   &H00808080&
  25.       FindDirection   =   0  'Forward
  26.       GridColor       =   &H00000000&
  27.       GridStyle       =   0  'Solid
  28.       Height          =   4524
  29.       HiliteBackColor =   &H00000000&
  30.       HiliteForeColor =   &H00000000&
  31.       HorizontalGrids =   0   'False
  32.       ImageRegion     =   1
  33.       ImageType       =   0  'None
  34.       ItemHeight      =   300
  35.       ItemWidth       =   1560
  36.       Left            =   144
  37.       MaskingColor    =   &H00FFFFFF&
  38.       MultiColumn     =   0   'False
  39.       MultiSelect     =   0   'False
  40.       RiseColor       =   &H00FFFFFF&
  41.       Sorted          =   0   'False
  42.       TabIndex        =   0
  43.       Top             =   144
  44.       Version         =   "04.20"
  45.       VerticalGrids   =   0   'False
  46.       VirtualMsgZone  =   10
  47.       Width           =   5148
  48.    End
  49. End
  50.  
  51. Sub Form_Load ()
  52.  
  53.   Dim X As Integer
  54.  
  55.   For X = 0 To 9
  56.     MList1.AddItem "Section1"
  57.   Next X
  58.  
  59.   For X = 0 To 5
  60.     MList1.AddItem "This is a test string"
  61.     MList1.AddItem "This is a test string II"
  62.     MList1.AddItem "This is a test string III"
  63.     MList1.AddItem "This is a test string III"
  64.   Next X
  65.  
  66. End Sub
  67.  
  68. Sub MList1_VirtualMessage (Message As Integer)
  69.  
  70.   If Message = 1 Or Message = 3 Then
  71.     Dim I As Integer
  72.     Dim Index As Integer
  73.     Dim TopIndex As Integer
  74.  
  75.     If MList1.List(0) = "Section1" Then
  76.       
  77.       Index = MList1.ListIndex
  78.       TopIndex = MList1.TopIndex
  79.  
  80.       For I = 0 To 9
  81.         MList1.AddItem "Section II"
  82.       Next I
  83.       
  84.       For I = 0 To 9
  85.         MList1.RemoveItem 0
  86.       Next I
  87.  
  88.       MList1.TopIndex = TopIndex - 10
  89.       MList1.ListIndex = Index - 10
  90.  
  91.     End If
  92.   Else
  93.     
  94.     If MList1.List(0) <> "Section1" Then
  95.       
  96.       Index = MList1.ListIndex
  97.       TopIndex = MList1.TopIndex
  98.  
  99.       For I = 0 To 9
  100.         MList1.AddItem "Section1", 0
  101.       Next I
  102.       
  103.       For I = 0 To 9
  104.         MList1.RemoveItem MList1.ListCount - 1
  105.       Next I
  106.  
  107.       MList1.TopIndex = TopIndex + 10
  108.       MList1.ListIndex = Index + 10
  109.     
  110.     End If
  111.   End If
  112.  
  113. End Sub
  114.  
  115.