vb中点击窗体1按钮弹出窗体2并中断窗体1功能，点击窗体2按钮关闭窗体2

在窗体1的按钮的 Click 事件中，添加以下代码：

Dim form2 As New Form2 '创建窗体2实例
form2.ShowDialog() '以模态方式弹出窗体2
Me.Enabled = False '禁用窗体1

在窗体2的按钮的 Click 事件中，添加以下代码：

Me.Close() '关闭窗体2
Form1.Enabled = True '启用窗体1

其中，Form1 是窗体1的名称，需要根据实际情况进行修改。

相关问题

vb.net 点击按钮关闭当前窗体

在 VB.NET 中，要点击按钮关闭当前窗体，可以使用 `Me.Close()` 方法。下面是一个示例代码：

Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
    Me.Close()
End Sub

在这个示例中，`btnClose` 是一个按钮控件，当点击它时，会调用 `btnClose_Click` 事件处理程序，并在其中使用 `Me.Close()` 方法关闭当前窗体。

用vb语言实现能够点击窗体对应按钮即可查询表中对应信息

可以按照以下步骤来实现：

1. 创建一个Windows窗体应用程序，添加一个Button和一个DataGridView控件。

2. 在窗体的Load事件中，连接到数据库并向DataGridView控件中加载表中的数据。

3. 在Button的Click事件中，获取用户输入的查询条件，并使用SQL查询语句查询表中符合条件的数据。

4. 将查询结果绑定到DataGridView控件中。

下面是一个简单的示例代码：

Public Class Form1
    Dim connString As String = "Data Source=(local);Initial Catalog=DatabaseName;Integrated Security=True"
    Dim conn As New SqlConnection(connString)
    Dim cmd As New SqlCommand()
    Dim da As New SqlDataAdapter()
    Dim ds As New DataSet()

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '连接数据库，加载数据到DataGridView控件
        conn.Open()
        cmd.Connection = conn
        cmd.CommandText = "SELECT * FROM TableName"
        da.SelectCommand = cmd
        da.Fill(ds, "TableName")
        DataGridView1.DataSource = ds.Tables("TableName")
        conn.Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '执行查询操作
        conn.Open()
        cmd.CommandText = "SELECT * FROM TableName WHERE ColumnName='" & TextBox1.Text & "'"
        da.SelectCommand = cmd
        ds.Clear()
        da.Fill(ds, "TableName")
        DataGridView1.DataSource = ds.Tables("TableName")
        conn.Close()
    End Sub
End Class

在上面的代码中，需要将`DatabaseName`替换为实际的数据库名称，`TableName`替换为实际的表名，`ColumnName`替换为实际的列名。同时，需要将TextBox1替换为实际的输入框控件名称。