• 所有问题

    • vb6统计text控件里有多少行?

    如题所述

    举报该问题
    推荐答案   2012-05-19
    Dim S

    Private Sub Command1_Click()
    S = Split(Text1.Text, vbNewLine)
    MsgBox "总共有:" & CStr(UBound(S) + 1) & " 行"
    End Sub
    温馨提示：答案为网友推荐，仅供参考
    其他回答
    第1个回答  2012-05-19
    把text空间里面的text保存到一个string，然后检查这个string里面有多少个换行符（vbnewline）
    相似回答
    vb6.0中文本框TextBox所能容纳的最大字符长度是答：对于单行文本框控件，若将 MaxLength 属性设置为 0，则用户能输入的最大字符数为 2147483646 或一个基于可用内存的数目，两数之间选取较小者。意思就是你的可用内存足够大的话，可以输入2147483646 个字符。对于多行文本框控件，用户能输入的最大字符数为 4294967295 或一个基于可用内存的数目，两数之间...
    vb6.0 提取text1最后一行字符的后几个字符(前面几个字符不要)_百度知 ...答：在VB6.0编程中，如果需要从Text1文本框的最后一行提取特定数量的字符，可以采用如下的代码实现。这段代码首先将Text1中的文本根据换行符（ vbCrLf ）进行分割，得到一个字符串数组。然后，通过数组的上界获取最后一行的字符串。最后使用Right函数截取该行的最后5个字符，并通过MsgBox显示出来。具体代码如下：...
    vb6.0 怎样统计数据库查询条数答：string sql=" select count(*) from test where 日期='2014-1-21'"; 然后返回首行首列 object count = command.ExecuteScale(); text1.text=count.ToString(); //这是C#代码 但和VB的思路一致
    VB6的text如何跳到指定的行数?答：跳转代码如下：Text1.SetFocus k = InputBox("请问要跳转到哪一行？")For i = 1 To k - 1 SendKeys "{DOWN}"Next i要想选中，那就麻烦了 需要API 我不会
    VB6读取文本文件所有行数据答：private sub form_load()dim str as string open app.path & "\QQ.txt" for input as #1 do while not eof(1)line input#1,str list1.additem str loop close end sub private sub list1_click()text1=right(list1.text,len(list1.text)-instr(list1.text,"=")end sub ...
    ...如何让鼠标点中其中1行,数据显示在各个textbox中?答：Text = datagrid。TextMatrix(datagrid。RowSel, 7) Text6。Text = datagrid。TextMatrix(datagrid。RowSel, 5) end if End Sub 首先，要达到你的目的，应该将代码写在datagrid的单击事件里进行处理。在单击事件里，datagrid。RowSel可以7获得当前所点击的行，根据行号和列号，可以2具体定位到某一x单元q...
    vb6.0 限制TEXT控件 可输入字符长度答：修改text的maxlength属性值为8，默认值是0，表示可以输入任意多字符
    vb6.0怎么生成40行6个一组不同数字并在text1中显示答：'text1的mutiline=true '滚动条垂直的应该需要 Private Function GetRandomNum() '获得一个随机数 Randomize GetRandomNum = Int(Rnd * 10000)End Function Private Function GetNumArr(NumArr() As Integer) '获取240个随机数 Dim i As Integer ReDim NumArr(1 To 240)For i = 1 To 240 Nu...
    VB6的RichTextBox中如何获取指定行数据?答：General/2DSpace下有Planer、axisymmetric、axisymmetricswirl三种选项。在二维几何模拟中，某几何轴线可以设置成axis或者symmetry边界，则可以组成6种选项。以前，本人认为若几何是镜像对称时，如书本摊开，则会将轴选择成symmetry，2DSpace下选择axisymmetric；若是轴对称，如一个圆柱，则将几何轴线设置成axis，...
    大家正在搜
    vb中textbox控件属性text控件textvbvb调出textvb text输入内容vb中的文本框控件vb中文本框控件是哪个vb中如何在text中输出vb中标签的text属性