重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim imgPhoto As System.Drawing.Image = 如凳System.Drawing.Image.FromFile("图片路径名")
创新互联专注为客户提供全方位的互联网综合服务,包含不限于成都网站设计、网站制作、南充网络推广、成都微信小程序、南充网络营销、南充企业策划、南充品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联为所有大学生创业者提供南充建站搭建服务,24小时服务热线:028-86922220,官方网址:www.cdcxhl.com
Dim 渣者旅imgWidth As Integer = imgPhoto.Width
Dim imgHeight As Integer= imgPhoto.Height
题主看懂了就采嫌缺个纳吧~
Dim x, y As Long
x = Screen.PrimaryScreen.Bounds.Width.ToString
y = Screen.PrimaryScreen.Bounds.Height.ToString
MsgBox(x y)
这就是衡册获取当前显银蚂示的分辨锋拦埋率
应该是明橡边界溢出了,因为默锋槐或认银伍是0开始,所以 PictureBox1.Image.Width-1
同理PictureBox1.Image.Height - 1,不然行循环也会溢出