Office中国论坛/Access中国论坛

标题: 如何实现窗体滚屏？？ [打印本页]

作者: WTM1 时间: 2002-10-16 01:18
标题: 如何实现窗体滚屏？？
<html>
<head>
<title>银城原创书廊</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta content=银城原创书廊、武侠小说、玄幻小说、科幻小说、现代小说、游戏小说、文学评论、原创资料 name=keywords>
<style type=text/css>

{FONT-SIZE:9pt;LINE-HEIGHT:20px;FONT-FAMILY:"宋体","新宋体"}A{FONT-SIZE:9pt;LINE-HEIGHT:20px;FONT-FAMILY:"宋体"}UL{FONT-SIZE:9pt;LINE-HEIGHT:20px;FONT-FAMILY:"宋体","新宋体"}CENTER{FONT-SIZE:12pt;LINE-HEIGHT:20px;FONT-FAMILY:"宋体","新宋体"}TD{FONT-SIZE:9pt;LINE-HEIGHT:20px;FONT-FAMILY:"宋体","新宋体"}SELECT{FONT-SIZE:9pt;LINE-HEIGHT:20px;FONT-FAMILY:"宋体","新宋体"}INPUT{FONT-SIZE:9pt;LINE-HEIGHT:20px;FONT-FAMILY:"宋体","新宋体"}TEXTAREA{FONT-SIZE:9pt;LINE-HEIGHT:20px;FONT-FAMILY:"宋体","新宋体"}A:link{COLOR:#F990099;TEXT-DECORATION:none}A:visited{COLOR:#663366;TEXT-DECORATION:none}A:active{COLOR:#F990099;TEXT-DECORATION:underline}A:hover{COLOR:#000000;TEXT-DECORATION:underline}HR{COLOR:#cccc99}.unnamed1{FONT-SIZE:9pt;FONT-FAMILY:"宋体"}</style>
</head>

<body topmargin="0" leftmargin="0" bgcolor="#FFFFFF" text="#000000" link="#3333FF" alink="#0000CC" vlink="#333366">
   <table width="190" border="0" cellspacing="0" cellpadding="0" align="right">
      <tr>
      <td height="2"></td>
      </tr>
      <tr>
      <td><img src="gif/16.gif" width="190" height="30"></td>
      </tr>
      <tr>
      <td>
         <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="ED1C24">
            <tr>
            <td></td>
            <td bgcolor="#CCFFCC" colspan="2"><marquee onMouseOver=this.stop() style=WIDTH:100%;HEIGHT:116px onMouseOut=this.start() scrollamount=2 direction=up>请支持银城的读者多多从银城下载手机铃音，这样银城会稍微有点广告收入来弥补我们建网站的投入，请多多支持。谢谢！</marquee></td>
            <td></td>
            </tr>
            <tr>
            <td width="1" height="1"></td>
            <td height="1"></td>
            <td height="1" width="1"></td>
            <td width="1" height="1"></td>
            </tr>
         </table>
      </td>
      </tr>
   </table>
</body>
</html>

这是网站的！
在access中如何实现在窗体中文字自动滚屏显示！！
谢谢！！

作者: harsonliao 时间: 2002-10-16 02:10
提示: 作者被禁止或删除内容自动屏蔽

作者: WTM1 时间: 2002-10-16 16:48
我用的也是这个办法！当运行到窗体上顶端是会提示错误：
“控件或子窗体放置在这个位置太大了！”

如何使文字在指定区域翻动！

作者: zhengjialon 时间: 2002-10-16 18:31
可以设一个IF 语句，当控件的TOP大于或等于0时就让TOP返原。

作者: WTM1 时间: 2002-10-16 19:53
请写一下代码！1
谢谢！！

作者: zhengjialon 时间: 2002-10-16 21:56
IF 移动的控件名.TOP>=每次移动的距离 THEN
移动的控件名.TOP=8*567(或其它你要的数，此处是8CM)
END IF
注意：如果仍出错，则“移动的控件名.TOP>=每次移动的距离”中的“每次移动的距离”数值要大一些。

作者: WTM1 时间: 2002-10-16 22:27
Private Sub Form_Timer()
If 标签4.Top = 1 Then

标签4.Top = 8 * 567
'(或其它你要的数，此处是8CM)
End If

是这样吗？不可以！！没有滚动！！

作者: zhengjialon 时间: 2002-10-16 22:48
以上当然不行，
Private Sub Form_Timer()
If 标签4.Top = 1 Then

标签4.Top = 8 * 567
'(或其它你要的数，此处是8CM)
End If
标签4.Top =标签4.Top +.5*567
END SUB

别忘了计时器间隔里要设一个数，

作者: WTM1 时间: 2002-10-16 23:11
还是不可以！！请帮我做一个例子吧！1
谢过！！

作者: Trynew 时间: 2002-10-17 17:50
设置 If 标签4.Top < = x 吧，那有那么巧正好等于1。

作者: WTM1 时间: 2002-10-17 18:00
标题: 请帮忙！改一下！
文件下载

作者: cg1 时间: 2002-10-17 21:57
看看我的吧，你根本做倒了，应该是减不是加文件下载

作者: WTM1 时间: 2002-10-17 23:42
谢谢！！非常感谢！！

作者: WTM1 时间: 2002-10-22 22:11
如何实现滚动，不是到顶端就掉回来！！是滚动！！还有速度要慢！！0??ZD
怎么做？谢谢！！！

作者: xiahou 时间: 2012-11-15 14:26
文本框里面的内容怎么实现滚动？？？？？？？？？？？？？？？？？求解

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)