我这样写不知道对不对:
Dim TempData As String
Dim a() As Byte
Dim i As Integer,s() As Integer,nlen As Integer
nlen = Len(Text5.Text)
ReDim s(nlen)
For n = 1 To UBound(s)
s(n) = Mid(Text5.Text, n, 1)
Next n
ReDim a(nlen)
For i = 1 To UBound(s)
a(i) = s(i)
Debug.Print a(i)
Next i
但是这样写,如果遇到S()数组中有F0-FF中的值,那又怎么办呢?谢谢了!
Dim TempData As String
Dim a() As Byte
Dim i As Integer,s() As Integer,nlen As Integer
nlen = Len(Text5.Text)
ReDim s(nlen)
For n = 1 To UBound(s)
s(n) = Mid(Text5.Text, n, 1)
Next n
ReDim a(nlen)
For i = 1 To UBound(s)
a(i) = s(i)
Debug.Print a(i)
Next i
但是这样写,如果遇到S()数组中有F0-FF中的值,那又怎么办呢?谢谢了!
解决方案 »
- 我想在浏览页面时,通过VB代码自动将一段文本填入文本框中并自动提交。如何实现?
- 我在MDI窗体中放入PictureBox之后就打不开菜单中的窗体?
- 如何对已有的区域进行旋转?
- 怎么样把别的程序上的数据拷贝出来??
- VB6.0在XP里写的一个小程序,那到其他机子上无论什么系统一小部分机子可以运行,其他的一运行就是非法操作.大家帮帮
- 如何动态调用另一个FORM中的控件
- 问个问题,难的没人会,简单的都去抢分,这种论坛,要分数何用?再散分!
- 窗体标题到底是什么字符???
- DTWUJP(建平)来领分
- DATAGRID表格中正在编辑中的一行(没有点击保存),如果用MOUSE点击其它行,则数据自动SAVE,如何处理才能不自动保存?
- 生成EXE文件是能否不要带VB自带的图标?
- 急求一问题?知道指定的周.如何获得该周的起始,结束日期.谢谢
cbyte("&H" & "FF")
如果要转换成integer就cint("&H" & "FF")把byte转换成十六进制串:
hex(255)