简单的vb管理应用源码.docx
- 文档编号:25208158
- 上传时间:2023-06-06
- 格式:DOCX
- 页数:24
- 大小:173.82KB
简单的vb管理应用源码.docx
《简单的vb管理应用源码.docx》由会员分享,可在线阅读,更多相关《简单的vb管理应用源码.docx(24页珍藏版)》请在冰豆网上搜索。
简单的vb管理应用源码
效果图
基于环境下的简单管理程序
添加client.vb窗体,窗体下代码为:
ImportsVB=Microsoft.VisualBasic
PublicClassclient
DimxAsBoolean
DimusetimeAsLong=0'定义时
Dimh,m,sAsInteger
Privatem_dAsBoolean,m_sAsPoint
PrivateDeclareSubSleepLib"kernel32"(ByValdwMillisecondsAsLong)
DeclareFunctionCreateRoundRectRgnLib"gdi32"Alias"CreateRoundRectRgn"(ByValX1AsInt32,ByValY1AsInt32,ByValX2AsInt32,ByValY2AsInt32,ByValX3AsInt32,ByValY3AsInt32)AsInt32
DeclareFunctionSetWindowRgnLib"user32"Alias"SetWindowRgn"(ByValhWndAsInt32,ByValhRgnAsInt32,ByValbRedrawAsBoolean)AsInt32'GDI重绘API
DimnHorizonAsInteger
PrivategAsGraphics
PrivateSubForm2_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.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.BackColor=Me.PictureBox1.BackColor
game4.BackColor=Me.PictureBox1.BackColor
game5.BackColor=Me.PictureBox1.BackColor
game6.BackColor=Me.PictureBox1.BackColor
'TODO:
这行代码将数据加载到表“KtvDataSet.food”中。
您可以根据需要移动或移除它。
'
h=0
m=0
s=0
max1.Visible=False
max2.Visible=False
WebBrowser1.Visible=False
AxShockwaveFlash1.Visible=False
Me.Focus()
EndSub
PrivateSubform2_MouseDown(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlesMe.MouseDown
m_d=True
m_s.X=e.X
m_s.Y=e.Y
EndSub
PrivateSubform2_MouseMove(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlesMe.MouseMove
Ifm_d=FalseThen
ExitSub
EndIf
Dimdx%,dy%
dx=e.X-m_s.X
dy=e.Y-m_s.Y
Me.Left=Me.Left+dx
Me.Top=Me.Top+dy
EndSub
PrivateSubform2_MouseUp(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlesMe.MouseUp
m_d=False
EndSub
PrivateSubPictureBox1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesuse10.Click
max1.Hide()
max2.Hide()
Form1.Show()
Form1.Focus()
Me.Hide()
media.Top=0
media.Left=0
media.Show()
EndSub
PrivateSubPictureBox9_MouseLeave(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handlesuse2.MouseLeave
use2.Image=Image.FromFile(Application.StartupPath&"\image\client\video.png")
EndSub
PrivateSubPictureBox9_MouseMove(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)Handlesuse2.MouseMove
use2.Image=Image.FromFile(Application.StartupPath&"\image\client\videofj.png")
EndSub
PrivateSubPictureBox12_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesPictureBox12.Click
Me.WindowState=FormWindowState.Minimized
Me.Focus()
NotifyIcon1.Visible=True
EndSub
PrivateSubPictureBox12_MouseLeave(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesPictureBox12.MouseLeave
PictureBox12.Image=Image.FromFile(Application.StartupPath&"\image\client\min.png")
EndSub
PrivateSubPictureBox12_MouseMove(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlesPictureBox12.MouseMove
PictureBox12.Image=Image.FromFile(Application.StartupPath&"\image\client\minfj.png")
EndSub
PrivateSubPictureBox13_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesPictureBox13.Click
Me.Timer1.Stop()
client_skin.Close()
Me.Enabled=False
client_remain2.Focus()
client_remain2.Show()
EndSub
PrivateSubPictureBox13_MouseLeave(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesPictureBox13.MouseLeave
PictureBox13.Image=Image.FromFile(Application.StartupPath&"\image\client\close.png")
EndSub
PrivateSubPictureBox13_MouseMove(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlesPictureBox13.MouseMove
PictureBox13.Image=Image.FromFile(Application.StartupPath&"\image\client\closefj.png")
EndSub
PrivateSubPictureBox8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesuse3.Click
max1.Hide()
game3.Visible=True
game2.Visible=True
game1.Visible=True
game4.Visible=True
game5.Visible=True
game6.Visible=True
PictureBox1.Visible=True
WebBrowser1.Visible=False
use3.Enabled=False
EndSub
PrivateSubPictureBox8_MouseLeave(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handlesuse3.MouseLeave
use3.Image=Image.FromFile(Application.StartupPath&"\image\client\game.png")
EndSub
PrivateSubPictureBox8_MouseMove(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)Handlesuse3.MouseMove
use3.Image=Image.FromFile(Application.StartupPath&"\image\client\gamefj.png")
EndSub
PrivateSubPictureBox7_MouseLeave(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handlesuse4.MouseLeave
use4.Image=Image.FromFile(Application.StartupPath&"\image\client\phone.png")
EndSub
PrivateSubPictureBox7_MouseMove(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)Handlesuse4.MouseMove
use4.Image=Image.FromFile(Application.StartupPath&"\image\client\phonefj2.png")
EndSub
PrivateSubPictureBox4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesuse7.Click
max1.Show()
Me.Controls.GetChildIndex(WebBrowser1,1)
PictureBox1.Hide()
WebBrowser1.Show()
use3.Enabled=True
game3.Visible=False
game2.Visible=False
game1.Visible=False
game4.Visible=False
game5.Visible=False
game6.Visible=False
AxShockwaveFlash1.Visible=False
WebBrowser1.Visible=True
WebBrowser1.Navigate("")
EndSub
PrivateSubPictureBox4_MouseLeave(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handlesuse7.MouseLeave
use7.Image=Image.FromFile(Application.StartupPath&"\image\client\internet.png")
EndSub
PrivateSubPictureBox4_MouseMove(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)Handlesuse7.MouseMove
use7.Image=Image.FromFile(Application.StartupPath&"\image\client\internetfj.png")
EndSub
PrivateSubPictureBox3_MouseLeave(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handlesuse8.MouseLeave
use8.Image=Image.FromFile(Application.StartupPath&"\image\client\zh.png")
EndSub
PrivateSubPictureBox3_MouseMove(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)Handlesuse8.MouseMove
use8.Image=Image.FromFile(Application.StartupPath&"\image\client\zhfj.png")
EndSub
PrivateSubPictureBox2_MouseLeave(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handlesuse9.MouseLeave
use9.Image=Image.FromFile(Application.StartupPath&"\image\client\bb.png")
EndSub
PrivateSubPictureBox2_MouseMove(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)Handlesuse9.MouseMove
use9.Image=Image.FromFile(Application.StartupPath&"\image\client\bbfj.png")
EndSub
PrivateSubPictureBox10_MouseLeave(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handlesuse1.MouseLeave
use1.Image=Image.FromFile(Application.StartupPath&"\image\client\main.png")
EndSub
PrivateSubPictureBox10_MouseMove(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)Handlesuse1.MouseMove
use1.Image=Image.FromFile(Application.StartupPath&"\image\client\mainfj.png")
EndSub
PrivateSubPictureBox1_MouseLeave(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handlesuse10.MouseLeave
use10.Image=Image.FromFile(Application.StartupPath&"\image\client\ko.png")
EndSub
PrivateSubPictureBox1_MouseMove(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)Handlesuse10.MouseMove
use10.Image=Image.FromFile(Application.StartupPath&"\image\client\kofj.png")
EndSub
PrivateSubWebBrowser1_DocumentCompleted(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.WebBrowserDocumentCompletedEventArgs)HandlesWebBrowser1.DocumentCompleted
EndSub
PrivateSubPictureBox15_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesPictureBox15.Click
EndSub
PrivateSubPictureBox15_MouseLeave(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesPictureBox15.MouseLeave
PictureBox15.Image=Image.FromFile(Application.StartupPath&"\image\max.png")
EndSub
PrivateSubPictureBox15_MouseMove(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlesPictureBox15.MouseMove
PictureBox15.Image=Image.FromFile(Application.StartupPath&"\image\max1.png")
EndSub
PrivateSubAxShockwaveFlash1_Enter(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesAxShockwaveFlash1.Enter
EndSub
PrivateSubPictureBox16_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesgame2.Click
game3.Visible=False
game2.Visible=False
game1.Visible=False
game4.Visible=False
game5.Visible=False
game6.Visible=False
max2.Show()
AxShockwaveFlash1.Visible=True
AxShockwaveFlash1.Movie=(Application.StartupPath&"\IMAGE\CLIENT\FLASH\00_2.SWF")
EndSub
PrivateSubPictureBox16_MouseLeave(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handlesgame2.MouseLeave
game2.Image=Image.FromFile(Application.StartupPath&"\image\client\logo\killfr.png")
EndSub
PrivateSubPictureBox16_MouseMove(ByValsenderAsObject,ByValeAsSystem.Windows.F
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 简单 vb 管理 应用 源码