VB编程：去除文本框首尾空行-51_彭世瑜

程序代码

Private Sub Command1_Click()
    Dim j As Integer
    Dim i(100) As String
    Text2 = ""
    For j = 1 To Len(Text1)
        i(j) = Mid(Text1, j, 1)
        Text2 = Text2 & i(j) & Chr(13) & Chr(10)
    Next j

    '去除文本框首尾空行
    If Left(Text2, 2) = Chr(13) & Chr(10) Then
        Text2 = Right(Text2, Len(Text2) - 2)
    End If

If Right(Text2, 2) = Chr(13) & Chr(10) Then
Text2 = Left(Text2, Len(Text2) - 2)
End If
End Sub

总结：

Chr(13) & Chr(10)表示回车换行

VB编程：去除文本框首尾空行-51_彭世瑜_新浪博客相关推荐

VB编程：While...Wend语句实例漂亮的星星-17_彭世瑜_新浪博客
运行效果: 程序代码: Private Sub Command1_Click() Dim a As Long, b As Long Form1.Cls '清空窗体 Whil ...
[转载]VB网络聊天程序的开发(1)_彭世瑜_新浪博客
原文地址:VB网络聊天程序的开发(1)作者:VB源码博客互联网已经成为现代社会生活中非常普及的一项事务.在互联网上可以查询信息.电子购物,还可以进行网络聊天.本博将从今天起,具体的计解一下利用VB开 ...
VB编程：UCase转大写，LCase转小写-4_彭世瑜_新浪博客
Private Sub Text1_Change() Text2.Text = LCase(Text1.Text) '转换成小写字母 Text3.Text = UCase(Text1.Text) ...
VB编程：UBound获取数组上限;LBound获取数组下限-25_彭世瑜_新浪博客
运行效果: 程序代码: Private Sub Command1_Click() Dim a(5) Text1.Text = UBound(a) Text2.Text = LBound(a) End ...
VB编程：DoWhile...Loop当循环计算0~100累加和-15_彭世瑜_新浪博客
一.运行效果二.技巧总结 1.常用的循环有三种: (1)for循环(For...Next): (2)当循环(Do...While...Loop)或者(While...Wend): (3)直到循环(D ...
VB编程：Timer控件实例幼儿识字卡片-35_彭世瑜_新浪博客
运行效果: 程序代码: Dim myarray(10) As String '定义全局变量,文字数组 Dim i As Integer Private Sub Form_KeyDown(Key ...
VB编程：Val字符串转数字，CStr数字转字符串-6_彭世瑜_新浪博客
效果显示: Private Sub Text1_Change() Text2.Text = CStr(Text1.Text) '转字符串 Text3.Text = Val(Text1.Text ...
VB编程：DoEvents将控制权交给系统，防止无限循环-14_彭世瑜_新浪博客
一.运行效果: 1.没有DoEvents时运行(出现未响应): 2.有DoEvents时运行(没有未响应): 二.关键点 1.DoEvents函数,将控制权交给系统,防止无限循环. 2.将下面 ...
VB编程：DateSerial通过闰月判断闰年-47_彭世瑜_新浪博客
运行效果: 程序代码: Private Function MonthToLeapYear(ByVal Yea As Integer) As Boolean MonthToLeapYear = Day( ...

VB编程：去除文本框首尾空行-51_彭世瑜_新浪博客

VB编程：去除文本框首尾空行-51_彭世瑜_新浪博客相关推荐

最新文章

热门文章