wkaibigan wrote:
Private Sub PictureBox_Doub leClick(ByVal sender As System.Object,
ByVal e As System.EventArg s)
Try
Dim p As PictureBox = CType(sender, PictureBox)
Dim filetemp As String
filetemp = Replace(p.Tag, "Thumb", "jpg")
If Me.UseEditor = True Then
System.Diagnost ics.Process.Sta rt(filetemp)
Else
End If
_Image = Image.FromFile( filetemp)
Catch ex As Exception
Throw New Exception("Pict ureBox_DoubleCl ick", ex)
End Try
End Sub
Is there a way to emulate this functionality by single clicking the
image to select and and then click a button on the form to perform the
same action as the above code? If so, please could you provide sample
code.
Extract the code into a separate routine and call it wherever you want
to call it from.
Private Sub EditPicture( ByVal sender as PictureBox )
'Try
Dim p As PictureBox = CType(sender, PictureBox)
Dim filetemp As String _
= Replace(p.Tag, "Thumb", "jpg")
If Me.UseEditor = True Then
System.Diagnost ics.Process.Sta rt(filetemp)
Else
???
End If
_Image = Image.FromFile( filetemp)
'Catch ex As Exception
' Throw New Exception("Pict ureBox_DoubleCl ick", ex)
'End Try
End Sub
.... then ...
Private m_CurrentPictur e as PictureBox = Nothing
Private Sub PictureBox_Clic k(ByVal sender As System.Object _
, ByVal e As System.EventArg s)
m_CurrentPictur eBox = DirectCast( sender, PictureBox )
End Sub
Private Sub Button7_Click(B yVal sender As System.Object _
, ByVal e As System.EventArg s)
EditPicture( m_CurrentPictur eBox )
End Sub
You'll note I've commented out your Exception Handling in EditPicture -
there's no point catching an Exception unless you're going to do
something /useful/ with it (and, IMHO, wrapping a nice, specific
Exception in a System.Exceptio n isn't).
HTH,
Phill W.
