用户
 找回密码
 立即注册

3

主题

7

帖子

301

积分

中级会员

Rank: 3Rank: 3

积分
301
发表于 2019-6-7 11:01:04
smobiler 怎么做跑马灯效果?以下代码实现不了。?
怎么解?



Private Sub Smobilermain_Load(sender As Object, e As EventArgs) Handles Me.Load
        '  Labgh.Text = sugh ' & suxm
        Timer1.Start()

        Timer1.Interval = 1
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        'Labmcs.Left = (Labmcs.Left - Labmc.Left) + 1
        'If Labmcs.Left > Labmc.Left Then
        '    Labmcs.Left = 0
        'End If

        Labmcs.Left = Labmcs.Left + 1
        If Labmcs.Left > Me.Size.Width Then
            Labmcs.Left = Me.Size.Width
            Labmcs.Left = -1
            ' MsgBox("控件已右移出窗体")
        End If

    End Sub


使用道具 举报 回复
使用道具 举报 回复 支持 反对
发表于 2019-6-10 15:00:21
Lula.Jin 发表于 2019-6-10 09:41
有插件 https://www.smobiler.com/SmobilerDemo/marqueelabel.aspx

[img]file:///F:\;ksl;df\Tencent Files\550464578\Image\Group\Image2\DPWS_Y3XM()MT1JK@OKA6MT.png[/img]这样怎么不动呢?


使用道具 举报 回复 支持 反对
并不能看到你的图片,在ios中当文本长度超过控件长度时会滚动
使用道具 举报 回复 支持 反对
发表于 2019-6-11 09:55:06
现在是这样的如下句子在开发模式中不会滚动:
MarqueeLabel1.text=label1.text
这样写不会滚动?
为什么呢?要怎么改?
使用道具 举报 回复 支持 反对
发新帖
您需要登录后才可以回帖 登录 | 立即注册