编程论坛 » VB6论坛 » 这样有可能吗

菜鸟VB 发表于 2008-6-12 22:57

这样有可能吗

当我单击窗体时在窗体输出aaa
我再次单击窗体时清除aaa
这个过程有可能出现吗？[tk03]

hxfly 发表于 2008-6-12 22:59

.....

借助其他东西，是有可能的，比如借助公共变量，或者利用LABLE输出也行

hxfly 发表于 2008-6-12 23:02

Public i As Integer

Private Sub Form_Click()
i = i + 1
If i Mod 2 <> 0 Then
Print "aaaa"
Else
Cls
End If
End Sub

Private Sub Form_Load()
i = 0
End Sub

菜鸟VB 发表于 2008-6-13 01:23

如果要实现下面的功能呢 恐怕不行了吧
Private Sub Form_Click()
i = i + 1
If i Mod 2 <> 0 Then
Timer1.Enabled = Ture
Else
Timer1.Enabled = False
End If
End Sub

Private Sub Form_Load()
i = 0
End Sub


Private Sub Timer1_Timer()
Print "aaa"
End Sub

[[it] 本帖最后由 菜鸟VB 于 2008-6-13 01:25 编辑 [/it]]

菜鸟VB 发表于 2008-6-13 01:27

当我单击的时候输出aaa
再次单击的时候停止aaa的输出

jxyga111 发表于 2008-6-13 08:35

你說的是顯示出來吧可以用打印啊

hxfly 发表于 2008-6-13 12:28

[quote][bo][un]菜鸟VB[/un] 在 2008-6-13 01:27 的发言：[/bo]

当我单击的时候输出aaa
再次单击的时候停止aaa的输出 [/quote]

Public i As Integer

Private Sub Form_Click()
i = i + 1
If i Mod 2 <> 0 Then
Print "aaaa"
End If
End Sub

Private Sub Form_Load()
i = 0
End Sub

hxfly 发表于 2008-6-13 12:30

[quote][bo][un]菜鸟VB[/un] 在 2008-6-13 01:23 的发言：[/bo]

如果要实现下面的功能呢 恐怕不行了吧
Private Sub Form_Click()
i = i + 1
If i Mod 2  0 Then
Timer1.Enabled = Ture
Else
Timer1.Enabled = False
End If
End Sub

Private Sub Form_Load()
i = 0
En ... [/quote]


这个功能你不是已经实现了吗？

查看完整版本: 这样有可能吗