社区
VB基础类
帖子详情
请教 字节数组-》字符串-》文本框-》字符串-》字节数组 为何不等的问题,感激!
rise139
2003-10-09 01:30:33
dim a() as byte
dim b() as byte
dim c as string
dim d as string
c=a()
text1.text= c
d = text1.text
b()=d
为何 a() <> b() ?
请教正确如何实现以上过程。谢谢!
...全文
46
8
打赏
收藏
请教 字节数组-》字符串-》文本框-》字符串-》字节数组 为何不等的问题,感激!
dim a() as byte dim b() as byte dim c as string dim d as string c=a() text1.text= c d = text1.text b()=d 为何 a() b() ? 请教正确如何实现以上过程。谢谢!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Gelim
2003-10-11
打赏
举报
回复
dim a() as byte
dim b() as byte
dim c as string
dim d as string
c=StrConv(a, vbUnicode)
text1.text= c
d = text1.text
b=StrConv(d, vbUnicode)
则a() = b() !
pigsanddogs
2003-10-10
打赏
举报
回复
text1.text = c1 。。。1
c2 = text1.text 。。。2
c1 不一定等于 c2
因为如果c1如果包含text控件不能解释的字符,text会把他消失掉
经过1的时候。text已经不等于c1的值了
rainstormmaster
2003-10-10
打赏
举报
回复
不知道你要干什么,将数组a复制成b吗,如果是的话,可以这样(用for循环):
Private Sub Command1_Click()
Dim a() As Byte
Dim b() As Byte
Dim c As String
Dim d As String
ReDim a(3)
Dim i As Long, j As Long
For i = 0 To 3
a(i) = 80 + i
Next
i = UBound(a)
ReDim b(i)
For j = 0 To i
b(j) = a(j)
Next
End Sub
也可以这样:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Command1_Click()
Dim a() As Byte
Dim b() As Byte
Dim c As String
Dim d As String
ReDim a(3)
Dim i As Long, j As Long
For i = 0 To 3
a(i) = 80 + i
Next
i = UBound(a)
ReDim b(i)
CopyMemory b(0), a(0), i + 1
End Sub
rainstormmaster
2003-10-10
打赏
举报
回复
Private Sub Command1_Click()
Dim a() As Byte
Dim b() As Byte
Dim c As String
Dim d As String
ReDim a(3)
For i = 0 To 3
a(i) = 80 + i
Next
c = a()
Text1.Text = c
d = Text1.Text
b() = d
For i = 0 To UBound(b)
Debug.Print b(i)
Next
End Sub
经测试,a() =b()
flc
2003-10-10
打赏
举报
回复
类型不匹配
关注
lwm1977
2003-10-09
打赏
举报
回复
string转byte(),是不是有个chr(13)之类的东西干扰
rise139
2003-10-09
打赏
举报
回复
经过测试,这样好象也不成的呀
射天狼
2003-10-09
打赏
举报
回复
c = StrConv(a, vbUnicode)
将
字符串
按
字节
分割成等长字符
除了将记录导出到word方法外(word要把“允许西文在单词中间换行"勾上),笔者写了一个自定义函数,可将字符按用户指定的
字节
长度参数分割成等长字符,调用时用test(
字符串
,
字节
长度)即可,比如字符为”CSDN是个...
c# 加密和解密相关代码
如果此
字符串
是空
字符串
,则返回的
数组
为空且 长度为零。 (2)Convert 类的ToChar 方法 Convert 类的ToChar 方法用来将指定的值转换为Unicode 字符,该方法为可重载方法,本实例中用到的它 的重载形式如下: public...
vb Script参考文档
Filter 函数 根据指定的筛选条件,返回含有
字符串
数组
子集的、下限为 0 的
数组
。 FirstIndex 属性 返回
字符串
匹配的位置。 Fix 函数 返回数的整数部分。 For...Next 语句 以指定的次数重复一组语句。 For Each......
一个Android平台的美食网APP客户端源码.rar
这个例子中涉及到ListView、各个界面UI控件的使用、TabHost、跑马灯
字符串
、获取经纬度、Spinner内容适配器、气球图片、全屏显示、标题栏跑马灯的实现、捕获和打印异常、从TabActivity上面获取放置Tab的TabHost、...
js限制
文本框
输入长度两种限制方式(长度、
字节
数)
功能/特点: 1.实时显示可输入的字数(
字节
数) 2.两种限制方式(长度、
字节
数) 3.中文输入法下可正常使用,无BUG 4....//到达限制时,
字符串
的长度 var txtByte; this.init=function(){ txtNote=this.txtNote;
VB基础类
7,759
社区成员
197,606
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章