Vb6 是否可以在运行模式下在一个picturebox上显示多个图像

当我试着用谷歌搜索它3天时，我发现在一个picbox中只有一张图片/图像可用。我的目标是显示多个图像，它们不能重叠。如果它们重叠，则应显示红色

我正在使用VB6。我正在使用1

combobox1

，用于选择图像n1命令按钮。但当我在点击按钮中选择第二个图像时，picbox上的图像将自动覆盖它。它是由.cls引起的吗

Private Sub Combo1_Click()
Dim pin As String
Dim intx As Integer
If UCase$(Combo1.List(intx)) = UCase$(pin) Then
Combo1.ListIndex = intx
End If
End Sub
Private Sub Command1_Click()

If Combo1.ListIndex = 0 Then
Set mPic = pin8.Image
ElseIf Combo1.ListIndex = 1 Then
Set mPic = pin12.Image

Else
Set mPic = pin16.Image
End If

    mPicWidth = Me.ScaleX(mPic.Width, vbHimetric, Picture1.ScaleMode)
    mPicHeight = Me.ScaleY(mPic.Height, vbHimetric, Picture1.ScaleMode)
    ShowPictureAtPosition mLeft, mTop

End Sub

多谢各位。 致以最崇高的敬意，

---

chan

看，唯一的方法是在项目中添加两张图片作为资源，然后制作一张默认图片，或者根据您的意愿将其留空

现在的过程是单击命令按钮在两张图片之间切换

按钮代码：

if 

PictureBox1.Image = My.Resources.<Name_of_res_file>.<Name_of_image1111_resource>

Then

PictureBox1.Image = My.Resources.<Name_of_res_file>.<Name_of_image2222_resource>

Else

PictureBox1.Image = My.Resources.<Name_of_res_file>.<Name_of_image1111_resource>

End If

if
PictureBox1.Image=My.Resources。。
然后
PictureBox1.Image=My.Resources。。
其他的
PictureBox1.Image=My.Resources。。
如果结束

---

这将在两张图片之间切换。希望这对您有所帮助。

您的意思是两张图片同时出现在图片框中？是的，单击命令按钮后将添加另一张。我的任务是使两张图片不会重叠。在图片框中拖动。但不能重叠2个图像。看待有什么想法吗？？我很沮丧。