' Webサイトからダウンロードする場合
GrapeCity.Win.JPAddress.GcJPAddress.DownloadUrl = "https://tempuri.com/data/"

' ネットワークフォルダからダウンロードする場合
GrapeCity.Win.JPAddress.GcJPAddress.DownloadUrl = "\\tempsrv\data"

    GcJPAddress1.Proxy = System.Net.WebRequest.GetSystemWebProxy()
    GcJPAddress1.Proxy.Credentials = System.Net.CredentialCache.DefaultCredentials

    GcJPAddress1.Proxy = New System.Net.WebProxy("http://your-proxy-server:8080", True)
    GcJPAddress1.Proxy.Credentials = New System.Net.NetworkCredential("user", "password", "domain")

    ' タイムアウトまでの時間を10秒に変更します。
    GcJPAddress1.Timeout = 10000

' 既定の設定で辞書ファイルを更新します。
' 既定のフォルダにある辞書ファイルが更新対象となります。
' 辞書の配置フォルダにGcJPAddressBackupフォルダが作成され、既存の辞書ファイルがバックアップされます。
GcJPAddress1.Update()

    ' 辞書ファイルをバックアップなしで更新します。
    GcJPAddress1.Update(String.Empty, False, String.Empty)

    ' 辞書ファイルを[D:\MyData\JPAddress]フォルダにバックアップして更新します。
    GcJPAddress1.Update(String.Empty, True, "D:\MyData\JPAddress")

    ' [D:\MyData\JPAddress]フォルダの辞書ファイルを更新し、[D:\MyData\JPAddress\Backup]フォルダにバックアップして更新します。
    GcJPAddress1.Update("D:\MyData\JPAddress", True, "D:\MyData\JPAddress\Backup")

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' DownloadStartingイベントを追加します。
        AddHandler GcJPAddress1.DownloadStarting, AddressOf GcJPAddress1_DownloadStarting
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 実行フォルダにある辞書ファイルを更新します。
        GcJPAddress1.Update()
    End Sub

    Private Sub GcJPAddress1_DownloadStarting(sender As Object, e As GrapeCity.Win.JPAddress.DownloadStartingEventArgs)
        ' 現在のファイルが最新の場合は更新をキャンセルします。
        If e.Cancel Then
            MessageBox.Show("辞書ファイルは最新です。ダウンロードをキャンセルします。")
            Exit Sub
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' UpdateCompletedイベントを追加します。
        AddHandler GcJPAddress1.UpdateCompleted, AddressOf GcJPAddress1_UpdateCompleted
    End Sub

    Private Sub GcJPAddress1_UpdateCompleted(sender As Object, e As GrapeCity.Win.JPAddress.UpdateCompletedEventArgs)
        ' e.ErrorがNothingの場合は正常終了
        If e.Error Is Nothing Then
            MessageBox.Show("更新処理は正常に完了しました。")
        Else
            MessageBox.Show("更新処理でエラーが発生しました。" + e.Error.Message)
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' DownloadProgressChangedイベントを追加します。
        AddHandler GcJPAddress1.DownloadProgressChanged, AddressOf GcJPAddress1_DownloadProgressChanged
    End Sub

    Private Sub GcJPAddress1_DownloadProgressChanged(sender As Object, e As Net.DownloadProgressChangedEventArgs)
        ' 進捗情報の表示
        ListBox1.Items.Add("非同期ダウンロード" + e.ProgressPercentage.ToString() + "%完了")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Ofd As OpenFileDialog = New OpenFileDialog()
        If String.IsNullOrEmpty(Ofd.InitialDirectory) Then
            Ofd.InitialDirectory = Directory.GetCurrentDirectory()

        End If
        Ofd.Filter = "辞書ファイル書庫 (*.gz)|*.gz"
        Ofd.RestoreDirectory = True

        If Ofd.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Dim Result As DialogResult = MessageBox.Show("辞書ファイルをファイル" + Path.GetFileName(Ofd.FileName) + "でロールバックします。続行しますか？", _
                "ロールバックの確認", MessageBoxButtons.YesNo)
            If Result = DialogResult.Yes Then
                Try
                    MessageBox.Show("ロールバックを開始します。")
                    GcJPAddress1.Rollback(Ofd.FileName, String.Empty)
                    MessageBox.Show("ロールバックが完了しました。")
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                Finally
                End Try
            End If
        End If
    End Sub