Metiendola en un Namespace y enlazando con librerias si fuese necesario. Una clase tiene sus atributos,  su contrusctores (uno por defecto New()) y las propertys de acceso y modificacion. Public Class PKSiniestro Private _Id As Integer Private _IdSolicitud As Integer Public Sub New() Me._Id = 0 Me._IdSolicitud = 0 End Sub Public Sub New(ByVal Id…

Protected Sub GrdParcelas_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GrdParcelas.PageIndexChanging GrdParcelas.PageIndex = e.NewPageIndex GrdParcelas.DataSource = CType(ViewState("listaParcelas"), List(Of Entidades.ParcelaCopy)) GrdParcelas.DataBind() End Sub

Public Function IIf( _ ByVal Expression As Boolean, _ ByVal TruePart As Object, _ ByVal FalsePart As Object _ ) As Object En este ejemplo se utiliza la función IIf para evaluar el parámetro testMe del procedimiento checkIt y devuelve la palabra «Large» si la cantidad es mayor que 1000; de lo contrario, devuelve la palabra «Small». Visual Basic Function…

Utilizaremos: Me.txt1.Text = Me.txt1.Text.TrimStart(«0») De tal forma que si tenemos una cadena del tipo ‘00000015’ pasaría a ’15’.

//extensiones [como ToString()]   Public Module Extensiones       <Runtime.CompilerServices.Extension()> _     Public Function ToJSON(ByVal datos As Agromutua.Entity.DatosBancarios) As String           Dim datosBancarios As String           Dim prov As New Persistencia.Provincia         Dim pk() As Object = New Object() {datos.IdProvincia}           datosBancarios = «{Id: ‘» & datos.Id & «‘ ,» _                                …