1.开启表单的时候，会在VFP的环境界面中运行，如何能让环境消失(只找到让菜单消失的语句set sysmenu off)，只显示表单界面？
2.怎么让字串走马灯的形式一句一句的显示？
-
等级
本版专家分：21结帖率 100% -
新建一个项目，在启动程式中开启一个表单，现在有两个问题。
1.开启表单的时候，会在VFP的环境界面中运行，如何能让环境消失(只找到让菜单消失的语句set sysmenu off)，只显示表单界面？
2.怎么让字串走马灯的形式一句一句的显示？展开阅读全文
-
等级
本版专家分：1675 -
第一个问题的答案：
http://topic.csdn.net/u/20100907/23/b052c81f-7c65-45a2-95a6-1083a78431c6.html
-
等级
本版专家分：21
-
第一个已经OK了，谢谢
-
等级
本版专家分：1032
-
if thisform.label1.left=thisform.width
thisform.label2.left=thisform.label2.left+1
else
thisform.label1.left=thisform.label1.left+1
endif
以上是否可以实现2条语句？你是否是需要循环实现，还是一次，是有多少条。
-
等级
本版专家分：1675
-
你的第二问题，是不是好像论坛版面上面的会向上的滚动提示，若是这个我也想学习，看看那位大侠解答一下！
-
等级
本版专家分：1675
-
有个： SCROLL 命令，没实践过！
-
等级
本版专家分：3159 -
建一個類，名為scrollscreen，在類中加入TIMER控件，設置INTERVAL為你想要的速度，代碼如下
Local lnCurPos,lcCurRowText,lcChar
#Define nScrollStep 0.1
#Define nScrollPerRow 14
nRateRow = This.Parent.Parent.Height/Wrows()
nRateCol = This.Parent.Parent.Width/Wcols()
nScrollTop = This.Parent.Top /nRateRow + 0.5
nScrollLeft = This.Parent.Left /nRateCol + 1
nScrollBottom = ( This.Parent.Top + This.Parent.Height ) /nRateRow - 1.1
nScrollRight = ( This.Parent.Left + This.Parent.Width ) / nRateCol -1.3
If (This.Parent.ncurpos >= Len(This.Parent.cdisptext)).Or.(This.Parent.ncurpos<=0)
This.Parent.ncurpos = 1
lnCurPos =This.Parent.ncurpos
ELSE
lnCurPos =This.Parent.ncurpos
Endif
If This.Parent.nScrollTimes>= nScrollPerRow
lcRowText = ''
Do While (Len(lcRowText) < Int(nScrollRight-nScrollLeft)).And.(lnCurPos <= Len(This.Parent.cdisptext))
If Asc(Substr(This.Parent.cdisptext,lnCurPos,1))> 128
lcRowText = lcRowText + Substr(This.Parent.cdisptext,lnCurPos, 2)
lnCurPos = lnCurPos + 2
Else
lcRowText = lcRowText +Substr(This.Parent.cdisptext, lnCurPos, 1)
lnCurPos = lnCurPos + 1
Endif
Enddo
@nScrollBottom, nScrollLeft Say lcRowText
This.Parent.nScrollTimes=1
If lnCurPos > Len(This.Parent.cdisptext)
This.Parent.ncurpos = 1
Else
This.Parent.ncurpos = lnCurPos
Endif
Else
Scroll nScrollTop, nScrollLeft, nScrollBottom, nScrollRight, nScrollStep
This.Parent.nScrollTimes=This.Parent.nScrollTimes +1
Endif
在另一表單中調用，並在他的初始化中加入this.cdisptext ='走馬燈字幕
-
等级
本版专家分：3159
-
哦，忘了，CDLISPTEXT，NCURPOS,NSCROLLTIMES為類的新增屬性，其值分別為"",1,14
-
等级
本版专家分：3159
-
如果顯示不同的字幕就得引用數組，把數組中的不同內容定時的賦給他就OK了！
-
等级
本版专家分：21
-
这个类是基于什么？
-
等级
本版专家分：3159
-
容器類,CONTAINER
- css样式：文字led效果（走马灯、轮播）
和尾标签</marquee>之间的内容就是滚动内容。<marquee>标签的属性主要有behavior、bgcolor、direction、width、height、hspace、vspace、loop、scrollamount、scrolldelay等，它们都是可选的。...
- 分别用Js和vue实现跑马灯效果
这篇博客分别用Js和vue实现跑马灯效果，并有完整的代码实现！
- 关于TextView走马灯问题
最近一客户因走马灯问题找我，当字符在25个以上的时候就不走了，后来我把问题复现了下，发现问题如下： 问题1.字符在25个以内都可以走的。 问题2.字符超过25个，而小于屏幕宽度，就不走了 问题3.字符超过屏幕...
- java实现文字跑马灯_跑马灯的问题
跑马灯的问题我写了二个跑马灯的程序，代码如下第一个：import java.awt.event.*;import javax.swing.*;public class PmdLabel extends JApplet implements Runnable{String strLabel, strPmd, strPmdTemp;Thread T;...
- Javascript 走马灯
第一种：String 直接操作 <HTML> &...这是一个足跑马灯效果的JAVASCRIPT文档"... //定义了要显示的效果的字符 ... //定义了每个字符的显示间隔时间 var spacelen=100; ...
- 实现文字跑马灯效果
本示例将实现文字跑马灯效果：文字超过显示宽度每间隔1s自动向左滚动显示，话不多说，请看代码 js实现文字超过显示宽度每间隔1s自动向左滚动显示 *{ margin:0; padding:0;} body{font:12px/1 '微软雅黑...
- 【vue】vue实现跑马灯效果
substring() 方法用于提取字符串中介于两个指定下标之间的字符。 语法 stringObject.substring(start,stop) 参数 描述 start 必需。一个非负的整数，规定要提取的子串的第一个字符在 stringObject 中的...
- 案例 - 无缝轮播图面向对象两种写法
单例模式 预加载 涉及知识点： 单例模式： currentTarget与target currentTarget始终是监听事件者，即 直接调用addEventlistener那个节点 ... constructor 属性返回对创建此对象的数组函数的引用。...
- jQuery - 综合实例 - 生成在两个边界间的随机数
jQuery - 综合实例 - 生成在两个边界间的随机数
- 接口测试的流程和步骤_流程步骤教你玩：意法半导体NFC开发板上手测试
- 面包板社区今天意外惊喜收到了之前申请的意法半导体NFC评估套件：ST25R3911B-DISCO,下面开始简单入手准备：先上一个包装图：话不多说，打开看看来个全家福：除了评估主板外，还附带了两个NFC标签：一个为ST25贴纸...
- html特效大全1
提前声明：好久之前的文档，找不着出处，如有侵权，联系本人，马上处理！ ...3)在新窗口打开连接：<a href="相关地址"target="_blank">写上要写的字</a&
- php做一个网页的源代码,用HTML5做一个个人网站此文仅展示个人主页界面。内附源代码下载地址...
下载说明： 1.再好的作品都不如将来要做的作品。在每一次的设计当中都能有所收获，才是设计师在web开发中最得益的。 2.本站所有作品均是杨青个人设计。...我在我自己的网站上做了个DIV+CSS的网站，喜欢DI...
- Android 性能测试小工具 (cpu，内存，电量，流量数据浮窗显示，信息导入数据库、sd卡)
打开浮窗后，浮窗将显示顶层(当前所在)app的cpu占用、内存、流量，手机总cpu占用、电量数据，每几秒实时更新数据。 一个开关按钮，点击控制数据导入数据库和SD卡或停止导入。(可选) 一个选择按钮，点击控制监测...
- C#/音乐播放器/带进度条/歌词滚动、颜色变化/桌面应用程序设计
用基本C#知识实现制作一个音乐播放器 截图示意
- jQuery - Selectors选择器 - :input匹配所有input, textarea, select和button元素
jQuery - Selectors选择器 - :input匹配所有input, textarea, select和button元素 [Selectors/input - 文档] http://docs.jquery.com/Selectors/input [jQuery - 官方网站] http://jquery.com/ [jQuery - 当前
- jsp/html开发中常用的JS代码和页面特效代码
1.jsp/html开发中常用的JS代码 1、后退 前进 <input type="button" value="后退" onClick="history.go(-1)"> <input type="button"...&a
- jQuery - 参考资料 - About Cross-Frame Scripting and Security:关于跨框架脚本和安全
jQuery - 参考资料 - About Cross-Frame Scripting and Security:关于跨框架脚本和安全 [About Cross-Frame Scripting and Security: - 文档] http://msdn2.microsoft.com/en-us/library/ms533028.aspx [jQuery -...
- TCP/IP详解学习笔记(11)-TCP交互数据流，成块数据流
这些协议又可以根据数据吞吐量来大致分成两大类：(1)交互数据类型，例如telnet，ssh，这种类型的协议在大多数情况下只是做小流量的数据交换，比如说按一下键盘，回显一些文字等等。(2)数据成块类型，例如ftp，这种...
- HTML特效代码大全(完整)
4.移动字体(走马灯)：写上你想写的字 5.字体加粗：写上你想写的字 6.字体斜体：写上你想写的字 7.字体下划线: 写上你想写的字 8.字体删除线: 写上你想写的字 9.字体加大: 写上你想写的字 10.字体控制大小：写上你想...
- （二十三）EGE答疑与补充
窗口(1) EGE窗口打开与关闭(2) 窗口开始动画关闭与打开(3) 窗口调整大小(4) 设置窗口标题(5) 去除窗口边框(6) EGE图形窗口只有一个(7) is_run()(8) 控制台（黑窗口）3. 无法打开.exe进行写入4. 图像(1) 清屏(2) ...
- 最近面试遇到的问题
在主模块里面，每个div的class会映射到相应的js文件，比如page-one.js, page-two.js等。当点击导航时，通过哈希监听事件，如果哈希发生了变化，则改变哈希值：window.location.hash,来调用相应的js文件。相应的js...
- jQuery - Selectors选择器 - first第一个元素
jQuery - Selectors选择器 - first第一个元素Selectors/first:first OverviewMatches the first selected element.While this matches only a single element, :first-child matches more than one: O
- jQuery Selectors lastChild选择最后一个子元素
分享一下我老师大神的人工智能教程！零基础，通俗易懂！http://blog.csdn.net/jiangjunshow也欢迎大家转载本篇文章。分享知识，造福人民，实现我们中华民族伟大复兴！ ... jQuery - Se
- Windows Vista for Developers——第二部分：深入分析任务对话框
作者：Kenny Kerr 翻译：Dflying Chen 原文：http://weblogs.asp.net/kennykerr/archive/2006/07/18/Windows-Vista-for-Developers-_1320_-Part-2-_1320_-Task-Dialogs-in-Depth.aspx 请同时参考《Windows Vista for...
- android安卓源码海量项目合集打包-1
最后更新共计113个分类5177套源码29.2 GB。 卷 新加卷 的文件夹 PATH 列表 卷序列号为 00000200 5E7A:7F30 F:. ├─前台界面 │ ├─3D标签云卡片热门 │ │ Android TagCloudView云标签的灵活运用.rar │ │ ...
- 你不能不知道的HTML常用代码
弄个粗体字，下划线就是突出重点了？真是一股浓浓的乡村风扑面而来；弄个图在页面飘来飘去就是动画效果了，你要这么认为的话那我只能保持沉默了。在HTML5占领着整个互联网之时，想透过网页抓住所有人的眼球，...
- VSCode launch.json配置详细教程
主要介绍了vscode 的node.js debugger 的 launch.json 配置详情,本文通过实例代码给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友可以参考下
- JAVA WEB开发实战
走进JSP、掌握JSP语法、JSP内置对象、Servlet技术、综合实验（一）——JSP使用Model2实现登录模块、EL表达式语言、JSTL核心标签库、综合实验（二）——结合JSTL与EL技术开发通讯录模块、JSP操作XML、JavaScript脚本语言、综合实验（三）——Ajax实现用户注册模块——可以轻松领会Java Web程序开发的精髓，提高开发技能。 快速提高自己的java web项目开发能力
- STM32F103C8T6最小系统原理图
STM32F103C8T6最小系统原理图文件，包括电源电路、单片机等 11111111111111111111
- 从零基础开始用Python处理Excel数据.pdf
首先学习Python的基础知识，然后使用Python来控制Excel，做数据处理。 Excel使用者、Python爱好者、数据处理人员、办公人员等 第1章 python基础 1.1 什么是python？ 1.2 为什么要学习用Python处理Excel表格？ 1.3 手把手教你安装python程序 1.3.1 下载python 1.3.2 安装python 1.3.3 验证是否安装成功 1.4 安装Python集成开发工具PyCharm 1.4.1 下载 1.4.2 安装 1.5 Python的输入与输出