Visual Basic - ayuda con una imagen

Life is soft - evento anual de software empresarial
 
Vista:

ayuda con una imagen

Publicado por pilar (4 intervenciones) el 18/05/2007 21:23:48
Hola necesito una ayuda, inserte una imagen en un formulario con la propiedad picture, pero esta imagen me aparece en la parte superior izquierda del formulario y quiero cambiarla de posición. como lo hago?. desde ya gracias por la ayuda.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda con una imagen

Publicado por fernando (102 intervenciones) el 19/05/2007 03:01:44
Un modo:

En un módulo .bas:

Option Explicit
'Variable para almacenar la imagen
Private Pic As IPictureDisp

Sub Ubicar_Imagen(Objeto As Object, Path_Imagen As String, _
posic_x As Single, posic_y As Single)

Dim Ancho_IMG As Single 'Ancho de la imagen
Dim Alto_IMG As Single 'Alto de la imagen

Set Pic = LoadPicture(Path_Imagen)

With Objeto

.AutoRedraw = True
.Cls

.ScaleMode = vbPixels

'Pasa el ancho y alto de la imagen a Pixeles
Ancho_IMG = .ScaleX(Pic.Width, vbHimetric, vbPixels)
Alto_IMG = .ScaleY(Pic.Height, vbHimetric, vbPixels)

End With

'Dibuja la imagen
Objeto.PaintPicture Pic, posic_x, posic_y, Ancho_IMG, Alto_IMG

Exit Sub

End Sub

En el form:

Private Sub Form_Load()

'argumentos: form, path de la imagen, posición x, posición y

Call Ubicar_Imagen(Me, "imagen.jpg", x en pixels, y en pixels)

End Sub

Otro modo:

insertar imagen en un picturebox y mover el picturebox dentro del form.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar