两个问题：不开启窗口和字符走马灯显示

s_111111 2010-10-21 08:11:02

新建一个项目，在启动程式中开启一个表单，现在有两个问题。
1.开启表单的时候，会在VFP的环境界面中运行，如何能让环境消失(只找到让菜单消失的语句set sysmenu off)，只显示表单界面？
2.怎么让字串走马灯的形式一句一句的显示？

...全文

156 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

s_111111 2010-10-21

打赏
举报

[Quote=引用 10 楼 cxj0062008 的回复:]
容器類,CONTAINER
[/Quote]
這段代碼放到哪個事件中？Init？

我是小数位 2010-10-21

打赏
举报

容器類,CONTAINER

s_111111 2010-10-21

打赏
举报

[Quote=引用 6 楼 cxj0062008 的回复:]
建一個類，名為scrollscreen，在類中加入TIMER控件，設置INTERVAL為你想要的速度，代碼如下
Local lnCurPos,lcCurRowText,lcChar
#Define nScrollStep 0.1
#Define nScrollPerRow 14
nRateRow = This.Parent.Parent.Height/Wrows()
nRateCol =……
[/Quote]
这个类是基于什么？

我是小数位 2010-10-21

打赏
举报

如果顯示不同的字幕就得引用數組，把數組中的不同內容定時的賦給他就OK了！

我是小数位 2010-10-21

打赏
举报

哦，忘了，CDLISPTEXT，NCURPOS,NSCROLLTIMES為類的新增屬性，其值分別為"",1,14

我是小数位 2010-10-21

打赏
举报

建一個類，名為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 ='走馬燈字幕

yrt888 2010-10-21

打赏
举报

有个： SCROLL 命令，没实践过！

yrt888 2010-10-21

打赏
举报

你的第二问题，是不是好像论坛版面上面的会向上的滚动提示，若是这个我也想学习，看看那位大侠解答一下！

jxjdzwang5555 2010-10-21

打赏
举报

if thisform.label1.left=thisform.width
thisform.label2.left=thisform.label2.left+1
else
thisform.label1.left=thisform.label1.left+1
endif
以上是否可以实现2条语句？你是否是需要循环实现，还是一次，是有多少条。

s_111111 2010-10-21