You need to look at the parameters of AddObject and how it is called. There are questions of scoping and parent objects. If your app is working, you can ignore these.
The IDE only shows a limited list of the properties of ActiveX controls. >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 >> > >> > >> > >> > > > > >------------------------------------ > >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 -~----------~----~----~----~------~----~------~--~---
