VPF::Переопределение ActiveX компонента

Spawn™Production®

Дата 17.5.2005, 19:39 (ссылка)

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

Загрузка ...

Тестер ПО, VB.NET Developer

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

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

Столкнулся с такой вот проблемой. Компонент для проигрывания Flash не поддерживает события мыши. Пришлось субклассинг делать. Вроде бы всё хорошо, менб, которое мне не нужно убирается, и на его место встаёт другое. Но, кликая на пункты меню, получаю баранку от бублика.
Вот код.

Код


Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Код, автоматически созданный конструктором форм Windows "

    Public Sub New()
        MyBase.New()

        'Этот вызов требуется конструктором форм Windows.
        InitializeComponent()

        'Добавьте код инициализации после вызова InitializeComponent()

    End Sub

    'Форма переопределяет метод Dispose для очистки списка компонентов.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Требуется конструктором форм Windows
    Private components As System.ComponentModel.IContainer

    'ПРИМЕЧАНИЕ: следующая процедура требуется для конструктора форм Windows.
    'Ее можно изменить в конструкторе форм Windows.  
    'Не изменяйте ее в редакторе исходного текста.
    Friend WithEvents AxShockwaveFlash1 As flash
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        Me.AxShockwaveFlash1 = New Flash_Player.flash
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        CType(Me.AxShockwaveFlash1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'AxShockwaveFlash1
        '
        Me.AxShockwaveFlash1.ContextMenu = Me.ContextMenu1
        Me.AxShockwaveFlash1.Enabled = True
        Me.AxShockwaveFlash1.Location = New System.Drawing.Point(16, 8)
        Me.AxShockwaveFlash1.Name = "AxShockwaveFlash1"
        Me.AxShockwaveFlash1.OcxState = CType(resources.GetObject("AxShockwaveFlash1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.AxShockwaveFlash1.Size = New System.Drawing.Size(352, 256)
        Me.AxShockwaveFlash1.TabIndex = 0
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.Text = "Выход"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.Color.GhostWhite
        Me.ClientSize = New System.Drawing.Size(384, 358)
        Me.Controls.Add(Me.AxShockwaveFlash1)
        Me.ForeColor = System.Drawing.SystemColors.ControlText
        Me.KeyPreview = True
        Me.MinimumSize = New System.Drawing.Size(392, 392)
        Me.Name = "Form1"
        Me.Text = "Spawn Flash Player"
        Me.TransparencyKey = System.Drawing.Color.Violet
        CType(Me.AxShockwaveFlash1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        End
    End Sub

Public Class flash
    Inherits AxShockwaveFlashObjects.AxShockwaveFlash

    Public Const WM_RBUTTONDOWN = &H204

    Dim point As New point

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Select Case m.Msg
            Case WM_RBUTTONDOWN 'Отлавливаем нажатие правой кнопки мыши
                point = Me.PointToClient(Cursor.Position)
                Me.ContextMenu.Show(Me, point) 'Отображаем своё меню
                Return 'Блокируем старое меню
        End Select
        MyBase.WndProc(m) ' Передаем события дальше
    End Sub
End Class

--------------------

ОС: WinXP SP2 Rus
Frameworks: v1.0.3705, v1.1.4322, v2.0.50215, v2.0.50727
Сам кодю на VB (6.0 (почти забросил), 7.1, 8.0)

Exception

Дата 20.5.2005, 11:53 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Spawn @ 17.5.2005, 20:39)

Пришлось субклассинг делать.

зачем?

Код

Private Sub ShockwaveFlash1_FSCommand _
(ByVal command As String, ByVal args As String)

это обработает FS_COMMAND
Добавлено @ 11:54
ой.. на код посмотрел.. а что ты делаешь такое?

Spawn™Production®

Дата 20.5.2005, 15:16 (ссылка)

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

Загрузка ...

Тестер ПО, VB.NET Developer

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

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

Run-time error, у компонента Shockwave Flash Objext есть котексное меню, которое можно показывать в cжатом или полном виде, но я хочу это меню полностью заменить на своё.
Так как компонент не даёт установить своё меню, а тем более не содержит событий мыши, я воспользовался переопределением и, отловив событие OnMouseDown, заменил существующее контексное меню на своё.

Цитата(Run @ 20.5.2005, 12:53)

ой.. на код посмотрел.. а что ты делаешь такое?

Flash Player

--------------------

ОС: WinXP SP2 Rus
Frameworks: v1.0.3705, v1.1.4322, v2.0.50215, v2.0.50727
Сам кодю на VB (6.0 (почти забросил), 7.1, 8.0)

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