16,553
社区成员
发帖
与我相关
我的任务
分享
Dim F As New Form
With F
.FormBorderStyle = Windows.Forms.FormBorderStyle.None
.ShowIcon = False
.ShowInTaskbar = False
Dim B As New Bitmap(30, 30)
Using G As Graphics = Graphics.FromImage(B)
G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
G.DrawEllipse(New Pen(Brushes.Red, 5), New Rectangle(0, 0, 30, 30))
End Using
DSAPI.图形图像.透明窗体.窗体支持鼠标拖动(F, True)
DSAPI.图形图像.透明窗体.显示图像(F, B, 255)
F.Show()
End With