ピクチャ ボックスを持つフォームがあり、ボタンをクリックすると、まったく同じピクチャを含むピクチャ ボックスが別のフォームに表示されます。次のコード行を使用します。
Image1.Image = vImage.Image
問題は、これを行った後、変更を確認できるように、フォームを非表示にして再度表示する必要があることです。避けたい、またはフォームを非表示にして表示するのと同等のことをしたいユーザーにまばたきをさせます。コードは次のようになります。
Public Sub UpdatePhoto(ByVal FullName As String, ByVal vImage As System.Windows.Forms.PictureBox)
timAnimate.Enabled = False
Me.Text = FullName
Image1.Image = vImage.Image
Me.Refresh()
Me.Hide()
Me.Show()
Image1.Visible = True
Call ShowTheWindow()
サブ終了