TextBox的问题

Question

VB中没有这样的函数，API中有但操作费劲，你只能根据回车一行一行计算了。

Answer 1

textbox中的文本的总行数用 len(str) ,如：len("abcde"),结果为5。textbox每一行应该有限吧，用数组来实现。
比如，每行10个字符，S[][10]，要删除第3行是S[2][i]，
下面的自己想吧。

Answer 2

楼上的方法不可行，每行的字数是不相同的，不能用数组，len()函数是求字数

Answer 3

用个普通函数来解决吧：
Private Sub Command1_Click()
    Dim pos As Integer
    Dim strTemp() As String
    strTemp = Split(Text1, vbCrLf)
    MsgBox "一共有：" & UBound(strTemp) + 1 & "行"
    Text2 = ""
    For i = 0 To UBound(strTemp)
        If i <> 3 Then Text2.Text = Text2.Text & strTemp(i) & vbCrLf    '删除第3行
    Next
    Text2.Text = Left(Text2.Text, Len(Text2.Text) - 2)
End Sub

Answer 4

SendMessage 可以得到textbox的总行数，具体消息自己去查吧
===========================================================
我要学好C++啊 \(-o-)/
===========================================================

Answer 5

老兄，这是我以前用到了取得当前列号所用的函数，你把它改造一下，就可以在vb里面用了，其中，取得行号，列号的都有，希望对你有所帮助。long fncGetColNo(CEdit* pEdit)
{
long i;
long j;
long k;
long LineNo;
long ColNo;
i = ::SendMessage(pEdit->m_hWnd, EM_GETSEL, NULL, NULL);
j=i / 65536;
    LineNo = ::SendMessage(pEdit->m_hWnd, EM_LINEFROMCHAR, j, 0);
LineNo = LineNo + 1;
    k = ::SendMessage(pEdit->m_hWnd, EM_LINEINDEX, -1, 0);
    ColNo = j - k + 1;
return ColNo;
}
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 6

谢谢各位的指点哈，我最后还是用replace来删行了，现结帐

Answer 7

replace会删除相同内容的行。如下面的第2、4行都被删除了。
11111111111111
22222222222222
33333333333333
22222222222222
55555555555555