VB初心者質問スレ Part6
■ このスレッドは過去ログ倉庫に格納されています
0347デフォルトの名無しさん
NGNGこんな感じかな。
If (shpball.Top + shpball.Height =< cmdb(i).Top And _
shpball.Top + shpball.Height >= cmdb(i).Top + cmdb(i).Height) And _
((shpball.Left + shpball.Width >= cmdb(i).Left And _
shpball.Left =< cmdb(i).Left + cmdb(i).Width) Or
(shpball.Left >= cmdb(i).Left And _
shpball.Left + shpball.Width <= cmdb(i).Left + cmdb(i).Width)) Then
■ このスレッドは過去ログ倉庫に格納されています