¿Cómo rotar en vb?
Dim p()
ScaleMode = 3
Imagen 1. AutoRedraw = Verdadero
Imagen 1. ModoEscala = 3
w =Imagen 1. ancho de marca
h = Imagen 1. Altura de escala
ReDim p(w - 1, h - 1)
Para i = 0 a w - 1
Para j = 0 a h - 1
p(i, j) = Imagen1. Haga clic en (I, j)
Siguiente j
Siguiente yo
Imagen 1. ancho = h 4 * imagen 1. Estilo de borde
Imagen 1. altura = w 4 * Imagen1. Estilo de borde
Para i = 0 a h - 1
Para j = 0 a w - 1
Imagen 1. PSet (i, w - j - 1), p (j, I)
Siguiente j
Siguiente I
Imagen de página 1.pset ( I, w-j-1) girar 90 grados en el sentido de las agujas del reloj, p (j, I).
Cambiar a la imagen 1. pset(H-I-1,J),P(J,I).
Gira 180 grados y cambia las últimas siete líneas a
Para i = 0 a w - 1
Para j = 0 a h - 1
Imagen 1. PSet (i, j), p(w - i - 1, h - j - 1)
Siguiente j
Siguiente yo