VB不規則成型，VB不規則成型拖拽

有很多方法可以做到這一點：我通常通過使某種顏色透明來做到這一點。

這種方法可用於實現大多數要求，網上有很多例子。

使用API函式，但是學習起來有點難，而且我記得太多了！

你好。 忘記過去。

學習如何使用 API 真是太好了。

在VB2005中，可以在表單的屬性表中找到表單的透明度屬性設定，只需新增乙個**，將透明色更改為表單需要透明的地方的顏色即可。 之後，更改表單的邊框就完美了。

它不能放在表單 load（） 事件中，該事件在表單載入到記憶體中但尚未在螢幕上重新整理時執行。

它應該放在 shown（） 或 paint（） 事件的形式中。

此外，**中還有兩行：

pos_ = + 50

pos_ = + 50

繪圖結果將隨著 frmmain 窗體位置的變化而變化。

createpolygonrgn、setwindowrgn、setwindowlong、getwindowlong

為什麼選擇GDI？ 你想畫畫嗎？

使用api函式，自己在網際網絡上找到。 有以下幾點。

'有兩個 API 可供使用

SetLayeredWindowAttributes的功能：

其中 hwnd 是透明表單的控制代碼，crkey 是顏色值，balpha 是透明度，取值範圍為 [0,255]，小於 5 時，滑鼠通訊透明，大於等於 5 時，滑鼠不透明，dwflags 為透明模式，可以取兩個值： 當值&H2時，CRKey引數無效，balpha引數有效;當值為 &h1 時，balpha 引數有效，並且表單中的所有顏色都是 crkey

這個功能很有用：我們不再需要呼叫一大堆區域分析來構建形狀不規則的形狀

建立和合併函式，只需要在透明的地方指定顏色值，哈哈哈哈！ 詳情請看**。

**：部分透明的表單。

private declare function setwindowlong lib "user32" alias "setwindowlonga" (byval hwnd as long, byval nindex as long, byval dwnewlong as long) as long

private declare function setlayeredwindowattributes lib "user32" (byval hwnd as long, byval crkey as long, byval balpha as byte, byval dwflags as long) as long

private sub form_load()

end sub

既然有人發了函式，我就總結一下，哈哈哈:)

其實只要你做一定量的算術，就只能用這個詞來計算一些純色的正負部分（原諒我的無知，我只能用這個詞來形容它），去掉和某些值一樣的畫素，或者和系統一樣的畫素， 你就可以開始了。

網路遊戲開始時的不規則形式大多是這樣製作的，先做乙個規則的繪畫，然後用某種純色塗上不需要的部分，這樣在程式開始時，乙個計算，去掉純色部分，它就變成了不規則形式。