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
https://plus.google.com/u/0/105457212371116775367/posts
------------------------------------------------------------------------------
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
