| Pregunta: | 44378 - PREGUNTA |
| Autor: | Fco. Javier Olvera |
| ¿Cómo utilizar el PictureClip? | |
| Respuesta: | SuNcO |
| Si revisaras la Ayuda facilmente podrias saber para que es ese Control
Basicamente es para poner una imagen con varias imagenes dentro para posteriormente utilizarlas en diferentes PictureBox en tu Proyecto El ejemplo que trae lo pego integramente aqui.. Practicamente el ejemplo dice que se toman las coordenadas de donde esta la imagen, se toma su medida y se pasan al PictureBox Private Sub Form_Click () Dim SaveMode As Integer ' Guarda el ScaleMode activo para el cuadro de ' imagen. SaveMode = Picture1.ScaleMode ' Obtiene las coordenadas X e Y de la región de ' recorte (en píxeles). PicClip1.ClipX = Val(Text1.Text) PicClip1.ClipY = Val(Text2.Text) ' Establece el área de la región de recorte ' (en píxeles). PicClip1.ClipHeight = 100 PicClip1.ClipWidth = 100 ' Asigna el valor ScaleMode del cuadro de imagen ' a píxeles. Picture1.ScaleMode = 3 ' Establece el área de destino para llenar el ' cuadro de imagen. PicClip1.StretchX = Picture1.ScaleWidth PicClip1.StretchY = Picture1.ScaleHeight ' Asigna el mapa de bits recortado al cuadro ' de imagen. Picture1.Picture = PicClip1.Clip ' Restablece el valor ScaleMode del cuadro de imagen. Picture1.ScaleMode = SaveMode End Sub | |