0

3日間グーグルで検索しようとすると、1つのpicboxで利用できる写真/画像が1つしかないことがわかりました。私の目標は複数の画像を表示することであり、それらを重ねることはできません。それらが重なっている場合は、赤い色が表示されます。

私はVB6を使用しています。combobox1select image n 1 commandbutoon に1 を使用しています。しかし、クリックボタンで2番目の画像を選択すると、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