怎样才能够使得在VB窗体中的图片随鼠标的移动而旋转，跪求哪位大侠的代码啊。

答案:4 悬赏:0 手机版

解决时间 2021-04-04 13:10

提问者网友：骑士
2021-04-04 02:22

最佳答案

五星知识达人网友：毛毛
2021-04-04 03:50

鼠标移动事件

全部回答

1楼网友：青灯有味
2021-04-04 05:23

const gwl_exstyle = (-20) const ws_ex_layered = &h80000 const ws_ex_transparent as long = &h20& private declare function getwindowlong lib "user32" alias "getwindowlonga" (byval hwnd as long, byval nindex as long) as long private declare function setwindowlong lib "user32" alias "setwindowlonga" (byval hwnd as long, byval nindex as long, byval dwnewlong as long) as long private sub command1_click() setwindowlong me.hwnd, gwl_exstyle, getwindowlong(me.hwnd, gwl_exstyle) or ws_ex_layered or ws_ex_transparent end sub '取消鼠标穿透(一般窗体) setwindowlong me.hwnd, gwl_exstyle, 0 '取消鼠标穿透(updatelayeredwindow画窗体) setwindowlong me.hwnd, gwl_exstyle, ws_ex_layered

2楼网友：山河有幸埋战骨
2021-04-04 04:36

在鼠标移动的事件里。不停的切换图片。这是思路。。。

3楼网友：罪歌
2021-04-04 04:23

1.载入图片后利用代码生成60张 60个不同角度旋转的图片放在 ImageList中 2.鼠标移动的时候调换

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！