我的意思是建立一个文本框,当输入文字后,点击“清除”按钮,文本框的文字被清除,当然后“清除”按钮变成“恢复”,当点击“恢复”的时候,被删除的文字重新恢复。。。打对才给分的噢 :)

Private Sub Command1_Click()

Dim a As String

If Command1.Caption = "清除" Then

a = Text1.Text

Text1.T

展开全部
收起
2回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Nicholas

    9人对此回答表示赞同

    你又没有说你这个程序运行错在什么地方。运行的结果是什么

    我个人感觉你的程序点复原后,文本框里面出现的是 a 吧?!

    好像是这样的,想给你用vs写一个,但是用的平台软件不一样,代码就不一样

    你的那个dim a 应该是个全局变量才可以吧??
    就是dim a as string 应该在command事件的上面。
    试试吧。如果不可以,把你的程序的结果说下。看看具体什么问题!

    我没安装vb,没办法看结果
    展开
    9
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • 炎凉世态

    4人对此回答表示赞同

    a要定义为全局变量或者静态变量,如下
    Dim a As String
    Private Sub Command1_Click()

    If Command1.Caption = "清除" Then

    a = Text1.Text

    Text1.Text = ""

    Command1.Caption = "复原"

    Else
    展开
    4
    0回复
    发布于 5年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部