Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
水着!カムバック!の解説プログラムについて
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=9629#CommentId14634
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
水着!カムバック!の解説プログラムについて
 (社会人)
投稿日時
2010/5/11 12:39:29
>るきお様
''' <summary>対象の位置にある図形をキャプチャ(捕獲)します。</summary>
Public Sub Capture(ByVal Location As Point)
CapturedPolygon = SerchPolygon(Location)
CapturedPolygon.Capture(Location)
End Sub
Public Function SerchPolygon(ByVal loc1 As Point) As Polygon
For i As Integer = Me.Count - 1 To 0 Step -1
If Me(i).IsVisible(loc1) Then
Return Me(i)
End If
Next
Return Nothing
End Function
です。
>るしぇ様
CapturedPolygon = SerchPolygon(Location)
CapturedPolygon.Capture(Location)
の間に
If CapturedPolygon = Nothing Then
Return
End If
など
If CapturedPolygon.IsVisible = False Then
Return
End If
などpolygonであるnothingをif文にかける
方法がよく理解できません。
何がいけないのかは大体わかるのですが答えがわかりません。
よろしくお願いします。