OK now the event "_Click" work on two forms, now I will make test on my project.
Why this not work when I use the AddObject?? Why I not see the properties from the this object? Thx for you help. EMERSON VIER --- In [email protected], "George Henne" <g...@...> wrote: > > Try again, this time creating the form with the Grid on it, not created > in your own code with AddObject. > > >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" <bkatayama@> 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] > >> > > > >> > > > >> > > >> > > > > > > > > > >------------------------------------ > > > >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 [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 -~----------~----~----~----~------~----~------~--~---
