vb.net 滚动图片示例（vs2008 源代码）

最新推荐文章于 2022-05-09 15:05:29 发布

eoiso

最新推荐文章于 2022-05-09 15:05:29 发布

阅读量564

点赞数

文章标签： vb.net imagelist integer timer object class

本文链接：https://blog.csdn.net/eoiso/article/details/3502945

版权

vb.net 滚动图片示例（vs2008 源代码）

Public Class gundong
    Dim num As Integer = 1
    Dim i As Integer = 0
    Dim time As Integer

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If i > ImageList1.Images.Count Then
            i = 0
        Else
            i += 1
        End If
        Select Case i
            Case 1
                PictureBox1.Image = ImageList1.Images(i)
            Case 2
                PictureBox1.Image = ImageList1.Images(i)
            Case 3
                PictureBox1.Image = ImageList1.Images(i)
            Case 4
                PictureBox1.Image = ImageList1.Images(i)
            Case 5
                PictureBox1.Image = ImageList1.Images(i)
            Case 6
                PictureBox1.Image = ImageList1.Images(i)
            Case 7
                PictureBox1.Image = ImageList1.Images(i)
            Case 8
                PictureBox1.Image = ImageList1.Images(i)
            Case 9
                PictureBox1.Image = ImageList1.Images(i)
            Case 10
                PictureBox1.Image = ImageList1.Images(i)
            Case 11
                PictureBox1.Image = ImageList1.Images(i)
            Case 12
                PictureBox1.Image = ImageList1.Images(i)
            Case 13
                PictureBox1.Image = ImageList1.Images(i)

最低0.47元/天解锁文章

eoiso

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
vb.net 滚动图片示例（vs2008 源代码）

vb.net 滚动图片示例（vs2008 源代码）Public Class gundong Dim num As Integer = 1 Dim i As Integer = 0 Dim time As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.E
复制链接

扫一扫