📄 21321.html

📁 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:47:30:<p>sub avi(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 & " "   <br>             &.ScaleHeight<br>mciSendString mciCommand, vbNullString, 0, 0    End With<br>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: 21321--></ul><!--end: 21321--><br><hr size=7 width=75%><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -