home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sscont_1 / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-01-12  |  3.7 KB  |  111 lines
  1. VERSION 5.00
  2. Object = "{DAD854C5-8AD6-11D1-A5A4-8EFA282E3015}#4.0#0"; "SScontrol.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3780
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   8115
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3780
  11.    ScaleWidth      =   8115
  12.    StartUpPosition =   3  'Windows Default
  13.    WindowState     =   2  'Maximized
  14.    Begin VB.CommandButton cmdMyFillin2 
  15.       Caption         =   "Fillin 2"
  16.       Height          =   375
  17.       Left            =   7020
  18.       TabIndex        =   5
  19.       Top             =   45
  20.       Width           =   1680
  21.    End
  22.    Begin VB.CommandButton cmdMyFillin1 
  23.       Caption         =   "Fillin 1"
  24.       Height          =   375
  25.       Left            =   5265
  26.       TabIndex        =   4
  27.       Top             =   45
  28.       Width           =   1680
  29.    End
  30.    Begin VB.CommandButton cmdEnd 
  31.       Caption         =   "End"
  32.       Height          =   375
  33.       Left            =   3510
  34.       TabIndex        =   3
  35.       Top             =   45
  36.       Width           =   1680
  37.    End
  38.    Begin VB.CommandButton ReInit2 
  39.       Caption         =   "Init without Table"
  40.       Height          =   375
  41.       Left            =   1755
  42.       TabIndex        =   2
  43.       Top             =   45
  44.       Width           =   1680
  45.    End
  46.    Begin VB.CommandButton cmdReInit1 
  47.       Caption         =   "Init with Table"
  48.       Height          =   375
  49.       Left            =   0
  50.       TabIndex        =   1
  51.       Top             =   45
  52.       Width           =   1680
  53.    End
  54.    Begin SSdcw.SScontrol SScontrol1 
  55.       Height          =   2040
  56.       Left            =   90
  57.       TabIndex        =   0
  58.       Top             =   630
  59.       Width           =   7215
  60.       _ExtentX        =   12726
  61.       _ExtentY        =   3598
  62.    End
  63. Attribute VB_Name = "Form1"
  64. Attribute VB_GlobalNameSpace = False
  65. Attribute VB_Creatable = False
  66. Attribute VB_PredeclaredId = True
  67. Attribute VB_Exposed = False
  68. Option Explicit
  69. ' *********************************************************************************************************************
  70. ' *** Set up some global constants for this page
  71. ' *********************************************************************************************************************
  72. Const useNoRows = 20     '1-base
  73. Const useNoCols = 11      '1-base
  74. Const useNoFixedRows = 1    '1-base
  75. Const useNoFixedCols = 3    '1-base
  76. Const useFontName = "Courier New" 'is constant-width
  77. Const useFontSize = 8
  78. Const useFormatString = "<Project     |<Project Desc               |^Catit|>  Sat |>  Sun |>  Mon |>  Tue |>  Wed |>  Thu |>  Fri |>Totals"
  79. Const NoDecimalPlaces = 2
  80. Private Sub cmdEnd_Click()
  81.   End
  82. End Sub
  83. Private Sub cmdReInit1_Click()
  84.   SScontrol1.ClearSS
  85.   SScontrol1.InitializeSS useNoRows, useNoCols, useNoFixedRows, useNoFixedCols, True, True, "###,###,###,##0.00", useFontName, useFontSize, useFormatString
  86.   SScontrol1.AutoSizeSS
  87.   SScontrol1.SetFocus
  88. End Sub
  89. Private Sub ReInit2_Click()
  90.   SScontrol1.ClearSS
  91.   SScontrol1.InitializeSS useNoRows, useNoCols, useNoFixedRows, useNoFixedCols, False, False, "###,###,###,##0.00", useFontName, useFontSize, useFormatString
  92.   SScontrol1.AutoSizeSS
  93.   SScontrol1.SetFocus
  94. End Sub
  95. Sub cmdMyFillin1_Click()
  96.   Dim i, j
  97.   For i = 0 To SScontrol1.Rows - 1
  98.     For j = 0 To SScontrol1.Cols - 1
  99.       SScontrol1.TextMatrix(i, j) = "aR" & i & "C" & j
  100.     Next
  101.   Next
  102. End Sub
  103. Private Sub cmdMyFillin2_Click()
  104.   Dim i, j
  105.   For i = SScontrol1.FixedRows To SScontrol1.Rows - 1 'zero-base
  106.     For j = SScontrol1.FixedCols To SScontrol1.Cols - 1 'zero-base
  107.       SScontrol1.TextMatrix(i, j) = "oR" & i & "C" & j
  108.     Next
  109.   Next
  110. End Sub
  111.