Article View: cn.bbs.comp.lang.visual-basic
Article #20717Re: ����vb�е�instr����
From: С��*�쳾ǧɽ����·
Date: Sat, 02 Aug 2003 07:10
Date: Sat, 02 Aug 2003 07:10
21 lines
1618 bytes
1618 bytes
msdn �ҵ�Ȼ����˰��� �������Ķ���û�а�����õĽ��Ͱ��� �� �� yeahlee () �Ĵ������ᵽ: �� : �Ժ���������ȥ��MSDN,��θ�������� : '��Text Box ��ֻ���������ֺͻس��� : Public Sub ValidateNumber(KeyAscii As Integer) : Dim strValid As String : strValid = "0123456789" & Chr(13) & Chr(8) : If InStr(strValid, Chr(KeyAscii)) = 0 Then : KeyAscii = 0 : End If : End Sub : ���� Variant (Long)��ָ��һ�ַ�����һ�ַ������ȳ��ֵ�λ�á� : � : ................... -- [m[1;33m�� ��Դ:��BBS ˮľ�廪վ smth.org��[FROM: 166.111.77.102][m
Technical Details
Message-ID:
<000000$6uo@smth.org>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-09!supernews.com!newshosting.com!news-xfer2.atl.newshosting.com!yellow.newsread.com!netaxs.com!newsread.com!feed2.newsreader.com!newsreader.com!maily.cic.tsinghua.edu.cn!SMTHShow Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB X-Google-Thread: 109fdd,92e7e404679a685f X-Google-Attributes: gid109fdd,public X-Google-ArrivalTime: 2003-08-02 00:16:02 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-09!supernews.com!newshosting.com!news-xfer2.atl.newshosting.com!yellow.newsread.com!netaxs.com!newsread.com!feed2.newsreader.com!newsreader.com!maily.cic.tsinghua.edu.cn!SMTH From: wangby@smth.org (С��*�쳾ǧɽ����·) Newsgroups: cn.bbs.comp.lang.visual-basic Subject: Re: ����vb�е�instr���� Date: 02 Aug 2003 07:10:38 GMT Organization: BBS ˮľ�廪վ Message-ID: <000000$6uo@smth.org> Mime-Version: 1.0 Content-Type: text/plain; charset="gb2312" Content-Transfer-Encoding: 8bit X-Filename: VisualBasic/v/M.1059808199.Z0 Lines: 21