[Gambas-user] Problem gb.qt

[Benoît Minisini]

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