The basic usage of the drag-and-drop functions isn't quite clear to me.
I couldn't find much information in the wiki about it. Here is my code.
I use t$ as a simple storage place and TextBox1 is only to see what the
thing does.
The user should pick the red cell in GridView1 and drag it to another
cell. The contents should appear there.
I use "MouseUp" and not "Drop" because Drop didn't have any result. But
maybe the way I implemented the whole thing isn't the right one anyhow?
Thank you for your insight!
Rolf
Public t$ As String
Public Sub Form_Open()
GridView1.Rows.Count = 7
GridView1.Columns.Count = 5
TextBox1.Text = t$
End
Public Sub GridView1_Data(Row As Integer, Column As Integer)
If Row = 4 And Column = 3 Then
GridView1.Data.Background = Color.Red
GridView1.Data.Alignment = Align.Center
GridView1.Data.Text = "E\nKorr\nWg"
t$ = GridView1.Data.Text
Endif
End
Public Sub GridView1_Click()
t$ = GridView1.Current.Text
TextBox1.Text = ""
End
Public Sub GridView1_MouseDrag()
TextBox1.Text = t$
End
Public Sub GridView1_MouseUp()
TextBox1.Text = GridView1.Row & "::" & GridView1.Column
GridView1.Current.Text = t$
End
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
