VSFlexGrid 1

[Creigbm]

Simple question...How do you add data to the cells? I have tried .Value, .AddItem, etc. with no luck. Thanks.

 

[Mala]

Try something like:

Single cells-
Range("A1").Value=3
Range("B3").Value="ABC"

Horizontal range-
Range("A1:J1").Value=Array(1,2,3,4,5,6,7,8,9,10)

Vertical range -
Range("A1:A10").Value=Worksheetfunction.transpose(Array(1,2,3,4,5,6,7,8,9,10))


'Dare to Imagine'
Mala Singh

 

[FrancisL]

Try
VSFlexGrid.Cell(flexcpText, VSF.Row, 4) = YourValue
That sets column 4 in the current row to YourValue
Of course VSFlexGrid has to be editable (it's a property of the grid), you can set that in design mode or on the EnterCell event for example
Francis

 

[Creigbm]

Francis,

I tried that but got an error saying that it cant find the project or library. I checked to make sure the VSFlexGrid reference was loaded and it was. Any ideas?

Thanks,
Brian

 

[FrancisL]

I don't use VSFlexGrid in VBA, only in VB so I can't help (no time to try it)
Do you have an example you can load to see if that works?

 

[Creigbm]

No, I dont. I got the same error with another set of references but just had to load them. It is getting hung up on 'flexcpText'. Do you have a source that I can load into my project that defines all of those variables?

 

[Mala]

FlexiGrid...what is it?
Please enlighten a dimwit!



Mala Singh
'Dare to Imagine'

 

[FrancisL]

VSFlexGrid is a grid control, see here

http://www.componentone.com/products.aspx?ProductCode=1&ProductID=68

Creigbm, do you have a license for the product?

 

[Creigbm]

FlexGrid looks like an excel spreadsheet so you can create a table or such.

 

[Creigbm]

I have the 'light' version that does not allow data binding

 

[Mala]

The dimwit gives up...



Mala Singh
'Dare to Imagine'

 

[Creigbm]

This is intersting....If I dont specify 'Option Explicit', then I the flexcpText works. Odd

 

[Mala]

I just downloaded a trial version to look at this.

Francist has already pointed out the solution - I am just elaborating on it with another example for others who may be interested.

You need to use the Cell property of the control to put values in the cells.

The syntax is:
[form!]vsFlexGrid.Cell(Setting As CellPropertySettings, [R1 As Long], [C1 As Long], [R2 As Long], [C2 As Long]) [ = Value ]

I suggest you look at the Help for details...

Example: The following code will fill the first 5 rows × 4 columns block of cells with numbers from 1 through 20.

Private Sub VSFlexGrid1_Click()
  With Me.VSFlexGrid1
    For i = 1 To 5
      For j = 1 To 4
        .Row = i
        .Col = j
        .Cell(flexcpText, i, j) = (i - 1) * 4 + j
      Next j
    Next i
  End With
End Sub

Mala Singh
'Dare to Imagine'

 

[Mala]

I do not get any error on specifying Option Explicit - the code works just fine. Maybe it has something to do with the order in which you added the reference and wrote the code.


Mala Singh
'Dare to Imagine'

 

[palusa]

Craigbm,

the simplest way to add values to the a vsflexgrid is to use the method

vsFlexGrid.TextMatrix(Row As Long, Col As Long)[ = value As String ]

where Row and Col are indexes for table's row and colums.

HTH

_LF

 

[Creigbm]

Thanks for all your help...I have seem to get it working properly. One last question...how do you create a combobox? I have tried different ways and it does not seem to follow the way a normal combobox is created. Thanks again.

 

[FrancisL]

To create a drop down that appears in column x and returns an index number
VSFlexGrid1.ColComboList(x) = "#0;Auto|#1;Direct|#2;Bezier|#3;Manual|#4;Connector"

To create one specific to a cell catch the EnterCell event and add
VSFlexGrid1.ComboList= "=|>|<|<>|>=|<="
This just lists operators and returns the selected one.
There are lots more options!

 

[Creigbm]

Thanks...Do you have a good online source for VSFlexGrid? It seems to be hit or miss everytime I do a google search.

 

[FrancisL]

They have a newsgroup

http://news2.componentone.com/cgi-bin/dnewsweb.exe?cmd=xover&group=component1.public.vsflex&utag=

 

[johnwm]

http://www.componentone.com/products.aspx?ProductCode=1&ProductID=68

Good Luck
johnwm
________________________________________________________
To get the best from these forums read faq731-376 before posting

UK steam enthusiasts:

http://www.essexsteam.co.uk