CajasDialogo.vb

  1. ' CajasDialogo.vb — ProInf.net — feb-2012
  2.  
  3. Module CajasDialogo
  4.  
  5. Public Function DialogoConfirmar(Optional ByVal mensaje As String = "") As Boolean
  6. If mensaje = "" Then mensaje = "¿Estás seguro?"
  7. Return MessageBox.Show(
  8. mensaje,
  9. "Confirmación",
  10. MessageBoxButtons.YesNo,
  11. MessageBoxIcon.Question,
  12. MessageBoxDefaultButton.Button2) = DialogResult.Yes
  13. End Function
  14.  
  15. Public Sub DialogoAviso(ByVal mensaje As String)
  16. MessageBox.Show(
  17. mensaje,
  18. "Aviso",
  19. MessageBoxButtons.OK,
  20. MessageBoxIcon.Exclamation)
  21. End Sub
  22.  
  23. Public Sub DialogoError(
  24. Optional ByVal excepcion As Exception = Nothing,
  25. Optional ByVal mensaje As String = ""
  26. )
  27. Dim titulo = "Error"
  28. If excepcion IsNot Nothing Then
  29. titulo &= ": " & excepcion.GetType().Name
  30. If mensaje.Length > 0 Then mensaje &= vbCrLf & vbCrLf
  31. mensaje &= excepcion.Message & vbCrLf & vbCrLf & excepcion.StackTrace
  32. End If
  33. MessageBox.Show(
  34. mensaje,
  35. titulo,
  36. MessageBoxButtons.OK,
  37. MessageBoxIcon.Stop)
  38. End Sub
  39.  
  40. End Module
  41.  

Proinf.net