“VB中,仅当在文本框中选中一个英文字母时,置按钮command1有用。”请问这个如何写呢???

太感谢暨大的同胞们了,好感动!!一起加油吧~~呀,不知道采纳哪个为最佳答案呢~我随便咯~~... 太感谢暨大的同胞们了,好感动!!一起加油吧~~呀,不知道采纳哪个为最佳答案呢~我随便咯~~ 展开
 我来答
383283668
2011-03-11
知道答主
回答量:5
采纳率:0%
帮助的人:3.6万
展开全部
呵呵,都是暨大的吗?我也是。不容易啊,哥们。我写好了,大家一起努力,加油!

VB中,仅当在文本框中选中一个英文字母时,置按钮command1有用
Private Sub Timer1_Timer()
s = (Text1.SelText)
If Len(s) = 1 And s >= "A" And s <= "z" Then Command1.Enabled = True
End Sub

单击按钮COMMAND1时,将选中的大(小)写字母替换为小(大)写字母
Private Sub Command1_Click()
s = (Text1.SelText)
If s >= "A" And s <= "Z" Then Text1.SelText = LCase(s)
If s >= "a" And s <= "z" Then Text1.SelText = UCase(s)
End Sub

参考资料: 原创

本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
Celery1234567
2011-03-11 · TA获得超过306个赞
知道小有建树答主
回答量:249
采纳率:0%
帮助的人:140万
展开全部
Dim s As String
s = UCase(Text1.SelText)
If Len(s) = 1 And s >= "A" And s <= "Z" Then Command1.Enabled = True

-------------------------
Text1.SelText 选中的文本
Ucase 变大写
Len 取长度
长度等于1 大于等于A 小于等于Z 就 Enabled
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
林振裕
2011-03-12
知道答主
回答量:1
采纳率:0%
帮助的人:0
展开全部
都是暨大的,大家相互帮助咯

Private Sub Command1_Click()
Dim d1 As String
d1 = Text1.SelText
Text1.SelText = IIf(Asc(d1) >= Asc("A") And Asc(d1) <= Asc("Z"), LCase(d1), UCase(d1))
End Sub

Private Sub Timer1_Timer()
Dim d1 As String
d1 = Text1.SelText
If Len(d1) = 1 Then Command1.Enabled = True
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2011-03-11
展开全部
是不是暨南大学的啊?我也不懂啊啊啊啊啊啊!!跪求解答!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式