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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы