Dim?imgPhoto?As?System.Drawing.Image??=?System.Drawing.Image.FromFile("圖片路徑名")?
創(chuàng)新互聯(lián)是一家專業(yè)的成都網(wǎng)站建設(shè)公司,我們專注成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計、網(wǎng)絡(luò)營銷、企業(yè)網(wǎng)站建設(shè),友情鏈接,廣告投放為企業(yè)客戶提供一站式建站解決方案,能帶給客戶新的互聯(lián)網(wǎng)理念。從網(wǎng)站結(jié)構(gòu)的規(guī)劃UI設(shè)計到用戶體驗提高,創(chuàng)新互聯(lián)力求做到盡善盡美。
Dim?imgWidth?As?Integer?=?imgPhoto.Width??
Dim?imgHeight?As?Integer=?imgPhoto.Height
題主看懂了就采個納吧~
Pegasus的ImagXpress 8.0控件,支持各種格式文件的加載??丶庋b了右鍵局部區(qū)域放大的功能,要實現(xiàn)圖片的縮放,把AutoResize屬性設(shè)置為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 高度。