文本转换问题(重发)

jimqiu 2000-08-31 03:36:00
要使文本框控件显示:
"Java"
"ssss"
这段文字,代码必须这样写:
Text1.text=Chr(34) & "Java" & Chr(34) & Vbcrlf & chr(34) & "ssss" & chr(34)
如果是长篇文本的话,就十分麻烦,我想编一个文本转换程序,将原先的文本自动转换成文本框可以识别的那种,麻烦各位高手帮帮忙

...全文
112 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
mxp 2000-08-31
  • 打赏
  • 举报
回复
变量可以直接得到用户输入的文本,将变量赋值到显示框就可以了。
比如:
Public Temptext as String

....

在某个窗体中

Temptext=text1.text

后来别处需要显示

....

text2.text=temptext

就行,自动处理,不用写函数。
mxp 2000-08-31
  • 打赏
  • 举报
回复
哦!我懂了一些,是将Program Code 中的一个字符串型变量显示出来
也就是对该变量的值如何赋。
Text1.Text = """Java""" & vbCrLf & """ssss"""
就可以。
不过没什么意义,一般很少在程序中写大量的显示代码,都是重数据库或文件中得到的;
您可以将要显示的文本写在加密文档或加密数据库中,只要调用赋值就可以了。
jimqiu 2000-08-31
  • 打赏
  • 举报
回复
再清楚些:比如说窗体上有两个按钮和一个Textbox,按按钮1显示文本1,按钮二显示文本2,要显示的文本由我事先写在字符串变量中.
假如要显示:
"Java"
"ssss"
不得这样写吗:Text1.text=Chr(34) & "Java" & Chr(34) & Vbcrlf & chr(34) & "ssss" & chr(34)???
我要编的程序正是先由用户输入:一段含有换行和引号的文本,然后在另外一个文本框中,生成形如:
Text1.text=Chr(34) & "Java" & Chr(34) & Vbcrlf & chr(34) & "ssss" 这样的文本,可减轻输入的负担


mxp 2000-08-31
  • 打赏
  • 举报
回复
您说说看,从哪里的到的字符串,是分段的还是一个串,要是一个串直接赋值,就行。
最好举个例子,我还是不懂您卡在什么地方了。
jimqiu 2000-08-31
  • 打赏
  • 举报
回复
不是用户自行输入,而是触发某个事件后,由程序定义要显示的内容
mxp 2000-08-31
  • 打赏
  • 举报
回复
什么意思??
比如在Text1中输入:(MultiLine=true)
"Java"
"ssss"
用(MultiLine=true)Text2.Text=text1.text
没什么不可以??
您能不能把问题描述清楚一些!!

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧