none
Ctype não funciona! RRS feed

  • Discussão Geral

  • Oi amigos boa noite a todos vcs! Bom eu tenho um problema no meu codigo, eu gostaria de mudar a imagem da picturebox1 do meu forme, so que pra isso eu tenho que usar ctype porem fiz isso mais nada acontece, podem me ajudar com meu codigo ? obrigado a todos vcs. 

    Codigo 

      Dim f As Zoom_File_Manager = New Zoom_File_Manager
        Private Sub ZoomImagemToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZoomImagemToolStripMenuItem.Click
            CType(Zoom_File_Manager.PictureBox1, PictureBox).Image = Me.PictureBox1.Image
    
            For Each x As Form In Application.OpenForms
                If (TypeOf x Is Zoom_File_Manager) Then
                    Exit Sub
                End If
            Next
    
            f.Text = "Zoom Imagem / File Manager"
            f.ComboBox1.Text = Me.ComboBox1.Text
            f.ComboBox2.Text = Me.borde_pictures.Text
            f.PictureBox1.Image = Me.PictureBox1.Image
            f.TopMost = True
            f.Show()
            f = New Zoom_File_Manager
        End Sub

    • Tipo Alterado Marcos SJ segunda-feira, 18 de abril de 2016 12:42 How to
    sábado, 16 de abril de 2016 23:24

Todas as Respostas

  • Corrigido !!!

    Codigo

    Try
                    Dim x As Object = Application.OpenForms.Item("Zoom_File_Manager")
                    CType(x.PictureBox1, PictureBox).Image = Me.PictureBox1.Image
                Catch ex As Exception
                    MessageBox.Show(ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End Try

     

    segunda-feira, 18 de abril de 2016 18:34