🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

🏠 Home 📰 News 🗂️ Usenet Search 🔑 Login 📝 Register
Article View: cn.bbs.comp.lang.visual-basic
Article #38
Back to cn.bbs.comp.lang.visual-basic Previous Next

Re: ��ô��vb����������ְ�

#38
From: һ����ˮ
Date: Tue, 06 Feb 2007 00:21
26 lines
1896 bytes 
���������MCI32.OCX�ؼ����и�Done�¼������Լ��ǰһ���Ƿ񲥷����

Private Sub MMC_Done(NotifyCode As Integer)
If NotifyCode = 1 Then 'NotifyCode = 1�������
  MMC.Command = "stop"
  MMC.Command = "close"
(�����������������ָ�ʽ���ļ���ʼ���ţ�
....

End If
End Sub


���ʹ�� API ���� mciSendString ���ţ���ô��Ҫ���һ����ʱ������Timer1_Timer
����м��ǰһ�������Ƿ񲥷��꣺

Private Sub Timer1_Timer()
Dim ST As String
ST = String(32, Chr(0))
mciSendString "status music mode", ST, Len(ST), 0
If Left(ST, 7) = "stopped" Then 'ǰ7���ַ���stopped����ʾ�������
(�����������������ָ�ʽ���ļ���ʼ���ţ�
....

End If
End Sub
Technical Details
Message-ID: <eq8kn1$5vp$1@news.cn99.com>
Path: arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!newsfeed2.dallas1.level3.net!news.level3.com!panix!bloom-beacon.mit.edu!news.cn99.com!not-for-mail
References: <4SPIeZ$2bt@bbs.tsinghua.edu.cn>

Show Full Headers
Complete Article Headers 
X-Google-Thread: 109fdd,63a582bf1169fb65
X-Google-Attributes: gid109fdd,public
X-Google-Language: Chinese,GB
Path: arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!newsfeed2.dallas1.level3.net!news.level3.com!panix!bloom-beacon.mit.edu!news.cn99.com!not-for-mail
From: "һ����ˮ" <wzc812@0733.com>
Newsgroups: cn.bbs.comp.lang.visual-basic
Subject: Re: ��ô��vb����������ְ�
Date: Tue, 6 Feb 2007 08:21:37 +0800
Organization: Bentium Ltd. (CN99)
Lines: 28
Message-ID: <eq8kn1$5vp$1@news.cn99.com>
References: <4SPIeZ$2bt@bbs.tsinghua.edu.cn>
NNTP-Posting-Host: 222.245.28.15
X-Trace: news.cn99.com 1170724385 6137 222.245.28.15 (6 Feb 2007 01:13:05 GMT)
X-Complaints-To: usenet@news.cn99.com
NNTP-Posting-Date: Tue, 6 Feb 2007 01:13:05 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.3790.0
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.3790.0
Reply to Parent Message