[原创]集编程、娱乐于一体（已做漂亮菜单升级）

andysky

对的，我再试过一遍了。

紫蝶儿菲菲

想不通加载宏文件，还会提示这个？

clubboy

经典

andysky

在代码中加入这一句会好一点：".FrameNum = 1"
此句作用为播放第一帧，即播放“A”后再播放“B”，此时“A”暂停，若返回播放“A”则从刚才暂停处开始，而不是从第一帧重新开始，加入此句有更新之效果。
代码加在PLAYING = TRUE之后面

lotustower

3M xla [em06]

andysky

以下是引用[I]lotustower[/I]在2006-5-12 19:13:10的发言：[BR]3M xla [em06]

那是因为XLA中插入了三个FLASH之故。 不过可将XLA文件与FLASH文件分开存放的，却不如溶在一起方便。

lotustower

如 檔案 不是你的, 可以取出 Flash 嗎?

xq1234

各位朋友，把月满西楼的窗体代码全部改为下面的要好得多。 Option Explicit Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 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 ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Private Const SW_SHOW As Long = 5 Private Const GWL_STYLE = (-16) Private Const WS_THICKFRAME As Long = &H40000 '(预设的大小框) Private Const WS_MINIMIZEBOX As Long = &H20000 '(最小化的标头) Private Const WS_MAXIMIZEBOX = &H10000 '(最大化的标头) Function hWnd() As Long hWnd = FindWindow(IIf(Val(Application.Version) > 8, "ThunderDFrame", "ThunderXFrame"), lpWindowName:=Me.Caption) End Function Private Sub UserForm_Activate() Dim IStyle As Long IStyle = GetWindowLong(Me.hWnd, GWL_STYLE) '去掉此句则无边框,但可拉动调整大小 IStyle = IStyle Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX '去掉此句则无最大小化最小化按钮 SetWindowLong Me.hWnd, GWL_STYLE, IStyle ShowWindow Me.hWnd, SW_SHOW DrawMenuBar Me.hWnd End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Application.Visible = True End Sub Private Sub UserForm_Resize() UserForm1.ShockwaveFlash1.Width = UserForm1.Width - 6 UserForm1.ShockwaveFlash1.Height = UserForm1.Height - 6 End Sub

andysky

to 27楼：

插入文件之FLASH是无法提取的。

当然，可以用抓屏或者录相工具将之抓下来，不可效果要差一点

[此贴子已经被作者于2006-5-13 8:18:54编辑过]

fanxp

以下是引用[I]山菊花[/I]在2006-5-7 9:14:19的发言：[BR]

这是分卷压缩，你把三个文件保存到硬盘同一目录下，分别重命名为1、2、3，解压缩文件1，它自动打开2和3。

不重命名也行，它会提示你打开后续文件。

谢谢您！偶明白了