问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

在vb中怎样使label标签框左右来回移动

发布网友 发布时间:2022-05-06 02:47

我来回答

4个回答

热心网友 时间:2022-06-28 13:19

利用定时器Timer来实现

Option Explicit

'移动方向标志
Dim GoLeft As Boolean

Private Sub Form_Load()
    '为了更好的演示效果,移除Label文字周围的空隙
    Label1.AutoSize = True
    
    '启动定时器
    Timer1.Interval = 50
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    With Label1
        '如果Label1到达窗体最左侧,则向右移动
        If (.left + .Width) > Me.ScaleWidth Then GoLeft = False
        
        '如果Label1到达窗体最右测,则向左移动
        If .left < 0 Then GoLeft = True
        
        If GoLeft Then
            '向左移动5个像素
            .Move Label1.left + Screen.TwipsPerPixelX * 5
        Else
            '向右移动5个像素
            .Move Label1.left - Screen.TwipsPerPixelX * 5
        End If
    End With
End Sub

热心网友 时间:2022-06-28 13:19

基本思路,用个timer控件,然后在timer事件中控制label的左边位置就可以了,例如:
private FXJ as boolean

private sub Form_load()
FXJ= true
label1.caption="看我移动"
label1.left=0
timer1.interve=10
end sub

private sub timer1_timer()
if fxj then
label1.left=label1.left+10
if label1.left>=form1.width-label1.width then fxj=not fxj
else
label1.left=label1.left-10
if label1.left<=0 then fxj=not fxj
end if
end sub

这是个基本的东西,按照你的实际要求改改吧,如有问题,再说 呵呵。

热心网友 时间:2022-06-28 13:20

补充一下 tian_yf 的回答
用个计时器,设置它的触发时间间隔,然后在计时器的事件里修改label的left属性值加或减,就能控制label的左移或右移.同时别忘了判断一下label是否移动到了父控件外面去了.有什么不明白的地方,您可以补充提问。直接给代码对学习不利@@

比较遗憾。欧联科技 朋友的直接给出了代码,代码思路就上上面我写的思路。
(授人以鱼不如授人以渔)

热心网友 时间:2022-06-28 13:20

更改label标签的left属性大小就行
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
iOS 16.1.1值得更新升级吗 ios16.1.1正式版建议更新吗 iOS 16.1.1修复了哪些问题 ios16.1.1值得更新吗?ios 16.1.1新增内容及更新建议 iPhone 12升级iOS 16.1.1之后好用吗 iOS 16.1.1更新内容介绍 iOS 16.1正式版新增了哪些新功能?iOS 16.1正式版值得升级吗? ios 16.1正式版解决了哪些问题和BUG ...森先生是他“最好的老师” 你喜欢这样的老师吗? ... 你喜欢怀特森这样老师吗?说说你的看法.250字 怎么让标签里的两句话分别居左居右显示 VB6.0 如何使标签左右来回移动?试了很多次了都没成功,只能单向移动 vb中利用timer控制标签左右循环移动 易语言标签 自动左右移动 怎么实现? 李宇春从来不被任何标签左右,保持独立思考并付之行动,多重要? 商量标签左右贴反了该怎么解释 请问后缀名为.avi的视频文件用什么播放器打开?求赐教 怎样把WORD文档改成文稿的形式 新买了个stm32f4的开发板准备学习,突然发现需要电脑有一个超级终端程序?win7有吗? iphone 8怎么会开不开机了? 为什么南洋理工大学的一个教授说博士不免学费?不是博士都免学费么?求解呀,谢谢 qq号怎么绑定另一个 南洋理工大学博士申请求助 关于留学南洋理工大学留学CS博士的求助 乳腺增生吃什么药效果最好? 【春节】意外受伤怎么办?常见伤处理指南 双侧乳腺增生,需要治疗吗 德云社舞台上的道具“手帕”是公用的吗?有人洗吗? 注册的支付宝可不可以注销,重新注册 我电脑里没有word文档设置怎么办? VB怎么让标签不断的上下左右移动 VB怎么让标签自右往左移动 求教!VB 怎么让标签在窗体中左右来回移动 VB 编制程序,当点击命令按钮时,标签框左右移动 tsc标签打印机如何左右一起打印标签内容? 办公用打印机选激光还是喷墨好? div中的多个标签怎么才能上下左右对齐的贴近左边框 乳腺增生怎样治会有效啊?什么方法有用啊? AVI格式用什么播放器可以放? 我好几个洗脸帕都会出现一些黑色的点点,为什么啊? 用帕子清洗头发 ,发现 落好多头发 在帕子上头 不敢用帕子擦 好的创业项目,人工不要太多,资金少 现在什么职业比较长久、赚钱? 做什么生意赚钱呢,吃的行业哪些好呢 这个年代做什么生意能发家致富 买车必须买购置税么? 哪位大神有下载好的车载音乐,DJ的也可以或者视频。 - 信息提示 谁有好的DJ歌曲视频下载 小手帕清洗饮水机在全国的需求量是乐观的吗?请各位介绍一下小手帕在哪一个城市的发展最乐观