VB里搞不懂的问题

显示全部楼层 · 2011-11-21 07:19:24

Dim i As IntegerDim j As IntegerPrivate Sub cmd1_Click()i = i + 1Text1.Text = i
If i = 10 + 5 * j Then
MsgBox "你的次数到了" & i & "次了。"
j = j + 1
End IfEnd Sub张志晨...

千问 · 2011-11-21 07:19:24

你说的是不可能的；msgbox 是独占对话框；也就是说，你点击了一次 msgbox 显示你的次数到了1，你就没法点了，焦点已经被msgbox独占，除非你关闭msgbox。不过，你可以用自己的非独占窗口来代替msgbox，以实现你说的功能。需要自己做个消息窗口form2,上边放一个label1 显示消息，放一个确定按钮，按下后关闭窗口.form1里的代...

千问 · 2011-11-21 07:19:24

最简单的代码,自己试验下吧
对楼上2位无语...dim i%Private Sub cmd1_Click()
i = i + 1
Text1.Text = i
If i Mod 5 = 0 Then
MsgBox "你的次数到了" + CStr(i) + "了"...

千问 · 2011-11-21 07:19:24

Private Sub Command1_Click()
i = i + 1
Text1.Text = i
If i Mod 5 = 0 Then
If i > 9 Then
MsgBox "你的次数到了" + CStr(i) + "了", 64, "提示"...