eMbedded Visual Basic(EvB) 使用字符函数Mid Left Right
2009-12-31 23:06
811 查看
大家在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 提问者: 郭荣华 - 五级
0
提问者对于答案的评价:
Set Virtual_TextBox =new TextBox
相关文章推荐
- delphi 字符截取函数LeftStr/MidStr/RightStr以及Copy的使用
- c#中自定义字符截取函数:Left、Right 、Mid
- C语言实现字符串截取函数left、mid和right
- vb6的字符截取mid,left,right在vb.net中的替代
- C语言实现字符串截取函数left、mid和right
- C_实现字符串截取函数left、mid和right
- sqlserver中cast,convert,datepart,left,right这三个函数的使用讲解
- sqlserver中cast,convert,datepart,left,right这三个函数的使用讲解
- ASP截取字符:instr,instrrev,left,right,mid
- VB中Mid Right Left三个函数区别
- Excel文本字符串处理函数left,right,mid,find
- sqlserver中cast,convert,datepart,left,right这三个函数的使用讲解
- sql语法:inner join on, left join on, right join on详细使用方法
- js中字符替换函数String.replace()使用技巧
- js中字符替换函数String.replace()使用技巧
- CString类常用方法----Left(),Mid(),Right()……
- j2me学习笔记【12】——游戏操作Canvas类的up、down、left、right、fire属性使用实例
- python join字符连接函数的使用方法
- sql语法:inner join on, left join on, right join on详细使用方法
- DB2字符函数简介及使用