VB怎么把已经转换了大小写的字符还原成初始输入值
VB程序如题程序有一个Text,一个标签,三个command按钮,一个是转大写,一个转小写我都弄完了不过第三个是还原,怎么把转换了的还原成初始输入的字符求代码...
VB程序
如题
程序有一个Text,一个标签,三个command按钮,一个是转大写,一个转小写
我都弄完了
不过第三个是还原,怎么把转换了的还原成初始输入的字符
求代码 展开
如题
程序有一个Text,一个标签,三个command按钮,一个是转大写,一个转小写
我都弄完了
不过第三个是还原,怎么把转换了的还原成初始输入的字符
求代码 展开
推荐于2017-09-14 · 知道合伙人软件行家
yfcp
知道合伙人软件行家
向TA提问 私信TA
知道合伙人软件行家
采纳数:1748
获赞数:5545
有多年网站建设相关工作经验。熟悉ASP、ASP.net、VB、JavaScript、HTML等语言和CSS、Ajax等相关技术。
向TA提问 私信TA
关注
展开全部
VB把已经转换了大小写的字符还原成初始输入值,处理还原问题需要对原始字符做一个记录。定义一个公用变量。还原的时候调用这个变量就可以。相关代码如下:
Dim abc As String 'abc用户记录text1的原始内容
Private Sub Command1_Click()'转小写
If abc = "" Then abc = Text1.Text'如果abc为空,abc就记录text1内容
Text1.Text = LCase(Text1.Text)
End Sub
Private Sub Command2_Click()'转大写
If abc = "" Then abc = Text1.Text'如果abc为空,abc就记录text1内容
Text1.Text = UCase(Text1.Text)
End Sub
Private Sub Command3_Click()'还原
Text1.Text = abc
End Sub
Dim abc As String 'abc用户记录text1的原始内容
Private Sub Command1_Click()'转小写
If abc = "" Then abc = Text1.Text'如果abc为空,abc就记录text1内容
Text1.Text = LCase(Text1.Text)
End Sub
Private Sub Command2_Click()'转大写
If abc = "" Then abc = Text1.Text'如果abc为空,abc就记录text1内容
Text1.Text = UCase(Text1.Text)
End Sub
Private Sub Command3_Click()'还原
Text1.Text = abc
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个貌似挺简单的啊!你是想用标签显示转换后的字符码?如果是的话,直接使得label1.caption=text1.text。不是的话,就按楼上说的,先保存一下变量就可以了。祝你成功!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
要记录初始字符(可定义一个变量,或放在text.tag中)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
转换前先保留到变量,记录一下
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询