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

[s_111111]

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

[我是小数位]

這個當然是放在時鐘的TIMER事件中，把INTERVAL設置為你想要的速度

[yrt888]

第一个问题的答案：

http://topic.csdn.net/u/20100907/23/b052c81f-7c65-45a2-95a6-1083a78431c6.html

[s_111111]

[Quote=引用 1 楼 yrt888 的回复:]
第一个问题的答案：

http://topic.csdn.net/u/20100907/23/b052c81f-7c65-45a2-95a6-1083a78431c6.html
[/Quote]
第一个已经OK了，谢谢

[jxjdzwang5555]

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

[yrt888]

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

[yrt888]

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

[我是小数位]

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

[我是小数位]

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

[我是小数位]

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

[s_111111]

[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]
这个类是基于什么？

[我是小数位]

容器類,CONTAINER

[s_111111]

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