Question

求一个VB编辑的鼠标点击计数器！加财富值！

要求不高：从零开始计算鼠标点击计数器窗口计数按钮的数量，点一次显示1两次显示2……余此类推（字大一些用黑色），窗口不要太大，窗口里面要有两个按钮：1.点击计数的按钮，2.数字清零按钮（最好有提示是否确认清除，以免误按。）做好了发送至305670027@qq.com邮箱，我会再加50财富值以上。
最好制作成可以使用的程序再发过来，因为找软件制作很麻烦。

Answer 1

将以下内容复制到记事本 另存为form1.frm 然后打开即可
'======================
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 1935
ClientLeft = 60
ClientTop = 450
ClientWidth = 3315
LinkTopic = "Form1"
ScaleHeight = 1935
ScaleWidth = 3315
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command2
Caption = "Command2"
Height = 495
Left = 1680
TabIndex = 1
Top = 1200
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 495
Left = 240
TabIndex = 0
Top = 1200
Width = 1215
End
Begin VB.Label Label1
AutoSize = -1 'True
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 840
Left = 360
TabIndex = 2
Top = 120
Width = 420
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a As Integer
Private Sub Command1_Click()
a = a + 1
Label1.Caption = a
End Sub

Private Sub Command2_Click()
If MsgBox("是否清除计数", vbYesNo, "提示") = vbYes Then
a = 0
Label1.Caption = a
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "计数"
Command2.Caption = "清零"
End Sub

追问

能不能先制作好了再发送

追答

无语了 这个还叫不是制作好了的 你保存下而已能有多难。。都懒到这种地步了。。

追问

保存了还是记事本文件，可能电脑缺少某些运行组件。

追答

你检查下后缀名不是txt而是frm~~随便打开一个文件夹--工具--文件夹选项--查看---隐藏已知文件类型的扩展名 前面的勾去掉

Answer 2

发给你了，看看吧！

Answer 3

已发注意查收!

追问

第一个文件有病毒！您发的可以用，不过就是字和按钮太小了一点。源代码请贴出来！窗口这么大就差不多：宽320高240

追答

没毒 不要用360什么的杀软 误报几率很大 文件本身没毒
Dim sum
Private Sub Command1_Click()
sum = sum + 1
Print sum
End Sub
Private Sub Command2_Click()
Cls
sum = 0
End Sub

Answer 4

做好了，但是你邮箱接收不了我发的邮件不知道怎么回事，给你贴代码，下一个VB6。0精装版，自己做，很快的，代码如下：
Dim jishu As Boolean
Dim s As Integer
Private Sub Command1_Click()
jishu = True: Command1.Enabled = False
End Sub

Private Sub Command2_Click()
If MsgBox("是否清除计数", vbYesNo, "提示") = vbYes Then Cls: s = 0: Print s: jishu = False: Command1.Enabled = True
Command2.Enabled = IIf(s = 0, False, True)
End Sub

Private Sub Form_Load()
Command1.Caption = "开始计数"
Command2.Caption = "清0": Command2.Enabled = False
jishu = False
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If jishu = True Then
s = s + 1
Cls
Print s
End If
Command2.Enabled = IIf(s = 0, False, True)
End Sub

追问

发这个邮箱：namofty@163.com，要以压缩文件包发送，exe容易被邮箱阻止。

Answer 5

奶 奶附近的科技管理会计分 个的 我不是空空
我不拍 A

你也太懒了

Answer 6

你好 这个鼠标计数器能发给我么 谢谢了