请问vb/vba中可以不用条件判断，让语句只在函数第一次被调用时执行一次吗？

Thread View: microsoft.public.cn.vb

4 messages

[T] Back to Threads [V] Tree View [G] Group Articles

4 total messages Started by Sandro Wed, 13 Feb 2008 16:58

Author: Sandro
Date: Wed, 13 Feb 2008 16:58

10 lines
1837 bytes

�Բ��𣬲�֪����������ǲ��Ǹ�Ͳ����ܡ�
������һ���¼������У���ֻҪ�������к󣬵�һ�γ�������¼�ʱ��ִ��һ���� 
�䣬�Ժ��ٳ�������¼��������������ˡ�
��ʵ������һ�����������¼�������ÿ�ζ��ж�һ����������������������ķ�̫ 
��
�ǳ���л��

-- 
i@geek.9966.org
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/

Re: 请问vb/vba中可以不用条件判断，让语句只在函数第一次被调用时执行一次吗？

Author: Sandro
Date: Fri, 15 Feb 2008 12:32

47 lines
3114 bytes

�Բ����ң�����û��˵������⡣
������ģ��ҵĳ���ܼ򵥣����Ƕ�ȡ���ڴ�������ݡ�
���Ƿǳ��죬��38400bps�������£�ÿ��5���ֽڣ�ÿ�μ��ֻ�в���5���룬����� 
��̡�
Ҳ���Ǵ��?���յ���ݵ��¼���ʱ�������5�����ڣ������Խ��Խ�á�

�����ĳ������ÿ���¼������ʱ���ж�һ�¡�
��Ȼʵ�ʴ����������΢����һ�㣬�Ҳ�����һ������¼�����Ҫ3�������ң����Ծ� 
�뾡������һ����䡣

Private Static Sub MyComm_OnComm()
  'PerfStart
  Dim i As Long
  Dim InBuff As Variant

  If i = 1 Then
   MyComm.InBufferCount = 0
   i = 2
   Exit Sub
  End If

  If MyComm.CommEvent = comEvReceive Then
   InBuff = MyComm.Input
   TestLog.Cells(i, 1).Value = InBuff(0)
   i = i + 1
  End If
  'PerfFinish
  'TestLog.Cells(1, 1).Value = PerfElapsed
End Sub

лл��ң�

On Wed, 13 Feb 2008 17:58:48 +0100, Sandro <i@geek.9966.org> wrote:

> �Բ��𣬲�֪����������ǲ��Ǹ�Ͳ����ܡ�
> ������һ���¼������У���ֻҪ�������к󣬵�һ�γ�������¼�ʱ��ִ��һ���� 
> �䣬�Ժ��ٳ�������¼��������������ˡ�
> ��ʵ������һ�����������¼�������ÿ�ζ��ж�һ����������������������ķ� 
> ̫��
> �ǳ���л��
>



-- 
i@geek.9966.org
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/

Re: 请问vb/vba中可以不用条件判断，让语句只在函数第一次被调用时执行一次吗？

Author: Sandro
Date: Fri, 15 Feb 2008 14:29

19 lines
2188 bytes

лл�������ܲ�����ϸ˵˵���ά��һ������?

�����¼����?�����ƿɲ������Զ��壿
���紮���¼����?��MyComm_OnComm()�ܲ��ܶ����MyComm_OnComm_NotFirst()��
лл��

On Feb 15, 2:30?pm, at...@smth.edu.cn-SPAM.no (..) wrote:
> �� �� ?�Ĵ������ᵽ: ��
> : �� ?��: 123.188.5.37
> : �Բ����ң�����û��˵������⡣
> : ������ģ��ҵĳ���ܼ򵥣����Ƕ�ȡ���ڴ�������ݡ�
> : ...................
>�Լ�ά��һ�������
>--
>?[m [33m�� ��Դ:��BBS ˮľ�廪վhttp://smth.edu.cn��[FROM: 202.156.193.*] [m

-- 
i@geek.9966.org
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/

Re: 请问vb/vba中可以不用条件判断，让语句只在函数第一次被调用时执行一次吗？

Author: Sandro
Date: Sat, 16 Feb 2008 23:04

26 lines
2714 bytes

�����ǲ�̫���ף�Ӧ�������vb��ά������?ά�����������
ʲô���ã�лл��
�����ҵ���⣬AddressOfֻ��ȡ��MyComm_OnComm_NotFirst()
�ĵ�ַ����������ܰ�MyComm_OnComm()�ĵ�ַ�ĵ������ַ���أ�
�ǳ���л��

�� �� ywpg (�۲����� �������) �Ĵ������ᵽ: ��
: ��  ��: Re: ����vb/vba�п��Բ��������жϣ������ֻ�ں����
: ����վ: ˮľ���� (Sat Feb 16 15:39:51 2008), վ��
:
: ��δ����api  AddressOf ȡ����ָ��
:
: �� �� athos (���θ���) �Ĵ������ᵽ: ��
: : ��˵����C�������Լ�ά��һ������ָ���hashtable��
: : hashtable�ǵ���stl����template��ʵ�֡�
: : vb����ô�����﷨�Ѿ��ǲ����ˣ�Ӧ�ÿ���������
: :
: : �� �� i. �Ĵ������ᵽ: ��
: : : лл�������ܲ�����ϸ˵˵���ά��һ������?
: : : �����¼����?�����ƿɲ������Զ��壿
: : : ���紮���¼����?��MyComm_OnComm()�ܲ��ܶ���� 
MyComm_OnComm_NotFirst()��

-- 
i@geek.9966.org
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/

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