资源描述：
《简单的vb管理应用源码》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、基于vb.net环境下的简单管理程序添加client,vb窗体，窗体下代码为：ImportsVB=Microsoft・Visua/lBasicPublicClassclientDimxAsBooleanDimusetimeAsLong=0'定义时Dimh,m,sAsIntegerPrivatemdAsBooletin,m_sAsPointPrivateDeclareSubSleepLib"kcrncl32"(ByVaidwMillisecondsAsLong)DeclareFunctionCreateRoundRectRgnLib"gdi32"Alias，zCreateRoun
2、dRectRgn，z(ByVaiXIAsInt32,ByVaiY1Aslnt32,ByVaiX2Aslnt32,ByVaiY2Aslnt32,ByVaiX3Aslnt32,ByVaiY3Aslnt32)AsTnt32DeclareFunctionSetWindowKgnLib"user32"Alias"SetWindowRgn"(ByVaihWndAsInt32,ByVaihRgnAsInt32,ByVaibRedrawAsBoolean)AsInt32'GDI重绘APIDimnllorizonAsInteger登录同是熾人小游我H呼叫前台换肤百宝箱账户信息卡拉0K首页欲使用更
3、多功能，请单击这里登陆苣页k°J小游戏Intornot账户佶息百宝箱OTimerlNotifylconlContextMenuStriplOTimer2工程图卡拉0KMAXPrivategAsGraphicsPrivateSubForm2Load(ByVaisenderAsSystem.0bject,ByVaieAsSystem・EventArgs)HandiesMyBase.Load大小］)Me.AutoScroll=FalseMe.Lcibel16・ConlexlVlenuSlrip=Me.ContextMenuStrip1DimrAsInteger=CreateRound
4、RcctRgn(0,0,Me.Width,Me.Height,20,20)*CreateRoundRectRgn参数(［窗体左］,［窗体顶］，［窗体宽］，［窗体高］，［向左偏移大小］，［向下偏移SetWindowRgn(Me.Handle,r,True)Me.Controls・SelChildlndex(gtimel,1)Me.Controls.SetChildlndcx(PicturcBoxl,20)usel.Enabled=Falseuse2.Enabled=Falseuse3.Enabled二Falseuse4・Entibled=Falseuse1•Enabled=Fal
5、seuse8.Enabled=Falseuse9.Enabled=Falseusel0.Enabled二Falseusel1.Encibled=Falsegame1・BackColor=Vk?・PicturcBoxl・BackColorgame2.BackColor=Me.PicturcBoxl.BackColorgame3.BackColor=Me.PictureBoxl.BackColorgcime4.BcickColor二Me.PictureBoxl.BackColorgcime5.BackColor=Me.PictureBoxl.BackColorgame6.BackC
6、olor=Vk?・PicturcBoxl.BackColor'TODO:这行代码将数据加载到表“KtvDataSet.food"中。您可以根据需耍移动或移除它。h=0m=0s=0maxi.Visible=Falsemcix2・Visible=FalseWebBrowserl.Visible=FalseAxShockwaveFlashl・Visible=FalseMe.Eocus()EndSubPrivateSubform2MouseDown(ByVaisenderAsObject,ByVaieAsSystem・Windows・Forms・MouseEventArgs)Hcind
7、lesMe.MouseDownm_d=Truem_s・X=e・Xms.Y=e・YEndSubPrivateSubform2MouseMove(ByVaisenderAsObject,ByVaieAsSystem.Windows・Forms・MouseEventArgs)HandlesMe・MouseMoveIfmd=FalseThenExitSubEndIfDimdx%,dy%dx=e・X一ms・Xdy=e・Y一ms・YMe.Left=Me.Left+dxMe.Top=Me.Top+dyEn
