21322.html
来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 22 行
HTML
22 行
<html> <head> <title>高手帮忙看一下这个api的副程式哪里错了</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>高手帮忙看一下这个api的副程式哪里错了</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:a2002@ms10.url.com.tw">slimov</a> on November 13, 1999 at 21:48:09:<p>Sub AVI2(pathname)<br>Dim mciCommand As String<p> mciSendString "close all", vbNullString, 0, 0<br> <br> mciCommand = "open " & pathname & " alias MyAVI"<br> mciCommand = mciCommand & " parent " & Picture1.hWnd & " style child"<br> mciSendString mciCommand, vbNullString, 0, 0<br> <br> With Picture1<br> .ScaleMode = vbPixels<br> mciCommand = "put MyAVI window at 0 0 " & _<br> .ScaleWidth & " " & .ScaleHeight<br> mciSendString mciCommand, vbNullString, 0, 0<br> End With<br> <br> mciSendString "play MyAVI", vbNullString, 0, 0<p>End Sub<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 21322--></ul><!--end: 21322--><br><hr size=7 width=75%><p></body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?