请教大虾：将excel 数据表显示在电视大屏幕上并可翻屏，如何用VB 来实现？
请教大虾：将excel 数据表显示在电视大屏幕上并可翻屏（就像火车站显示列车时刻表一样，会自动定时翻屏），如何用VB 来实现？求VB程序,先谢了！ --------------------编程问答-------------------- 再大屏也只是一个显示器而已, 没有什么不同的处理方法, 最多特别排一下版而已 --------------------编程问答-------------------- 排版应该解决不了，因为第一屏满了后，第二屏是不会自动翻上去显示出来的，只有第一屏消失后，第二屏才能显示出来。 --------------------编程问答-------------------- 自动滚屏？如果是直接打开Excel可以这样：添加一个timer和commandbutton，在目录下添加一个test.xls
Option Explicit
Dim xlApp As Excel.Application
Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open(IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "Test.xls").Sheets(1).Select
xlApp.ActiveSheet.Rows(1).Show
xlApp.Visible = True
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
xlApp.Quit
Set xlApp = Nothing
End Sub
Private Sub Timer1_Timer()
If xlApp.ActiveWindow.ScrollRow = 50 Then '如果显示到第50行
xlApp.ActiveSheet.Rows(1).Show '重新返回到第一行
'xlApp.ActiveWindow.SmallScroll , 1’向上滚动一行
Else
xlApp.ActiveWindow.SmallScroll 1 '先下滚动一行
End If
End Sub
如果不想显示Excel就把数据取出来，然后在自己控制，至于用什么控件显示自己把握…… --------------------编程问答-------------------- 呃……定义错了，Dim xlApp As Object就可以了，忘记改了！
--------------------编程问答-------------------- 多谢了！
--------------------编程问答--------------------
good!!dd
补充：VB , 基础类
