1
Definir las variables "buenas" que han sido optimizados para el mejor desempeño en el código. Evite variantes y tipos de datos decimales para sus variables. Las variantes son el peor tipo de variable en cualquier programa VB ya que ocupan mucha memoria . Una variable se define como una variante , si no se define ningún tipo de datos . Por ejemplo, " myVariable Dim " será una variante , mientras que " mi Dim Variable como Long " será un tipo de datos long . Tipos de datos largos son el tipo más rápido y más eficiente de datos para utilizar cuando se trabaja con los gráficos .
2
uso " GetBitmapBits /SetBitmapBits " y " GetDIBits /StretchDIBits " Rutinas de la " gdi32 " API . Cada una de estas rutinas referencia directamente a la memoria asignada dinámicamente en la máquina , por lo que muy rápido, pero tenga cuidado al usarlos. Declarar un tipo de mapa de bits que se necesita para la rutina de " GetObject " . Las variables importantes del tipo de mapa de bits son anchura de mapa de bits en píxeles , la altura de mapa de bits en píxeles , ancho de mapa de bits en bytes y el número de bits por píxel en la imagen . La función " RGB ( ImageData ( 2 , X, Y ) , ImageData ( 1 , X, Y ) , ImageData ( 0 , X, Y ) ) " recupera el color de la imagen situada en la coordenada XY especificado .
3
Obtener la ubicación del ratón cuando el usuario hace clic o clics dobles con la rutina " GetCursorPos " de la API " user32 " . Definir también un nuevo tipo de " PointAPI " para recuperar la xy coordenadas del clic del ratón. Ahora que usted tiene la xy coordenadas de la posición del ratón recién hecho clic , se puede mover el objeto gráfico para esa ubicación. Si mueve un objeto de imagen ", picture1.location = nuevo punto (x , y) " se moverá la imagen a la nueva ubicación. Para un mejor rendimiento llamada " GetObject ", luego " SetBitmapBits . "