如何使VB.NET中的按钮允许用户选择文件？

我正在用Visual Basic Express Edition 2010制作密码器，遇到一些问题。我试图让用户点击GUI中的一个按钮，并允许他们选择一个文件进行加密。有人知道怎么做吗？下面是我最初用来制作它的代码，但它不起作用：（感谢所有帮助

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click
    With OpenFileDialog1
        .FileName = ""
        .Filter = "Executables (*.exe)|*.exe|All files (*.*)|*.*"
        .Title = "The Justice Crypter"
        .ShowDialog()
        TextBox1.Text = .FileName
        infectedfile = TextBox1.Text
    End With
End Sub

---

谢谢大家。

OpenFileDialog1为空。

---

您需要将其初始化为一个

新的OpenFileDialog（）

OpenFileDialog是Win32控件的WPF包装器，这对我来说很有用

Class MainWindow 
    Dim WithEvents openFileDialog1 As New Microsoft.Win32.OpenFileDialog
    Private Sub Button1_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button1.Click
        With OpenFileDialog1
            .FileName = ""
            .Filter = "Executables (*.exe)|*.exe|All files (*.*)|*.*"
            .Title = "The Justice Crypter"
            .ShowDialog()
            TextBox1.Text = .FileName
            'infectedfile = TextBox1.Text
        End With
    End Sub
End Class

---

在GUI上，用户单击打开他们想要加密的文件的按钮，但是[FileName=”“]出现错误，用户无法访问他们的文件。请帮助！：）您在OpenFileDialog中使用的是什么？WPF没有我知道的本机文件？私有子按钮1\u单击（ByVal发送方作为System.Object，ByVal e作为System.Windows.RoutedEventArgs）句柄按钮1.单击OpenFileDialog1NullReferenceException未处理也未设置…对象变量或块变量。让我指定发生的情况。我使用的代码是：我现在在.FileName=“”处遇到错误说明：未设置对象变量或With block变量。其类型相同，aNullReference@user1760869我不知道你在做什么，你在哪里声明你的OpenFileDialog？它需要是一个模块级对象。上面的代码确实有效。我在发布之前检查了它。你修复了它，非常感谢Mark。另外，我只想指定，wh您将Dim WithEvents openFileDialog1声明为新的Microsoft.Win32.OpenFileDialog我的程序将保持64位吗？@user1760869这是一个非常好的问题，我在上面编译为64位，它运行时没有错误。@user1760869-如果合适，请不要忘记将此标记为答案。