Red de conocimiento informático - Problemas con los teléfonos móviles - VB.net Cargar imagen en una ubicación específica

VB.net Cargar imagen en una ubicación específica

Imagen cortada de mapa de bits público (ByVal comienza como punto, ByVal finaliza como punto, ByVal b como mapa de bits)

Dim f como nuevo mapa de bits (end.X - start.X 1, end. Y - inicio.Y 1)

Para i Como Entero = inicio.X Para finalizar.X 1

Para j Como Entero = inicio.Y Para finalizar.Y 1

Atenuar c como color = b. GetPixel(i, j)GetPixel(i, j)

f.SetPixel(i - start.X, j - start.Y, c)

Siguiente

Siguiente

Regresar f

End Sub

Esta función se puede utilizar para recortar la imagen y regresar la imagen recortada, el inicio es la posición donde comienza el recorte, el final es la posición donde termina el recorte y b es la imagen que se va a recortar. Suponiendo que el ancho de cada botón es 30 y la altura es 20, puede usar

PictureBox1.Image = CutImage(New Point(n - 1th button * 30, 0), New Point(nth button * 30 , 20), mapa de bits de presencia del botón)