📄 21322.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -