PrivateSubPanel_x_MouseDown(senderAsObject,eAsMouseEventArgs)HandlesPanel9.MouseDown,Panel8.MouseDown,Panel7.MouseDownIfsenderIsPanel9ThenWindows.Forms.Cursor.Current=Cursors.HSplitElseWindows.Forms.Cursor.Current=Cursors.VSplitEndIfDirectCast(sender,Panel).Tag={1,e.X,e.Y}EndSubPrivateSubPanel_x_Mou…
방법1:)Me.FormBorderStyle=FormBorderStyle.FixedSingle방법2:)PrivateSubfMain_Resize(senderAsObject,eAsEventArgs)HandlesMe.ResizeMe.Size=NewSize(800,600)EndSub방법3:)
[vb.net] 폼의 내부 사이즈(vb6.0 의 ScaleWidth와 ScaleHeight의 vb.net(닷넷)에서의 명령(함수))폼의 내부 사이즈를 알고 싶을때 사용하는 명령입니다.Me.ScaleWidth = > Me.ClientRectangle.WidthMe.ScaleHeight = > Me.ClientRectangle.Heightvb.net(닷넷)이 좀더 명령이 길어 보인다.
PrivateDeclareFunctionGetClientRectLib"user32"(ByValhwndAsLong,lpRectAsRECT)AsLongPrivateDeclareFunctionGetDesktopWindowLib"user32"()AsLongPrivateTypeRECTLeftAsLongTopAsLongRightAsLongBottomAsLongEndTypePrivateSubScreenSize()DimScreenRectAsRECTDimretAsLongret=GetClientRect(CLng(G…