Private Sub Command1_Click()
Dim a As String, b As String
a = Text1.Text
b = Right(a, Len(a) - 1)
a = UCase(Left(a, 1))
Text1.Text = a b
End Sub一个text控件.一个command控件.len函数(string)求字符串的字符长度.left(string,n)从string字符串左边开始取n个字符.right(string,n)从string字符串右边开始取n个字符.ucase(string) 将字符串string中所有小写字母改成大写.Private Sub Text1_LostFocus()
Dim i As Integer = 0
Dim sTemp As String = ""
Dim ss As String = ""
For i = 1 To Strings.Len(s)
sTemp = Mid(s, i, 1)
sTemp = LCase(sTemp)
sTemp = UCase(sTemp)
Else
sTemp = sTemp
End If
ss = ss sTemp
Next
MsgBox(ss)
End Sub
将第一个字母用 UCase 函数转换,然后再看句间的分隔符是什么,定位后,将分隔符后的第一个字母用UCase 函数转换就行了.
修改不大容易,干脆给你写一个吧.建一个Text1,Command1.
代码如下.
==================
Dim i As Long, t As String, ascii As Integer
t = Text1.Text
ascii = Asc(Mid(t, i, 1))
If ascii = ascla And ascii = asclz Then
Dim ascl As Integer
ascl = Asc(Mid(t, i - 1, 1))
If ascl ascuA Or (ascl ascuZ And ascl ascla) Or ascl asclz Then
t = Left(t, i - 1) UCase(Mid(t, i, 1)) Mid(t, i + 1)
Text1.Text = t
①.:将文件拷贝到WORD中
最后,再复制回到你所需要的文档中即可!
可以试着用典型的VB字符串函数UCase解决.
比如先把输入的内容放到字符串A$中,若A$="a",则经
A$=UCase(A$)转换后,结果即是A$="A".
我在程序中是这麽处理的.行不行,试试就知道了.
以上就是土嘎嘎小编为大家整理的vb.net首字大写相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!