AYUDA para agregar imagenes

[jsc_222]

Yo te paso el codigo q hice al momento de guardar la ruta, asi especifico mas lo q hizo mi amigo seba jejejje.. que el lo explico en puras palabras, ahora yo t lo digo en Codigo jejej... aqui va lo q hice , es exactamente lo q hizo SEBA.

El Siguiente Codigo es q cuando le de click derecho al Picture, inicie una ventana q muestre la imagen a elegir.

Me.OpenFileDialog1.Filter = "Archivos BMP (*.bmp)|*.bmp|Iconos (*.ico)|*.ico|Archivos JPG (*.jpg)|*.jpg|Archivos JPEG (*.jpeg)|*.jpeg|Archivos GIF (*.gif)|*.gif"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.va_image_us.Text = OpenFileDialog1.FileName
'j = va_image_us.Text.Length
With PictureBox1

.Image = Image.FromFile(OpenFileDialog1.FileName)
'For i = 0 To va_image_us.Text.Length
' NombreImagen = NombreImagen + va_image_us.Text.Chars(j - 1)
' j = j - 1
' If (va_image_us.Text.Chars(j) = "\") Then

' 'MsgBox(NombreImagen)
' Exit For
' End If
'Next
'l = NombreImagen.Length
'For k = 0 To NombreImagen.Length
' NombreOriginal = NombreOriginal + NombreImagen.Chars(l - 1)
' l = l - 1
' If NombreOriginal.Length = NombreImagen.Length Then
' MsgBox(NombreOriginal)
' Exit For
' End If
'Next
End With
Me.Cursor = Cursors.WaitCursor
Me.Cursor = Cursors.Arrow
'MsgBox("Imagen Insertada", MsgBoxStyle.Question)
Else
If va_image_us.Text <> "" Then
Me.va_image_us.Text = OpenFileDialog1.FileName
Else
Me.va_image_us.Text = ""
End If
End If



Ahora al momento de guardar la ruta, osea todo el contenido q escribio en los textbox.


Private Sub btnGCe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGCe.Click

Try
insAn._va_nom_us = Trim(va_nom_us.Text)
insAn._va_ape_us = Trim(va_ape_us.Text)
insAn._va_login_us = Trim(va_login_us.Text)
insAn._va_pass_us = Trim(va_pass_us.Text)
insAn._va_telf_us = Trim(va_telf_us.Text)
insAn._va_telf2_us = Trim(va_telf2_us.Text)
insAn._va_direc_us = Trim(va_direc_us.Text)
insAn._va_email_us = Trim(va_email_us.Text)
insAn._va_question_us = Trim(va_question_us.Text)
insAn._va_resp_us = Trim(va_resp_us.Text)
insAn._va_image_us = Trim(va_image_us.Text)
If va_image_us.Text <> "" Then
CopiarImagen(Trim(va_image_us.Text), "D:\Juegos\" + Trim(va_login_us.Text) + ".jpg")
End If
insAn._va_image_us = Trim("D:\Juegos\" + Trim(va_login_us.Text) + ".jpg")
If (va_login_us.Text <> "") Then
If (va_pass_us.Text <> "") Then
' Una funcion que me devuelve si existe el Login
If Not (Busqueda_Login(va_login_us.Text)) Then
insAn.Insertar()
End If
Else
cargardatos()
Close()
End If
Else
cargardatos()
Close()
End If
cargardatos()
Close()
'MsgBox("Usuario Registrado")
Catch ex As Exception
MsgBox("No se pudo registrar al usuario, intente nuevamente")
End Try
End Sub

Public Sub CopiarImagen(ByVal Imagen_Fuente As String, ByVal Imagen_Destino As String)
FileCopy(Imagen_Fuente, Imagen_Destino)
End Sub