Configuraciones.vb 1001 B

1234567891011121314151617181920212223242526272829303132333435363738
  1. Module Configuraciones
  2. Private DecimalesPorcentaje As Integer = 4
  3. Private _CodigoTXTPorcentaje As String
  4. Private DecimalesMontos As Integer = 4
  5. Private _CodigoTXTMontos As String
  6. Public Property CodigoTXTPorcentaje As String
  7. Get
  8. Return "P" & DecimalesPorcentaje.ToString
  9. End Get
  10. Set(value As String)
  11. End Set
  12. End Property
  13. Public Property CodigoTXTMontos As String
  14. Get
  15. Return "N" & DecimalesMontos.ToString
  16. End Get
  17. Set(value As String)
  18. End Set
  19. End Property
  20. Public ReadOnly Property ColorFondoError() As Color
  21. Get
  22. Return Color.FromArgb(230, 95, 95)
  23. End Get
  24. End Property
  25. Public ReadOnly Property ColorFondoPredefinido() As Color
  26. Get
  27. Return SystemColors.Control
  28. End Get
  29. End Property
  30. Public Function ColorFondoBusqueda() As Color
  31. Return Color.FromArgb(248, 247, 199)
  32. End Function
  33. End Module