社区
VB基础类
帖子详情
VB显示循环显示文本框内容
额,饿了
2012-09-03 01:31:23
比如现在有个记事本(约1000字)
我想要循环显示
比如用text 循环显示
问题是 比如哪天我改成500字了 800字了
怎么控制
...全文
453
8
打赏
收藏
VB显示循环显示文本框内容
比如现在有个记事本(约1000字) 我想要循环显示 比如用text 循环显示 问题是 比如哪天我改成500字了 800字了 怎么控制
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
额,饿了
2012-09-04
打赏
举报
回复
[Quote=引用 4 楼 的回复:]
用.SELTEXT属性试试
[/Quote]
不明白 .seltext属性有什么用? 在这里好像没有选中的操作把?
额,饿了
2012-09-04
打赏
举报
回复
[Quote=引用 6 楼 的回复:]
http://topic.csdn.net/u/20120904/13/6eae68d0-e956-4100-864b-4a01d7723780.html?82416
参考这个贴,问得具体点,怎么样的循环,什么样的效果
[/Quote]
非常感谢 搞定了
额,饿了
2012-09-04
打赏
举报
回复
[Quote=引用 6 楼 的回复:]
http://topic.csdn.net/u/20120904/13/6eae68d0-e956-4100-864b-4a01d7723780.html?82416
参考这个贴,问得具体点,怎么样的循环,什么样的效果
[/Quote]
谢谢 我去看看 研究一下
sosoben
2012-09-04
打赏
举报
回复
http://topic.csdn.net/u/20120904/13/6eae68d0-e956-4100-864b-4a01d7723780.html?82416
参考这个贴,问得具体点,怎么样的循环,什么样的效果
lliai
2012-09-03
打赏
举报
回复
用.SELTEXT属性试试
额,饿了
2012-09-03
打赏
举报
回复
真没人来啊。。。
额,饿了
2012-09-03
打赏
举报
回复
没人来
额,饿了
2012-09-03
打赏
举报
回复
我一开始带的方法是 调整好text 的大小 正好放下 文本框的内容
然后用timer控制 让text一点一点往上移动
问题是 如果修改了记事本的内容
显示就出现问题了
Vb
6四十多条新手制作或业余爱好者必看的
里面所含的
内容
有: 1、
vb
6MDPlay重复播放.txt 2、
vb
6MsgBox消息窗口.txt 3、
vb
6text自动换行.txt 4、
vb
6保存(读取)数据到注册表里.txt 5、
vb
6背景色透明.txt 6、
vb
6打开任意类型的文件.txt 7、
vb
6打开网页.txt 8、
vb
6单击按钮复制
文本框
内的
内容
.txt 9、
vb
6单击按钮最小化窗体.txt 10、
vb
6点击最大化最小化和关闭(有上角的)触发什么事件.txt 11、
vb
6调用API函数模拟按下Alt键.txt 12、
vb
6读写txt
内容
.txt 13、
vb
6根据MDPlay设计进度框.txt 14、
vb
6后台发送邮件.txt 15、
vb
6获取鼠标当前位置.txt 16、
vb
6检测程序是否运行.txt 17、
vb
6检测键盘的输入.txt 18、
vb
6检测文件是否存在.txt 19、
vb
6进度条的使用A.txt 20、
vb
6进度条的使用B.txt 21、
vb
6禁止改变窗口大小(允许最大化和最小化).txt 22、
vb
6模拟按键.txt 23、
vb
6模拟键盘输入的N种方法.txt 24、
vb
6判断鼠标左键被按下.txt 25、
vb
6屏幕任意截图.txt 26、
vb
6全局键盘钩子.txt 27、
Vb
6如何注册OCX控件.txt 28、
vb
6什么是键盘虚拟键?.txt 29、
vb
6使控件大小随窗体的变化而变化.txt 30、
vb
6使用ShellExecute调用RAR进行解压.txt 31、
vb
6释放资源文件.txt 32、
vb
6提取包含特定字符的行的
内容
.txt 33、
vb
6托盘+气泡(不用模块).txt 34、
vb
6拖动text
文本框
.txt 35、
vb
6拖动没有标题栏的窗口.txt 36、
vb
6信息收发软件的制作.txt 37、
vb
6
循环
整数的运用.txt 38、
vb
6用MDPlay播放音乐.txt 39、
vb
6用代码解压缩rar文件.txt 40、
vb
6用代码添加资源文件.txt 41、
vb
6在程序中调用资源文件.txt 42、
vb
6在数据库中保存变量.txt 43、
vb
6怎么生成不带引号的字符.txt 44、
vb
6制作时钟(时针、分针、秒针).txt 45、
vb
6中的text中输入的
内容
存为txt文本.txt 46、
vb
6中多个简单的命令.txt 47、
vb
6中怎样加载背景图片,能随窗体大小变化? .txt 以上
内容
纯属作者本人整理,
内容
的可靠性也经本作者亲手证实,请放心使用,珍惜作者的劳动成果。
VB
输出有规律的图形
VB
输出有规律的图形
VB
输出有规律的图形
VB
程序设计入门基础
VB
入门基础。 清楚易懂,适合初学者 本课程主要从开发环境、窗体、命令按钮、
文本框
、标签、消息框和输入框、代码基础、选择结构、
循环
结构、数组、过程、控件等方面进行讲解
VB
版自动生成随机数,6个蓝一个红色
VB
版自动生成随机数,6个蓝一个红色 关键是在于代码 #Region "自动生成双色球" Private Sub Command1_Click() i = 1 Do While i <= 7 '第一层
循环
,用于取8个数 cf = False '是否取到了重复的数 Randomize() If (i = 7) Then k = Int(Rnd() * 16) + 1 Else k = Int(Rnd() * 32) + 1 '获取随机数 End If For j = 1 To i '第二层
循环
,判断是否取到的数字发生了重复 If k = s(j) Then '当发生重复的时候标记cf变量 cf = True Exit For End If Next If cf = False Then '如果取得数字没有重复,进行赋值,并
显示
在text1
文本框
If (i = 7) Then p = k 'Response.Write("
" & k & "
") Else zu.Add(k) 'Response.Write("
" & k & "
") End If s(i) = k i = i + 1 '继续取下一个数字,直到i=8 End If Loop For i = 0 To 5 For j = 0 To 5 If zu(i) < zu(j) Then Dim tmpe tmpe = zu(i) zu(i) = zu(j) zu(j) = tmpe End If Next Next For i = 0 To 5 Response.Write("
" & zu(i) & "
") Next Response.Write("
" & p & "
") End Sub #End Region
VB
数独,简单算法通俗易懂
算法虽然比较啰嗦但是极其简单易懂。 算法采用了简单的行列
循环
判断和单格可能数字判断。 单击
文本框
显示
可能的数字。
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章