Прямоугольная полоса на весь экран - 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