Textbox que permite sólo Letras en Vb.Net 05
->
Como en el ejemplo de solo números este código lo colocamos en el evento KeyPress de nuestras cajas de texto
-
If Char.IsLetter(e.KeyChar) Then
-
e.Handled = False
-
ElseIf Char.IsControl(e.KeyChar) Then
-
e.Handled = False
-
ElseIf Char.IsSeparator(e.KeyChar) Then
-
e.Handled = False
-
Else
-
e.Handled = True
-
End If
y así tenemos solo texto en nuestras cajas de texto
nos vemos
Textbox que permite sólo Números en Vb.Net 05
->
Este código lo colocamos en el evento Keypress de nuestras cajas de texto que queremos que sean únicamente numéricas.
-
If Char.IsDigit(e.KeyChar) Then
-
e.Handled = False
-
ElseIf Char.IsControl(e.KeyChar) Then
-
e.Handled = False
-
Else
-
e.Handled = True
-
End If
y de esa manera es se omiten las letras y si deseamos que se admita el cero para decimales lo hacemos de la siguiente manera:
-
If e.KeyChar = "." Then
-
e.Handled = False
-
exit sub
-
End If
-
If Char.IsDigit(e.KeyChar) Then
-
e.Handled = False
-
ElseIf Char.IsControl(e.KeyChar) Then
-
e.Handled = False
-
Else
-
e.Handled = True
-
End If
listo un pequeño ejemplo
Enviar parámetro a Reporting Services Vb.Net 05
->
Para enviar un parámetro a Reporting Services primero hacemos un Imports de Microsoft.Reporting.WebForms, agregamos un ReportViewer1 y después de hacer esto hacemos la llamada y también e incluímos los parámetros que vamos a enviar de la siguiente manera:
-
Private Sub Cargar()
-
Dim instance As New Microsoft.Reporting.WinForms.ReportParameter("Oficina", "01")
-
Dim instance1 As New Microsoft.Reporting.WinForms.ReportParameter("Fecha", "2004.01.01")
-
Dim instance2 As New Microsoft.Reporting.WinForms.ReportParameter("Ordenadopor", "01")
-
Dim prms(2) As Microsoft.Reporting.WinForms.ReportParameter
-
prms(0) = instance
-
prms(1) = instance1
-
prms(2) = instance2
-
ReportViewer1.ServerReport.ReportServerUrl = New Uri("https://www.geoavila.com/ReportServer/")
-
ReportViewer1.ServerReport.ReportPath = "/Report Project2/rpt_balance_antiguedad"
-
ReportViewer1.ServerReport.SetParameters(prms)
-
ReportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Remote
-
ReportViewer1.RefreshReport()
-
End Sub
-
-
Private Sub CmdVer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdVer.Click
-
Cargar()
-
End Sub
De esta manera podremos visualizar un reporte en un Winforms.
nos vemos.




























