Deslocar imagem via textbox

Question

Bom dia gente...como descolar imagem com base em valores digitados em duas textbox (X, Y) o código abaixo desloca a imagem

somente em uma posição...

        Dim bottomValue As Integer = PictureBox1.Top + PictureBox1.Height
        PictureBox1.Location = New Point(PictureBox1.Location.X + 20, PictureBox1.Location.Y + 5)

Obrigado...

Answer 1

Boa noite,

você gostaria de alterar a imagem com base no valor digitado na caixa de texto?

Answer 2

Olá bom dia...isso mesmo, uso uma picturebox e queria faze-la mudar de posição (via Timer) de acordo com as coordenadas digitadas nos TextBox

Answer 3

Tente assim:

Se te ajudou, marque como resposta.

Public Class Form2

    Dim Hpos As Integer = 0
    Dim Wpos As Integer = 0

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Width = 650
        Me.Height = 520

        PictureBox1.Image = Image.FromFile("C:\Users\Mariano\Desktop\Projetos\ProfileImage.jpg")

        PictureBox1.Width = 90
        PictureBox1.Height = 120

        PictureBox1.Top = 0
        PictureBox1.Left = 0

        Timer1.Interval = 1000
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        PictureBox1.Left += 90

        If PictureBox1.Left = 630 Then
            PictureBox1.Left = 0
            PictureBox1.Top += 120

            If PictureBox1.Top = 480 Then PictureBox1.Top = 0
        End If

    End Sub
End Class

---

MARIANO1776

Answer 4

Bom dia Mariano, agradeço a ajuda mas onde entro com os valores dos TextBox para mover a PictureBox ?

Abs

Answer 5

Boa noite.

O exemplo que dei foi usando o timer e com valores prefixados.

Se te ajudou, marque como resposta.

Para usar textboxes seria mais ou menos assim:

Public Class Form2

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Width = 650
        Me.Height = 520

        PictureBox1.Image = Image.FromFile("C:\Users\Mariano\Desktop\Projetos\ProfileImage.jpg")

        PictureBox1.Width = 90
        PictureBox1.Height = 120

        PictureBox1.Top = 0
        PictureBox1.Left = 0

        Timer1.Interval = 10000
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If TextBox1.Text = "" Or TextBox2.Text = "" Then MsgBox("preencha o textbox1 com valores entre 0 e 540 e textbox2 com valores entre 0 e 360")
        If CInt(TextBox1.Text) > 360 Or CInt(TextBox2.Text) > 540 Then MsgBox("preencha o textbox1 com valores entre 0 e 540 e textbox2 com valores entre 0 e 360")

        PictureBox1.Top = CInt(TextBox1.Text)
        PictureBox1.Left = CInt(TextBox2.Text)


    End Sub

    Private Sub TextBox__KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress
        'aceita somente números nos textboxes

        If Not IsNumeric(e.KeyChar) And e.KeyChar <> Chr(8) Then
            e.KeyChar = Chr(0)
            e.Handled = True
        End If
    End Sub

---

MARIANO1776

Answer 6

Boa tarde Mariano1776, funcionou, estou fazendo algumas adaptações e explorando a movimentação via setas do teclado também...valeu