Question

我想在panel3淡出前显示panel17.text = "complete" .. 以及我在label17.text出现之前制作panel13 fadeout的代码.. 如果有人可以帮忙??

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles SubmitAdd.Click

    If String.IsNullOrEmpty(IDadd.Text) Or _
        String.IsNullOrEmpty(NamaAdd.Text) Or _
        String.IsNullOrEmpty(PasswordAdd.Text) Then

        Label17.Text = "filled all"
    Else
        Try
            Label17.Text = ""

            Dim tambah As String
            tambah = "INSERT INTO [TblAdmin] VALUES ('" + IDadd.Text + "','" + NamaAdd.Text + "','" + PasswordAdd.Text + "')"
            Dim CMD As New SqlCommand(tambah, con)
            con.Open()
            Dim Nama As SqlDataReader = CMD.ExecuteReader()
            Label17.Text = "complete"
            con.Close()
            Me.TblAdminTableAdapter.Fill(Me.DataBase_SystemDataSet1.TblAdmin)

        Catch ex As Exception
            con.Close()
            MessageBox.Show("data is exists", "failed", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End If
    Threading.Thread.Sleep(1000)
    Me.Panel3.Visible = False
End Sub

Answer 1

我不确定它是否可行，但您可以尝试在'Threading.Thread.Sleep（1000）'行之前调用'Label17.refresh'

如何使用Threading.Thread.Sleep显示面板

1 个答案: