0

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

我正在使用VB6。我正在使用 1 combobox1，用于选择图像 n 1 命令按钮。但是当我在单击按钮中选择第二张图像时，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

谢谢你。最好的问候，陈

4

1 回答 1

0

看，这样做的唯一方法是在项目中添加 2 张图像作为资源，然后将其中一张作为默认图片，或者根据需要将其留空。

现在的过程是当您单击命令按钮时，您可以在两张图片之间切换。

按钮代码：

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

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

于 2013-06-30T02:41:14.870 回答