📄 21430.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@kimo.com.tw">slimov</a> on November 17, 1999 at 16:54:04:<p>Sub AVI2(pathname)<br>Dim mciCommand As String<p>mciSendString "close all", vbNullString, 0, 0<p>mciCommand = "open " & pathname & " alias MyAVI"<br>mciCommand = mciCommand & " parent " & Picture1.hWnd & " style child"<br>mciSendString mciCommand, vbNullString, 0, 0<p>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<p>mciSendString "play MyAVI", vbNullString, 0, 0<p>End Sub<p><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 21430--></ul><!--end: 21430--><br><hr size=7 width=75%><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -