Introduction
this object (ActiveX control) a best grid .
See Image Please.
Introduction:
Exist Grids Programs always include a basic fault .
A Object included many Property & many Methods & many Events.
But in Grid , can’t see a field similar to an Object.
And a Grid don’t includes all “base Objects” (TextBox , CheckBox , RadioButton , CommandButton , ComboBox , ListBox , …)
<o:wrapblock><v:shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"><v:stroke joinstyle="miter"><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"><v:f eqn="sum @0 1 0"><v:f eqn="sum 0 0 @1"><v:f eqn="prod @2 1 2"><v:f eqn="prod @3 21600 pixelWidth"><v:f eqn="prod @3 21600 pixelHeight"><v:f eqn="sum @0 0 1"><v:f eqn="prod @6 1 2"><v:f eqn="prod @7 21600 pixelWidth"><v:f eqn="sum @8 21600 0"><v:f eqn="prod @7 21600 pixelHeight"><v:f eqn="sum @10 21600 0"><v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"><o:lock aspectratio="t" v:ext="edit"><v:shape id="_x0000_s1027" style="MARGIN-TOP: 14.6pt; Z-INDEX: 2; MARGIN-LEFT: 135pt; WIDTH: 227.95pt; POSITION: absolute; HEIGHT: 53.25pt" stroked="t" strokeweight="2.25pt" type="#_x0000_t75"><v:imagedata o:title="" src="file:///D:/DOCUME~1/Ashkan.JEL/LOCALS~1/Temp/msoclip1/01/clip_image001.png"><w:wrap type="topAndBottom">
I always feel that .
I feel , most be create many Objects similar to “base Objects “ , included all Properties and methods and Events of basic Objects and can use this instead of Grid.
Oracle Developer very help me.
2 years ago I works to this method (Group Objects) and yet not completed .
Target :
Create many Objects with 4 properties
1- Single Objects ( Separated with other similar objects )
2- very simply to link them
3- included all property and methods and Events of basic Objects.
4- Can used this similar Grid.(Multi row)
This object (gTextBox):
This Object(after that call gTextBox) is similar to a TextBox (with Maximum compatibility) but a different , This is a Group TextBox objects instead of single TextBox .
I named this “gTextBox”.
I am doing create other objects (gCheckBox-gCommandButton-gComboBox and …)
gTextBox included many properties -methods and events for itself and all properties and methods and events of single TextBox .
see this image :
<o:p>
Any row included all properties and methods and events a TextBox and included many property and methods and events to itself. <o:p>
Professional Details
ü gTextBox Properties
Property Name |
Description |
Access |
ChangeForeColor |
After Change Text Change forecolor to this |
R(rw)
D(rw) |
Count |
Number of Record is exist |
R(r) |
GridColor |
set and return Grid Color |
R(rw)
D(rw) |
NumberOnly |
set and return gTextBox only Number input (not alphabet) |
R(rw)
D(rw) |
ParsiWrite |
set and return input language (for Persian Language only) |
R(rw)
D(rw) |
ReadOnly |
set and return gTextBox is Read only or not (if Read Only not editable) |
R(rw)
D(rw) |
Records |
Include All Records in gTextBox(is a collection class) |
R(rw) |
RowBackColor |
set and return Current Row Back Color |
R(rw)
D(rw) |
RowForeColor |
set and return Current Row fore Color
<o:p> |
R(rw)
D(rw) |
RowShow |
set and return Number of row show (default is 10) |
R(rw)
D(rw) |
RowSize |
set and return row size ( Pixel ) |
R(rw)
D(rw) |
ScrollBar |
set and return scroll bar exist or not |
R(rw)
D(rw) |
ScrollWidth |
set and return scroll bar width (pixel) |
R(rw)
D(rw) |
SelectedItem |
set and return current item |
R(r) |
SizableRow |
set and return can change row size at runtime |
R(rw)
D(rw) |
SpaceHorizontal |
set and return space between this object with other object |
R(rw)
D(rw) |
SpaceVertical |
set and return space between textboxs in gTextBox |
R(rw)
D(rw) |
R = access at Runtime
D=access at Designtime
(r)=readable
(w)=writeable <o:p> |
ü gTextBox Methods
Method Name |
Description |
Parameters |
AddItem |
Add a new record to Records
<o:p> |
Text as string |
Clear |
Clear all records and set Records property to empty |
None |
GoFocus |
Set Focus to a text box (current row) |
<o:p> |
MoveRecordTo |
Move row to a specified record ( you most say row number [newCursor] and record number [newRecord] ) |
newCursor as integer
newRecord as long |
Refresh |
Refresh all records of gTextBox |
None |
Remove |
Remove specified record |
DeletedRecordNo as long |
RollBack |
Roll back specified record |
RecordNo as long (if not define roll back all records) |
<o:p>
ü gTextBox Events
Event Name |
Description |
Parameters |
HappenedTime |
AfterDelete |
After delete a row active this event |
None |
After delete |
AfterInsert |
After insert a record active this event |
RecordNo as long record number to be inserted |
After insert |
AfterChange |
After change a record (only first time) |
CursorNo as integer (row number)
RecordNo as long |
After change |
BeforeChange |
Before change a record (only first time) |
CursorNo as integer (row number)
RecordNo as long |
Before change |
BeforeDelete |
Before delete a record (only current record)
You can cancel deleting |
Cancel As Boolean |
Before delete |
BeforeClear |
Before clear all record
You can cancel clearing |
Cancel As Boolean |
Before clear |
BeforeInsert |
Before insert a record
You can cancel inserting |
Cancel As Boolean |
Before insert |
ChangeRowSize |
change row size (if drag grid with mouse)
you can cancel row size change |
Cancel As Boolean ChangeSize As Single |
On change (drag mouse on grid) |
OnMoveRecord |
Moving a new record |
CursorNo As Integer
RecordNo As Long |
After change row number |
OnScroll |
Scroll and going to new record |
CursorNo As Integer
RecordNo As Long |
After move to new record only with change scroll bar |
Validation |
Validation (equal validate Event) |
CursorNo As Integer
RecordNo As Long
Cancel As Boolean |
Before exit from a row |
<o:p>
Revision History(Version)
Version 1.0 <o:p>
- Last Updates at 29/Tir/2562(Parsi) equal 20-july-2003
Further program (Coming version)
1- connecting ADO DataBase .
2- add Formula property (very powerfull)
3- and …<o:p>
<o:p>
I am Davood.J live in Tehran from IRAN.
I am married with one child (a boy 5 year old).
my basic work is "system analyst" and "system designer" .
but i like programming .
i work with Visual Basic 6.0 & Microsoft Access 2000 and Oracle Developer and Designer (very little) .