当按钮被点击vb.net时如何显示动画加载gif?

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (1)
  • 关注 (0)
  • 查看 (159)

如何显示一个动画gif的视频教程,该视图教程指出当按钮被点击并且数据或记录正在抓取或尚未准备好时加载或搜索?我的目的是,让用户知道表单正在加载并仍然从数据库中提取记录,并防止用户混淆,认为表单已经崩溃。

提问于
用户回答回答于

进度条:

可以在整个按钮的过程中增加一个进度条,以表明过程尚未结束。

下面,当按下按钮时,它搜索一个列表中的字符串“Snow White”。如果它在列表中检查的当前字符串不是“Snow White”,ProgressBar1会递增以显示移动标题已被检查。这将循环直到“Snow White”字符串出现。然后我们的循环将显示一个完整的ProgressBar1并显示“找到它!”

示例代码:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim moviesList As New List(Of String) From {"Cinderella", "Snow White", "Rapunzel"}
    ProgressBar1.Maximum = moviesList.Count()
    For Each movie In moviesList
        If movie = "Snow White" Then
            ProgressBar1.Value = ProgressBar1.Maximum
            Label1.Text = "Found it!"
        Else
            ProgressBar1.Value += 1
        End If
    Next
End Sub

标签:

您可以显示一个标签,告诉用户该按钮的进程仍在处理,直到完成。

下面,当按下按钮时,它搜索字符串“Snow White”的列表并将Label1设置为“正在加载...”。如果它在列表中检查的当前字符串不是“Snow White”,它会像正常一样继续,如果它是“Snow White”,它将更新Label1以说“找到它!”。通过显示这个用户可以看到程序是否正在加载。

示例代码:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim moviesList As New List(Of String) From {"Cinderella", "Snow White", "Rapunzel"}
    Label1.Text = "Loading..."
    For Each movie In moviesList
        If movie = "Snow White" Then
            Label1.Text = "Found it!"
        End If
    Next
End Sub

动画GIF:

您可以在按钮的进程处理过程中显示动画gif。

下面,当按下按钮时,它搜索字符串“Snow White”的列表,并将PictureBox1的Visible属性设置为True。如果你已经为PictureBox1添加了一个gif(如果你不知道如何在资源中链接它),你可以看到PictureBox1的加载gif。当循环在moviesList中找到“Snow White”字符串时,它将显示“找到它!” 在Label1中并将PictureBox1的Visible属性设置为False。

示例代码:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim moviesList As New List(Of String) From {"Cinderella", "Snow White", "Rapunzel"}
    PictureBox1.Visible = True
    For Each movie In moviesList
        If movie = "Snow White" Then
            PictureBox1.Visible = False
            Label1.Text = "Found it!"
        End If
    Next
End Sub

资源:

有关其他信息,您可以使用这些来实现你想要的。

动画化PictureBox:https://www.youtube.com/watch?v=Zsvi0p9YUE4

将Gif放入PictureBox中:https://www.youtube.com/watch?v=igSsB_61BR8

创建加载屏幕:https://www.youtube.com/watch?v=w8mtv9zJBD0

BackgroundWorker信息: BackgroundWorker Documentation

扫码关注云+社区

领取腾讯云代金券