重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim imgPhoto As System.Drawing.Image = System.Drawing.Image.FromFile("图片路径名")
创新互联是一家专业的成都网站建设公司,我们专注成都网站建设、网站设计、网络营销、企业网站建设,友情链接,广告投放为企业客户提供一站式建站解决方案,能带给客户新的互联网理念。从网站结构的规划UI设计到用户体验提高,创新互联力求做到尽善尽美。
Dim imgWidth As Integer = imgPhoto.Width
Dim imgHeight As Integer= imgPhoto.Height
题主看懂了就采个纳吧~
Pegasus的ImagXpress 8.0控件,支持各种格式文件的加载。控件封装了右键局部区域放大的功能,要实现图片的缩放,把AutoResize属性设置为PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage,修改 ZoomFactor的值就可以了。
命名空间声明:
Imports System.Drawing
代码参考:
Dim g As Graphics = Me.CreateGraphics
Dim siF As SizeF = g.MeasureString("我是要计算长度的文字哦~", Me.Font)
siF.Width 宽度,siF.Height 高度。