怎么将TextBox中的文字在另一个TextBox中变成ASCII

包括中文,英文,符号,谢谢了.

全部回答

2018-02-13

0 0

    界面上加3个TextBox和2个按钮。在Text1里输入文字。点Command1，在Text2里显示Text1解析后的ASCII码，每个文字间用空格隔开的。点Command2，在Text3里显示变回去的文字。
   Private Sub Command1_Click() Dim s1 As String, s2 As String, s As String Dim i As Integer s1 = Text1。
    Text s2 = "" For i = 1 To Len(s1) s = Mid(s1, i, 1) s2 = s2 & Asc(s) & " " Next i Text2。
  Text = RTrim(s2) End Sub Private Sub Command2_Click() Dim s1 As String, s2 As String, s() As String Dim i As Integer s1 = Text2。
    Text s2 = "" s = Split(s1, " ") For i = 0 To UBound(s) s2 = s2 & Chr(Val(s(i))) Next i Text3。
  Text = s2 End Sub 这个效果对吗？。

提交

相关回答

l***

2013-10-28

用3d制作文字怎么吧文字变成竖行

  1。打开Xara3D6软件，进入编辑3D文字页面。点击左侧的Aa按钮。进入文字编辑页面，选择一种文字格式，然后删除右侧里面的文字，输入自己想做的3d文字。 2。输入文字完成后点击确定，选择左侧的颜色选项。
  进入颜色编辑页面，选择一款自己喜欢的颜色。 3。选择“文字挤压选项，选择应用到文字，厚度为30，轮廓宽度为25。选择光滑。正面、背面。 4。选择图案选项。选择“平板加镂空”。圆形、尺寸选择自己喜欢的参数。
  如果自己不想设置，还可以点击图案提取器，选择系统自带的图案。 5。选择“文字斜边选项”选择30度斜角，直角。厚度选择为19。 6。选择“阴影选项”，勾选“阴影”风格选择2。透明度75%、模糊10。
   7。选择动画选项。选择每环的播放帧数为40。每秒帧数为15。暂停0，勾选循环选择10次，点击“动画提取器”进入动画提取页面，选择一款自己喜欢的动画。下方有预览的。 8。点击“导出动画”选择保存的位置。
  然后在跳出的保存选项提示框中，选择当前窗口尺寸，色深16色。点击保存。收起

怎么将TextBox中的文字在另一个TextBox中变成ASCII

全部回答

相关回答

用3d制作文字怎么吧文字变成竖行

类似问题换一批

热点推荐

热度TOP

热点搜索换一换

怎么将TextBox中的文字在另一个TextBox中变成ASCII

全部回答

相关回答

用3d制作文字怎么吧文字变成竖行

类似问题换一批

热点推荐

热度TOP

热点搜索 换一换

热点搜索换一换