Question

VB中如何旋转图片？

包括10度、20度等不规则度数，图片为网上下载的jpg图片

Answer 1

新浪微博的图可以旋转啊，一般旋转都是90度，180度吧，没有10度，20度旋转的，除非在买图秀秀或PS等作图工具里。下面是新浪的截图

Answer 2

逆时针旋转90度Dim　p（）ScaleMode　＝　3Picture1．AutoRedraw　＝　TruePicture1．ScaleMode　＝　3w　＝　Picture1．ScaleWidthh　＝　Picture1．ScaleHeightReDim　p（w　－　1，　h　－　1）For　i　＝　0　To　w　－　1For　j　＝　0　To　h　－　1　p（i，　j）　＝　Picture1．Point（i，　j）Next　jNext　iPicture1．Width　＝　h　＋　4　＊　Picture1．BorderStylePicture1．Height　＝　w　＋　4　＊　Picture1．BorderStyleFor　i　＝　0　To　h　－　1For　j　＝　0　To　w　－　1　Picture1．PSet　（i062　w　－　j　－　1），　p（j，　i）Next　jNext　i顺时针旋转90度把Picture1．PSet　（i，　w　－　j　－　1），　p（j，　i）改为Picture1．PSet　（h　－　i　－　1mqu　j），　p（j，　i）旋转180度把最后七行改为For　i　＝　0　To　w　－　1For　j　＝　0　To　h　－　1　Picture1．PSet　（i，　j），　p（w　－　i　－　1，　h　－　j　－　1）Next　jNext　i