vb中如何缩小图片 PS中如何缩小图片
vb \u5982\u4f55\u653e\u5927\u6216\u7f29\u5c0f\u56fe\u7247\uff0c\u7528Picture\u63a7\u4ef6\u9274\u4e8e\u4f60\u65b0\u624b\u7b80\u800c\u8a00\u4e4b
\u4ee3\u7801\u63a7\u5236\u56fe\u7247\u6846\u4e2d\u56fe\u7247\u7684\u5c3a\u5bf8
\u53cc\u51fb\u56fe\u7247\u6846
\u4ee3\u7801\u5982\u4e0b\uff1a
picture1.picture=loadpicture("\u56fe\u7247\u8def\u5f84")
picture1.autosize=Ture
picturebox有个属性,AutoRedraw 改为true 就能在form任意更改大小了
'试试我这个可以对图片剪裁的
Private Sub Command1_Click()
Dim SaveMode As Integer
'为图片框保存当前的 ScaleMode。
SaveMode = Picture1.ScaleMode
'复制picture1的图片到clip1里
Set PictureClip1.Picture = Picture1.Picture
'获得裁剪区域的 X 和 Y 坐标。
PictureClip1.ClipX = 0
PictureClip1.ClipY = 0
'设置裁剪区域的范围(用像素)。
PictureClip1.ClipHeight = 50
PictureClip1.ClipWidth = 50
'设置图片框 ScaleMode 为像素。
Picture1.ScaleMode = 3
'为图片框指定裁剪位图。
Picture1.Picture = PictureClip1.Clip
'使图片框的 ScaleMode 复位。
Picture1.ScaleMode = SaveMode
End Sub
其实我不怎么懂VB,但是你传图片进去之前可以在画图器里编辑下大小么。。。
绛旓細image1.width=image1.width+?image1.width=image1.width-?濂借薄鏄繖鏍峰惂锛岋紝璇曡瘯鐪
绛旓細灏唅mage鐨凷erecth灞炴э紝璁剧疆涓篢rue銆俰mage1.height=image1.height+100 image1.width=image1.width+100 鍙互鏀惧ぇ锛屾妸+鏀逛负-鍙互缂╁皬銆傛暟鍊煎彲浠ヨ嚜宸辫缃
绛旓細鍏堟墦寮鎸囧畾鍥剧墖锛屽垱寤篋C锛屽皢姝ゅ浘鐗噃dc璧嬩簣DC锛岀劧鍚庣敤StretchBlt 鍑芥暟缂╁皬鍒版寚瀹氬昂瀵革紝鐒跺悗浠嶥C涓彇鍑哄浘鐗囷紝骞朵繚瀛
绛旓細閴翠簬浣犳柊鎵嬬畝鑰岃█涔 浠g爜鎺у埗鍥剧墖妗涓浘鐗鐨勫昂瀵 鍙屽嚮鍥剧墖妗 浠g爜濡備笅锛歱icture1.picture=loadpicture("鍥剧墖璺緞")picture1.autosize=Ture
绛旓細鍒嗙被: 鐢佃剳/缃戠粶 >> 绋嬪簭璁捐 >> 鍏朵粬缂栫▼璇█ 闂鎻忚堪:image鎺т欢srtetch灞炴т細浣垮浘鐗囧彉褰紝picture鎺т欢鐨凙utoRedraw鍜孉utoSize涓嶈兘鎸夋帶浠跺ぇ灏缂╁皬鍥剧墖,鐢╨oadpicture鍑芥暟鍙互鏄剧ず鍥哄畾灏哄鐨勫浘鐗囧悧锛熻В鏋:鍙互鐢ㄤ唬鐮佸疄鐜般備互涓嬩唬鐮佹槸鎴戝師鏉ュ仛杩囩殑瀹炰緥閲鍓嚭鏉ョ殑锛屼綘鍙互鍙傝冧竴涓嬶紝imgPreview 涓篒mage瀵硅薄銆
绛旓細鍒╃敤picture鎺т欢鐨勮瘽锛鍥剧墖澶у皬鍙敤浠g爜鎺у埗銆傚埄鐢╥mage鎺т欢锛屾妸stretch灞炴ц涓簍rue锛屽氨鍙互閫氳繃鏀瑰彉鎺т欢澶у皬鏀瑰彉鍥剧墖澶у皬 绉诲姩鍥剧墖鍙互绉诲姩鍏舵墍鍦ㄦ帶浠舵潵绉诲姩锛屽埄鐢ㄥ叾left ,top 绛夊睘鎬 瀵逛笌鎺т欢鐨勮竟妗嗗彲閫氳繃鏀瑰叾borderstyle銆乤pperence绛夊睘鎬э紝閫夋嫨浣犲枩娆㈢殑鏍峰紡銆
绛旓細Sub 鍥剧墖缂╂斁()Dim SngPer As Single = 1 '鏀惧ぇ鎴缂╁皬鐨勬瘮渚 鏀惧ぇ2鍊嶆椂SngPer=2,缂╁皬3鍊嶆椂 SngPer=1/3 Dim PicOld As Image = Image.FromFile("鍘熷浘鐗囪矾寰")Dim PicNew As New System.Drawing.Bitmap(PicOld, PicOld.Width * SngPer, PicOld.Height * SngPer)PicNew.Save("鏂板浘鐗...
绛旓細鐢╥mage鎺т欢 鎶妔tretch灞炴ф敼涓簍rue 渚 Private Sub Form_Load()Image1.Stretch = True End Sub Private Sub Command1_Click()Image1.Height = Image1.Height * Val(Text1.Text)Image1.Width = Image1.Width * Val(Text1.Text)End Sub ...
绛旓細Clipboard.SetData 瀵硅薄.picture 瀵硅薄灏辨槸浣犵殑绌虹櫧閮ㄥ垎锛屼笉鐭ラ亾鏄痯icturebox鎺т欢杩樻槸绐椾綋
绛旓細Dim ph%, pw Private Sub Form_Load()ph = Picture1.Height pw = Picture1.Width End Sub Private Sub HScroll1_Change()Picture1.Left = -HScroll1.Value Picture1.Width = pw + HScroll1.Value End Sub Private Sub Picture1_Click()End Sub Private Sub VScroll2_Change()Picture1.Top...