我正在尝试对多个图片框执行相同的操作,但以下代码的第一行产生了此错误:
Unable to cast object of type System.Windows.Forms.Button to type System.Windows.Forms.PictureBox
所以我想知道是否有人可以提供帮助。提前谢谢。
For Each pb As PictureBox In Me.Controls
Dim bp As New Bitmap(pb.Image)
pb.Region = GetRegion(bp, Color.FromArgb(255, 255, 0, 255))
pb.Image = Nothing
pb.BackColor = Color.FromArgb(100, Color.Yellow)
Next
答案 0 :(得分:1)
For Each
循环遍历Me.Controls
在开始操作控件之前,您需要检查PictureBox
类型
For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is PictureBox Then
Dim bp As New Bitmap(ctrl.Image)
ctrl.Region = GetRegion(bp, Color.FromArgb(255, 255, 0, 255))
ctrl.Image = Nothing
ctrl.BackColor = Color.FromArgb(100, Color.Yellow)
End If
Next