在checkedchanged事件中的复选框中添加图片时出现问题

时间:2016-06-10 08:44:05

标签: vb.net

大家早上好。

我试图在其状态发生变化时将图像放入复选框(checkedchanged事件),然后使用此复选框更改状态制作屏幕截图,但是,当事件被触发并截屏时,图片不会出现在下一个代码执行之前 我想知道是否有任何方法可以让它像更新事件后的vb。 有谁知道我该怎么做? 谢谢!

我的代码:

Private Sub CheckBox_accept_terms_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox_accept_terms.CheckedChanged

Try
    If CheckBox_accept_terms.Checked Then

        CheckBox_accept_terms.Image = My.Resources.cancelar

        If moveTmpPic_finalPic() Then
            If agreement_screenshot() Then
                If generate_xml() Then
                    If generate_zip() Then
                        send_email_agreement = False
                        Common_functions.savedCapture = New Saved_capture_form
                        Common_functions.savedCapture.Show()
                        Me.Close()
                    End If
                End If
            End If
        End If
    End If

Catch

End Try

End Sub

我也尝试过:

Private Sub CheckBox_accept_terms_BackgroundImageChanged(sender As Object, e As EventArgs) Handles CheckBox_accept_terms.BackgroundImageChanged

Try
    If CheckBox_accept_terms.Checked Then

        If moveTmpPic_finalPic() Then
            If agreement_screenshot() Then
                If generate_xml() Then
                    If generate_zip() Then
                        send_email_agreement = False
                        Common_functions.savedCapture = New Saved_capture_form
                        Common_functions.savedCapture.Show()
                        Me.Close()
                    End If
                End If
            End If
        End If
    End If

Catch

End Try

End Sub

Private Sub CheckBox_accept_terms_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox_accept_terms.CheckedChanged

    CheckBox_accept_terms.BackgroundImage = My.Resources.cancelar

End Sub

1 个答案:

答案 0 :(得分:0)

您可以添加Update()来电或Refresh()来电,看看是否有帮助。

尝试:

Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
    CheckBox1.BackgroundImage = My.Resources.garbage

    CheckBox1.Update()
    'or use refresh
    CheckBox1.Refresh()
End Sub

更新使控件“更新”,并强制显示您的图像。

如果您的问题是图像显示不正确,则可能是背景图像的布局。拉伸将使图像适合您的控件的大小(而不是保持完整大小)。

        CheckBox1.BackgroundImageLayout = ImageLayout.Stretch