This is a Code
ShowOKButton True 'Set Close button to OK
Sub Form1_Load()
AddObject "grid","grid",0,10,240,100
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 CommandButton1_Click
Form1_Hide
Form2_Show
End Sub
Sub grid_Click
MsgBox "grid"
End Sub
Sub Form2_Load()
AddObject "grid","grid1",0,0,240,150
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
'*** Begin Generated Code ***
Form1_Show 'Default Form
Dim Form1_Temp
Sub Form1_Show
On Error Resume Next
UpdateScreen
If IsEmpty(Form1_Temp) Then
AddObject "Frame", "Form1_Form", 0, 0, Output.Width, Output.Height
Form1_Form.Visible = False
Form1_Form.BackColor = 12632256
AddObject "PictureBox", "Form1", 0, 0, 0, 0, Form1_Form
Form1.BorderStyle = 0
Form1.Move 0, 0, Form1_Form.Width * 15, Form1_Form.Height * 15
Set Form1_Temp = Form1
Form1_Form.Caption = "Form1"
AddObject "CommandButton", "CommandButton1", 76, 184, 108, 21, Form1_Form
CommandButton1.Caption = "Goto Form2"
CommandButton1.FontSize = 8.25
CommandButton1.BackColor = 12632256
'--------
End If
On Error Goto 0
Form1_Form.Visible = True
callIfExists("Form1_Load")
End Sub 'Form1_Show
Sub Form1_Hide
If IsEmpty(Form1_Temp) Then
Err.Raise 44000, , "Form not loaded"
Exit Sub
End If
Form1_Form.Visible = False
callIfExists("Form1_Unload")
End Sub 'Form1_Hide
Dim Form2_Temp
Sub Form2_Show
On Error Resume Next
UpdateScreen
If IsEmpty(Form2_Temp) Then
AddObject "Frame", "Form2_Form", 0, 0, Output.Width, Output.Height
Form2_Form.Visible = False
Form2_Form.BackColor = 12632256
AddObject "PictureBox", "Form2", 0, 0, 0, 0, Form2_Form
Form2.BorderStyle = 0
Form2.Move 0, 0, Form2_Form.Width * 15, Form2_Form.Height * 15
Set Form2_Temp = Form2
Form2_Form.Caption = "Form2"
End If
On Error Goto 0
Form2_Form.Visible = True
callIfExists("Form2_Load")
End Sub 'Form2_Show
Sub Form2_Hide
If IsEmpty(Form2_Temp) Then
Err.Raise 44000, , "Form not loaded"
Exit Sub
End If
Form2_Form.Visible = False
callIfExists("Form2_Unload")
End Sub 'Form2_Hide
Sub CallIfExists(theSub)
Dim s
If ScriptEngineMajorVersion < 5 Then
Execute("On Error Resume Next:"&theSub) 'attempt to execute it
Else
On Error Resume Next
Set s = GetRef(theSub)
If err.Number <> 0 Then Exit Sub 'it does not exist
On Error GoTo 0
Execute (theSub) 'execute it
End If
End Sub
'*** End Generated Code ***
--- In [email protected], "Bob Katayama" <bkatay...@...> wrote:
>
> Save the nsb file as a txt file and you can see the generated code once you
> open the txt file in a text reader.
>
>
>
> Bob
>
>
>
> From: [email protected] [mailto:[email protected]] On
> Behalf Of EMERSON VIER
> Sent: Sunday, July 26, 2009 5:45 PM
> To: [email protected]
> Subject: [nsbasic-ce] Re: Grid click
>
>
>
>
>
> Sorry but I do not understand your reply
>
> EMERSON VIER
>
> --- In [email protected] <mailto:nsbasic-ce%40yahoogroups.com> ,
> George Henne <gh@> wrote:
> >
> > 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 <emersonvier@>
> > wrote:
> >
> > >
> > >
> > > The problem, is grid_click only work on default form
> > > Emerson Vier
> > >
> > > From: rmrsoft <alan@>
> > > Sent: domingo, 19 de julho de 2009 09:58
> > > To: [email protected] <mailto:nsbasic-ce%40yahoogroups.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 [email protected] <mailto:nsbasic-ce%40yahoogroups.com>
> , "EMERSON VIER" <emersonvier@>
> > > 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 [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/nsb-ce?hl=en
-~----------~----~----~----~------~----~------~--~---
