网络大杂烩首页

网络大杂烩

  • 网站首页
  • HTML/CSS
  • javascript
  • seo优化
  • PS美工
  • 系统安全
  • 漏洞预警
  • 编程学习
  • 原创专区
  • 【网络大杂烩】是一家综合技术门户,为您提供网站建设,编程开发,安全维护,漏洞预警等技术文章

    技术文章MAP

    文章

    VB读取text制定一行内容!!

    日期:2019/11/21 13:35:23来源分类:编程开发

    VB读取text制定一行内容!!

    代码如下===================Private Sub Command1_Click()
        Dim str5 As String
        str5 = GetaLine(Text1, 1) '取得第二行的字串,以0为基底
    End Sub


    '以下在.Bas
    Option Explicit
    Const EM_GETLINE = &HC4
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
        lParam As Any) As Long

    Public Function GetaLine(Text1 As TextBox, ByVal ntx As Long) As String
        Dim str5(255) As Byte '如果您的字串 > 255 byte请自行增加该Byte Array
        Dim str6 As String, i As Long
      
        str5(0) = 255 '字串的前两个Byte存该字串的最大长度
        str5(0) = 255
        i = SendMessage(Text1.hwnd, EM_GETLINE, ntx, str5(0))
        If i = 0 Then
            GetaLine = ""
        Else
            str6 = StrConv(str5, vbUnicode)
            GetaLine = Left(str6, InStr(1, str6, Chr(0)) - 1)
        End If
    End Function
     
     

    随机推荐

    • 该分类还没有添加任何内容!
    • 该分类还没有添加任何内容!

    Copyright 2005-2019 【网络大杂烩】 版权所有 黑ICP备16886888号

    声明:本站所有文章来自互联网 如有异议 请联系本站管理员