Сохранять прозрачность swf на формах vb

Question

Есть ли способ включить .swf в мою форму, а также сохранить ее первоначальную прозрачность? То есть, вы можете видеть любые элементы управления за ним (очевидно, в прозрачных областях). Это выглядит маловероятным, поскольку я понимаю, что vb не может контролировать элемент управления activex flash (и, следовательно, визуализированный фон элемента управления?), Но интересно, есть ли какие-либо способы обхода?

соответствующий код thusfar:

Dim flash1 As New AxShockwaveFlash 
    ..... 
    flash1.Location = New System.Drawing.Point(300, 23) 
    Me.Controls.Add(flash1) 
    flash1.Movie = "C:\Users\Steve\Scripts\Projects\CPWizBiz\Assets\Test SWFs\Artwork4.swf" 
    flash1.Size = New System.Drawing.Size(192, 400) 
    flash1.Play() 

Answer 1

В отсутствии каких-либо других решений, вот что я сделал:

В принципе, я просто создал новую форму с transparetn фоном. Затем вы накладываете это на свою основную форму (вы можете связать любые формы для перемещения и изменения размера друг с другом и т. Д.). Затем вы установите флэш-фон в соответствии с ключом прозрачности формы, и все готово. Краткое описание, иллюстративный код:

Public Sub MarqueeFlash_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     Me.TransparencyKey = Color.FromArgb(1, 4, 3) 
     Me.BackColor = Color.FromArgb(1, 4, 3) 

     dim FlashCtrl as As New AxShockwaveFlash 
     Controls.Add(FlashCtrl) 
     With FlashCtrl 
      .BGColor = Me.BackColor.R.ToString("X2") & Me.BackColor.G.ToString("X2") & Me.BackColor.B.ToString("X2") 
      .Movie = IndexedDR(0).Item("File") 
      .Location = New Point(10,10) 
     End With 
     FlashCtrl.Play() 
     FlashCtrl.Size = New Size(400,300) 
end sub