Прямоугольная полоса на весь экран - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Всем привет! Помогите подсказкой, как создать прямоугольную полоску (не кликабельную, прозрачную) Чтобы подсвечивалась "линия" курсора мыши. В какую сторону копать и какой элемент нужно использовать для этого. Новичок в .net, поэтому простите что так криво объясняю. Прилагаю скриншот. Задача прямоугольника этого просто выделить полосу курсора

Решение задачи: «Прямоугольная полоса на весь экран»

textual
Листинг программы
  1. Imports System.Runtime.InteropServices
  2. Imports System.Threading
  3. Public Class Form1
  4.  
  5.     <DllImport("User32.dll")>
  6.     Public Shared Function GetDC(hwnd As IntPtr) As IntPtr
  7.     End Function
  8.     <DllImport("User32.dll")>
  9.     Public Shared Sub ReleaseDC(dc As IntPtr)
  10.     End Sub
  11.     Dim rect As New Rectangle(0, 500, 1000, 200)
  12.     Dim blackPen As New Pen(Color.Black, 3)
  13.     Private d As IntPtr = GetDC(IntPtr.Zero)
  14.     Private gfx As Graphics = Graphics.FromHdc(GetDC(IntPtr.Zero))
  15.  
  16.     Public Sub New()
  17.         InitializeComponent()
  18.     End Sub
  19.  
  20.     Private Sub Back()
  21.         While True
  22.             Thread.Sleep(200)
  23.             Try
  24.                 gfx.DrawRectangle(blackPen, rect)
  25.             Catch
  26.                 Exit Sub
  27.             End Try
  28.         End While
  29.     End Sub
  30.  
  31.     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
  32.         Dim th2 As New Thread(AddressOf Back)
  33.         th2.Start()
  34.         Thread.Sleep(1000)
  35.     End Sub
  36.  
  37.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  38.         Dim th2 As New Thread(AddressOf Back)
  39.         th2.Start()
  40.         Thread.Sleep(1000)
  41.     End Sub
  42. End Class

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


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

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

15   голосов , оценка 3.933 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы