关于在text中顺序显示字符的问题！
现在已经知道有一个字符串(汉字)，比如是：a= “我是你的朋友。他也是你的朋友！”
这个字符串已经存在了，可是我想把他这样显示：
先显示“我是你的朋友。”在我点击后再显示下半句成为：“我是你的朋友。他也是你的朋友！”
这个句子的格式不固定，并且有时候还很长，有很多句组成，
应该如何实现点一下出一句这样的效果啊？
另外，还有个小问题：text的enabled属性为false时为什么text的颜色属性无效啊？
谢谢！！！
-
等级
本版专家分：126结帖率 100% -
关于在text中顺序显示字符的问题！
现在已经知道有一个字符串(汉字)，比如是：a= “我是你的朋友。他也是你的朋友！”
这个字符串已经存在了，可是我想把他这样显示：
先显示“我是你的朋友。”在我点击后再显示下半句成为：“我是你的朋友。他也是你的朋友！”
这个句子的格式不固定，并且有时候还很长，有很多句组成，
应该如何实现点一下出一句这样的效果啊？
另外，还有个小问题：text的enabled属性为false时为什么text的颜色属性无效啊？
谢谢！！！
展开阅读全文
-
等级
本版专家分：6098勋章
-
- 微软MVP 2010年1月 荣获微软MVP称号
-
-
1:enable为false的时候其他所有的属性都失效了,这是正常的
2:如果确定是以句号断句
可以这样
Dim arr() as string
arr=Split(a,"。")
然后按一下回车,显示一个数组元素或者是组合即可.
-
等级
本版专家分：39519勋章
-
- 微软MVP 2005年9月 荣获微软MVP称号
-
-
黄花
2004年11月 VB大版内专家分月排行榜第二
2004年10月 VB大版内专家分月排行榜第二
-
-
Text1.Text=Text1.Text+"增加或者变化的字符串"
-
等级
本版专家分：126
-
1.那要是不想让别人修改text中的值，但又要显示颜色应该怎么办？
2.不一定用句号断句啊，只要是和句号在句子中作用一样的标点如，“！”、“？”等，都要断句的，这样的话还有其他办法吗？谢谢！
-
等级
本版专家分：15567 -
标点符号就那么多，我想不会超过20个吧，把所有你认为可用于断句的符号都检测一下就行了。方法很多，用Instr就不错。写个函数给你：
Function FindBreak(start as long ,word As string) as Long
dim i as long,s As string
s="，；”。！~……）？" '自己随便加上你想检测的断句符
for i=1 to len(s)
FindBreak=instr(start,word,mid(s,i,1))
if FindBreak>0 then exit function
next
end Function
-
等级
本版专家分：118811勋章
-
-
红花
2014年6月 VB大版内专家分月排行榜第一
2014年5月 VB大版内专家分月排行榜第一
2014年4月 VB大版内专家分月排行榜第一
2014年3月 VB大版内专家分月排行榜第一
2014年2月 VB大版内专家分月排行榜第一
2014年1月 VB大版内专家分月排行榜第一
2013年11月 VB大版内专家分月排行榜第一
-
-
黄花
2013年12月 VB大版内专家分月排行榜第二
2013年3月 VB大版内专家分月排行榜第二
2013年1月 VB大版内专家分月排行榜第二
2012年9月 VB大版内专家分月排行榜第二
2012年8月 VB大版内专家分月排行榜第二
2012年7月 VB大版内专家分月排行榜第二
2006年7月 VB大版内专家分月排行榜第二
2006年5月 VB大版内专家分月排行榜第二
-
-
蓝花
2014年9月 VB大版内专家分月排行榜第三
2013年7月 VB大版内专家分月排行榜第三
2013年6月 VB大版内专家分月排行榜第三
2013年4月 VB大版内专家分月排行榜第三
2012年11月 VB大版内专家分月排行榜第三
2006年6月 VB大版内专家分月排行榜第三
2006年4月 VB大版内专家分月排行榜第三
2002年12月 VB大版内专家分月排行榜第三
2002年11月 VB大版内专家分月排行榜第三
-
-
1
将 TextBox 放在一个 Enabled = false，BorderStyle = 0 的 Frame 中。
2
strWords = "我是你的朋友。他也是你的朋友！"
Private Sub Text1_Click()
Dim p As Integer, n As Integer
p = InStr(Len(Text1) + 1, strWords, "。")
n = InStr(Len(Text1) + 1, strWords, "!")
If p > n Then p = n
n = InStr(Len(Text1) + 1, strWords, "?")
If p > n Then p = n
n = InStr(Len(Text1) + 1, strWords, "……")
If p > n Then p = n + 1
'......
Text1 = left(strWords, p)
End Sub
-
等级
本版专家分：6137 -
1.那要是不想让别人修改text中的值，但又要显示颜色应该怎么办？
2.不一定用句号断句啊，只要是和句号在句子中作用一样的标点如，“！”、“？”等，都要断句的，这样的话还有其他办法吗？谢谢！
不让修改,直接设置Text的Locked=true
标点的只能挨个判断了.
-
等级
本版专家分：8341
-
1.Locked=true
2.
dim a(10) as string
dim i as integer
sub form_load()
i=0
a(0)="我是你的朋友。"
a(1)="他也是你的朋友！"
...
end sub
sub command1_click()
text1.text=text1.text & a(i)
i=i+1
end sub
-
等级
本版专家分：28024勋章
-
-
红花
2006年10月 VB大版内专家分月排行榜第一
2006年9月 VB大版内专家分月排行榜第一
2006年8月 VB大版内专家分月排行榜第一
-
- 黄花 2006年11月 VB大版内专家分月排行榜第二
-
-
蓝花
2008年8月 VB大版内专家分月排行榜第三
2008年7月 VB大版内专家分月排行榜第三
-
-
1、不修改内容又要显示颜色，请将Text换成Label；
2、具体实现如下：
一个Text1用于存放原始字符串，一个Label1用于显示，一个Command，代码如下：
Private Sub Command1_Click()
Static i As Integer
Do While i <= Len(Text1)
i = i + 1
If Mid(Text1, i, 1) = "，" Or Mid(Text1, i, 1) = "。" Or _
Mid(Text1, i, 1) = "？" Or _
Mid(Text1, i, 1) = "！" Or _
Mid(Text1, i, 1) = "；" Then '此处假定以，。？！；进行分界
Label1.Caption = Left(Text1, i)
Exit Do
End If
Loop
End Sub
-
等级
本版专家分：126
-
谢谢大家给了这么多的方法~
-
等级
本版专家分：1861勋章
-
- 签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
-
- 红花 2012年4月 其他开发语言大版内专家分月排行榜第一
-
-
1、不修改内容又要显示颜色，请将Text换成Label；
---------------严重同意这个观点，呵呵！
- 汇编语言：请写一个程序把当前目录下的TEXT.TXT文件中的字符读出来显示在屏幕上，当遇到结束符时就停止读取...
题目：写一个程序把当前目录下的TEST.TXT文件中的字符内容读出来并显示在屏幕上，当遇到结束符时就停止读取。 我的test.txt中的内容是： 程序的运行结果如下： 我写的源代码如下： EOF=065 DSEG SEGMENT...
- JS-String方法
1.substring()2.substr()3.slice()
- 用EXCEL提取身份证号码中的生日
自动录入出生日期 (1)函数分解 CONCATENATE函数将几个文本字符串合并为一个文本字符串。 语法:CONCATENATE(text1,text2,...) Text1,text2,..... (2)实例分析 与上面的思路相同，我们可以在E2单元格中输入公式“=I
- linux在所有文件中查找某一个字符
转载自 ...lt;directory> -type f -name "*.c" | xargs grep "<strings&...如果是当前文件夹可以省略-type f 说明，只找文件-name "... 表示只找..
- 鱼c笔记——Python 的 GUI 编程（六）：Tkinter 的 Text 组件
显示和处理多行文本就需要使用我们的 Text 组件了。 Text 组件十分的强大和灵活，适用于多种任务。虽然说 Text 的主要目的是显示多行文本，但是也常常被当做简单的文本处理器、文本编辑器或者网页浏览器来使用...
- vb.net Encoding类 编码解码
Encoding 类 ...表示字符编码。...命名空间： System.Text ...程序集： mscorlib（在 mscorlib.dll 中） 语法 VB C# C++ F# JScript 打印 _ Tr
- JavaScript 字符串方法全版
String 类定义了大量操作字符串的方法，例如从字符串中提取字符或子串，或者检索字符或子串。 需要注意的是：JavaScript 的字符串是不可变的（immutable），String 类定义的方法都不能改变字符串的内容。像 String....
- Tkinter 组件详解（十一）：Text
在 Tkinter 的所有组件中，Text 组件显得异常强大和灵活，适用于多种任务。虽然该组件的主要目的是显示多行文本，但它常常也被用于作为简单的文本编辑器和网页浏览器使用。 何时使用 Text 组件？ Text 组件用于...
- Log 日志查看常用命令
linux查看日志文件内容命令tail、cat、tac、head、echo linux查看日志文件内容命令tail、cat、tac、head、echo tail -f test.log 你会看到屏幕不断有内容被打印出来....从第3000行开始，显示10...
- MySQL数据类型--字符串类型
字符串类型是在数据库中存储字符串的数据类型，字符串类型包括char，varchar，text，enum和set。 OK，我们来一个一个的看下上面提到的几种类型。 char类型和varchar类型 char类型和varchar类型都是在...
- C# 网络编程之webBrowser乱码问题及解决知识
C#编写webBrowser简单浏览器时总是显示...主要结合实际编写的浏览器并详细分析了一些编码的问题,主要通过获取CharacterSet,设置相应的Encoding方法,希望文章对大家有所帮助,如果文章中有错误或不足之处,同时请大家海涵!
- Linux 查看日志文件命令
tail head cat tac echo 1. tailtail -f test.log你会看到屏幕不断有内容被打印出来....2. headlinux 如何显示一个文件的某几行...即显示3000~3999行cat test.log | tail -n +3000 | head -n 1000显示1000行到3000行ca
- 40、Power Query-Text.Combine函数进阶
本节主题：通过上一节的例子进阶处理，加深Text.Combine的印象。 回顾一下上一节的数据源。 这次我们需要的结果没有上一节那么简单了，要根据月份业绩列分别列示在一行，目标效果如下： 首先我们还是根据上一节...
- linux查看日志文件内容
linux查看日志文件内容命令tail、cat、tac、head、echo、grep less file 分页查看文件 ：ctrl+G 最后 ：u 上 : d 下 tail -f test.log ...你会看到屏幕不断有内容被打印出来....grep -n '
- 我在CSDN参与的3000个帖子
今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！...
- 关于halcon的OCR字符识别
一、训练OCR字符库为了识别图像中的文字，需要通过图像训练合适的OCR字符库，这时，我们需要利用到halcon上面的OCR助手。下面，我来教大家如何使用这个OCR助手，并且正确地训练出芯片上的字符。 第一步，我们需要...
- #R#字符串处理-grep/grepl/sub/gsub等等
处理文本是每一种计算机语言都应该具备的功能，但不是每一种语言都侧重于处理文本。R语言是统计的语言，处理文本不是它的强项，perl语言这方面的功能比R不知要强多少倍。幸运的是R语言的可扩展能力很强，DNA/RNA/...
- 西普部分CTF题目（逆向）
1、阿拉丁神灯... 这里有个比较函数，应该是输入的字符串和zhimakaimen@2011进行比较，在页面输入该密码，即可获得key 小明向灯神许愿道~ 灯神啊~ 给我过关的Key吧~ 灯神说道\KEY:UnPack&Crack2011!!2
- linux tr命令详解
通过使用tr，您可以非常容易地实现 sed 的许多最基本功能。您可以将 tr 看作为 sed的（极其）简化的变体：它...tr主要用于删除文件中控制字符或进行字符转换。使用tr时要转换两个字符串：字符串1用于查询，字符串2用
- 写一个程序，输入一个字符串，然后将其输出到一个文本文件中，格式是每个字符占一行
#include <stdio.h> #include <stdlib.h> int main() { FILE * outfile; char ch[81]; int i; outfile = fopen("newChar.txt", "w"); if (outfile == NULL) { printf("无法创建文件！......
- MessageBox()用法简介
MessageBox() ... 参数title：string类型，指定消息对话框的标题text：指定消息对话框中显示的消息，该参数可以是数值数据类型、字符串或boolean值icon：Icon枚举类型，可选项，指定要在该对话框左侧显示的
- ArcGIS Desktop 的字段（Field）那些事
大家在进行数据编辑，自然少不了对某个要素类的某个字段进行编辑，设置相关的值，修改相关的值，那么在字段修改方面也有许多问题，特总结一下，与大家进行分享！1：ArcGIS Desktop是否可以对字段进行重命名？答：...
- BiDi 算法详解及应用（一）
在开始本节内容之前，先对这个系列做一个简要的说明，在此系列里面会详细介绍以下几点内容： 什么是BiDiUnicode 的 BiDi 算法详解ICU 对算法的实现和工业级应用Html4 和 Html5 对 BiDi 支持及对应的控制元素和节点...
- 我大学剩下一年半的生活（三）——pythonchallenge之level2
level 2同样是采用图加描述的形式，那段描述告诉我们，你可以成为一个神，或者是作为...是因为如果你在这张图里面找到了我们需要的信息，我想你也就做到了人做不到的事情。作为一个正常的未来的程序员还是乖乖的看页
- android的TextView的TextWatcher使用
TextWatcher是一个文本变化监听接口，定义了三个接口，分别是beforeTextChanged,onTextChanged,...TextWatcher中三个回调接口都是使用了InputFilter过滤器过滤之后的文字字符作为新的字符对象。 使用方法 mT
- CDC:DrawText多行显示文本的问题(文本自动换行)
int DrawText( HDC hDC, // handle to DC LPCTSTR lpString, // text to draw int nCount, // text length LPRECT lpRect, //
- iOS RestrictedInput【限定文本输入框输入特定最大的字符个数及截取前N个字符】 iOS限制字符串输入(汉字\...
code @interface UserEnterView()&amp;lt;UITextFieldDelegate&amp;gt;...采用通知监听UITextFieldTextDidChangeNotification， 比代理方法UIControlEventEditingDidEnd 来的好用些 ...
- 《React-Native系列》10、 RN组件之Text和TextInput以及注意要点
今天把写的RN程序从iOS上迁移到Android上，发现了一些问题，主要涉及到Text和TextInput这两个组件，所以用一节来专门记录下来。 Text组件 我们先来看官网给的例子： renderText: function() { return ( {this....
- VBA中Option的四种用法
下面的内容出处于：VBA标准模块与类模块中的部分，这里仅仅为了作者查找的方便． 1、Option Explicit。...自动设定的方法：在VBA编辑器工具菜单中选项里的编辑器选卡中的要求声明变量选项选上即可
- c语言实现简易文本编辑器
在文本编辑软件中把用户输入的所有文本内容作为一个字符串。虽然各种文本编辑软件的功能有强弱差别，但是基本操作都包括串的输入、修改、删除（包括整行删除和一行中的子串删除）、查找、输出等。通过分析，系统应该...