Private Sub Form_Load() '初始化flash Dim tmpCtl As Object Set tmpCtl = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash") '自动添加控件 '调整大小和位置 tmpCtl.Move 0, 0, 1000, 1000 tmpCtl.Visible = True Set objFlash = tmpCtl.object
'指定播放的swf objFlash.Movie = "http://www./imy.swf" End Sub
======================================================================================
Private Sub Form_Load() Dim tmpCtl As Object Set tmpCtl = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash") '动态添加控件 Set tmpCtl.Container = Form1 tmpCtl.Width = Form1.Width '设置外观 tmpCtl.Height = Form1.Height tmpCtl.Visible = True tmpCtl.object.LoadMovie 0, "http://www./imy.swf" End Sub
|