Определить, какая кнопка на веб-форме нажата

@AlexNorton · Регистрация: 30.04.2016

Студворк — интернет-сервис помощи студентам

Приветствую, коллеги!
Кратенько - суть проблемы:
Формирую текстовый документ html-стандарта. Веббровзером его открываю. Кнопки в документе именуются с добавлением в хвост имени текущей итерации цикла: enter0, enter1, enter2...
Помимо имени у кнопок есть ID. Он идентичен именам.
======================================== =========

Задача: отследить - какая кнопка нажата в веббровзере...

Инструмент:
Нашел в сети хавтуху)) в виде:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'декларация переменной
Public WithEvents elmHTML As HtmlElement
 
Private Sub WBrowser_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WBrowser.Navigated
    'пров наличия загр документа
    If (WBrowser.Document IsNot Nothing) Then
        elmHTML = WBrowser.Document.GetElementById("enter")
        If elmHTML IsNot Nothing Then
            AddHandler elmHTML.Click, AddressOf elmHTML_Click
        End If
    End If
End Sub
 
 
Private Sub elmHTML_Click(ByVal sender As Object, ByVal e As HtmlElementEventArgs) 'Handles elmHTML.Click
    MsgBox("Ура получилось.")
End Sub

Для работы с одной кнопкой - подходит.
Но при попытке работать с множеством кнопок - опа... Студия всегда считает, что нажата последняя кнопка, хотя в переменной sender в процедуру приходят значения Name и Id нажатой кнопки (смотри скрин).
Однако условие (в коде на скрине) отрабатывает второе.
Пробовал по параметрам Name, Id, Value...

Научите, как победить ситуевину...

Ну и на всякий случай - код формирования страницы с кнопками:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Dim PageHtmlHeader As String = "<!DOCTYPE HTML>" & vbNewLine & "<html lang=" & Chr(34) & "ru-ru" & Chr(34) & " Dir=" & Chr(34) & "ltr" & Chr(34) & _
                vbNewLine & "<head><meta http-equiv=" & Chr(34) & "content-type" & Chr(34) & "content=" & Chr(34) & "text/html; charset=utf-8" & Chr(34) & "/>"
 
            Dim PageHtmlStyle As String = "<style>" & vbNewLine & "body {font-size:14px; font-family: Helvetica, Tahoma, Verdana, Arial; color: #555;}" & _
                vbNewLine & "h3 {text-align: right; font-size: 16px; font-weight: 600; color: #F45010; padding: 20px 5px 0 0; line-height: 18px;}" & _
                vbNewLine & "h4 {color: #ccc;}" & vbNewLine & "p {text-align: justify; text-indent: 15px;}" & vbNewLine & ".pps {font-style: italic;}" & _
                vbNewLine & ".msg {background-color: #e3e3e3; width: 100%; padding: 5px;}" & vbNewLine & ".hdr, .bdy, .ps {background-color: #f2f2f2; width: 100%;}" & _
                vbNewLine & ".bdy, .ps {margin-bottom: 5px; pddding: 5px;}" & vbNewLine & ".hdr {margin-bottom: 15px;}" & _
                vbNewLine & ".crt {color: #1D67A4; width:35%; padding: 8px 5px 0 30px; float: left; background-image: url(slf32.slf); background-repeat: no-repeat; height: 25px;}" & _
                vbNewLine & ".alr {color: #9C290A; width:40%; padding: 8px 5px 0 30px; background-image: url(slf31.slf); background-repeat: no-repeat; height: 25px;}" & _
                vbNewLine & ".btt {float: right; margin-top: -10px; margin-bottom: - 10px;}" & _
                vbNewLine & "</style>" & vbNewLine & "</head>" & vbNewLine & vbNewLine & "<body>"
 
            Dim PageHtmlBody As String = "" : Dim PageHtmlReslt As String = ""
            ReDim WebBttName(DTNotes.Rows.Count - 1)
 
            For create As Integer = 0 To DTNotes.Rows.Count - 1
                PageHtmlBody &= "<div class=" & Chr(34) & "msg" & Chr(34) & ">" & vbNewLine
                PageHtmlBody &= "<div class=" & Chr(34) & "hdr" & Chr(34) & "><h3>" & DTNotes(create)(2) & "</h3></div>" & vbNewLine
                PageHtmlBody &= "<div class=" & Chr(34) & "crt" & Chr(34) & ">" & DTNotes(create)(1) & "</div>" & vbNewLine & _
                                "<div class=" & Chr(34) & "alr" & Chr(34) & ">" & DTNotes(create)(6) & "</div>" & vbNewLine
                PageHtmlBody &= "<div class=" & Chr(34) & "bdy" & Chr(34) & "><p>" & vbNewLine & DTNotes(create)(3) & vbNewLine & "</p></div>" & vbNewLine
                If Not IsNothing(DTNotes(create)(4)) And DTNotes(create)(4) <> "" Then
                    PageHtmlBody &= "<div class=" & Chr(34) & "ps" & Chr(34) & "><p class=" & Chr(34) & "pps" & Chr(34) & ">" & _
                        vbNewLine & DTNotes(create)(4) & vbNewLine & "</p></div>" & vbNewLine
                End If
                PageHtmlBody &= "<form>" & _
                    "<button class=" & Chr(34) & "btt" & Chr(34) & " name=" & Chr(34) & "enter" & create & Chr(34) & " id=" & Chr(34) & "enter" & create & Chr(34) & "> Удалить заметку </button></form>"
 
                WebBttName(create) = "enter" & create.ToString
                PageHtmlBody &= "</div>" & vbNewLine
            Next create
 
            PageHtmlReslt = PageHtmlHeader & vbNewLine & PageHtmlStyle & vbNewLine & PageHtmlBody & vbNewLine & "</body>"
            TextBox1.Text = PageHtmlReslt
            File.WriteAllText(SetFilePth & "slf29.slf", PageHtmlReslt)
            '===========ФОРМИРУЕМ СОДЕРЖИМОЕ ВЕБ-СТРАНИЦЫ============================================================
 
            WebBrNotes.Navigate(SetFilePth & "slf29.slf")

@AlexNorton · 28.03.2018, 21:06 **[ТС]**

скрин забыл прикрутить))

@OwenGlendower · 28.03.2018, 21:37

AlexNorton, думаю нужно назначить кнопкам разное значение id потому что их значения должны быть уникальными в рахмках документа. Например, по порядку - enter0, enter1, ..., enterN. Подписчиков добавлять в цикле

VB.NET
1
2
3
4
5
6
7
8
Dim I As Integer = 0
While True
    Dim elmHTML As HtmlElement = WBrowser.Document.GetElementById("enter" & I)
    If elmHTML Is Nothing Then Exit While
    
    AddHandler elmHTML.Click, AddressOf elmHTML_Click
    I = I + 1
End While

@AlexNorton · 28.03.2018, 22:00 **[ТС]**

Сообщение от OwenGlendower

думаю нужно назначить кнопкам разное значение id

Сообщение от AlexNorton

Кнопки в документе именуются с добавлением в хвост имени текущей итерации цикла: enter0, enter1, enter2...
Помимо имени у кнопок есть ID. Он идентичен именам.

Именно так я и поступил. Просто мудрить не стал. Сделал Name=Id. Но у разных кнопок имена разные.
======================================== =================

Сообщение от OwenGlendower

Подписчиков добавлять в цикле

Тут тоже все именно так построено:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub WebBrNotes_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrNotes.DocumentCompleted
        If (WebBrNotes.Document IsNot Nothing) Then
            For BttKolvo As Integer = 0 To WebBttName.Length - 1
                elmHTML = WebBrNotes.Document.GetElementById(WebBttName(BttKolvo))
                If elmHTML IsNot Nothing Then
 
                    AddHandler elmHTML.Click, AddressOf elmHTML_Click
                End If
            Next BttKolvo
        End If
    End Sub
 
 
    Private Sub elmHTML_Click(ByVal sender As Object, ByVal e As HtmlElementEventArgs) 'Handles elmHTML.Click
        If elmHTML.Id = "enter0" Then
            MsgBox("BTT 0")
        ElseIf elmHTML.Id = "enter1" Then
            MsgBox("BTT 1")
        End If
    End Sub

И ведь, что самое обидное - в ByVal sender значения приходят правильные... А условие выполняется всегда на последнюю кнопку (MsgBox("BTT 1")).

Такое ощущение, что используется последняя итерация цикла добавления этих самых подписчиков...

VB.NET
1
elmHTML = WebBrNotes.Document.GetElementById(WebBttName(BttKolvo))

@OwenGlendower · 28.03.2018, 22:03

AlexNorton, что-то проглядел это. Но одно важное отличие у моего решения все-таки есть. Переменную elmHTML не нужно делать полем класса.

@AlexNorton · 29.03.2018, 01:12 **[ТС]**

Попробовал по Вашему:
Если объявлять на уровне процедуры

VB.NET
1
2
Private Sub...
    Dim elmHTML As HtmlElement = WBrowser.Document.GetElementById("enter" & I)

то elmHTML не видна для обращения по событию click...

Если объявлять на уровне класса формы

VB.NET
1
2
3
Public Class FormGeneral
    Dim WithEvents elmHTML As HtmlElement
    ...

а в процедуре присваивать ей значения:

VB.NET
1
elmHTML = WebBrNotes.Document.GetElementById("enter" & BttKolvo)

то она остается постоянно пустой (Nothing)

@Bidgo · 29.03.2018, 07:41

Попробуйте

VB.NET
1
2
3
4
5
6
7
     Private Sub elmHTML_Click(ByVal sender As Object, ByVal e As HtmlElementEventArgs) 'Handles elmHTML.Click
        If sender.Id = "enter0" Then
            MsgBox("BTT 0")
        ElseIf sender.Id = "enter1" Then
            MsgBox("BTT 1")
        End If
    End Sub

@OwenGlendower · 29.03.2018, 07:43

Сообщение от AlexNorton

то elmHTML не видна для обращения по событию click...

Она там и не нужна. По идее через аргумент sender передается объект кнопки.

@AlexNorton · 29.03.2018, 16:24 **[ТС]**

Братцы, какое огромное спасибищще! Такую задумку спасли от забвения)))))))

Вот, как навалится тупняк, хоть вой. Сам мульон процедур с передачей данных через аргумент понаписал, а то, что 'sender' и 'e' можно так же просто использовать - даже ума не хватило))))).
Еще раз спасибо.

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@AlexNorton 15 / 15 / 5 Регистрация: 30.04.2016 Сообщений: 205
	28.03.2018, 21:06 [ТС]
	скрин забыл прикрутить)) Миниатюры 0

@OwenGlendower Администратор 18234 / 14148 / 5366 Регистрация: 17.03.2014 Сообщений: 28,840 Записей в блоге: 1
	28.03.2018, 22:03
	AlexNorton, что-то проглядел это. Но одно важное отличие у моего решения все-таки есть. Переменную elmHTML не нужно делать полем класса. 0

@AlexNorton 15 / 15 / 5 Регистрация: 30.04.2016 Сообщений: 205
	29.03.2018, 16:24 [ТС]
	Братцы, какое огромное спасибищще! Такую задумку спасли от забвения))))))) Вот, как навалится тупняк, хоть вой. Сам мульон процедур с передачей данных через аргумент понаписал, а то, что 'sender' и 'e' можно так же просто использовать - даже ума не хватило))))). Еще раз спасибо. 0

Определить, какая кнопка на веб-форме нажата

Решение