VB中圖像旋轉(zhuǎn)問題

這個是不是得API啊，就俺目前的水平來說，只能做到怎么填充背景。

我們提供的服務(wù)有：網(wǎng)站建設(shè)、成都網(wǎng)站建設(shè)、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、卡若ssl等。為數(shù)千家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的卡若網(wǎng)站制作公司

所以，給你一個另類思路：

將原圖形利用圖形處理軟件，分別做成旋轉(zhuǎn)90°，180°，270°的各個形態(tài)，分別命名為1.jpg，2.jpg，3.jpg，4.jpg。

然后通過某個程序觸發(fā)，每觸發(fā)一次，就填充相應(yīng)的圖形即可實現(xiàn)你要的效果。

例如：設(shè)定一個按鈕，點一次圖形轉(zhuǎn)一次，圖形就按照1,2,3,4的順序依次替換，這樣看起來圖形就轉(zhuǎn)起來了！

不知道你是否明白我的意思！

怎么用vb實現(xiàn)圖形的旋轉(zhuǎn)？

啟動vb6建立一個標(biāo)準(zhǔn)exe工程，首先添加兩個圖片框（picture1和picture2），添加三個命令按鈕command1（caption=“正常顯示”）、command2（caption=“180度倒立”）、command3（caption=“45度旋轉(zhuǎn)”），雙擊窗體，寫入以下代碼：

PrivateConstSRCCOPY=HCC0020

PrivateConstPi=3.14

PrivateDeclareFunctionSetPixelLib"gdi32"(ByValhdcAsLong, ByValxAsLong,ByValyAsLong,ByValcrColorAsLong)AsLong

PrivateDeclareFunctionGetPixelLib"gdi32"(ByValhdcAsLong, ByValxAsLong,ByValyAsLong)AsLong

PrivateDeclareFunctionStretchBltLib"gdi32"(ByValhdcAsLong, ByValxAsLong,ByValyAsLong,ByValnWidthAsLong,ByValnHeightAsLong, ByValhSrcDCAsLong,ByValxSrcAsLong,ByValySrcAsLong,ByValnSrcWidth AsLong,ByValnSrcHeightAsLong,ByValdwRopAsLong)AsLong

privateSubbmp_rotate(pic1AsPictureBox,pic2AsPictureBox,ByValtheta)‘45度旋轉(zhuǎn)

Dimc1xAsInteger,c1yAsInteger

Dimc2xAsInteger,c2yAsInteger

DimaAsSingle

Dimp1xAsInteger,p1yAsInteger

Dimp2xAsInteger,p2yAsInteger

DimnAsInteger,rAsInteger

c1x=pic1.ScaleWidth\2

c1y=pic1.ScaleHeight\2

c2x=pic2.ScaleWidth\2

c2y=pic2.ScaleHeight\2

Ifc2x$#@60;c2yThenn=c2yElsen=c2x

n=n-1

pic1hDC=pic1.hdc

pic2hDC=pic2.hdc

Forp2x=0Ton

Forp2y=0Ton

Ifp2x=0Thena=Pi/2Elsea=Atn(p2y/p2x)

r=Sqr(1*p2x*p2x+1*p2y*p2y)

p1x=r*Cos(a+theta)

p1y=r*Sin(a+theta)

c0=GetPixel(pic1hDC,c1x+p1x,c1y+p1y)

c1=GetPixel(pic1hDC,c1x-p1x,c1y-p1y)

c2=GetPixel(pic1hDC,c1x+p1y,c1y-p1x)

c3=GetPixel(pic1hDC,c1x-p1y,c1y+p1x)

Ifc0$#@60;$#@62;-1ThenSetPixelpic2hDC,c2x+p2x,c2y+p2y,c0

Ifc1$#@60;$#@62;-1ThenSetPixelpic2hDC,c2x-p2x,c2y-p2y,c1

Ifc2$#@60;$#@62;-1ThenSetPi pic2hDC,c2x+p2y,c2y-p2x,c2

Ifc3$#@60;$#@62;-1ThenSetPixelpic2hDC,c2x-p2y,c2y+p2x,c3

Next

Next

EndSub

PrivateSubCommand1_Click()‘正常復(fù)制

Picture2.Cls

px=Picture1.ScaleWidth

py=Picture1.ScaleHeight

StretchBltPicture2.hdc,px,0,-px,py,Picture1.hdc,0,0,px,py,SRCCOPY

EndSub

PrivateSubCommand2_Click()‘180度倒立

Picture2.Cls

px=Picture1.ScaleWidth

py=Picture1.ScaleHeight

StretchBltPicture2.hdc,0,py,px,-py,Picture1.hdc,0,0,px,py,SRCCOPY

EndSub

PrivateSubCommand3_Click()‘45旋轉(zhuǎn)

Picture2.Cls

Callbmp_rotate(Picture1,Picture2,3.14/4)

EndSub

PrivateSubForm_Load()

OnErrorResumeNext

Me.Caption=App.Title"添加應(yīng)用程序標(biāo)題

Me.Left=(Screen.Width-Me.Width)/2

Me.Top=(Screen.Height-Me.Height)/2"窗體具中

Picture1.ScaleMode=3

Picture2.ScaleMode=3

EndSub

VB 如何旋轉(zhuǎn)圖片

你的“旋轉(zhuǎn)”操作的用途是什么？

這個很重要的問題，居然只字未提……

如果是想把圖片旋轉(zhuǎn)后進(jìn)行繪制（輸出），可以用API函數(shù)PlgBlt( )來完成。

　用它可以任意角度旋轉(zhuǎn)（也支持透明的）后繪制。

如果你要把圖片文件旋轉(zhuǎn)后，形成另一個圖片文件，這個我就不清楚如何處理了。

（當(dāng)然不透明還是好辦，但要保持原來的透明部分仍然透明，我還真沒把握）

在vb中如何旋轉(zhuǎn)圖片？

逆時針旋轉(zhuǎn)90度

Dim p()

ScaleMode = 3

Picture1.AutoRedraw = True

Picture1.ScaleMode = 3

w = Picture1.ScaleWidth

h = Picture1.ScaleHeight

ReDim p(w - 1, h - 1)

For i = 0 To w - 1

For j = 0 To h - 1

p(i, j) = Picture1.Point(i, j)

Next j

Next i

Picture1.Width = h + 4 * Picture1.BorderStyle

Picture1.Height = w + 4 * Picture1.BorderStyle

For i = 0 To h - 1

For j = 0 To w - 1

Picture1.PSet (i, w - j - 1), p(j, i)

Next j

Next i

順時針旋轉(zhuǎn)90度把Picture1.PSet (i, w - j - 1), p(j, i)

改為Picture1.PSet (h - i - 1, j), p(j, i)

旋轉(zhuǎn)180度把最后七行改為

For i = 0 To w - 1

For j = 0 To h - 1

Picture1.PSet (i, j), p(w - i - 1, h - j - 1)

Next j

Next i

VB怎樣使圖形或控件按角度旋轉(zhuǎn)？

如果是控件，暫時沒有這個功能；如果是圖片的話，就目前來說，需要使用Point方法和PSet方法。通過坐標(biāo)變換自己手動寫代碼，很麻煩，而且效率很低，除非你用其他語言寫一個DLL，直接通過Bitmap繪制，這樣會比較快一點。

VB.net 旋轉(zhuǎn)圖像時，如何指定填充色

繪制線條采用Draw開頭的方法，顏色參數(shù)用Pen類；

繪制有填充色的封閉圖形采用Fill開頭的方法，顏色參數(shù)用Brush類；

例如：

'繪制一個實心圓，該圓在：直線x=200，y=200，x=200+100，y=200+100所劃矩形區(qū)域內(nèi)

Me.CreateGraphics.FillEllipse(New SolidBrush(Color.Orange), 200, 200, 100, 100)

'繪制一個空心圓，該圓在：直線x=200，y=200，x=200+100，y=200+100所劃矩形區(qū)域內(nèi)

Me.CreateGraphics.DrawEllipse(New Pen(Color.Black), 200, 200, 100, 100)

本文題目：vb.net怎嗎旋轉(zhuǎn)圖形 vb如何實現(xiàn)圖形旋轉(zhuǎn)
當(dāng)前路徑：http://jinyejixie.com/article16/hehdgg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站營銷、網(wǎng)站設(shè)計、手機網(wǎng)站建設(shè)、小程序開發(fā)、定制開發(fā)、靜態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)