【已解决】AU3能做出“鼠标划过水面”的动态效果么？（内详带图）

afan

參考4樓改的
Duvet 发表于 2010-8-16 01:37

    高手就是处女贴都这么帅~！

devilma

30楼的，我要了，谢谢

auto

高手就出手就是不一样

rolaka

參考4樓改的
Duvet 发表于 2010-8-16 01:37

Local $pic=DllCall("user32.dll","handle","LoadImageW","handle",0,"wstr",@ScriptDir&"\modern-header.bmp","uint",0,"int",0,"int",0,"uint",0x2010)

...原来是这样 我果然傻 没有继续下去...

lynfr8

高手就是处女贴都这么帅~！
afan 发表于 2010-8-16 01:40

    不由再次感叹：只有没想到，没有做不到！AU3确实很棒！

lynfr8

Local $pic=DllCall("user32.dll","handle","LoadImageW","handle",0,"wstr",@ScriptDir&"\modern-head ...
rolaka 发表于 2010-8-16 22:27

    你已经比我等菜鸟厉害很多了！第一个吃螃蟹的人，同样值得钦佩！

lixiaolong

回复 30# Duvet

这个真漂亮！

rolaka

參考4樓改的
Duvet 发表于 2010-8-16 01:37

你已经比我等菜鸟厉害很多了！第一个吃螃蟹的人，同样值得钦佩！
lynfr8 发表于 2010-8-17 02:44

Func _WinAPI_LoadImage($hInstance, $sImage, $iType, $iXDesired, $iYDesired, $iLoad)
        Local $aResult, $sImageType = "int"
        If IsString($sImage) Then $sImageType = "wstr"
        $aResult = DllCall("user32.dll", "handle", "LoadImageW", "handle", $hInstance, $sImageType, $sImage, "uint", $iType, "int", $iXDesired, _
                        "int", $iYDesired, "uint", $iLoad)
        If @error Then Return SetError(@error, @extended, 0)
        Return $aResult[0]
EndFunc   ;==>_WinAPI_LoadImage

死的心都有了...orz... 差在哪儿了呢- -

KLU3K

争取能写个udf，方便调用。

Duvet

死的心都有了...orz... 差在哪儿了呢- -
rolaka 发表于 2010-8-17 10:38

Func _WinAPI_LoadImage($hInstance, $sImage, $iType, $iXDesired, $iYDesired, $iLoad)
        Local $aResult, $sImageType = "int"
        If IsString($sImage) Then $sImageType = "wstr"
        $aResult = DllCall("user32.dll", "handle", "LoadImageW", "handle", $hInstance, $sImageType, $sImage, "uint", $iType, "int", $iXDesired, _
                        "int", $iYDesired, "uint", $iLoad)
        If @error Then Return SetError(@error, @extended, 0)
        Return [b]$aResult[0]
EndFunc   ;==>_WinAPI_LoadImage

稍微看了一下，應該是這邊錯了

DllCall($dll,"int","enablewater","HWND",$Form1,"int",0,"int",0,"ptr",[b]$t[0],"int",3,"int",50)

Duvet

原來源碼不能放顏色代碼啊XP
Return $aResult[0]
DllCall($dll,"int","enablewater","HWND",$Form1,"int",0,"int",0,"ptr",$t[0],"int",3,"int",50)

Duvet

糊塗了,上面沒錯
應該是沒創建$Form1才對

xiaoy

敬佩Duvet ，请问只能用BMP图片吗？jpg或其他格式图片不能用？？

rolaka

糊塗了,上面沒錯
應該是沒創建$Form1才對
Duvet 发表于 2010-8-17 13:23

    我没给全代码...

xiaoy

期待rolaka 大侠全码，请问只能BMP图片吗？