¿Cómo escribir código en vb2015 que sea interceptado por chistes personalizados como QQ?
¿Público? ¿clase? Formulario 2
¿Privado? ¿Sub? Form2_MouseDoubleClick(ByVal?Sender?As?Object,?ByVal?e?As?System.Windows.Forms.MouseEventArgs)? ¿manejar? I. Haz doble clic
en mí. cerrar()
¿Si? viejo¿Recto? <>? ¿Nada? Luego
controla la pintura. DrawReversibleFrame(oldRect, es decir, color de fondo,? estilo de marco. grueso)
¿Atenuado? imagen? ¿Como? ¿Nuevo? Mapa de bits(oldRect.width,?oldRect.height)
Gráficos. De la imagen (img). CopyFromScreen(oldRect.x,?oldRect.y,?0,?0,?oldRect.size)
img. Guardar(" c:\cutimg.jpg ", Imaging.ImageFormat.Jpeg)
Proceso. Inicio("c:\cutimg.jpg ")
¿Fin? Si
¿Finalizar? Submarino
¿Oscuro? ¿punto de partida? ¿Como? Puntos clave
¿Atenuado? ¿Correcto? ¿Como? Rectángulo
¿Público? viejo¿Recto? ¿Como? Rectángulo
¿Oscuro? enRect? ¿Como? Sistema de álgebra booleana
¿Privado? ¿Sub? Form2_MouseDown(ByVal?Sender?As?Object,?ByVal?e?As?System.Windows.Forms.MouseEventArgs)? ¿manejar? I. Ratón presionado
¿Y si? ¿Patton? =?Ventana. forma. Botones del ratón. ¿Izquierda? Entonces
onRect? =?¿El verdadero
punto de partida? =?e.Ubicación
Fin? Si
¿Finalizar? Submarino
¿Privado? ¿Sub? Form2_MouseMove(ByVal?Sender?As?Object,?ByVal?e?As?System.Windows.Forms.MouseEventArgs)? ¿manejar? I. Movimiento del ratón
¿Y si? enRect? Entonces
¿usar? ¿Gramo? ¿Como? ¿Gráficos? =?CreateGraphics()
¿Si? viejo¿Recto? <>? ¿Nada? Luego
Controla la pintura. DrawReversibleFrame(oldRect, es decir, color de fondo,? estilo de marco. grueso)
¿Fin? Si
curRect? =?Rectángulo. FromLTRB(startPoint.
ControlPaint.DrawReversibleFrame(curRect, ?BackgroundColor,?FrameStyle.Thick)
oldRect?=?Current
If
Fin?Usar
Finalizar si
Sub? Sub? Form2_MouseUp(ByVal?Sender? ?ByVal?e?System?I. p>
Privado?Sub?Form2_Load (¿PorVal?Remitente?Como?Sistema.Objeto,?PorVal?e?Como?Sistema.
¿Argumentos de evento)? ¿manejar? Mi base. Cargar
antiguoRect? =?Nada
¿El final? Submarino
¿Público? ¿Sub? nuevo()
? ¿Cómo se llama esto? ¿Windows? Se requiere diseñador de formularios.
InitializeComponent()
? ¿Estás en línea? ¿Inicializar componente()? Agregue cualquier inicialización después de la llamada.
¿Mostrar en la barra de tareas? =?¿Texto
incorrecto? =?""
¿Caja de control? =?Incorrecto
¿TopMost? =?Real
¿Estado de la ventana? =?FormWindowState. ¿Opacidad máxima alcanzada
? =?0.3
¿Fin? Submarino
¿Fin? Clase