Hello and thanks for taking a look at this.
To make this simple i have a multiple forms. On form 1 is a picturebox whose image property is set through a series of case statements as follows:
The issue is that whenever i navigate away from this form and then back to it the picturebox is glitched and will only appear as a white box with a red X through it.Code:If (MyImage IsNot Nothing) Then MyImage.Dispose() End If Select Case cnt_ACerv 'Case 1 ' MyImage = My.Resources.cervAP17 'Case 2 ' MyImage = My.Resources.cervAP18 'Case 3 ' MyImage = My.Resources.cervAP19 'Case 4 ' MyImage = My.Resources.cervAP20 Case 6 MyImage = My.Resources.cervAP22 Case 7 MyImage = My.Resources.cervAP23 Case 8 MyImage = My.Resources.cervAP24 Case 9 MyImage = My.Resources.cervAP25 Case 11 MyImage = My.Resources.cervAP27 Case 12 MyImage = My.Resources.cervAP28 Case 13 MyImage = My.Resources.cervAP29 Case 14 MyImage = My.Resources.cervAP30 Case 16 MyImage = My.Resources.cervAP32 Case 17 MyImage = My.Resources.cervAP33 Case 18 MyImage = My.Resources.cervAP34 Case 19 MyImage = My.Resources.cervAP35 Case 21 MyImage = My.Resources.cervAP37 Case 22 MyImage = My.Resources.cervAP38 Case 23 MyImage = My.Resources.cervAP39 Case 24 MyImage = My.Resources.cervAP40 Case 26 MyImage = My.Resources.cervAP42 Case 27 MyImage = My.Resources.cervAP43 Case 28 MyImage = My.Resources.cervAP44 Case 29 MyImage = My.Resources.cervAP45 End Select If cnt_ACerv > 30 Then If cnt_ACerv < 37 Then MyImage = My.Resources.cervAP45 End If End If If cnt_ACerv < 37 Then guide.Image = CType(MyImage, Image) End If Return 0
Im sure there is something simple i am missing or a refresh that needs to be done but at this point i am unaware of what to look for. I have checked the variables inside my case statements before i navigate away and after i navigate back and they appear to be correct at both points.




Reply With Quote