选中复选框后弹出带文本框的窗口

时间:2017-10-27 18:56:12

标签: vb.net

所有 我正在与vb.net和MySQL数据库合作。 现在,为了获取信息,我添加了几个复选框,如果用户选择了一个名为other的复选框,我想要一个窗口出现,它应该有一个文本框,当用户在该框中输入文本时,详细信息应该存储在db中

2 个答案:

答案 0 :(得分:0)

由于您还没有提供太多信息,我可能无法准确回答您的问题,但请检查这是否有帮助。

首先添加LINQ to SQL(.dbml文件) - 让我们将其命名为 XYZ 和数据集(.xsd文件) - 让我们将其命名为 XYZ ,也适用于您的项目,然后将数据库表拖放到这两个文件中并保存所有文件。

现在进入包含您提到的复选框的表单。

将此代码添加到您的复选框click_event。

If checkbox1.checked = True Then
   Dim insertValue As String = ""
   insertValue = InputBox("Enter text to insert", YourTitle, "")
   If inserValue <> "" Then
      Dim db as New XYZDataContext
      Dim NewRec As New YourTableName With {.ColumnName = insertValue}
      db.YourTableName.InsertOnSubmit(NewRec)
      db.SubmitChanges()
      Msgbox("Value added!")
   End If
   checkbox1.checked = False
End If

答案 1 :(得分:0)

在设计器中创建窗口,并为其命名,如someWindow。然后在你的代码中打开复选框点击事件的窗口。当你关闭窗户时,请不要将其丢弃。只需将它隐藏起来。所以当你关闭窗口时,你可以从文本框中检索数据。

    Sub Test ()
        Dim wd_SomeInfo as new someWindow
        wd_SomeInfo.showdialog()
        Dim result As String = wd_SomeInfo.txt_sometextbox.text
        If result = "" Then cancel....

    End Sub