请问那位高人知道如何实现平滑地滚动显示文字(最好用API 或VB)

project21 2000-06-08 06:43:00
...全文
308 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
wgtech 2000-07-05
  • 打赏
  • 举报
回复
关于DirectDraw在VB中的使用,M$的DirectX7 SDK中就有很详细的教程&示例
你可以去M$的网站上一瞧。
project21 2000-06-29
  • 打赏
  • 举报
回复
Chen_lin
点击我的名字就可以发MAIL给我
yuyu 2000-06-20
  • 打赏
  • 举报
回复
用API函数:TEXTOUT()
Chen_Lin 2000-06-14
  • 打赏
  • 举报
回复
如何发mail给你?
project21 2000-06-14
  • 打赏
  • 举报
回复
chen_lin
请问,你这个例子是做什么用的,如何使用?
project21 2000-06-14
  • 打赏
  • 举报
回复
sunbn
关于2,3两个方案,你有例子吗?
Chen_Lin 2000-06-09
  • 打赏
  • 举报
回复
Private Const MERGEPAINT = &HBB0226
Private Const SRCAND = &H8800C6
Private Const SRCCOPY = &HCC0020
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub DrawPicture()
' Fix the part of the image that was covered.
BitBlt picCanvas.hDC, _
OldX, OldY, PicWid, PicHgt, _
picHidden.hDC, OldX, OldY, SRCCOPY
OldX = CurX
OldY = CurY

' Paint on the new image.
BitBlt picCanvas.hDC, _
CurX, CurY, PicWid, PicHgt, _
picXMask.hDC, 0, 0, MERGEPAINT
BitBlt picCanvas.hDC, _
CurX, CurY, PicWid, PicHgt, _
picX.hDC, 0, 0, SRCAND

' Update the display.
picCanvas.Refresh
End Sub
Keri 2000-06-09
  • 打赏
  • 举报
回复
用textbox就可以的阿,先读入一个文件到textbox(或者RichTextBox)中,然后用api函数SendMessage()的SB_PageUp,SB_PageDown,WM_LineScroll等就可以实现文本的逐行
或逐页滚动。效果也还不错的说。
mxp 2000-06-08
  • 打赏
  • 举报
回复
按效果好坏组合为:
(1)Picturebox + Picturebox + Timer
(Picturebox.print "text")

(2)用FxLabel控件

(3)Picturebox + Timer
(picture.PaintPicture 背景 + Picturebox.print "文字")

(4)Picturebox + Label + Timer

TopHead 2000-06-08
  • 打赏
  • 举报
回复
能说详细点吗?
sunbn 2000-06-08
  • 打赏
  • 举报
回复
1. paintpicture (good)
2. blt api (good)
3. DirectDraw7 for VB (best but hard & bigger)

1,485

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧