��:��,��!

Article View: cn.bbs.comp.lang.visual-basic

Article #315

Back to cn.bbs.comp.lang.visual-basic Previous Next

#315

From: ��ϵ��ʹ
Date: Wed, 29 Nov 2006 03:03

21 lines
1590 bytes

����һ��С�����е�,ʵ�ֵ��Ǽ���������,ż��û�п��� ��,
��Ҫ��0-9,���а�ť ��,զ ʵ�ֵ�,���ǵ�һ��һ��ʵ����,����һ��,����ô���尡!

' ���ּ� (0-9) �� Click �¼����
' ����ʾ�е���׷������
Private Sub Number_Click(Index As Integer)
    If LastInput <> "NUMS" Then
        Readout = Format(0, ".")
        DecimalFlag = False
    End If
    If DecimalFlag Then
        Readout = Readout + Number(Index).Caption
    Else
        Readout = Left(Readout, InStr(Readout, Format(0, ".")) - 1) + Number(Index).Caption + Format(0, ".")
    End If
    If LastInput = "NEG" Then Readout = "-" & Readout
    LastInput = "NUMS"
End Sub
--

[m[36m�� ��Դ:��ˮľ���� http://newsmth.net��[FROM: 219.243.215.*][m

Technical Details

Message-ID: <4RK6Cj$4Kv@newsmth.net>

Path:

arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!newshub.sdsu.edu!newsfeed.news2me.com!newsfeed.media.kyoto-u.ac.jp!news.cn99.com!news.newsmth.net!NEWSMTH

Show Full Headers

Complete Article Headers

X-Google-Thread: 109fdd,8e0f4c0eb0bc6cfc,start
X-Google-Attributes: gid109fdd,public
X-Google-Language: Chinese,GB
Path: arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!newshub.sdsu.edu!newsfeed.news2me.com!newsfeed.media.kyoto-u.ac.jp!news.cn99.com!news.newsmth.net!NEWSMTH
From: lisaaa@newsmth.net-SPAM.no (����ϵ���ʹ)
Newsgroups: cn.bbs.comp.lang.visual-basic
Subject: ����:����,��!
Date: 29 Nov 2006 03:03:09 GMT
Organization: ˮľ����
Message-ID: <4RK6Cj$4Kv@newsmth.net>
Mime-Version: 1.0
Content-Type: text/plain; charset="gb2312"
Content-Transfer-Encoding: 8bit
X-Filename: VisualBasic/a/M.1164769389.B0

Article View: cn.bbs.comp.lang.visual-basic

����:����,��!

��:��,��!