Código vb:
Ver originalPrivate Sub btnComprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
If TextBox1.Text = "" Then
MessageBox.Show("Verifique la informacion completa")
Else
Comprimir()
ProgressBar1.Value = ProgressBar1.Maximum
MessageBox.Show("Archivo Comprimido")
ProgressBar1.Value = ProgressBar1.Minimum
End If
TextBox1.Clear()
Catch
End Try
End Sub
Al dar click sobre el archivo comprimir... es a lo que se refiere?
