大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
做一个窗体模板,假设是Form2
成都创新互联专注于怀来网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供怀来营销型网站建设,怀来网站制作、怀来网页设计、怀来网站官网定制、成都小程序开发服务,打造怀来网络公司原创品牌,更为您提供怀来网站排名全网营销落地服务。
Dim x as New Form2
x.Show()
如果弹出窗口较多,x可以用动态数组替代
可以做一个窗体,该窗体中放入你需要的菜单。
这个窗体几个特殊设置:
1。TOPmost设置为TRUE
2。Formborderstyle设置为none
3。showintaskbar设置为False
4。size设置为你的菜单大小
用的时候new一下就有啦!
这样就相当于悬浮窗体了,细节自己研究吧!^_^
Me.IsMdiContainer = True
Dim f As New Form2
f.MdiParent = Me
f.Show()
新建一窗体FORM2,在原窗体FORM1的在mousemove事件中增加FORM2.left=XX,FORM2.TOP=YY.XX,yy是鼠标的坐标.