锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net阴影编程 vb隐藏窗体的代码

阴影IT技术

VB.NET窗体阴影vb.net2008
vb.net API 是将除特殊变量（如H20000）的Long都改成Integer
窗体的右侧和下方有阴影
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
Vb.net 窗体四周阴影效果它们vb.net阴影编程的窗体实际上就是vb.net阴影编程你截图出来vb.net阴影编程的大小vb.net阴影编程，周围的阴影效果都是自己画出来的 。
Vb.net 无边框窗体如何实现四周阴影？ 网上搜到的都是两边阴影的，我需要四周阴影设置全局变量：
Dim drag As Boolean
Dim mousex As Integer
Dim mousey As Integer
假设你想拖动的是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
【vb.net阴影编程 vb隐藏窗体的代码】vb.net阴影编程的介绍就聊到这里吧，感谢你花时间阅读本站内容 ， 更多关于vb隐藏窗体的代码、vb.net阴影编程的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：python开发数据统计平台，python开发数据管理系统

    下一篇：八荒服务器的绝世仙王你玩过了吗？ 绝世仙王八荒服务器怎么样