[nsbasic-ce] Re: Grid click

2009-07-19 Thread rmrsoft
I don't have much experience of multiple forms, but if you want multiple grids 
I find it easier to put them both on the same Form and then use the MOVE 
command to decide which one is 'live' 

So you get:

AddObject grid,grid,9000,0,240,150
AddObject grid,grid1,9000,0,240,150

Then to use the first Grid use

grid1.Move 9000
grid.move 0

And to switch to the second grid

grid.Move 9000
grid1.move 0
 
Cheers

Al


--- In nsbasic...@yahoogroups.com, EMERSON VIER emersonv...@... wrote:

 I use the AddObject
 
 Sub Form1_Load()
 
   On Error resume next
 AddObject grid,grid,0,0,240,150
 If err Then 
MsgBox Grid control not installed. Please check the ReadMe file's section 
 on Install Device Components for more information.,,Grid
Bye
 End If
 On Error Goto 0
 
 
grid.cols=3
grid.rows=4
 
   grid.TextMatrix(0, 0) = Kenny
   grid.TextMatrix(1, 0) = Carmen
   grid.TextMatrix(2, 0) = Kyle
   grid.TextMatrix(3, 0) = Eric
   
   grid.TextMatrix(0, 1) = Grossman
   grid.TextMatrix(1, 1) = Crabtree
   grid.TextMatrix(2, 1) = Garrison
   grid.TextMatrix(3, 1) = Cartman
   
   grid.TextMatrix(0, 2) = Denver
   grid.TextMatrix(1, 2) = Boulder
   grid.TextMatrix(2, 2) = South Park
   grid.TextMatrix(3, 2) = Lakeview
 

 End Sub
 
 Sub grid_Click

MsgBox grid

   
 End Sub
 
 
 Sub Form2_Load()
 
   On Error resume next
AddObject grid,grid1,0,0,240,150
If err Then 
   MsgBox Grid control not installed. Please check the ReadMe file's 
 section on Install Device Components for more information.,,Grid
   Bye
End If
On Error Goto 0
 
 
grid1.cols=3
grid1.rows=4
 
   
   grid1.TextMatrix(0, 0) = 1Kenny
   grid1.TextMatrix(1, 0) = 1Carmen
   grid1.TextMatrix(2, 0) = 1Kyle
   grid1.TextMatrix(3, 0) = 1Eric
   
   grid1.TextMatrix(0, 1) = 1Grossman
   grid1.TextMatrix(1, 1) = 1Crabtree
   grid1.TextMatrix(2, 1) = 1Garrison
   grid1.TextMatrix(3, 1) = 1Cartman
   
   grid1.TextMatrix(0, 2) = 1Denver
   grid1.TextMatrix(1, 2) = 1Boulder
   grid1.TextMatrix(2, 2) = 1South Park
   grid1.TextMatrix(3, 2) = 1Lakeview
   

 End Sub
 
 Sub grid1_Click
   
   MsgBox grid1
  
 End Sub
 
 Sub CommandButton1_Click
 
Form1.Hide
Form2_Show
 
 End Sub
 
 --- In nsbasic...@yahoogroups.com, George Henne gh@ wrote:
 
  How are you creating the grid? Are you using AddObject in your code, or
  is it being created as part of your form?
  
  I try again and events click only work on Default Form, if I try this
  on other Form not work, I not get any error messages
  
  EMERSON VIER
  
  --- In nsbasic...@yahoogroups.com, George Henne gh@ wrote:
  
   There is not enough info here to give much help.
   
   Have you added a grid object named grid to your project?
   
   Do you get any error messages?
   
   I use the sample grid.nsb and includ the code
   
   Sub grid_Click
  
  Dim Linha
  Dim Coluna 
  Coluna = grid.col
  Linha = grid.row
  MsgBox Grid.TextMatrix(Linha,Coluna)
  
   End Sub
   
   This work very well.
   
   I include this code in other project, this not work, not any
  information;...
   
   EMERSON VIER
   
   
   
   
   
   
   
   Yahoo! Groups Links
   
   
   
  
  
  
  
  
  
  
  Yahoo! Groups Links
  
  
  
 




--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



RE: [nsbasic-ce] Re: Grid click

2009-07-19 Thread EMERSON VIER
The problem, is grid_click only work on default form
Emerson Vier

-Original Message-
From: rmrsoft a...@rmrsoft.com
Sent: domingo, 19 de julho de 2009 09:58
To: nsbasic...@yahoogroups.com
Subject: [nsbasic-ce] Re: Grid click

 
I don't have much experience of multiple forms, but if you want multiple grids 
I find it easier to put them both on the same Form and then use the MOVE 
command to decide which one is 'live'

 So you get:

 AddObject grid,grid,9000,0,240,150
 AddObject grid,grid1,9000,0,240,150

 Then to use the first Grid use

 grid1.Move 9000
 grid.move 0

 And to switch to the second grid

 grid.Move 9000
 grid1.move 0

 Cheers

 Al

 --- In nsbasic...@yahoogroups.com, EMERSON VIER emersonv...@... wrote:
 
  I use the AddObject
 
  Sub Form1_Load()
 
  On Error resume next
  AddObject grid,grid,0,0,240,150
  If err Then
  MsgBox Grid control not installed. Please check the ReadMe file's section 
  on Install Device Components for more information.,,Grid
  Bye
  End If
  On Error Goto 0
 
 
  grid.cols=3
  grid.rows=4
 
  grid.TextMatrix(0, 0) = Kenny
  grid.TextMatrix(1, 0) = Carmen
  grid.TextMatrix(2, 0) = Kyle
  grid.TextMatrix(3, 0) = Eric
 g

[The entire original message is not included]
--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



RE: [nsbasic-ce] Re: Grid click

2009-07-19 Thread EMERSON VIER
The problem, is grid_click only work on default form
Emerson Vier

-Original Message-
From: rmrsoft a...@rmrsoft.com
Sent: domingo, 19 de julho de 2009 09:58
To: nsbasic...@yahoogroups.com
Subject: [nsbasic-ce] Re: Grid click

 
I don't have much experience of multiple forms, but if you want multiple grids 
I find it easier to put them both on the same Form and then use the MOVE 
command to decide which one is 'live'

 So you get:

 AddObject grid,grid,9000,0,240,150
 AddObject grid,grid1,9000,0,240,150

 Then to use the first Grid use

 grid1.Move 9000
 grid.move 0

 And to switch to the second grid

 grid.Move 9000
 grid1.move 0

 Cheers

 Al

 --- In nsbasic...@yahoogroups.com, EMERSON VIER emersonv...@... wrote:
 
  I use the AddObject
 
  Sub Form1_Load()
 
  On Error resume next
  AddObject grid,grid,0,0,240,150
  If err Then
  MsgBox Grid control not installed. Please check the ReadMe file's section 
  on Install Device Components for more information.,,Grid
  Bye
  End If
  On Error Goto 0
 
 
  grid.cols=3
  grid.rows=4
 
  grid.TextMatrix(0, 0) = Kenny
  grid.TextMatrix(1, 0) = Carmen
  grid.TextMatrix(2, 0) = Kyle
  grid.TextMatrix(3, 0) = Eric
 g

[The entire original message is not included]
--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



Re: [nsbasic-ce] Re: Grid click

2009-07-19 Thread George Henne
Have a look to how the generated code does this. Create a form with a  
grid on it, save it as txt file, then open in Notepad.

Sent from my iPhone

On Jul 19, 2009, at 2:06 PM, EMERSON VIER emersonv...@yahoo.com.br  
wrote:



 The problem, is grid_click only work on default form
 Emerson Vier

 From: rmrsoft a...@rmrsoft.com
 Sent: domingo, 19 de julho de 2009 09:58
 To: nsbasic...@yahoogroups.com
 Subject: [nsbasic-ce] Re: Grid click

 I don't have much experience of multiple forms, but if you want  
 multiple grids I find it easier to put them both on the same Form  
 and then use the MOVE command to decide which one is 'live'

 So you get:

 AddObject grid,grid,9000,0,240,150
 AddObject grid,grid1,9000,0,240,150

 Then to use the first Grid use

 grid1.Move 9000
 grid.move 0

 And to switch to the second grid

 grid.Move 9000
 grid1.move 0

 Cheers

 Al

 --- In nsbasic...@yahoogroups.com, EMERSON VIER emersonv...@...  
 wrote:
 
  I use the AddObject
 
  Sub Form1_Load()
 
  On Error resume next
  AddObject grid,grid,0,0,240,150
  If err Then
  MsgBox Grid control not installed. Please check the Re adMe  
 file's section on Install Device Components for more  
 information.,,Grid
  Bye
  End If
  On Error Goto 0
 
 
  grid.cols=3
  grid.rows=4
 
  grid.TextMatrix(0, 0) = Kenny
  grid.TextMatrix(1, 0) = Carmen
  grid.TextMatrix(2, 0) = Kyle
  grid.TextMatrix(3, 0) = Eric
 g



 [The entire original message is not included]

 

--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---