怎么在vb里实现数据的滚动显示 查询出的记录集要实现由下到上的滚动显示,就像网页里的一些滚动新闻那样,不知道该怎么弄,大家帮帮忙啊 谢了啊 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 MovingChar.ocx这个控件可以实现你需要的功能 如果数据量不大的话,可以将查询到的数据在Label中显示。用Picture作为容器,让这个Label在Picture中移动就可以了 试了一下,代码如下:Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Label1.Caption = "" cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " _ & "Data Source=" & App.Path & "\test.mdb;Persist " _ & "Security Info=False;Jet OLEDB:Database Password=123" rs.Open "select * from tb", cn, adOpenStatic, adLockOptimistic While Not rs.EOF Label1.Caption = Label1.Caption & rs!f & vbCrLf '添加字段f的信息 rs.MoveNext Wend Set rs = Nothing Set cn = Nothing Timer1.Enabled = True Timer1.Interval = 100End SubPrivate Sub Timer1_Timer() If Label1.Top + Label1.Height > 0 Then Label1.Enabled = True Label1.Move Label1.Left, Label1.Top - 30 Else Label1.Enabled = False Label1.Move Label1.Left, Picture1.Top + Picture1.Height End IfEnd Sub 可以将数据放到LISTVIEW控件中,然后通过API向控件发送滚动消息,使数据滚动。具体操作方法到我的网站上查询http://j2soft.008.net/在VB资料里有! listview, datagrid类 的控件都有滚动条的,有些控件还能实现拆分,冻结等功能 VB登陆验证的一个问题 vsflexgrid的savegrid使用過程中提示變量沒有定義,急急急! 紧急求助;DrWatson 4097 错误 listview如何实现这样的功能? 救我!!datagrid不显示,急死了! 如何得到远程SQL数据库中我自己建的数据库列表?以及各库中的所有自建的表名? 如何该变窗体的格式呢?请高手赐教! 菜啊菜啊菜.... 请问如何加载外接程序管理器???急急急!!! 進來看看! 有没有将字符串转换成条件表达式的东东(函数)? 用vb调用notepad程序后,如何让notepad程序不在任务栏里显示?向各位前辈请教:
MovingChar.ocx这个控件可以实现你需要的功能
Private Sub Form_Load() Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset Label1.Caption = ""
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source=" & App.Path & "\test.mdb;Persist " _
& "Security Info=False;Jet OLEDB:Database Password=123"
rs.Open "select * from tb", cn, adOpenStatic, adLockOptimistic
While Not rs.EOF
Label1.Caption = Label1.Caption & rs!f & vbCrLf '添加字段f的信息
rs.MoveNext
Wend
Set rs = Nothing
Set cn = Nothing
Timer1.Enabled = True
Timer1.Interval = 100End SubPrivate Sub Timer1_Timer() If Label1.Top + Label1.Height > 0 Then
Label1.Enabled = True
Label1.Move Label1.Left, Label1.Top - 30
Else
Label1.Enabled = False
Label1.Move Label1.Left, Picture1.Top + Picture1.Height
End IfEnd Sub
http://j2soft.008.net/
在VB资料里有!