Re: [VB6 ] 不想顯示某數字!!

[colawei (D逃)]

※ 引述《ICEpatrick (bear)》之銘言：
: 我想做一個連加的程式
: 當按0的時候會跳出
: 每當輸入每一個數字後
: 會出現你輸入的數字是x
: 但是當我輸入0的時候
: 我不想讓他顯示
: 你輸入的數字是0
: 該怎麼寫呢??

Dim vNum    As Long

Private Sub Form_KeyPress(KeyAscii As Integer)
        Select Case KeyAscii
            Case vbKey1 To vbKey9
                Text1 = "你輸入的數字是" & Chr(KeyAscii)
                vNum = vNum + CLng(Chr(KeyAscii))

            Case vbKey0
                Text1 = "計算結束,合計值為:" & CStr(vNum)
                vNum = 0
        End Select

        KeyAscii = 0
End Sub

Private Sub Form_Load()
        Me.KeyPreview = True
        vNum = 0
End Sub

奇怪, 怎麼覺得像是在寫作業??

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 219.86.67.91
推 ICEpatrick:謝謝喔!其實程式我會只是就不想顯示那邊不會而以= =|||