Please, tell me that there is a way to make something like this?
Because I have 16 Picture Boxes and I really dont want to copy this 16 times and changin PictureBox1.Image every time.
Example:
Because I would have to change PictureBox1.Image to PictureBox2.Image and again and again...
I want to make something like:
It is very likely that you did not understand what I need.
Thanks in advance.
Code:
Dim PicBox as New PictureBox1Example:
Code:
Dim FileExtension = IO.Path.GetExtension(PictureBox1Path).ToUpper
If FileExtension = "EXE" Then
PictureBox1.Image = CType(Ic.ConvertTo(ReturnIcon(PictureBox1Path, 1), GetType(Bitmap)), Image)
PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage
ElseIf FileExtension = "TXT" Then
PictureBox1.Image = My.Resources.TextLogo
ElseIf FileExtension = "PNG" Or FileExtension = "GIF" Or FileExtension = "JPG" Or FileExtension = "JPEG" Or FileExtension = "JPE" Or FileExtension = "JFIF" Or FileExtension = "BMP" Or FileExtension = "TIFF" Then
PictureBox1.Image = My.Resources.ImageLogo
ElseIf FileExtension = "AVI" Or FileExtension = "FLV" Or FileExtension = "3G2" Or FileExtension = "DIVX" Or FileExtension = "MP4" Or FileExtension = "MP4V" Then
PictureBox1.Image = My.Resources.VideoLogo
ElseIf FileExtension = "MP3" Or FileExtension = "WAV" Or FileExtension = "FLAC" Or FileExtension = "PCM" Or FileExtension = "DVF" Or FileExtension = "OGG" Then
PictureBox1.Image = My.Resources.AudioLogo
ElseIf FileExtension = "PDF" Then
PictureBox1.Image = My.Resources.PDFLogo
ElseIf FileExtension = "RAR" Then
PictureBox1.Image = My.Resources.RARLogo
ElseIf FileExtension = "ZIP" Then
PictureBox1.Image = My.Resources.ZIPLogo
Else
PictureBox1.Image = My.Resources.UnknownLogo
End IfI want to make something like:
Code:
Dim PicBox as New PictureBox1
PicBox.Image
....Thanks in advance.