VB怎么把已经转换了大小写的字符还原成初始输入值

VB程序如题程序有一个Text,一个标签,三个command按钮,一个是转大写,一个转小写我都弄完了不过第三个是还原,怎么把转换了的还原成初始输入的字符求代码... VB程序
如题
程序有一个Text,一个标签,三个command按钮,一个是转大写,一个转小写
我都弄完了
不过第三个是还原,怎么把转换了的还原成初始输入的字符
求代码
展开
 我来答
小白聊电子科技
高粉答主

2020-05-16 · 专注电子数码问题解答
小白聊电子科技
采纳数:775 获赞数:75404

向TA提问 私信TA
展开全部

1、首先在VB软件中,新建一个标准的EXE工程。

2、打击左边工具箱中的文本框控件,在窗体上拖一个文本框出来,并将其属性设置为空。

3、单击文本框,在弹出的代码编辑区中的相应方式选择为KeyPress。

4、在代码编辑区中键入如下代码。

5、最后按住F5执行程序,在执行工程中,切换键盘上的caps按键,发现不管怎么切换,录入的字符永远都是小写的。

yfcp
推荐于2017-09-14 · 知道合伙人软件行家
yfcp
知道合伙人软件行家
采纳数:1748 获赞数:5543
有多年网站建设相关工作经验。熟悉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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
星柩星轨
2012-03-02 · TA获得超过255个赞
知道小有建树答主
回答量:196
采纳率:0%
帮助的人:72.5万
展开全部
这个貌似挺简单的啊!你是想用标签显示转换后的字符码?如果是的话,直接使得label1.caption=text1.text。不是的话,就按楼上说的,先保存一下变量就可以了。祝你成功!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
gongya4
2012-03-02 · 超过55用户采纳过TA的回答
知道小有建树答主
回答量:182
采纳率:0%
帮助的人:135万
展开全部
要记录初始字符(可定义一个变量,或放在text.tag中)
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zx001z7d53
2012-03-02 · TA获得超过2万个赞
知道大有可为答主
回答量:2.4万
采纳率:52%
帮助的人:5436万
展开全部
转换前先保留到变量,记录一下
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(5)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式