查人人中国名人网补办营业执照很麻烦吗?:为什么打印不出来？（VB）
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/08 03:17:54
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
a(i, YH) = Text1.Text
If YH = 2 Then
Form1.Print Tab(2400); i, a(i, YH)
End If
Form1.Print Tab(2000); a(i, YH)
Text1.Text = ""
End If
End Sub
以上程序运行时，窗口没有任何打印出来的东西！WHY？
If KeyAscii = 13 Then
a(i, YH) = Text1.Text
If YH = 2 Then
Form1.Print Tab(2400); i, a(i, YH)
End If
Form1.Print Tab(2000); a(i, YH)
Text1.Text = ""
End If
End Sub
以上程序运行时，窗口没有任何打印出来的东西！WHY？
1、因为你按的键的KeyAscii值不是13。而你的程序用IF判断只有是13的时候才打印，不是13直接ENDIF了，然后就ENDSUB了，所以不会打印。
2、form1.print是不会打印出值的你直接用PRINTF试试：
Private Sub Text1_KeyPress(KeyAscii As Integer)
DIM A(20,20)
If KeyAscii = 13 Then
a(i, YH) = Text1.Text
If YH = 2 Then
Print Tab(2400); i, a(i, YH)
End If
Print Tab(2000); a(i, YH)
Text1.Text = ""
ELSE
PRINT "我按的键的KeyAscii值不是13。"
END IF
End Sub
在运行一下看看。