十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
软件bug。vb点虐 创建是会有窗体进行应用的,没有应用就是软件bug原因,需要用户将软件关闭,点击系统修复下载,再打开软件即可。
成都创新互联服务项目包括八步网站建设、八步网站制作、八步网页制作以及八步网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,八步网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到八步省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
'我试过可以,你试试
Imports System.Drawing
Imports System.Windows.Forms
Public Class Form1
'******************************************
Private oOriginalRegion As Region = Nothing
' 用于窗体移动
Private bFormDragging As Boolean = False
Private oPointClicked As Point
'******************************************
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
Me.bFormDragging = True
Me.oPointClicked = New Point(e.X, e.Y)
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If Me.bFormDragging Then
Dim oMoveToPoint As Point
' 以当前鼠标位置为基础,找出目标位置
oMoveToPoint = Me.PointToScreen(New Point(e.X, e.Y))
' 根据开始位置作出调整
oMoveToPoint.Offset(Me.oPointClicked.X * -1, _
(Me.oPointClicked.Y + _
SystemInformation.CaptionHeight + _
SystemInformation.BorderSize.Height) * -1)
' 移动窗体
Me.Location = oMoveToPoint
End If
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
Me.bFormDragging = False
End Sub
End Class
错误提示是“索引超出了数组界限。”是Message="创建窗体时出错。有关详细信息,请参阅 Exception.InnerException。错误为: 索引超出了数组界限。"设置的,不能代表真实的问题,实际上程序能运行但可能程序要用到内存硬盘、CPU序号等因素,不把整个程序拿出来很难解答
这样的话你就不要直接把子窗口show出来,先在父窗口创建一个子窗口对象的变量,通过实例化该变量达到创建子窗口的目的,然后在下次又要打开子窗口时也可以通过该变量关闭原有的子窗口
示例代码如下(假设Form1为父窗口,Form2为子窗口):
Form1的代码:
Public Class Form1
Dim nform As Form2 = Nothing
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If nform IsNot Nothing Then
nform.Close()
nform.Dispose()
End If
nform = New Form2
nform.Show()
Me.Hide()
End Sub
End Class
通过nform变量,你可以很轻易就处理掉原来已经打开但隐藏着的子窗口了