Question

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

太感谢暨大的同胞们了，好感动！！一起加油吧~~呀，不知道采纳哪个为最佳答案呢~我随便咯~~

Answer 1

呵呵，都是暨大的吗？我也是。不容易啊，哥们。我写好了，大家一起努力，加油！

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

Answer 2

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

Answer 3

都是暨大的，大家相互帮助咯

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

Answer 4

是不是暨南大学的啊？我也不懂啊啊啊啊啊啊！！跪求解答！