简单的vb管理应用源码.pdfVIP

基于环境下的简单管理程序

添加client.vb窗体，窗体下代码为：

ImportsVB=Microsoft.VisualBasic

PublicClassclient

DimxAsBoolean

DimusetimeAsLong=0定义时

Dimh,m,sAsInteger

Privatem_dAsBoolean,m_sAsPoint

PrivateDeclareSubSleepLib(ByValdwMillisecondsAsLong)

DeclareFunctionCreateRoundRectRgnLibAlias(ByValX1AsInt32,

ByValY1AsInt32,ByValX2AsInt32,ByValY2AsInt32,ByValX3AsInt32,ByValY3AsInt32)

AsInt32

DeclareFunctionSetWindowRgnLibAlias(ByValhWndAsInt32,ByVal

hRgnAsInt32,ByValbRedrawAsBoolean)AsInt32GDI重绘API

DimnHorizonAsInteger

效果图

PrivategAsGraphics

PrivateSubForm2_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles

MyBase.Load

Me.AutoScroll=False

Me.Label16.ContextMenuStrip=Me.ContextMenuStrip1

DimrAsInteger=CreateRoundRectRgn(0,0,Me.Width,Me.Height,20,20)

CreateRoundRectRgn参数([窗体左],[窗体顶],[窗体宽],[窗体高],[向左偏移大小],[向下偏移

大小])

SetWindowRgn(Me.Handle,r,True)

Me.Controls.SetChildIndex(game1,1)

Me.Controls.SetChildIndex(PictureBox1,20)

use1.Enabled=False

use2.Enabled=False

use3.Enabled=False

use4.Enabled=False

use7.Enabled=False

use8.Enabled=False

use9.Enabled=False

use10.Enabled=False

use11.Enabled=False

game1.BackColor=Me.PictureBox1.BackColor

game2.BackColor=Me.PictureBox1.BackColor

game3