Question

请高手用vb给我写这样一个程序：窗体上有一幅用图片框装的图片，每单击图片一次，图片框就以其中心为轴

顺时针旋转30度。

Answer 1

这个可能直接的话是有困难的，因为在VB中没有设置图片角度的属性。

但可以这样做：

用其他图片软件（如PS）把你的那张图片依次旋转30、60、90、。。。330，加上原来的那张（0度），共12张，存在同一文件夹里，如取名为Ax.JPG，其中的x=0,1,2,...11。

这样就可以用下面的程序了。

程序运行已经验证是正确的。

只是图片你自己把它处理成透明的，这个是另外的问题，我不说了。

Private Sub Image1_Click()

Static N As Integer     '静态变量，这个是必须的！

'生成文件名，函数TRIM是为了去掉由数字转换为字符串产生的空格

aa = "d:\DOWNLOAD\" & "A" & Trim(Str(N)) & ".JPG"

N = N + 1

If N > 11 Then N = 0

Image1.Picture = LoadPicture(aa)

End Sub