timer and buttons problem

[rippp]

hi, I've two questions.. first I've a timer in my wpf program it work fine but I cann't stop it. here is the code:

Public Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button3.Click
        Button2.Visibility = Windows.Visibility.Hidden
        Button3.Visibility = Windows.Visibility.Hidden
        ListBox2.Visibility = Windows.Visibility.Hidden
        ListBox3.Visibility = Windows.Visibility.Hidden
        Label1.Visibility = Windows.Visibility.Hidden
        ListBox1.Visibility = Windows.Visibility.Hidden
        Button5.Visibility = Windows.Visibility.Visible
        'obter nome imagens
        Dim Sqlimg As String = "select id,CodProd,Imagem from imagem"
        'obter caracteristicas do produto da imagem
        Dim sqlprod As String = "select CodProd,descricao1,TipoProd,familia,coleccao from produto where CodProd= "
        Dim conexaoBD As OleDbConnection
        Dim dsdados As DataSet
        Dim ligar As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\shroom.mdb"
        Dim dt As DataTable
        conexaoBD = New OleDbConnection(ligar)
        Dim adaptadorImg As OleDbDataAdapter = New OleDbDataAdapter(Sqlimg, conexaoBD)
        dsdados = New DataSet
        adaptadorImg.Fill(dsdados, "imagem")
        dt = dsdados.Tables("imagem")
 
 
 
        Dim NumImg As Integer = dt.Rows.Count
        ReDim ArrayImg(NumImg)
 
        Dim linha As DataRow
        Dim x As Integer = 0
 
        For Each linha In dt.Rows
            ArrayImg(x) = dt.Rows(x).Item(2).ToString
            x = x + 1
        Next
 
        ' listar imagens
 
        If NumImg > 0 Then
            Dim Timer = New DispatcherTimer()
            Timer.Interval = New TimeSpan(0, 0, 2)
            Timer.IsEnabled = True
            Timer.Start()
            AddHandler Timer.tick, AddressOf timer_tick
           
        Else
            MsgBox("Não tem imagens")
        End If
       
    End Sub
    Public Sub timer_tick(ByVal send As System.Object, ByVal e As System.EventArgs)
        Try
            Dim imgBrush As New ImageBrush()
            Dim appstart As String = System.IO.Path.GetDirectoryName(Process.GetCurrentProcess().MainModule.FileName)
            imgBrush.ImageSource = New BitmapImage(New Uri(appstart & "\img\" & ArrayImg(ArrayNum)))
            Button4.Background = imgBrush
 
            Button4.Visibility = Windows.Visibility.Visible
            ArrayNum = ArrayNum + 1
            If ArrayNum = UBound(ArrayImg) Then
                ArrayNum = 0
            End If
 
        Catch
 
 
 
        End Try
    End Sub

the second problem is that I'm creating button by code, to show image, but I cann't make them disapear...

Private Sub ListBox4_SelectionChanged(ByVal sender As System.Object, ByVal e As System.Windows.Controls.SelectionChangedEventArgs) Handles ListBox4.SelectionChanged
 
 
        Try
 
            Dim sqlser As String = "select distinct descricao1,codProd from produto where codProd in (select codProd from produto where modelo= '" & ListBox4.SelectedValue.ToString & "')"
            Dim conexaoBD As OleDbConnection
            Dim dsdados As DataSet
            Dim ligar As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\shroom.mdb"
            Dim dt As DataTable
            conexaoBD = New OleDbConnection(ligar)
 
            Dim adaptadorPro As OleDbDataAdapter = New OleDbDataAdapter(sqlser, conexaoBD)
            dsdados = New DataSet
            adaptadorPro.Fill(dsdados, "produto")
            dt = dsdados.Tables("produto")
            Label2.Content = "Descrição: " & dt.Rows(0).Item(0).ToString
            Label3.Content = "Tipo: " & ListBox1.SelectedValue.ToString
            Label4.Content = "Formato: " & ListBox2.SelectedValue.ToString
            Label5.Content = "Serie: " & ListBox3.SelectedValue.ToString
 
 
            Dim sqlimg As String = "select distinct Imagem from imagem where codProd='" & dt.Rows(0).Item(1).ToString & "'"
            Dim dsdadosImg As DataSet
            Dim dtImg As DataTable
            conexaoBD = New OleDbConnection(ligar)
 
            Dim adaptadorImg As OleDbDataAdapter = New OleDbDataAdapter(sqlimg, conexaoBD)
            dsdadosImg = New DataSet
            adaptadorImg.Fill(dsdadosImg, "imagem")
            Dim linhas As DataRow
            dtImg = dsdadosImg.Tables("imagem")
            Dim x As Integer = 0
            For Each linhas In dtImg.Rows
                Dim Btimg As New Button
                Dim imgBrush As New ImageBrush()
                Dim appstart As String = System.IO.Path.GetDirectoryName(Process.GetCurrentProcess().MainModule.FileName)
                imgBrush.ImageSource = New BitmapImage(New Uri(appstart & "\img\" & dtImg.Rows(x).Item(0)))
                Btimg.Background = imgBrush
                Btimg.Width = 100
                Btimg.Height = 100
                Btimg.Visibility = Windows.Visibility.Visible
                StackPanelimg.Children.Add(Btimg)
                x = x + 1
 
            Next
 
        Catch ex As Exception
 
        End Try
    End Sub

anyone ????

[chris128]

Well you need to have some way of referencing the timer from wherever you want to stop it from. The easiest way would be to just declare the timer at class level (you can also then declare it WithEvents which means you dont have to manually hook up the event handler for the Tick event) then you can just call the Stop method from wherever you want.

By the way there is a much easier way to get the directory that your app is running from instead of doing this:

Dim appstart As String = System.IO.Path.GetDirectoryName(Process.GetCurrentProcess().MainModule.FileName)

just do this:

Dim appStart As String = My.Application.Info.DirectoryPath

[rippp]

can you give me an example ?