home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / componen / vsflex / demo / flists.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-08-30  |  6.7 KB  |  223 lines
  1. VERSION 2.00
  2. Begin Form fLists 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "vsFlex Lists"
  6.    ClientHeight    =   5055
  7.    ClientLeft      =   390
  8.    ClientTop       =   1290
  9.    ClientWidth     =   7650
  10.    Height          =   5460
  11.    Left            =   330
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   5055
  14.    ScaleWidth      =   7650
  15.    Top             =   945
  16.    Width           =   7770
  17.    Begin vsFlexArray vsToDo 
  18.       BackColor       =   &H00FFFFFF&
  19.       Cols            =   2
  20.       FixedCols       =   0
  21.       FixedRows       =   0
  22.       FocusRect       =   0  'None
  23.       FontBold        =   0   'False
  24.       FontItalic      =   0   'False
  25.       FontName        =   "MS Sans Serif"
  26.       FontSize        =   8.25
  27.       FontStrikethru  =   0   'False
  28.       FontUnderline   =   0   'False
  29.       ForeColor       =   &H00000000&
  30.       GridColorFixed  =   &H0080FFFF&
  31.       GridLines       =   0  'None
  32.       GridLinesFixed  =   1  'Flat
  33.       Height          =   2280
  34.       Left            =   3735
  35.       RowHeightMin    =   405
  36.       Rows            =   10
  37.       ScrollBars      =   2  'Vertical
  38.       SelectionMode   =   1  'By Row
  39.       TabIndex        =   3
  40.       Top             =   660
  41.       Width           =   3720
  42.    End
  43.    Begin vsFlexArray vsSched 
  44.       BackColor       =   &H00E0FFFF&
  45.       Cols            =   3
  46.       FixedRows       =   0
  47.       FontBold        =   0   'False
  48.       FontItalic      =   0   'False
  49.       FontName        =   "MS Sans Serif"
  50.       FontSize        =   8.25
  51.       FontStrikethru  =   0   'False
  52.       FontUnderline   =   0   'False
  53.       ForeColor       =   &H00000000&
  54.       FormatString    =   "^07:00 AM   |^|^ "
  55.       GridColorFixed  =   &H00C0C0C0&
  56.       Height          =   4290
  57.       Left            =   150
  58.       MergeCells      =   1  'Free
  59.       TabIndex        =   0
  60.       Top             =   660
  61.       Width           =   3330
  62.       WordWrap        =   -1  'True
  63.    End
  64.    Begin Image Image1 
  65.       Height          =   480
  66.       Index           =   2
  67.       Left            =   4980
  68.       Picture         =   FLISTS.FRX:0000
  69.       Top             =   3135
  70.       Visible         =   0   'False
  71.       Width           =   480
  72.    End
  73.    Begin Image Image1 
  74.       Height          =   330
  75.       Index           =   1
  76.       Left            =   4410
  77.       Picture         =   FLISTS.FRX:0302
  78.       Top             =   3195
  79.       Visible         =   0   'False
  80.       Width           =   360
  81.    End
  82.    Begin Image Image1 
  83.       Height          =   330
  84.       Index           =   0
  85.       Left            =   3990
  86.       Picture         =   FLISTS.FRX:0484
  87.       Top             =   3180
  88.       Visible         =   0   'False
  89.       Width           =   360
  90.    End
  91.    Begin Label Label1 
  92.       Alignment       =   2  'Center
  93.       BackColor       =   &H00000000&
  94.       Caption         =   "To do"
  95.       FontBold        =   -1  'True
  96.       FontItalic      =   0   'False
  97.       FontName        =   "Arial"
  98.       FontSize        =   18
  99.       FontStrikethru  =   0   'False
  100.       FontUnderline   =   0   'False
  101.       ForeColor       =   &H0000FF00&
  102.       Height          =   495
  103.       Index           =   1
  104.       Left            =   3720
  105.       TabIndex        =   2
  106.       Top             =   75
  107.       Width           =   3705
  108.    End
  109.    Begin Label Label1 
  110.       Alignment       =   2  'Center
  111.       BackColor       =   &H00000000&
  112.       Caption         =   "Appointments"
  113.       FontBold        =   -1  'True
  114.       FontItalic      =   0   'False
  115.       FontName        =   "Arial"
  116.       FontSize        =   18
  117.       FontStrikethru  =   0   'False
  118.       FontUnderline   =   0   'False
  119.       ForeColor       =   &H0000FF00&
  120.       Height          =   480
  121.       Index           =   0
  122.       Left            =   150
  123.       TabIndex        =   1
  124.       Top             =   60
  125.       Width           =   3345
  126.    End
  127. Option Explicit
  128. Sub DoAppointments ()
  129.    ' enter data for appointments
  130.    Dim i%
  131.    vsSched.Col = 1
  132.    For i = 1 To 3
  133.       vsSched.Row = i
  134.       vsSched = "Breakfast at VideoSoft"
  135.       vsSched.CellBackColor = &H80FFFF    'yellow
  136.    Next i
  137.    vsSched.Col = 1
  138.    For i = 9 To 14
  139.       vsSched.Row = i
  140.       vsSched.CellPictureAlignment = 3
  141.       vsSched.CellPicture = Image1(2)
  142.       vsSched = "Dentist Appointment"
  143.       vsSched.CellBackColor = &HFFFF80  ' blue
  144.    Next i
  145.    vsSched.Col = 2
  146.    For i = 2 To 4
  147.       vsSched.Row = i
  148.       vsSched = "VSFlex Press Release"
  149.       vsSched.CellBackColor = &H80FF80  ' green
  150.    Next i
  151. End Sub
  152. Sub DoInitialSettings ()
  153.    ' schedule FlexArray
  154.    vsSched.ColWidth(1) = 1000
  155.    vsSched.ColWidth(2) = 1000
  156.    vsSched.MergeCol(1) = True
  157.    vsSched.MergeCol(2) = True
  158.    ' todo FlexArray
  159.    vsTodo.ColWidth(0) = 500
  160.    vsTodo.ColWidth(1) = vsTodo.Width - vsTodo.ColWidth(0)
  161. End Sub
  162. Sub DoTimeTitles ()
  163.    vsSched.Rows = 0
  164.    vsSched.AddItem " 07:00 AM"
  165.    vsSched.AddItem " 07:30 AM"
  166.    vsSched.AddItem " 08:00 AM"
  167.    vsSched.AddItem " 08:30 AM"
  168.    vsSched.AddItem " 09:00 AM"
  169.    vsSched.AddItem " 09:30 AM"
  170.    vsSched.AddItem " 10:00 AM"
  171.    vsSched.AddItem " 10:30 AM"
  172.    vsSched.AddItem " 11:00 AM"
  173.    vsSched.AddItem " 11:30 AM"
  174.    vsSched.AddItem " 12:00 PM"
  175.    vsSched.AddItem " 12:30 PM"
  176.    vsSched.AddItem " 01:00 PM"
  177.    vsSched.AddItem " 01:30 PM"
  178.    vsSched.AddItem " 02:00 PM"
  179.    vsSched.AddItem " 02:30 PM"
  180.    vsSched.AddItem " 03:00 PM"
  181.    vsSched.AddItem " 03:30 PM"
  182.    vsSched.AddItem " 04:00 PM"
  183.    vsSched.AddItem " 04:30 PM"
  184.    vsSched.AddItem " 05:00 PM"
  185.    vsSched.AddItem " 05:30 PM"
  186.    vsSched.AddItem " 06:00 PM"
  187.    vsSched.AddItem " 06:30 PM"
  188.    vsSched.AddItem " 07:00 PM"
  189.    vsSched.AddItem " 07:30 PM"
  190.    vsSched.AddItem " 08:00 PM"
  191.    vsSched.AddItem " 08:30 PM"
  192. End Sub
  193. Sub Form_Load ()
  194.    Dim i%
  195.    DoInitialSettings
  196.    DoTimeTitles
  197.    DoAppointments
  198.    vsTodo.Row = 0
  199.    vsTodo.Col = 1
  200.    vsTodo = "Send first draft to printer"
  201.    vsTodo.Col = 0
  202.    vsTodo.CellPicture = Image1(0)
  203.    vsTodo.Row = vsTodo.Row + 1
  204.    vsTodo.Col = 1
  205.    vsTodo = "Remember: Call your wife"
  206.    vsTodo.CellForeColor = RGB(255, 0, 0)
  207.    vsTodo.CellFontBold = True
  208.    vsTodo.Col = 0
  209.    vsTodo.CellPicture = Image1(1)
  210.    vsTodo.Row = vsTodo.Row + 1
  211.    vsTodo.CellFontName = "Arial"
  212.    vsTodo.CellFontSize = "12"
  213.    vsTodo.CellFontItalic = True
  214.    vsTodo.CellFontBold = True
  215.    vsTodo.CellForeColor = RGB(0, 0, 128)
  216.    vsTodo.Col = 1
  217.    vsTodo = "Check tax exemptions"
  218.    vsTodo.Row = vsTodo.Row + 1
  219.    vsTodo = "Open bank account"
  220.    vsTodo.Col = 0
  221.    vsTodo.ColSel = vsTodo.Cols - 1
  222. End Sub
  223.