史萊姆論壇 - [魔術程式]研究成果經驗分享

史萊姆論壇 (http://forum.slime.com.tw/)

- 生活話題、日常閒聊、喇勒唬爛灌水區 (http://forum.slime.com.tw/f23.html)

- - [魔術程式]研究成果經驗分享 (http://forum.slime.com.tw/thread288612.html)

[魔術程式]研究成果經驗分享

算是跟大家分享DLL的研究成果吧
另外重新設計一個之前設計過的"你以為這樣就結束了嗎"的魔術
也跟大家說聲抱歉,這魔術前面兩版由於小王子沒弄清楚魔術的架構
所以在執行上有很大的錯誤,目前已經改正了,測了很多次,只要切牌時,沒有切得太故意應該不會出問題的

https://drive.google.com/file/d/1hqF...ew?usp=sharing

http://forum.slime.com.tw/thread288612.html#post2375557
MGCard(https://drive.google.com/file/d/1e84YD8jPo0IyQRTtKGWW4JJBXbKncQ2W/view?usp=sharing)

https://drive.google.com/file/d/1G7M...ew?usp=sharing
不規則形狀視窗設計分享
展示魔術部分並沒修改,就不分享了,節省下載時間

引用:

作者: 魔術王子 (文章 2375273)

https://drive.google.com/file/d/1G7M...ew?usp=sharing
不規則形狀視窗設計分享
展示魔術部分並沒修改,就不分享了,節省下載時間

以前曾用VB6玩過
不規則+漸層的窗體 (像開啟繪圖軟體CorelDRAW時的漂亮初始視窗)
其中最主要的 WinAPI是SetLayeredWindowAttributes

PHP 語法:


		
			
    Public Const WS_EX_LAYERED = &H80000

    Public Const GWL_EXSTYLE = (-20)       '窗體擴展式樣

    Public Const LWA_ALPHA = &H2           '透明度

    Public Const LWA_COLORKEY = &H1

    Public Const LWA_COLORKEY_ALPHA = &H3  '透明+異形



    Public Declare Auto Function SetLayeredWindowAttributes Lib "User32.Dll" ( _

        ByVal hWnd As IntPtr, _

        ByVal crKey As Integer, _

        ByVal Alpha As Byte, _

        ByVal dwFlags As Integer) As Boolean

    'hwnd是透明窗體的句柄，crKey為顏色值

    'bAlpha是透明度，取值範圍是[0,255]，

    'dwFlags是透明方式，可以取兩個值：當取值為LWA_ALPHA時，crKey參數無效，bAlpha參數有效；

    '當取值為LWA_COLORKEY時，bAlpha參數有效而窗體中的所有顏色為crKey的地方將變為透明－－這個功能很有用：

現在
在VB.NET裡要做到不規則+透明感則很簡單 (直接有屬性可控制)
但
要做有漸層效果就要先製作一個
單一色彩的漸層背景圖 (灰階色彩)
用邏輯旗標做結合後輸出

引用:

作者: mini (文章 2375298)

以前曾用VB6玩過
不規則+漸層的窗體 (像開啟繪圖軟體CorelDRAW時的漂亮初始視窗)
其中最主要的 WinAPI是SetLayeredWindowAttributes

PHP 語法:


		
			
    Public Const WS_EX_LAYERED = &H80000
    Public Const GWL_EXSTYLE = (-20)       '窗體擴展式樣
    Public Const LWA_ALPHA = &H2           '透明度
    Public Const LWA_COLORKEY = &H1
    Public Const LWA_COLORKEY_ALPHA = &H3  '透明+異形

    Public Declare Auto Function SetLayeredWindowAttributes Lib "User32.Dll" ( _
        ByVal hWnd As IntPtr, _
        ByVal crKey As Integer, _
        ByVal Alpha As Byte, _
        ByVal dwFlags As Integer) As Boolean
    'hwnd是透明窗體的句柄，crKey為顏色值
    'bAlpha是透明度，取值範圍是[0,255]，
    'dwFlags是透明方式，可以取兩個值：當取值為LWA_ALPHA時，crKey參數無效，bAlpha參數有效；
    '當取值為LWA_COLORKEY時，bAlpha參數有效而窗體中的所有顏色為crKey的地方將變為透明－－這個功能很有用：

本篇程式是參考RUN!PC 第67期的文章，1999年Aug月
最近就是盡量把自己所知的技術分享給大家，雖然功能新版系統已有，但裡面仍有些技術值得知道的

https://drive.google.com/file/d/1JIH...ew?usp=sharing
最近"找到"了新版的C++ Builder編輯器Embarcadero RAD Studio XE7
所以試著想將程式轉移,然而受限於Ansi字元與Unicode字元轉移的過渡期,函式的運用上發現了不少的問題
麻煩大家幫忙玩玩看,因為只是測試,所以也附上原始程式碼,但若加上編輯時期的所有檔案,檔案長度共需80MB,所以附加檔案已經將Win32的資料夾移除,裡面只有原始程式碼及執行程式
在Dll運作環境下與獨立程式運作環境似乎有些不同,所以在DLL環境時,當關閉程式以及連結到網站會出現錯誤訊息,但結束訊息並不影響程式運作
當連結網站會有錯誤訊息,然後表單會卡住,只要跳回程式,將錯誤訊息關閉,就可消除表單正常運作
剛剛又下載完成Embarcadero RAD Studio XE10,可能接下來又要測試新版,希望會更穩定

安裝完Embarcadero RAD Studio XE10之後發現這版已經不再提供TRibbon元件
若測試Embarcadero RAD Studio XE10真的比較穩定,那真的要捨棄TRibbon
上面的程式就當作是研究的心得分享吧

https://drive.google.com/file/d/1e84...ew?usp=sharing
[魔術程式]的設計樣板,之前曾設計過的程式會以這樣的方式再重新設計
然後再分享給大家
大家或許對魔術寫的程式不感興趣,但這個程式有研究出Image旋轉程式碼也提供相關網站
而且是使用JPG檔(交疊洗牌需要用)
因為小王子有試過要用TImage元件旋轉一定要用BMP格式才行