Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo escribir código en vb2015 que sea interceptado por chistes personalizados como QQ?

¿Cómo escribir código en vb2015 que sea interceptado por chistes personalizados como QQ?

Al tomar una captura de pantalla, abra esta ventana translúcida sin bordes de pantalla completa, arrastre el borde con el mouse, haga doble clic en la ventana y llame al software de imagen predeterminado para mostrar la captura de pantalla.

¿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