MSH Flexgrid Control, Copying Contents to Clipboard.

[Carl]

I'm trying to select, with the mouse, a cell within a flexgrid that I've
created, and copying the contents of that cell to the clipboard. I've tried
using the Mousecol and Mouserow properties to return the cell col and row
index, but It doesn't seem to RETURN the cell ID but needs an argument
identifying, seemingly the col and row repectively. Here's the test routine
I set up just to see how the mousecol property worked but it genterates the
"Argument not optional" error. How do you return the row and col index
after a mouseclick?

Private Sub gridmain_Click()
Rem frm_crysalis.gridmain.Col = 7
Rem frm_crysalis.gridmain.Row = 1
Text1 = Str$(frm_crysalis.gridmain.MouseCol)

Text2 = Str$(frm_crysalis.gridmain.MouseRow)
frm_crysalis.gridmain.Col = 1
frm_crysalis.gridmain.Row = 1

frm_crysalis.gridmain.Text = Text1
frm_crysalis.gridmain.Col = 1
frm_crysalis.gridmain.Row = 2
frm_crysalis.gridmain.Text = Text2
frm_crysalis.gridmain.Text = frm_crysalis.gridmain.Col
End Sub

[Carl]

Never mind. I was trying to make it too difficult. It shouldn't be

frm_crysalis.gridmain.MouseCol

but

frm_crysalis.gridmain.Col

Dumb of me. Thanks anyway. -Carl

"Carl" <do****@enter.net> wrote in message
news:6C*************@monger.newsread.com...

I'm trying to select, with the mouse, a cell within a flexgrid that I've created, and copying the contents of that cell to the clipboard. I've tried using the Mousecol and Mouserow properties to return the cell col and row
index, but It doesn't seem to RETURN the cell ID but needs an argument
identifying, seemingly the col and row repectively. Here's the test routine I set up just to see how the mousecol property worked but it genterates the "Argument not optional" error. How do you return the row and col index
after a mouseclick?

Private Sub gridmain_Click()
Rem frm_crysalis.gridmain.Col = 7
Rem frm_crysalis.gridmain.Row = 1
Text1 = Str$(frm_crysalis.gridmain.MouseCol)

Text2 = Str$(frm_crysalis.gridmain.MouseRow)
frm_crysalis.gridmain.Col = 1
frm_crysalis.gridmain.Row = 1

frm_crysalis.gridmain.Text = Text1
frm_crysalis.gridmain.Col = 1
frm_crysalis.gridmain.Row = 2
frm_crysalis.gridmain.Text = Text2
frm_crysalis.gridmain.Text = frm_crysalis.gridmain.Col
End Sub