home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / truegrid / disk1 / vsdemo / vsdemo.$ / FNOTEBOO.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-01-19  |  17.6 KB  |  445 lines
  1. VERSION 2.00
  2. Begin Form fnotebook 
  3.    Caption         =   "VSVBX NoteBook"
  4.    ClientHeight    =   6405
  5.    ClientLeft      =   1080
  6.    ClientTop       =   510
  7.    ClientWidth     =   8055
  8.    FontBold        =   0   'False
  9.    FontItalic      =   0   'False
  10.    FontName        =   "MS Sans Serif"
  11.    FontSize        =   8.25
  12.    FontStrikethru  =   0   'False
  13.    FontUnderline   =   0   'False
  14.    ForeColor       =   &H00FFFFFF&
  15.    Height          =   6870
  16.    Left            =   990
  17.    LinkTopic       =   "Form2"
  18.    ScaleHeight     =   6405
  19.    ScaleWidth      =   8055
  20.    Top             =   135
  21.    Width           =   8235
  22.    Begin VideoSoftElastic VSElastic1 
  23.       Align           =   5  'Fill Container
  24.       AutoSizeChildren=   7  'Proportional (Locks Controls)
  25.       BackColor       =   &H00808080&
  26.       BevelInner      =   0  'None
  27.       BevelOuter      =   1  'Raised
  28.       BevelOuterWidth =   0
  29.       BorderWidth     =   20
  30.       ConvInfo        =   FNOTEBOO.FRX:0000
  31.       Height          =   6405
  32.       IntBkg          =   &H00808080&
  33.       Left            =   0
  34.       TabIndex        =   0
  35.       Top             =   0
  36.       Width           =   8055
  37.       Begin VideoSoftIndexTab TabRight 
  38.          BackColor       =   &H00808080&
  39.          BackSheets      =   0  'None
  40.          BoldCurrent     =   0   'False
  41.          BorderWidth     =   20
  42.          Caption         =   "1|2|3|4"
  43.          ConvInfo        =   FNOTEBOO.FRX:000B
  44.          FontBold        =   -1  'True
  45.          FontItalic      =   0   'False
  46.          FontName        =   "Arial"
  47.          FontSize        =   12
  48.          FontStrikethru  =   0   'False
  49.          FontUnderline   =   0   'False
  50.          ForeColor       =   &H00FFFFFF&
  51.          FrontTabColor   =   &H00C0C0C0&
  52.          FrontTabForeColor=   &H00FFFFFF&
  53.          Height          =   5790
  54.          Left            =   840
  55.          MultiRow        =   -1  'True
  56.          Position        =   4  'Right face in
  57.          ShowFocusRect   =   0   'False
  58.          Style           =   3  'Rounded 3D
  59.          TabHeight       =   500
  60.          TabIndex        =   1
  61.          TabsPerPage     =   4
  62.          Top             =   315
  63.          Width           =   6810
  64.          Begin VideoSoftElastic VSElastic2 
  65.             AutoSizeChildren=   4  'Uneven Vertical
  66.             BevelChildren   =   2  'No Elastics
  67.             BevelOuter      =   8  'Raised New Look
  68.             BorderWidth     =   12
  69.             ConvInfo        =   FNOTEBOO.FRX:0016
  70.             Height          =   5100
  71.             Index           =   3
  72.             IntBkg          =   &H00C0C0C0&
  73.             Left            =   12795
  74.             PicturePos      =   9  'Stretch
  75.             QuickPaint      =   -1  'True
  76.             TabIndex        =   15
  77.             Top             =   345
  78.             Width           =   5625
  79.             Begin VideoSoftElastic VSElastic3 
  80.                AutoSizeChildren=   1  'Even Horizontal
  81.                BevelInner      =   9  'Inset New Look
  82.                BevelOuter      =   8  'Raised New Look
  83.                BorderWidth     =   26
  84.                ConvInfo        =   FNOTEBOO.FRX:0021
  85.                Height          =   3675
  86.                Index           =   3
  87.                IntBkg          =   &H00C0C0C0&
  88.                Left            =   180
  89.                TabIndex        =   17
  90.                Top             =   1245
  91.                Width           =   5265
  92.                Begin TextBox Text1 
  93.                   BorderStyle     =   0  'None
  94.                   FontBold        =   0   'False
  95.                   FontItalic      =   0   'False
  96.                   FontName        =   "MS Sans Serif"
  97.                   FontSize        =   8.25
  98.                   FontStrikethru  =   0   'False
  99.                   FontUnderline   =   0   'False
  100.                   Height          =   2895
  101.                   Left            =   390
  102.                   MultiLine       =   -1  'True
  103.                   TabIndex        =   18
  104.                   Text            =   "Enter your notes here....."
  105.                   Top             =   390
  106.                   Width           =   4485
  107.                End
  108.             End
  109.             Begin VideoSoftElastic vseDate 
  110.                BevelInner      =   0  'None
  111.                BevelOuter      =   8  'Raised New Look
  112.                BorderWidth     =   20
  113.                Caption         =   "Notes"
  114.                CaptionPos      =   4  'Center Center
  115.                CaptionStyle    =   1  'Raised
  116.                ChildSpacing    =   0
  117.                ConvInfo        =   FNOTEBOO.FRX:002C
  118.                FontBold        =   -1  'True
  119.                FontItalic      =   -1  'True
  120.                FontName        =   "Arial"
  121.                FontSize        =   18
  122.                FontStrikethru  =   0   'False
  123.                FontUnderline   =   0   'False
  124.                ForeColor       =   &H00000080&
  125.                Height          =   975
  126.                Index           =   3
  127.                IntBkg          =   &H00C0C0C0&
  128.                Left            =   180
  129.                Picture         =   FNOTEBOO.FRX:0037
  130.                PicturePos      =   1  'Left Center
  131.                TabIndex        =   16
  132.                Top             =   180
  133.                Width           =   5265
  134.             End
  135.          End
  136.          Begin VideoSoftElastic VSElastic2 
  137.             AutoSizeChildren=   4  'Uneven Vertical
  138.             BevelChildren   =   2  'No Elastics
  139.             BevelOuter      =   8  'Raised New Look
  140.             BorderWidth     =   12
  141.             ConvInfo        =   FNOTEBOO.FRX:0339
  142.             Height          =   5100
  143.             Index           =   2
  144.             IntBkg          =   &H00C0C0C0&
  145.             Left            =   12720
  146.             PicturePos      =   9  'Stretch
  147.             QuickPaint      =   -1  'True
  148.             TabIndex        =   11
  149.             Top             =   345
  150.             Width           =   5625
  151.             Begin VideoSoftElastic vseDate 
  152.                BevelInner      =   0  'None
  153.                BevelOuter      =   8  'Raised New Look
  154.                BorderWidth     =   20
  155.                Caption         =   "Calendar"
  156.                CaptionPos      =   4  'Center Center
  157.                CaptionStyle    =   1  'Raised
  158.                ChildSpacing    =   0
  159.                ConvInfo        =   FNOTEBOO.FRX:0344
  160.                FontBold        =   -1  'True
  161.                FontItalic      =   -1  'True
  162.                FontName        =   "Arial"
  163.                FontSize        =   18
  164.                FontStrikethru  =   0   'False
  165.                FontUnderline   =   0   'False
  166.                ForeColor       =   &H00808000&
  167.                Height          =   975
  168.                Index           =   2
  169.                IntBkg          =   &H00C0C0C0&
  170.                Left            =   180
  171.                Picture         =   FNOTEBOO.FRX:034F
  172.                PicturePos      =   1  'Left Center
  173.                TabIndex        =   14
  174.                Top             =   180
  175.                Width           =   5265
  176.             End
  177.             Begin VideoSoftElastic VSElastic3 
  178.                AutoSizeChildren=   1  'Even Horizontal
  179.                BevelOuter      =   8  'Raised New Look
  180.                BorderWidth     =   12
  181.                ConvInfo        =   FNOTEBOO.FRX:0651
  182.                Height          =   3675
  183.                Index           =   2
  184.                IntBkg          =   &H00C0C0C0&
  185.                Left            =   180
  186.                TabIndex        =   12
  187.                Top             =   1245
  188.                Width           =   5265
  189.                Begin ListBox List1 
  190.                   FontBold        =   0   'False
  191.                   FontItalic      =   0   'False
  192.                   FontName        =   "MS Sans Serif"
  193.                   FontSize        =   9.75
  194.                   FontStrikethru  =   0   'False
  195.                   FontUnderline   =   0   'False
  196.                   Height          =   3150
  197.                   Index           =   2
  198.                   Left            =   180
  199.                   TabIndex        =   13
  200.                   Top             =   180
  201.                   Width           =   4905
  202.                End
  203.             End
  204.          End
  205.          Begin VideoSoftElastic VSElastic2 
  206.             AutoSizeChildren=   4  'Uneven Vertical
  207.             BevelChildren   =   2  'No Elastics
  208.             BevelOuter      =   8  'Raised New Look
  209.             BorderWidth     =   12
  210.             ConvInfo        =   FNOTEBOO.FRX:065C
  211.             Height          =   5100
  212.             Index           =   1
  213.             IntBkg          =   &H00C0C0C0&
  214.             Left            =   12645
  215.             PicturePos      =   9  'Stretch
  216.             QuickPaint      =   -1  'True
  217.             TabIndex        =   7
  218.             Top             =   345
  219.             Width           =   5625
  220.             Begin VideoSoftElastic VSElastic3 
  221.                AutoSizeChildren=   1  'Even Horizontal
  222.                BevelOuter      =   8  'Raised New Look
  223.                BorderWidth     =   12
  224.                ConvInfo        =   FNOTEBOO.FRX:0667
  225.                Height          =   3675
  226.                Index           =   1
  227.                IntBkg          =   &H00C0C0C0&
  228.                Left            =   180
  229.                TabIndex        =   8
  230.                Top             =   1245
  231.                Width           =   5265
  232.                Begin ListBox List1 
  233.                   FontBold        =   0   'False
  234.                   FontItalic      =   0   'False
  235.                   FontName        =   "MS Sans Serif"
  236.                   FontSize        =   9.75
  237.                   FontStrikethru  =   0   'False
  238.                   FontUnderline   =   0   'False
  239.                   Height          =   3150
  240.                   Index           =   1
  241.                   Left            =   180
  242.                   TabIndex        =   9
  243.                   Top             =   180
  244.                   Width           =   4905
  245.                End
  246.             End
  247.             Begin VideoSoftElastic vseDate 
  248.                BevelInner      =   0  'None
  249.                BevelOuter      =   8  'Raised New Look
  250.                BorderWidth     =   20
  251.                Caption         =   "Telephones"
  252.                CaptionPos      =   4  'Center Center
  253.                CaptionStyle    =   1  'Raised
  254.                ChildSpacing    =   0
  255.                ConvInfo        =   FNOTEBOO.FRX:0672
  256.                FontBold        =   -1  'True
  257.                FontItalic      =   -1  'True
  258.                FontName        =   "Arial"
  259.                FontSize        =   18
  260.                FontStrikethru  =   0   'False
  261.                FontUnderline   =   0   'False
  262.                ForeColor       =   &H00008000&
  263.                Height          =   975
  264.                Index           =   1
  265.                IntBkg          =   &H00C0C0C0&
  266.                Left            =   180
  267.                Picture         =   FNOTEBOO.FRX:067D
  268.                PicturePos      =   1  'Left Center
  269.                TabIndex        =   10
  270.                Top             =   180
  271.                Width           =   5265
  272.             End
  273.          End
  274.          Begin VideoSoftElastic VSElastic2 
  275.             AutoSizeChildren=   4  'Uneven Vertical
  276.             BevelChildren   =   2  'No Elastics
  277.             BevelOuter      =   8  'Raised New Look
  278.             BorderWidth     =   12
  279.             ConvInfo        =   FNOTEBOO.FRX:097F
  280.             Height          =   5100
  281.             Index           =   0
  282.             IntBkg          =   &H00C0C0C0&
  283.             Left            =   345
  284.             PicturePos      =   9  'Stretch
  285.             QuickPaint      =   -1  'True
  286.             TabIndex        =   3
  287.             Top             =   345
  288.             Width           =   5625
  289.             Begin VideoSoftElastic VSElastic3 
  290.                AutoSizeChildren=   1  'Even Horizontal
  291.                BevelOuter      =   8  'Raised New Look
  292.                BorderWidth     =   12
  293.                ConvInfo        =   FNOTEBOO.FRX:098A
  294.                Height          =   3675
  295.                Index           =   0
  296.                IntBkg          =   &H00C0C0C0&
  297.                Left            =   180
  298.                TabIndex        =   5
  299.                Top             =   1245
  300.                Width           =   5265
  301.                Begin ListBox List1 
  302.                   FontBold        =   0   'False
  303.                   FontItalic      =   0   'False
  304.                   FontName        =   "MS Sans Serif"
  305.                   FontSize        =   9.75
  306.                   FontStrikethru  =   0   'False
  307.                   FontUnderline   =   0   'False
  308.                   Height          =   3150
  309.                   Index           =   0
  310.                   Left            =   180
  311.                   TabIndex        =   6
  312.                   Top             =   180
  313.                   Width           =   4905
  314.                End
  315.             End
  316.             Begin VideoSoftElastic vseDate 
  317.                BevelInner      =   0  'None
  318.                BevelOuter      =   8  'Raised New Look
  319.                BorderWidth     =   20
  320.                Caption         =   "Today's Date"
  321.                CaptionPos      =   4  'Center Center
  322.                CaptionStyle    =   1  'Raised
  323.                ChildSpacing    =   0
  324.                ConvInfo        =   FNOTEBOO.FRX:0995
  325.                FontBold        =   -1  'True
  326.                FontItalic      =   -1  'True
  327.                FontName        =   "Arial"
  328.                FontSize        =   18
  329.                FontStrikethru  =   0   'False
  330.                FontUnderline   =   0   'False
  331.                ForeColor       =   &H00800000&
  332.                Height          =   975
  333.                Index           =   0
  334.                IntBkg          =   &H00C0C0C0&
  335.                Left            =   180
  336.                Picture         =   FNOTEBOO.FRX:09A0
  337.                PicturePos      =   1  'Left Center
  338.                TabIndex        =   4
  339.                Top             =   180
  340.                Width           =   5265
  341.             End
  342.          End
  343.       End
  344.       Begin VideoSoftIndexTab TabsLeft 
  345.          BackColor       =   &H00808080&
  346.          BackSheets      =   0  'None
  347.          BoldCurrent     =   0   'False
  348.          Caption         =   "-|-|-|-"
  349.          ConvInfo        =   FNOTEBOO.FRX:0CA2
  350.          CurrTab         =   -1
  351.          FontBold        =   -1  'True
  352.          FontItalic      =   0   'False
  353.          FontName        =   "Arial"
  354.          FontSize        =   12
  355.          FontStrikethru  =   0   'False
  356.          FontUnderline   =   0   'False
  357.          ForeColor       =   &H00FFFFFF&
  358.          FrontTabColor   =   &H00C0C0C0&
  359.          FrontTabForeColor=   &H00FFFFFF&
  360.          Height          =   5805
  361.          Left            =   420
  362.          MultiRow        =   -1  'True
  363.          Position        =   2  'Left
  364.          ShowFocusRect   =   0   'False
  365.          Style           =   3  'Rounded 3D
  366.          TabHeight       =   500
  367.          TabIndex        =   2
  368.          TabsPerPage     =   4
  369.          Top             =   315
  370.          Width           =   3690
  371.       End
  372.    End
  373.    Begin Image Image1 
  374.       Height          =   960
  375.       Left            =   210
  376.       Picture         =   FNOTEBOO.FRX:0CAD
  377.       Stretch         =   -1  'True
  378.       Top             =   3675
  379.       Width           =   540
  380.    End
  381. Option Explicit
  382. Dim TABSTEXT(10)
  383. Sub CloseChapter (Chapter)
  384.   Dim i%
  385.   If TabsLeft.CurrTab = -1 Then Exit Sub
  386.   TabRight.CurrTab = Chapter
  387.   For i = Chapter To TabsLeft.NumTabs
  388.     TabsLeft.TabCaption(i) = "-"
  389.     TabRight.TabCaption(i) = TABSTEXT(i)
  390.   Next i
  391.   TabsLeft.CurrTab = -1
  392. End Sub
  393. Sub Form_Load ()
  394.   TABSTEXT(0) = "Appts."
  395.   TABSTEXT(1) = "Phone"
  396.   TABSTEXT(2) = "Calendar"
  397.   TABSTEXT(3) = "Notes"
  398.   vseDate(0) = Format$(Now, "dddd, dd")
  399.   List1(0).AddItem "09:00 - 10:00  Breakfast"
  400.   List1(0).AddItem "10:00 - 11:00  Test VideoSoft products"
  401.   List1(0).AddItem "11:00 - 12:00  Purchase VideoSoft products"
  402.   List1(0).AddItem "12:00 - 07:00  Have fun with VideoSoft products"
  403.   List1(0).AddItem "07:00 - 08:00  Dinner"
  404.   List1(0).AddItem "09:00 - 12:00  Have more fun with VideoSoft products"
  405.   List1(1).AddItem "VideoSoft "
  406.   List1(1).AddItem "  Mailing Address"
  407.   List1(1).AddItem "  2625 Alcatraz Ave, Ste 271"
  408.   List1(1).AddItem "  Berkeley, California 94705"
  409.   List1(1).AddItem "  510 704-8200"
  410.   List1(1).AddItem "-------------------------------------------"
  411.   List1(1).AddItem "VideoSoft Consulting"
  412.   List1(1).AddItem "  2041 Bancroft Way"
  413.   List1(1).AddItem "  Berkeley, California 94704"
  414.   List1(1).AddItem "-------------------------------------------"
  415.   List1(1).AddItem "VideoSoft Emmeryville"
  416.   List1(1).AddItem "  2000 Powell Street"
  417.   List1(1).AddItem "  Emmeryville, California 94608"
  418.   List1(1).AddItem "-------------------------------------------"
  419.   List1(1).AddItem "VideoSoft Brazil"
  420.   List1(1).AddItem "  Rua dos Andradas, 1137.conj 809"
  421.   List1(1).AddItem "  Porto Alegre, RS 90.020.570"
  422.   List1(1).AddItem "-------------------------------------------"
  423.   Dim i%
  424.   For i = 0 To 3
  425.     TabsLeft.TabColor(i) = QBColor(i + 1)
  426.     TabRight.TabColor(i) = QBColor(i + 1)
  427.     TabRight.TabCaption(i) = TABSTEXT(i)
  428.   Next i
  429. End Sub
  430. Sub OpenChapter (Chapter%)
  431.   Dim i%
  432.   For i = Chapter - 1 To 0 Step -1
  433.     TabRight.TabCaption(i) = "-"
  434.     TabsLeft.TabCaption(i) = TABSTEXT(i)
  435.   Next i
  436. End Sub
  437. Sub TabRight_Click ()
  438.     'vsElastic2.BackColor = TabRight.TabColor(TabRight.CurrTab)
  439.     If TabRight.CurrTab = -1 Then Exit Sub
  440.     OpenChapter Val(TabRight.CurrTab)
  441. End Sub
  442. Sub TabsLeft_Click ()
  443.     CloseChapter Val(TabsLeft.CurrTab)
  444. End Sub
  445.