home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / axgrid / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-12-10  |  3.4 KB  |  99 lines
  1. VERSION 5.00
  2. Object = "{32A4927E-FB95-11D1-BF5B-00A024982E5B}#65.0#0"; "axGrid.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   5595
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   7065
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   5595
  11.    ScaleWidth      =   7065
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton Command2 
  14.       Caption         =   "Add Row"
  15.       Height          =   375
  16.       Left            =   795
  17.       TabIndex        =   3
  18.       Top             =   4425
  19.       Width           =   1185
  20.    End
  21.    Begin VB.CommandButton Command1 
  22.       Caption         =   "Delete Row"
  23.       Height          =   375
  24.       Left            =   795
  25.       TabIndex        =   1
  26.       Top             =   4845
  27.       Width           =   1185
  28.    End
  29.    Begin axGridControl.axgrid axgrid1 
  30.       Height          =   4005
  31.       Left            =   420
  32.       TabIndex        =   0
  33.       Top             =   240
  34.       Width           =   6270
  35.       _ExtentX        =   11060
  36.       _ExtentY        =   7064
  37.       Redraw          =   -1  'True
  38.       ShowGrid        =   -1  'True
  39.       GridSolid       =   -1  'True
  40.       GridLineColor   =   12632256
  41.       BorderStyle     =   5
  42.       AllowSelection  =   0   'False
  43.       BackColorFixed  =   12632256
  44.       ForeColorFixed  =   -2147483635
  45.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  46.          Name            =   "MS Sans Serif"
  47.          Size            =   8.25
  48.          Charset         =   0
  49.          Weight          =   400
  50.          Underline       =   0   'False
  51.          Italic          =   0   'False
  52.          Strikethrough   =   0   'False
  53.       EndProperty
  54.       BeginProperty FontFixed {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  55.          Name            =   "MS Sans Serif"
  56.          Size            =   8.25
  57.          Charset         =   0
  58.          Weight          =   400
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.    End
  64.    Begin VB.Label Label1 
  65.       Caption         =   "Try pressing the right mouse button too"
  66.       Height          =   330
  67.       Left            =   3000
  68.       TabIndex        =   2
  69.       Top             =   4440
  70.       Width           =   3360
  71.    End
  72. Attribute VB_Name = "Form1"
  73. Attribute VB_GlobalNameSpace = False
  74. Attribute VB_Creatable = False
  75. Attribute VB_PredeclaredId = True
  76. Attribute VB_Exposed = False
  77. Private Sub axgrid1_MouseDown(button As Integer, Shift As Integer, x As Single, y As Single)
  78.   If button = 2 Then MsgBox "right mouse  " + Str(axgrid1.Row) + "," + Str(axgrid1.Col)
  79. End Sub
  80. Private Sub Command1_Click()
  81.   axgrid1.Remove axgrid1.Row
  82. End Sub
  83. Private Sub Command2_Click()
  84.   axgrid1.Rows = axgrid1.Rows + 1
  85. End Sub
  86. Private Sub Form_Load()
  87.   axgrid1.AutoSetup 5, 7, False, True, "Col1          |List               |No Edit          |Upper          |Numeric          |Date      |Checkmark"
  88.   axgrid1.AddLookup 2, "Text1"
  89.   axgrid1.AddLookup 2, "Text2"
  90.   axgrid1.AddLookup 2, "Text3"
  91.   axgrid1.AddLookup 2, "Text4"
  92.   axgrid1.ColAllowEdit(3) = False
  93.   axgrid1.ColMask(4) = 1   'uppercase
  94.   axgrid1.ColMask(5) = 2    'numeric
  95.   axgrid1.ColAlign(5) = 2    'right aligned
  96.   axgrid1.ColMask(6) = 3    'date
  97.   axgrid1.ColMask(7) = 4    'checkmark
  98. End Sub
  99.