VB 在启动画面上加载照片

Question

我正在尝试将所有照片加载到我系统上的按钮中。我设法让它在登录后加载，但图像在登录后需要时间加载。所以，我想让它在启动画面后加载。

Private Sub picture()
    Dim filePath As String

    filePath = "C:\Users\ress\source\repos\restaurant 2019\text\food_image.txt"
    Dim lines() As String = System.IO.File.ReadAllLines(filePath)

    fAdmin.btnFood0.Image = Image.FromFile(lines(0))
    fMain.btnFood0.Image = Image.FromFile(lines(0))
    fAdmin.btnFood1.Image = Image.FromFile(lines(1))
    fMain.btnFood1.Image = Image.FromFile(lines(1))
    fAdmin.btnFood2.Image = Image.FromFile(lines(2))
    fMain.btnFood2.Image = Image.FromFile(lines(2))
    fAdmin.btnFood3.Image = Image.FromFile(lines(3))
    fMain.btnFood3.Image = Image.FromFile(lines(3))
    fAdmin.btnFood4.Image = Image.FromFile(lines(4))
    fMain.btnFood4.Image = Image.FromFile(lines(4))
    fAdmin.BtnFood5.Image = Image.FromFile(lines(5))
    fMain.BtnFood5.Image = Image.FromFile(lines(5))
End Sub

Answer 1

我建议你可以使用 Form-shown 事件来加载照片。

代码：

Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        picture()

    End Sub