我的第一支程式
在螢幕中央顯示一行中文字,點一下文字變紅色,點在文字外變黑色
If gestureSample.GestureType = GestureType.Tap Then
Dim touchPosition As Vector2 = gestureSample.Position
If touchPosition.X >= textPosition.X And touchPosition.X <= textPosition.X + textSize.X _
And touchPosition.Y >= textPosition.Y And touchPosition.Y <= textPosition.Y + textSize.Y Then
textColor = Color.Red
Else
textColor = Color.Black
End If
End If
沒有留言:
張貼留言