问题描述
vb.net如何是窗口钉在桌面上呀？？？？？？？？？？？？？？？？？
解决方案
解决方案二：
PublicClassForm1Dimx,yAsIntegerPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Loadx=Me.Location.Xy=Me.Location.YEndSubPrivateSubForm1_Move(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.MoveMe.Left=xMe.Top=yEndSubEndClass
解决方案三：
恩老大你的方法确实可以让窗体钉在桌面，但是我想让桌面成为程序窗体的父窗体，应该如何做呢？？？？？？？？？？在线等！！！！！！！！！！！
解决方案四：
测试一下，看看是否正确.PublicDeclareFunctionGetWindowLongLib"user32"Alias"GetWindowLongA"(ByValhWndAsInteger,ByValnIndexAsInteger)AsIntegerPublicDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhWndAsInteger,ByValnIndexAsInteger,ByValdwNewLongAsInteger)AsIntegerPublicDeclareFunctionSetParentLib"user32"(ByValhWndChildAsIntPtr,ByValhWndNewParentAsIntPtr)AsIntPtrPublicConstGWL_STYLE=-16PublicConstWS_BORDER=&H800000PublicDeclareFunctionGetDesktopWindowLib"user32"()AsLongPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimDESKAsInt32=GetDesktopWindowTryDimlStyleAsInt32=GetWindowLong(Me.Handle.ToInt32,GWL_STYLE)lStyle=lStyleAndNotWS_BORDERSetWindowLong(Me.Handle.ToInt32,GWL_STYLE,lStyle)SetParent(DESK,Me.Handle.ToInt32)CatchexAsExceptionMsgBox(ex.Message)EndTryEndSub
解决方案五：
诚实男人你好：你能解释一下你的代码吗？非常感谢！！！！！！！！！！！
解决方案六：
DimDESKAsInt32=GetDesktopWindow'获得桌面窗体的句柄。TryDimlStyleAsInt32=GetWindowLong(Me.Handle.ToInt32,GWL_STYLE)'获取当前窗体的句柄。lStyle=lStyleAndNotWS_BORDERSetWindowLong(Me.Handle.ToInt32,GWL_STYLE,lStyle)'设置当前窗体的样式(不大确定)SetParent(DESK,Me.Handle.ToInt32)'设置当前窗体的父窗体是桌面窗体。CatchexAsExceptionMsgBox(ex.Message)EndTry
解决方案七：
study