VB 点击一下按钮使N 数值自动加一
作者&投稿:冷馨 (若有异议请与网页底部的电邮联系)
你只是从数据库中读出相应的数据,然后在内存运行对X加一,但是加一之后的结果没有写入数据库,所以数据库中的内容没有改变。
Dim i As Integer
Private Sub Command1_Click()
i = i + 1
Label1.Caption = i
End Sub
Private Sub Command1_Click()
n = n + 1
Caption = n
End Sub
或者
Private Sub Command1_Click()
Static n
n = n + 1
Caption = n
End Sub
只要在写点击动作的时候设定一个计数器 每次点击就计数器加1就可以
初始值设为6不就可以了,楼下是正解,我只会VC
Private Sub Command3_Click()
Static a As Long
if a=0 then a=5
a = a + 1
MsgBox a
End Sub
益响新开: Private Sub Form_Initialize() Text1.Text = "" End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyN Then Text1.Text = Text1.Text + "+" End If End Sub
乌什县18736877565: VB问题:编一程序,点一次按钮数值增加一 - ?
益响新开: 假设你的原数值是在一个 文本框中显示的,名字假定为text1 然后按钮的名字假定为command1代码如下: private sub command1_click() dim a a=val(text1.text) a=a+1 text1.text=a end sub
乌什县18736877565: 在VB中,怎样实现每点击一次按钮变量增加一??
益响新开: sub command1_click()static icount as longicount=icount+1end sub定义一个静态变量即可.
乌什县18736877565: vb中frame的caption为“第n局”我要单击一次command n为1 再单击n为2 一直加上去,怎么实现 - ?
益响新开: 不要变量,这样即可.Tag属性又叫标签属性,作用就类似给Frame1加个备注一样,你可以写一些你想要写的东西,默认下是空.这时可以利用它来存放局数.Private Sub Command1_Click() Frame1.Tag = Val(Frame1.Tag) + 1 Frame1.Caption = "第" & Frame1.Tag & "局" End Sub
乌什县18736877565: 在VB如何实现点击一下递增1个数 - ?
益响新开: public i as integer; private sub command1_click() i=i+1 end sub
乌什县18736877565: 在vb中若何实现每单击按钮一次,就增加1,不知要用到哪一个内置函数,像.NET中的cookies,session一样 - ?
益响新开: 在该按钮单击事件中 输入以下代码:static a as integer a = a+1 msgbox "单击次数为:" & a
乌什县18736877565: Delphi 中怎么实现 “VB 点击一下按钮使窗体 数值自动加一”程序?
益响新开: 先把窗体的标题弄为一个数值,比如1,在弄个按钮,双击该按钮,写入一下代码 procedure TForm1.Button1Click(Sender: TObject); var zengjia:integer;//声明zengjia是个整型变量 begin zengjia:=strtointdef(form1.Caption,0)+1; //标题+1 form1.Caption:=inttostr(zengjia);//得到后赋予标题 end;
乌什县18736877565: vb软件制作计次器,就是点击 命令按钮控件3次后,标签框里的数字就+1. - ?
益响新开: 这个很容易吧 按钮click事件下面写代码 将标签的标题转换到数值然后加1 再转换到字符串 赋值给标签
乌什县18736877565: VB中,如何让一个变量b,每点击一下按钮就自增1,要从0开始的 应该在B=B+1 前或者后加个什么代码? - ?
益响新开: b定义成全局变量 Dim b As Integer Private Sub Command1_Click() b = b + 1 MsgBox b End Sub
乌什县18736877565: VB怎么实现点击“新建”按钮自动编号,每点击一次自动加一,并且判断每天从001开始累加.?
益响新开: 窗体的open事件中将存贮编码的文件读出,将当日的最后一个号码显示在屏幕的text控件上,若是昨天的号码,就默认当天的第一个号码 按钮事件中,将号码数量增加,并显示在text控件上 窗体推出事件时,将最后号码一个存入文件中