Прямоугольная полоса на весь экран - Visual Basic .NET
Формулировка задачи:
Всем привет! Помогите подсказкой, как создать прямоугольную полоску (не кликабельную, прозрачную) Чтобы подсвечивалась "линия" курсора мыши.
В какую сторону копать и какой элемент нужно использовать для этого.
Новичок в .net, поэтому простите что так криво объясняю. Прилагаю скриншот. Задача прямоугольника этого просто выделить полосу курсора
Решение задачи: «Прямоугольная полоса на весь экран»
textual
Листинг программы
Imports System.Runtime.InteropServices Imports System.Threading Public Class Form1 <DllImport("User32.dll")> Public Shared Function GetDC(hwnd As IntPtr) As IntPtr End Function <DllImport("User32.dll")> Public Shared Sub ReleaseDC(dc As IntPtr) End Sub Dim rect As New Rectangle(0, 500, 1000, 200) Dim blackPen As New Pen(Color.Black, 3) Private d As IntPtr = GetDC(IntPtr.Zero) Private gfx As Graphics = Graphics.FromHdc(GetDC(IntPtr.Zero)) Public Sub New() InitializeComponent() End Sub Private Sub Back() While True Thread.Sleep(200) Try gfx.DrawRectangle(blackPen, rect) Catch Exit Sub End Try End While End Sub Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click Dim th2 As New Thread(AddressOf Back) th2.Start() Thread.Sleep(1000) End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim th2 As New Thread(AddressOf Back) th2.Start() Thread.Sleep(1000) End Sub End Class
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д