玉带河畔的野鬼 2022-03-30 15:56 采纳率: 100%
浏览 10
已结题

VB.net里面怎么让图形不超出窗体边界

用timer控制picturebox在移动,图形碰到边界后返回,代码是这样的
Public Class Form2
    Dim xi As Integer, yi As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim x As Single, y As Single
        x = PictureBox1.Location.X
        y = PictureBox1.Location.Y
        If x > Me.Width - PictureBox1.Width - 16 Or x < 0 Then
            xi = -xi
        End If
        If y > Me.Height - PictureBox1.Height - Me.Icon.Height - 6 Or y < 0 Then
            yi = -yi
        End If
        x = x + xi
        y = y + yi
        PictureBox1.Location = New Point(x, y)
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Timer1.Interval = 30
        xi = 1
        yi = 1
    End Sub
End Class
这样恰能完美运行,我比较奇怪的必须x和y坐标的边界位置必须分别减去16和6,不然运行起来就会超出窗体边界才回来
我想要知道这究竟是为什么,窗体长这样

img

  • 写回答

1条回答 默认 最新

      报告相同问题?

      相关推荐 更多相似问题

      问题事件

      • 系统已结题 4月7日
      • 已采纳回答 3月30日
      • 创建了问题 3月30日

      悬赏问题

      • ¥15 如何关闭soui dummy wdn 进程
      • ¥20 含有jar文件的文件夹用tar -zcvf 命令压缩后要怎么还原回去?
      • ¥15 天宝TBC软件出现报错怎么解决
      • ¥15 micropython 从1开始切片报错
      • ¥15 请问该怎么做才能将文字说明和二维码一起作为png图片一起下载
      • ¥15 r语言 混频数据回归 midas_r
      • ¥15 人脸识recogizer.predict返回值id报错,KeyError,详情如下
      • ¥15 geowebcache部署失败
      • ¥20 关于adaboost+haar特征实现人脸检测过程的一些细节问题
      • ¥15 csv文件增加一列 为csv文件的名字