请问下面这段什么意思呢。谢谢 好象是个运动的标签框,还有一个滚动条自己试一下就知道了一个Timer一个HScroll1一个Label就行了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 楼上的说得对,就是window常见的一个屏幕保护程序。能详细说明一下,每一步吗。 HScroll是用来调整移动速度的。Lable是移动文字的内容Label1.Move Label1.Left - HScroll1.Value * 50移动文字If Label1.Left < -Label1.Width Then如果文字内容移出了窗体,则进行下面操作 Label1.FontSize = Int((30 - 10 + 1) * Rnd + 10) 设置字体大小 Label1.Left = Me.Width 将文字设置在窗体右侧 Label1.Top = Rnd * (Me.Height - Label1.Height) 设置文字的Top值,使每次出现的位置不定End If label1.move label1.left - HScroll1.value * 50 '移动标签控件if label1.left < -label1.width then '如果标签的位置超出窗体左边界 label1.fontsize=int((30-10+1)*rnd+10) '随机确定字体 label1.left=me.width '将标签移动到窗体最右边 label1.top=rnd* (me.height-label1.height) '随机确定标签的垂直位置end ifend sub VB创建文件夹错误代码请修改 VB 接口实现问题 关于web页面的问题 VB 数据库高手请进--(新人一个......分太少,还望各位包涵) 如何让水晶报表每页固定行数,不足行数的补充空行? 这个类模块该如何做 sql语句里面怎么加变量啊? 怎么合并,分割mp3 access+vf 好久没来了菜鸟又来送分了,是一个VB中关开ACTIVEREPORT的问题希望知道的各位大哥、大姐不吝赐教!! 急、急、急,我用VB在做COM+组件,想将数据库连接共享,怎么实现?版主一定要帮忙 关于datacombo的问题
Lable是移动文字的内容Label1.Move Label1.Left - HScroll1.Value * 50
移动文字If Label1.Left < -Label1.Width Then
如果文字内容移出了窗体,则进行下面操作 Label1.FontSize = Int((30 - 10 + 1) * Rnd + 10)
设置字体大小 Label1.Left = Me.Width
将文字设置在窗体右侧 Label1.Top = Rnd * (Me.Height - Label1.Height)
设置文字的Top值,使每次出现的位置不定End If
if label1.left < -label1.width then '如果标签的位置超出窗体左边界
label1.fontsize=int((30-10+1)*rnd+10) '随机确定字体
label1.left=me.width '将标签移动到窗体最右边
label1.top=rnd* (me.height-label1.height) '随机确定标签的垂直位置
end ifend sub