登录
首页 » VB源码 » VB6.0 屏幕滚动字幕(文字滚动)

VB6.0 屏幕滚动字幕(文字滚动)

于 2022-05-21 发布 文件大小:31.21 kB
0 145
下载积分: 2 下载次数: 2

代码说明:

VB6 屏幕滚动字幕,这个文字滚动区域被控制在屏幕的右下角,由右向左开始滚动,中间的高度可以调节,通过调节Me.Top = Screen.Height - Me.Height - 800参数,来改变文字滚动区域距离屏幕顶部的距离,文字滚动的实现是基于计时器和循环来实现,下面的代码可为你提供本效果的实现思路:   Label1.Caption = "这里定义需要滚动的文字内容: 用VB制作的文字滚动效果!"   Me.Left = Screen.Width   Me.Top = Screen.Height - Me.Height - 800   BeginPath Me.hWnd   SetBkMode Me.hWnd, TRANSPARENT   EndPath Me.hWnd   rgn = PathToRegion(Me.hWnd)   SetWindowRgn Me.hWnd, rgn, True   Timer1.Interval = 200   Timer1.Enabled = True   End Sub   Private Sub Timer1_Timer()    Me.Left = Me.Left - 100    If Me.Left < Label1.Width * (-1) Then    Timer1.Enabled = False    Me.Left = Screen.Width    Timer1.Enabled = True    End If   End Sub

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • VB NET写的DVD播放器
    播放器窗口界面中的操作菜单,实现了弹出菜单的功能,把控制菜下的各菜单项添加到弹出式菜单ContextMenuStrip1中。   播放器功能支持DVD格式的视频播放,包括了暂停、播放、停止、弹出等功能。   本播放器程序依赖于AxInterop.MSWEBDVDLib.dll、Interop.MSWEBDVDLib.dll。
    2023-05-18 15:05:03下载
    积分:1
  • VB.NET Try Catch Finally用法演示
    VB.NET 演示带Finally的Try Catch 异常处理用法演示,这个源码就是捕捉VB.NET运行错误的,结合了最常规的try catch组合,并且使用了Finally处理的情况,那么为什么要使用Finally呢?使用Finally的好处是,把资源释放或状态还原的代码放到finally块中,可以保证在try和catch语句执行完后,一定会执行finally语句块,而不用考虑各种复杂的跳转情况。
    2023-05-11 05:35:04下载
    积分:1
  • VB SetWindowRgn创建椭圆形窗口
    VB创建一个个性化的椭圆形窗口界面,使用 SetWindowRgn创建椭圆形窗口的例子。个性的窗口形状可增加程序的趣味性,可以使程序更具吸引力。见惯了方方正正的矩形窗体,椭圆形窗体更会使用户眼前一亮。本实例设计一个椭圆形的窗体,运行程序,窗体为椭圆形,单击窗体,即可退出程序。
    2022-10-27 20:55:03下载
    积分:1
  • Visual basic vb6.0 制作个人调查表窗体
    Visual basic vb6.0 制作个人调查表窗体,这个主要是练习一些VB Form 窗体控件中的元素用法,如果你初学习VB的话,这个例子非常适合你学习。   本例子中主要包括了对VB基本控件元素Check、Option、Text、Label、Button的用法进行了演示,具分享出了具体实现某一功能的代码及设置方法,涉及到光标自动归位、清空文本框、判断用户输入是否正确,断用户选择了哪一项按钮等功能,虽然简单,但对于VB打基础还是挺有帮助的。
    2022-04-18 16:36:31下载
    积分:1
  • VB演示矩阵的加法运算
    VB6.0演示矩阵的加法运算,本例中一共是两个矩阵,每一个矩阵都根据不同的算法生成矩阵数字序列,然后把这两个矩阵求和,最后一栏展示的是矩阵相加后的结果,以指定格式输出。看了代码,我暂时没搞懂是什么算法,感兴趣的自己下载源码,研究学习吧。
    2022-04-27 13:59:41下载
    积分:1
  • vb禁用窗体最大化、最小化和关闭快捷菜单
    vb禁用窗体最大化、最小化和关闭快捷菜单,禁用最大化、最小化不可用,重点实现了禁止关闭窗口的功能,禁止后窗口上的关闭按钮变成灰色不可点击了,在实现方面,核心代码如下:   Private Sub Form_Load()    RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_COLSE, MF_REMOVE//禁止关闭    RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MAXIMIZE, MF_REMOVE//禁止最大化    RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MINIMIZE, MF_REMOVE//禁止最小化   End Sub
    2022-08-06 00:49:36下载
    积分:1
  • vb.net复制、移动删除及获取文件的各种属性
    vb.net获取TXT文件的各种属性参数,除了复制、移动文件、删除文件外,还可获取到文件的各种属性参数,不过只是针对TXT文本文件,可以获取到以下的参数:文 件 名 、路 径 、文件大小 、创建文件时间、最近访问时间、最近写入时间、是否隐藏文件、是否只读文件、是否系统文件 、是否脱机文件等 。
    2022-01-26 07:50:33下载
    积分:1
  • VB 6.0 将数组中的数据利用图表分析
    VB 6.0 将数组中的数据利用图表分析,也就是用柱状图来显示数组中的数据,所有的操作都是从点击按钮开始的,如下代码:   Private Sub Form_Load()   Dim i   i = Array(1, 2, 3, 4, 5, 6, 7)   Dim j   For j = 0 To UBound(i)    With MSChart1    .RowCount = UBound(i) + 1    .Row = j + 1    .ColumnCount = 1    .Data = i(j)    .RowLabel = i(j)    End With   Next j   End Sub
    2022-01-25 18:47:19下载
    积分:1
  • VB为Lable标签着色(填充不同颜色)
    VB6.0为Lable标签着色(填充不同颜色),把标签分别填充上不同的颜色,在显示一些统计数据的时候,可清淅的显示出各种数据类型,提升用户浏览体验。   为Lable着色是非常简单的,你可以从本例子中学会用法。
    2022-02-05 08:55:36下载
    积分:1
  • VB演示三种FileSystemObject文件操作方法
    FSO对象模型提供了三种创建和打开文件的方法:其实本示例是创建了FileSystemObject对象,然后用FSO对象的FileExists、CreateTextFile、OpenTextFile方法,对文件进行操作,演示了三种FSO对象的操作方法,对学习初级的FSO文件操作有相当好的帮助作用。
    2022-02-07 21:26:36下载
    积分:1
  • 696516资源总数
  • 106679会员总数
  • 14今日下载