如何在VB.NET中创建按钮允许用户选择文件？

我在Visual Basic Express 2010中制作了一个Crypter，并且遇到了一些问题。我试图让用户点击GUI中的一个按钮，它允许他们选择一个文件到Crypt。有没有人有任何想法如何做到这一点？下面是我原本是用来做它的代码，但它不工作:(所有帮助表示赞赏！如何在VB.NET中创建按钮允许用户选择文件？

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

谢谢你们。

来源

2012-10-21 user1760869

你有什么问题？ – SLaks

在GUI上，用户点击打开他们想要被Crypted的文件的按钮，但是他们的文件夹不是显示出来，而是[FileName =“”]出现错误，并且不会让用户访问他们的文件。请帮忙！ :) – user1760869

你用什么OpenFileDialog WPF没有一个我知道的本地的？ –

OpenFileDialog1为null。
你需要把它初始化为New OpenFileDialog()。

来源

2012-10-21 01:24:53 SLaks

我试过了，我得到了同样的确切错误。 – user1760869

让我指定发生了什么。我正在使用的代码是这样的： – user1760869

的打开文件对话框是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

来源

2012-10-21 01:28:30

我现在在.FileName =“”上说错误：Object variable或With block variable not set。它是相同的类型，NullReference – user1760869

@ user1760869我不知道你在做什么，你在哪里声明OpenFileDialog它需要成为模块级别的对象。上面的代码确实有用我在发帖前检查了它 –

你修好了，非常感谢Mark。此外，我只是想指定，当你说明Dim WithEvents openFileDialog1由于新的Microsoft.Win32.OpenFileDialog将我的程序保持64位？ – user1760869

如何在VB.NET中创建按钮允许用户选择文件？

回答

相关问题