Thread View: cn.bbs.comp.lang.visual-basic
2 messages
2 total messages
Started by ffm
Mon, 05 Feb 2007 07:15
��ô��vb����������ְ�
Author: ffm
Date: Mon, 05 Feb 2007 07:15
Date: Mon, 05 Feb 2007 07:15
5 lines
928 bytes
928 bytes
�����λ: ��ô��vb����������ְ�?��������лл��λ�˰�!! -- [m[34m�� ��Դ:��BBS ˮľ�廪վ http://smth.edu.cn��[FROM: 60.213.199.*][m
Re: ��ô��vb����������ְ�
Author: һ����ˮ
Date: Tue, 06 Feb 2007 00:21
Date: Tue, 06 Feb 2007 00:21
26 lines
1896 bytes
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
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads