Le 03/02/2015 17:09, herberth guzman a écrit : > Hi Benoit > > thanks for you help > > attach code not working gb.qt svn_rev6875 onwards > > ' Gambas class file > > Public sExplorer As FileView > > Public Sub Form_Open() > Create_sExplorer_Init > End > > Public Sub Create_sExplorer_Init() > > TabPanelExplorer.Text = User.Home > sExplorer = New FileView(TabPanelExplorer) As "sExplorer" > TabPanelExplorer.Children[0].Name = "sExplorer" & > CStr(TabPanelExplorer.Index + 1) > sExplorer.expand = True > > With sExplorer > .ShowDirectory = True > .ShowPreview = True > .Dir = User.Home > .Background = Color.Default > End With > TabPanelExplorer.Picture = Picture["icon:/small/directory"] > > > End > > Public Sub Create_sExplorer() > > > TabPanelExplorer.Count += 1 > TabPanelExplorer.Text = User.Home > sExplorer = New FileView(TabPanelExplorer) As "sExplorer" > TabPanelExplorer.Children[0].Name = "sExplorer" & > CStr(TabPanelExplorer.Index + 1) > sExplorer.expand = True > > > With sExplorer > .ShowDirectory = True > .ShowPreview = True > .Dir = User.Home > .Background = Color.Default > End With > TabPanelExplorer.Picture = Picture["icon:/small/directory"] > > > End > > > > Public Sub Button1_Click() > > Create_sExplorer > > End > > Regards > > > Herberth Guzman
Sorry, but I need a full project. Regards, -- Benoît Minisini ------------------------------------------------------------------------------ Dive into the World of Parallel Programming. The Go Parallel Website, sponsored by Intel and developed in partnership with Slashdot Media, is your hub for all things parallel software development, from weekly thought leadership blogs to news, videos, case studies, tutorials and more. Take a look and join the conversation now. http://goparallel.sourceforge.net/ _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user