VPF::WebBrowser_DblClick - Форум программистов

ProgramerForever

Дата 25.12.2008, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5

Доброго времени, уважаемые форумчане.

Мне нужно сделать так, чтобы по двойному клику на компоненте WebBrowser он разворачивался на всю форму (ну, или не на всю, это не суть..).
Как такового события DblClick нет. Помогайте!

(Есть вариант реализации, но что-то ОООчень уж сложно выходит)

Код


'
'Отслеживать Timer'ом клик мыши (а двойной и того сложнее будет)
'Определять, активно ли окно программы
'Определять границы каждого из WebBrowser (их несколько в программе будет)
'Если все факторы совпали (окно активно, произошёл двойной клик в пределах компонента), то
'WebBrowser.Move (параметры)
'

Это сообщение отредактировал(а) ProgramerForever - 25.12.2008, 19:55

alorion

Дата 15.2.2009, 11:25 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 15.2.2009

Репутация: нет
Всего: нет

Код


Option Explicit

Private WithEvents Doc As MSHTML.HTMLDocument

Private Sub Form_Load()
    WebBrowser1.Navigate "about:"
    While WebBrowser1.Document Is Nothing
        DoEvents
    Wend
    Set Doc = WebBrowser1.Document
End Sub

Private Function Doc_ondblclick() As Boolean
    WebBrowser1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Function

Это сообщение отредактировал(а) alorion - 15.2.2009, 11:28

ProgramerForever

Дата 2.7.2009, 16:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5

Есть небольшая проблема: у меня несколько WebBrowser'ов, да и документы в них постоянно меняются.

neic

Дата 2.7.2009, 23:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7

Создай массив веб бразуеров и сделай так:

Код


'в модуле
Public dbclickbrouser(n) as boolean

' на форме
Public Form_Load()
For i = 1 to n
        dbclickbrouser(i) = False
Next
End Sub

Public W_Click(Index as integer)
If dbclickbrouser(Index) = False then ' если это первый клик, то...
       dbclickbrouser(Index) = True
else ' если это 2ой клик, то...
       dbclickbrouser(Index) = False
       w(index).heigh = 'указываешь на сколько развернуть
       w(index).width = 'тоже самое
end if
End Sub

Добавлено через 1 минуту и 9 секунд
Если это не реально, то мне кажется либо через какие-то функции которые мне не известны, либо много переменных.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »