Smobiler上海石磨_.NET移动开发平台

标题: smobiler 怎么做跑马灯效果？ [打印本页]

作者: mhbh 时间: 2019-6-7 11:01
标题: smobiler 怎么做跑马灯效果？
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

作者: Lula.Jin 时间: 2019-6-10 09:41
有插件 https://www.smobiler.com/SmobilerDemo/marqueelabel.aspx

作者: mhbh 时间: 2019-6-10 15:00

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]这样怎么不动呢？

作者: Lula.Jin 时间: 2019-6-10 15:38
并不能看到你的图片，在ios中当文本长度超过控件长度时会滚动

作者: mhbh 时间: 2019-6-11 09:55
现在是这样的如下句子在开发模式中不会滚动：
MarqueeLabel1.text=label1.text
这样写不会滚动？
为什么呢？要怎么改?

欢迎光临 Smobiler上海石磨_.NET移动开发平台 (https://www.smobiler.com/)