Guardar datos agregados a una imagen

[rositafresita]

hola a todos, mi duda es que si en un formulario ya tengo una imagen dentro de un pictureBox pero quiero que marque ciertas posiciones dentro de la imagen como si fueran coordenadas, que control puedo usar para hacer esas marcas y como puedo guardar la posición de esas marcas dentro de la imagen.

Gracias a quien me pueda ayudar

[javier camacho]

este ejemplo esta diseñado para un formulario se puede adaptar a un picture box

Este ejemplo utiliza el método Line para dibujar cuadros concéntricos en un formulario. Para probar el ejemplo, pegue el código en la sección General de un formulario. Después, presione F5 y haga clic en el formulario.

Sub Form_Click ()
Dim CX, CY, F, F1, F2, I ' Declara variables
ScaleMode = 3 ' Establece ScaleMode a píxeles.
CX = ScaleWidth / 2 ' Obtiene el centro horizontal.
CY = ScaleHeight / 2 ' Obtiene el centro vertical.
DrawWidth = 8 ' Establece DrawWidth.
For I = 50 To 0 Step -2
F = I / 50 ' Realiza cálculos
F1 = 1 - F: F2 = 1 + F ' intermedios.
Forecolor = QBColor(I Mod 15) ' Establece el color de primer plano.
Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF
Next I
DoEvents ' Otros procesos.
If CY > CX Then ' Establece DrawWidth.
DrawWidth = ScaleWidth / 25
Else
DrawWidth = ScaleHeight / 25
End If
For I = 0 To 50 Step 2 ' Establece el bucle.
F = I / 50 ' Realiza cálculos
F1 = 1 - F: F2 = 1 + F ' internos.
Line (CX * F1, CY)-(CX, CY * F1) ' Dibuja en la esquina superior izquierda.
Line -(CX * F2, CY) ' Dibuja en la esquina superior derecha.
Line -(CX, CY * F2) ' Dibuja en la esquina inferior derecha.
Line -(CX * F1, CY) ' Dibuja en la esquina inferior izquierda.
Forecolor = QBColor(I Mod 15) ' Cambia de color cada vez.
Next I
DoEvents ' Otros procesos.
End Sub