3日間グーグルで検索しようとすると、1つのpicboxで利用できる写真/画像が1つしかないことがわかりました。私の目標は複数の画像を表示することであり、それらを重ねることはできません。それらが重なっている場合は、赤い色が表示されます。
私はVB6を使用しています。combobox1
select 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
ありがとうございました。よろしくチャン