Dim bmCur As New Bitmap(60, 60)
Dim g As Graphics = Graphics.FromImage(bmCur)
'開始畫雙圓形
g.FillRectangle(Brushes.Transparent, 0, 0, 60, 60)
g.DrawEllipse(Pens.Red, 10, 10, 40, 40)
g.DrawEllipse(Pens.Red, 0, 0, 60, 60)
g.DrawEllipse(Pens.Red, 30, 30, 1, 1)
g.DrawEllipse(Pens.Red, 25, 25, 10, 10)
'取得滑鼠的指標
Dim ptrCur As IntPtr = bmCur.GetHicon
Dim cur As Cursor
cur = New Cursor(ptrCur)
'設定滑鼠
Cursor.Current = cur
文章標籤
全站熱搜
留言列表