如何实现窗体滚屏？？

WTM1 · 发表于 2002-10-16 01:18:00

<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:00

提示: 作者被禁止或删除内容自动屏蔽

WTM1 · 发表于 2002-10-16 16:48:00

我用的也是这个办法！当运行到窗体上顶端是会提示错误：
“控件或子窗体放置在这个位置太大了！”

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

zhengjialon · 发表于 2002-10-16 18:31:00

可以设一个IF 语句，当控件的TOP大于或等于0时就让TOP返原。

WTM1 · 发表于 2002-10-16 19:53:00

请写一下代码！1
谢谢！！

zhengjialon · 发表于 2002-10-16 21:56:00

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

WTM1 · 发表于 2002-10-16 22:27:00

Private Sub Form_Timer()
If 标签4.Top = 1 Then

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

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

zhengjialon · 发表于 2002-10-16 22:48:00

以上当然不行，
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:00

还是不可以！！请帮我做一个例子吧！1
谢过！！

Trynew · 发表于 2002-10-17 17:50:00

设置 If 标签4.Top < = x 吧，那有那么巧正好等于1。

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 如何实现窗体滚屏？？

群介绍
主题无相 (随机显示版	同地区群块其他地区)

harsonliao harsonliao 当前离线技术点技术点 V币点积分 4538 IP卡狗仔卡	2^# 发表于 2002-10-16 02:10:00 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡