Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
Demonx
-
- Бывалый
-
-
- Сообщения: 237
- Зарегистрирован: 25.06.2003 (Ср) 0:08
- Откуда: Литва/Висагинас
-
Demonx » 09.12.2008 (Вт) 15:41
На сайте есть:
<form method="POST" name="SMForm">
<select multiple="multiple" name="list[]" >
<option value="45557">222</option>
<option value="45556">3333</option>
</select>
Данные достаю Browser1.Document.Formname.obj.value
А вот как выделить все данные в list[]?
Browser1.Document.SMForm.....Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!
-
SSecurity
-
- Служба безопасности
-
-
- Сообщения: 1283
- Зарегистрирован: 19.08.2003 (Вт) 1:11
- Откуда: Россия, Мурманск
-
SSecurity » 09.12.2008 (Вт) 18:04
- Код: Выделить всё
Dim Page As New HTMLDocument
Dim AAA As HTMLSelectElement
Set Page = WB.document
For Each AAA In Page.getElementsByName("list[]")
AAA.Item(0).Selected = True
AAA.Item(1).Selected = True
Next
Программист - это маленький Бог, а все его ошибки - это самостоятельные творения:)
Так задумано:)
-
Demonx
-
- Бывалый
-
-
- Сообщения: 237
- Зарегистрирован: 25.06.2003 (Ср) 0:08
- Откуда: Литва/Висагинас
-
Demonx » 10.12.2008 (Ср) 12:19
Спасибо, разобрался сам.
- Код: Выделить всё
With Browser.Document.SMForm.elements(0)
For n = 0 To .length - 1
.Options(n).Selected = True
Next
End With
p.s. забыл про elements
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот и гости: 38