VB编程中碰到的几个问题？请大虾解答,感激莫名！

Question

1.建议你的动画不用ole控件，用其他方法也很容易实现
2.可以调用一个多媒体控件
3.可以打印整个form, 也可以将它放在picturebox中打印！

Answer 1

1.建议你使用FlashShockWave（好像是）空间，可以播放一段动画
2.用API函数（mciSendString）
3.打印form可用Printform函数。

Answer 2

3.printer.printpicture form.image
form的autoredraw要改成true否则打不出来

Answer 3

1和2 都可以用API函数 MCISendString

Answer 4

请问能提供一些mciSendString函数的，具体用法吗？比如调用这个函数需要添加哪个引用，以及他的参数设置。

Answer 5

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As LongPrivate Sub Command1_Click() '播放
Dim pPath As String
    pPath = "C:\back.mid"
    mciSendString "close MyWav", vbNullString, 0, 0
    mciSendString "open pPath alias MyWav", vbNullString, 0, 0
    mciSendString "play MyWav", vbNullString, 0, 0
End SubPrivate Sub Command2_Click() '停止播放
    mciSendString "close MyWav", vbNullString, 0, 0
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) '停止播放
    mciSendString "close MyWav", vbNullString, 0, 0
End Sub