VB.netでエクストラクタプログラムを作成しようとしています

Question

このプログラムを作成しようとしています。フォルダから.zip形式の改造を受け取り、それらをゲームフォルダにすべて取り込むゲームの場合、これはコードです。これまでのところはあります。私はbutton2のコードは、他のボタンからフォルダを取得することはできないと思ういくつかのことを試してみましたが、それを動作させることはできません。別にあなたのコードの上部にある最初の宣言から

Imports System.IO.Compression 
Imports System.IO 

Public Class Form1 

Dim GameFolder As String 
Dim ZipFolder As String 


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Close() 
End Sub 

Public Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 

    Dim mypath As String 
    Dim fname As String 

    mypath = ZipFolder ' Select zip location folder 
    fname = Dir(mypath & "*.zip") ' get first zip file 
    Do While Len(fname) > 0 
     ZipFile.ExtractToDirectory(fname, mypath) 
     fname = Dir() ' get next matching file 
    Loop 
End Sub 

Public Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 
    Dim fd As FolderBrowserDialog = New FolderBrowserDialog() ' Let the user select the Zip Folder 
    Dim ZipFolder As String 
    If fd.ShowDialog() = DialogResult.OK Then 
     ZipFolder = fd.SelectedPath 'Set the Zipfolder string to the output of the FolderBrowser 
    End If 
End Sub 

Public Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 
    Dim fd As FolderBrowserDialog = New FolderBrowserDialog() 'Let the user select the game folder 
    Dim GameFolder As String 
    If fd.ShowDialog() = DialogResult.OK Then 
     GameFolder = fd.SelectedPath 'Set the GameFolder string to the output of the FolderBrowser 
    End If 
End Sub 

End Class 

Answer 1

、

Dim GameFolder As String 
Dim ZipFolder As String 

の他のすべての出現を削除した理由は、内のコード、あなたが潜水艦でそれらを宣言するときということですsubは、グローバル宣言より優先してローカル宣言を使用します。

したがって、ダイアログ結果を現在のコードの変数に割り当てると、フォームのワイド変数ではなく、ローカル変数に代入されます。