学步园

大家在vB中使用惯了Mid,Left,Right但是在EvB中不能使用该功能,我想出了一个补救方法.建立一个TextBox控件,建立一个模块输入下列内容,我想看了你会明白的Attribute VB_Name = "G_String" Option Explicit '本模块于2009年开发 '用于代替WCE不支持原来的VB的MID、Left、Right函数

Public Function G_Mid(ByVal text As String, ByVal start As Long, ByVal length As Long) As String

Dim Virtual_TextBox As TextBox

Dim MidResult As String

Set Virtual_TextBox = G_sys.G_TextBox

Virtual_TextBox.text = text

Virtual_TextBox.SelStart = start

Virtual_TextBox.SelLength = length

MidResult = Virtual_TextBox.SelText

G_sys.G_TextBox.text = ""

G_Mid = MidResult

End Function

Public Function String_Left(ByVal text As String, ByVal length As Long) As String

String_Left = G_Mid(text, 0, length)

End Function

Public Function String_Right(ByVal text As String, ByVal length As Long) As String

String_Right = G_Mid(text, Len(text) - length, length)

End Function

提问者： 郭荣华 - 五级 

Set Virtual_TextBox =new TextBox