Как определить касается ли PictureBox какого-либо цвета? - Visual Basic .NET

  1. Передо мною стоит сложная, по крайней мере для меня задача: нужно двигать точку до тех пор, пока она не каснётся какого-либо цвета. Если бы область цвета была 4 сторонняя (квадрат например) то вопросов бы не было (я бы просто добавил бы picturebox поверх квадрата) и дальше определил бы - касается ли точка pictureboxa или нет. Но тут дело послжнее - областей с серым цветом очень много... Буду благодарен за помощь !!!! vb.net1 2 3         While NOT "УСЛОВИЕ"             gdot1.Location = New Point(gdot1.Location.X + 1, gdot1.Location.Y)         End While


textual

Код:

Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        Dim colorFromClick As Color
        Dim bmp As New Bitmap(PictureBox1.Image)
        colorFromClick = bmp.GetPixel(e.X, e.Y)
        Me.BackColor = colorFromClick
    End Sub


Похожие ответы
  1. Всем здравствуйте. Определяю какие порты и чем заняты из командной строки (netstat –aon, tasklist). Существуют ли в .Net функции, облегчающие эту задачу?

  1. Помогите программно определить имя объекта.vb.net1 2 3 Private Sub Field_Leave(sender As Object, e As MouseEventArgs) e.OriginalSource.ToString() End SubОтвет меня не совсем устраивает: System.Windows.Control.Image Хочу заметить, что в XAML, имя определяется как: XML1 x:Name="imgBox1"Вот его и надо как-то вытащить. P.S. Приложение WPF

  1. Необходимо составить программу (консольное приложение). Определить номера строк прямоугольной матрицы (двумерный массив), хотя бы один которых равен k.

  1. Подскажите Заданы координаты N точек в пространстве. Необходимо определить номера точек, расстояние между которыми минимальное

  1. Всем здравствуйте. Файлы в папке имеют одинаковую структуру yymmdd.ved (yymmdd - это дата). Например, 170125.ved. Если в проводнике выбрана сортировка по имени в порядке возрастания, то последним окажется файл с самой старшей датой. Файлов в папке более 1000 шт. Также в папке может оказаться "залётный" файл, например с расширением bak или txt, нас абсолютно не интересующий. Как определить имя ved-файла с самой старшей датой (он будет в самом конце списка). Неужели перебирать и сравнивать? Если перебирать, то тогда хорошо бы начинать с конца.

  1. Всем доброго времени суток! На форме Listview. Как определить, что 1. ячейка пуста 2. пуста колонка? Спасибо за помощь и понимание.

  1. Доброго всем.. Кто нибудь писал под ноуты определение открыта ли крышка ? Поделитесь кодом) Нашёл в инете пару библиотек(кривые) да и не хочу использовать их.. В принцепе можно конечно отследить включена ли матрица и с этого танцевать... Но есть пару прог которые тоже будут включены и вот они будут мешать определение включен ли монитор.. тоесть отпадает вариант с матрицей... Если есть у кого что на уме .. подскажите)

  1. Приветствую! Мужики, как можно определить, есть ли в строке русская буква или нет? Строка в UTF8. Регуляркой можно такое сделать? Если да, респект за пример Или может что-то встроенное уже есть для решения подобных задач? Мне сейчас на ум приходит только сравнение чаров строки с диапазоном русского чарсета в UTF8.

  1. Добрый день, товарищи! Открываем ворд с помощью vb.net1 oWord = CreateObject("Word.Application")Допустим во время работы, создается много таких объектов в ворде. (закрывать их сразу нельзя по задаче) Вопрос. Как по нажатию кнопки, закрыть все ворд окна, открытые нами? Может маркер какой свой писать, или тэг... Я думаю есть же функционал такой. Может через процесс? Но я лишь знаю как закрыть все процессы ворда без разбора

  1. Привет друзья. Не получается решать одну задачу. Как определить количество стр в книге, когда суммы его страницы известно. условия такая: 1+2+3+4+5+6+7+8+9=45 10=1+0=1 11=1+1=2 12=1+2=3 13=1+3=4 14=1+4=5 15=1+5=6 45+21=66 то есть итог 66. Вот у меня код: которые через количество стр находить его сумму мне надо чтобы через суммы его стр нашёл количество страниц. vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24         Dim summa As Integer = 0         Dim i As Integer         Dim k, k2, k3, k4 As Integer         Dim n As Integer = 15         For i = 1 To n             ListBox1.Items.Add(i)             If i <= 9 Then                 summa = summa + i             End If             If i > 9 And i < 99 Then                 k = Mid(i, 1, 1)                 k2 = Mid(i, 2, 1)                 k3 = k + k2                 summa = summa + k3             End If             If i > 99 Then                 k = Mid(i, 1, 1)                 k2 = Mid(i, 2, 1)                 k3 = Mid(i, 3, 1)                 k4 = k + k2 + k3                 summa = summa + k4             End If             TextBox1.Text = summa         Next