Question

用vb做个小程序，图片框上显示。可按一次就显示一行，如何让显示固定在同一个位置上，按一次更新一次啊

Private Sub Command1_Click()
a1 = Text1.Text
b1 = Text2.Text
If (a1 = 25 And b1 <= 39) Or (a1 = 26 And b1 <= 26) Or (a1 = 27 And b1 <= 13) Or (a1 = 28 And b1 = 0) Then
Picture1.Print "120"
Else
Picture1.Print "错误"

End If

End Sub

Private Sub Command2_Click()
Var Form1 = New List

End Sub

Private Sub Form_Load()
Dim a1 As Integer
Dim b1 As Integer
Dim c1 As Integer

End Sub

Answer 1

Private Sub Command1_Click()
这里加一句
picture1.cls
a1=...
...