調(diào)用API是個好的辦法,給你個參考網(wǎng)文:
創(chuàng)新互聯(lián)公司成立與2013年,先為榕城等服務(wù)建站,榕城等地企業(yè),進行企業(yè)商務(wù)咨詢服務(wù)。為榕城企業(yè)網(wǎng)站制作PC+手機+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。
如果一定要自已用GDI+繪制,很麻煩,比如把窗體設(shè)置成無邊框,貼圖上去,但可能要自已定義事件來響應(yīng)缺少標題欄后的操作。等等
PNG圖片本身設(shè)置通道,使用Adobe Photoshop加入這個通道這樣就肯定沒白邊了
這方面的知識屬于Photoshop繪圖相關(guān)的
通道的意思就是為這個時鐘設(shè)置一個選擇范圍蒙板,屏蔽除時鐘這個大圓形外的其它部分
加入通道后,把時鐘外其它部分圖像填充藍色
這方面還有一些專用的技巧的,如通道設(shè)置的這個圓形范圍周圍做模糊處理之類的,說起來很復(fù)雜你也看不明白。你網(wǎng)上找一下有沒有Photoshop加入通道演示的內(nèi)容吧
請教一個C#轉(zhuǎn)vb.net 的問題。求助大神-CSDN論壇-CSDN.NET-中國最大的IT技術(shù)社區(qū)
是你發(fā)的帖子吧。你在里面把代碼不全啊,包括原本的C#代碼和你轉(zhuǎn)的VB.NET代碼
VB.NET里有
private?skin?as?SkinForm(me)的用法?
明顯應(yīng)該是?Private skin as SkinForm
然后再在New方法的最后一行或者首次用到skin 之前,
If?(skin?is?Nothing)?Then?skin?=New?SkinForm(Me)
vb.net2008
vb.net API 是將除特殊變量(如H20000)的Long都改成Integer
窗體的右側(cè)和下方有陰影
Public Class Form1
Private Const CS_DROPSHADOW = H20000
Private Const GCL_STYLE = (-26)
Private Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer) As Integer
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SetClassLong(Me.Handle, GCL_STYLE, GetClassLong(Me.Handle, GCL_STYLE) Or CS_DROPSHADOW)
End Sub
End Class
設(shè)置全局變量:
Dim?drag?As?Boolean
Dim?mousex?As?Integer
Dim?mousey?As?Integer
假設(shè)你想拖動的是Panel1控件,以及此控件上的?Label1(用于顯示標題)和PictureBox4(用于顯示圖標):
Private?Sub?TitleMove_MouseDown(sender?As?Object,?e?As?System.Windows.Forms.MouseEventArgs)?Handles?Panel1.MouseDown,?Label1.MouseDown,?PictureBox4.MouseDown
drag?=?True
mousex?=?Windows.Forms.Cursor.Position.X?-?Me.Left
mousey?=?Windows.Forms.Cursor.Position.Y?-?Me.Top
End?Sub
Private?Sub?TitleMove_MouseMove(sender?As?Object,?e?As?System.Windows.Forms.MouseEventArgs)?Handles?Panel1.MouseMove,?Label1.MouseMove,?PictureBox4.MouseMove
If?drag?Then
Me.Top?=?Windows.Forms.Cursor.Position.Y?-?mousey
Me.Left?=?Windows.Forms.Cursor.Position.X?-?mousex
End?If
End?Sub
Private?Sub?TitleMove_MouseUp(sender?As?Object,?e?As?System.Windows.Forms.MouseEventArgs)?Handles?Panel1.MouseUp,?Label1.MouseUp,?PictureBox4.MouseUp
drag?=?False
End?Sub
它們的窗體實際上就是你截圖出來的大小,周圍的陰影效果都是自己畫出來的。
當(dāng)前題目:vb.net四邊陰影的簡單介紹
分享鏈接:http://www.muchs.cn/article34/hphhpe.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站建設(shè)、企業(yè)網(wǎng)站制作、小程序開發(fā)、網(wǎng)站維護、做網(wǎng)站、網(wǎng)站設(shè)計公司
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)