Прямоугольная полоса на весь экран - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д