首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

这个有关问题确实解决不了了 请大家帮帮小弟我

2012-02-13 
这个问题确实解决不了了请大家帮帮我PublicFunctionGetLine(aHwndAsLong,aLineAsLong)AsString函数说明读

这个问题确实解决不了了 请大家帮帮我
Public   Function   GetLine(aHwnd   As   Long,   aLine   As   Long)   As   String

    '函数说明                   读获文件框的第N行数据

    Dim   str(256)   As   Byte
    str(1)   =   1   '最大允许存放256个字符
   


    '获取第3行的数据放在str中,转换为字符串后显示在文本框txtString中
    SendMessage   aHwnd,   EM_GETLINE,   aLine   -   1,   str(0)     '2就是3
   
    GetLine   =   StrConv(str,   vbUnicode)


End   Function


      text1.text   的内容如下

      aaaaaaa
      bbbbbbb
      ccccccc

   

      执行下面代码:


      MsgBox   len(GetLine(text1.hwnd,2))     返回值为255

            我想返回它的绝对数据,text1.text的数据是不固定的

                如果在读取的时候       去掉再面的缓冲字符  


        在线等

[解决办法]
用Split函数


[解决办法]
split可能能行,不成的话你把Dim str(256) As Byte改成dim str 试试,应该就可以了.

热点排行