佳木斯市二手车百姓网:我刚用VB编写了个FLASH播放器,运行时通用代码显示错误,谁来帮帮我,急

来源:百度文库 编辑:神马品牌网 时间:2024/04/29 21:09:14
Option Explicit

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA"
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_STYLE = (-16)
' 窗口风格参数值
Private Const WS_CAPTION = &HC00000
Private Const WS_THICKFRAME = &H40000

直接用控件:
ShockwaveFlash

ShockwaveFlash1.Movie = "1.swf"
ShockwaveFlash1.Play