qq342252004 发表于 2010-4-22 10:36:22

36款SkinSharp皮肤(she格式)

本帖最后由 qq342252004 于 2010-7-14 10:53 编辑

36款SkinSharp皮肤(she格式)喜欢的下。

menfan 发表于 2010-4-22 13:30:00

皮肤不收费的吧哈哈

qq342252004 发表于 2010-4-22 14:18:09

本帖最后由 qq342252004 于 2010-6-29 19:29 编辑

皮肤是免费的，调用方法在11楼。

qwg192800 发表于 2010-4-24 08:23:49

DLL在那里啊

menfan1 发表于 2010-4-24 08:27:24

好东西要收藏。。

devilma 发表于 2010-4-25 04:37:37

下一个吧，楼主也不放个图，看看效果再下比较公平吧

热咖啡里的冰 发表于 2010-4-25 10:02:19

这东西也收费啊！！网上一搜一大片！

qq342252004 发表于 2010-4-25 12:56:32

DLL在那里啊
qwg192800 发表于 2010-4-24 08:23 http://www.autoitx.com/images/common/back.gif
看3楼回复

qq342252004 发表于 2010-4-25 12:57:58

这东西也收费啊！！网上一搜一大片！
热咖啡里的冰 发表于 2010-4-25 10:02 http://www.autoitx.com/images/common/back.gif
我只是找来上传论坛方便大家下载，顺便收点费用！:face (29):

水木子 发表于 2010-4-25 17:13:25

我只是找来上传论坛方便大家下载，顺便收点费用！
qq342252004 发表于 2010-4-25 12:57 http://www.autoitx.com/images/common/back.gif
呵呵！楼主辛苦啦！
刚刚下来试了，确实不错！

水木子 发表于 2010-4-25 20:05:25

本帖最后由 水木子 于 2010-8-4 13:00 编辑

呵呵！闲来无事，帮楼主写了个皮肤预览，就当做回报吧！

#include <GuiListView.au3>
#include <WindowsConstants.au3>

$Path = @ScriptDir & '\Skin\'

GUICreate("皮肤预览", 470, 280)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
$ListView1 = GUICtrlCreateListView("双击项目更换皮肤", 280, 5, 185, 250)
GUICtrlCreateInput("Input1", 40, 40, 100, 21)
GUICtrlCreateCombo("Combo1", 40, 100, 100, 25)
GUICtrlSetData(-1, "Combo2|Combo3|Combo4|Combo5|Combo6|Combo7|Combo8|Combo9|Combo10")
GUICtrlCreateButton("Button1", 30, 220, 75, 30, $WS_GROUP)
GUICtrlCreateButton("Button2", 180, 220, 75, 30, $WS_GROUP)
GUICtrlCreateCheckbox("Checkbox1", 150, 40, 80, 17)
GUICtrlCreateRadio("Radio1", 150, 100, 80, 17)
GUICtrlCreateProgress(40, 150, 200, 20)
GUICtrlSetData(-1, 50)
GUICtrlCreateGroup("Group1", 10, 10, 249, 193)
GUISetState()
Read()

Func Read()
        $search = FileFindFirstFile($Path & '*.she')
        If $search = -1 Then MsgBox(0, "错误", "没有文件/目录 匹配搜索")

        While 1
                $file = FileFindNextFile($search)
                If @error Then ExitLoop
                GUICtrlCreateListViewItem($file, $ListView1)
        WEnd
        FileClose($search)
EndFunc   ;==>Read

Do
Until GUIGetMsg() = -3

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
        Local $tNMTV, $iCode, $hItem, $i = 0
        $tNMTV = DllStructCreate($tagNMTVDISPINFO, $ilParam)
        $iCode = DllStructGetData($tNMTV, "Code")
        $Index = _GUICtrlListView_GetSelectedIndices($ListView1)
        If $iCode = $NM_DBLCLK And StringLen($Index) <> 0 Then Skin(_GUICtrlListView_GetItemText($ListView1, Number($Index)))
EndFunc   ;==>WM_NOTIFY

Func Skin($She)
        $Dll = DllOpen($Path & 'Skin.dll')
        DllCall($Dll, "int", "SkinH_AttachEx", "str", $Path & $She, "str", "mhgd")
        DllCall($Dll, "int", "SkinH_SetAero", "int", 1)
EndFunc   ;==>Skin

lpxx 发表于 2010-4-25 21:24:18

爱美之心,人皆有之,既然这样,下载看看.

jonyzhr 发表于 2010-4-25 22:09:09

这些皮肤真不错,呵呵.

zhenglei 发表于 2010-4-25 22:17:24

顶一下。。 就是要钱 。。 汗。。。。

a70793 发表于 2010-4-26 12:27:55

謝謝大哥的分享喔...........
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 36款SkinSharp皮肤(she格式)