Страница: 1 |
Страница: 1 |
Вопрос: как открыть ссылки из listbox
Добавлено: 14.08.06 16:53
Автор вопроса: ArtBase | ICQ: 55593017
есть форма типа браузера - "Browser"
в listbox находятся ссылки.
как открыть все ссылки по нажатию кнопки
из списка в отдельных окнах формы "Browser"?
Ответы
Всего ответов: 6
Номер ответа: 1
Автор ответа:
VβÐUηìt
Вопросов: 246
Ответов: 3333
Web-сайт:
Профиль | | #1
Добавлено: 14.08.06 18:03
Угар, два раза тема сохранилась!..
Со мной тоже было такое, может администратор пояснит)))))))))))))))))))?
Номер ответа: 2
Автор ответа:
ArtBase
ICQ: 55593017
Вопросов: 23
Ответов: 76
Профиль | | #2
Добавлено: 14.08.06 19:40
потому что сервак глючил и тормозил - я нажал на кнопку Сохранить...страница повисла в ожидании... остановил неудную загрузку страницы и опять назал кнопку сохранить...вот и весь эффект...
===
ну дак что, кто поможет мне с вопросом?
Номер ответа: 3
Автор ответа:
HACKER
Разработчик Offline Client
Вопросов: 236
Ответов: 8362
Профиль | | #3
Добавлено: 14.08.06 23:26
Чё сервак то пинать? Мож провайдер у тебя такой ))
Dim frm as New Form frmBrowser?
или чё надо? вопрос канечно задан каряво..
Номер ответа: 4
Автор ответа:
ArtBase
ICQ: 55593017
Вопросов: 23
Ответов: 76
Профиль | | #4
Добавлено: 15.08.06 00:44
да нет. это vbnet'овский сайт капризничал - то исходник asp'ов выдаст, то еще что... так что это не провайдер.
===
HACKER, смотри, есть listbox и в нем ссылки на сайты. дак вот. надо по нажатию одной кнопочки открыть эти сайты в окне-браузере (ясен пень окно самопальное с компонентом WebBrowser). вот.
Номер ответа: 5
Автор ответа:
sne
Разработчик Offline Client
ICQ: 233286456
Вопросов: 34
Ответов: 5445
Web-сайт:
Профиль | | #5
Добавлено: 15.08.06 10:29
Это и есть ответ на твой вопрос, создаешь новый экземпляр своей формочки, отдаешь туда ссылочку и показываешь. На головной форме неплохо бы иметь коллекцию из формочек, иначе не сможешь ими управлять
Номер ответа: 6
Автор ответа:
HACKER
Разработчик Offline Client
Вопросов: 236
Ответов: 8362
Профиль | | #6
Добавлено: 15.08.06 16:30
Private Sub Command1_Click()
If countform > 9 Then MsgBox "Больше низя": Exit Sub
Dim f As New Form1
Set frm(countform) = f
frm(countform).Show
countform = countform + 1
End Sub
в модуль
обращаться к браузеру