En Visual Basic .Net es de esta manera

Private Sub forma_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs)
Dim valor1 As [Decimal]
Dim valor2 As [Decimal]
valor1 = Convert.ToDecimal(txtval1.Text)
valor2 = Convert.ToDecimal(txtval2.Text)
If valor1 <> valor2 Then
MessageBox.Show(Me, "Los valore deben coincidir", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
e.Cancel = True 'evita que el form se cierre

End If
End Sub

private void forma_FormClosing(object sender, FormClosingEventArgs e)
{
Decimal valor1;
Decimal valor2;
valor1 = Convert.ToDecimal(valor1.Text);
valor2 = Convert.ToDecimal(valor2.Text);
if (valor1 != valor2)
{
MessageBox.Show(this, "Los valores deben coincidir", "Error",MessageBoxButtons.OK,MessageBoxIcon.Error);
e.Cancel = true; //evita que el form se cierre
}

}

Un código bastante útil en el tema de validaciones y prohibiciones para que esas ocaciones que se necesita aplicar seguridad en los formularios.

Nos vemos.

Public Shared Function EsInteger(ByVal theValue As String) As Boolean
    'funcion para enteros
    Try
        Convert.ToInt32(theValue)
        Return True
    Catch
        Return False
    End Try
End Function

Public Shared Function EsDecimal(ByVal theValue As String) As Boolean
    'funcion para enteros
    Try
        Convert.ToDecimal(theValue)
        Return True
    Catch
        Return False
    End Try
End Function

        public static bool EsInteger(string theValue)//funcion para enteros
        {
            try
            {
                Convert.ToInt32(theValue);
                return true;
            }
            catch
            {
                return false;
            }
        }

        public static bool EsDecimal(string theValue)//funcion para enteros
        {
            try
            {
                Convert.ToDecimal(theValue);
                return true;
            }
            catch
            {
                return false;
            }
        }

otra manera de validar de parte de @cmsalvado gracias por el dato:

Public Shared Function EsInteger(ByVal theValue As String) As Boolean
Dim value As Integer
Return Integer.TryParse(theValue, value)
End Function

public static bool EsInteger(string theValue)
{
int value;
return int.TryParse(theValue, out value);
}

bueno espero les sea de gran ayuda.

nos vemos

If TextBox.Text.Length < 1 Then
MessageBox.Show(Me, "Debe colocar un cliente válido", "error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
Return
End If

if (TextBox.Text.Length <1)
{
MessageBox.Show(this, "Debe colocar un cliente válido", "error", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}

nos vemos espero les sirva algo sencillo pero muy útil.

Saludos

(Video: Watch this video on the post page)

Espero sus comentarios, Gracias por la opinión.

Saludos

P.D. presiona el botón HD del plugin para ver el alta de definición

como sabran pueden usar el SPY++ para averiguar los nombres de clase de los controles…

este es el nombre de clase de la ventana padre llamada “Notepad”:

este es el nombre del control Textbox dentro de la ventana llamado “Edit”:

para saber los datos de la ventana tienen que arrastrar el “iconito” sobre una ventana y te va diciendo las partes que la forman,en este caso fijense que esta seleccionado el area de escritura del bloc de notas y al lado en la ventana estan los datos…

el handle es el numero(Long) que le asigna windows a cada ventana ,es como si fuera el numero que identifica esa ventana,sabiendo eso,podes hacer un monton de cosas,cerrarla,moverla,resizarla,cambiar valores,etc….

el Class es el nombre de clase del control,o sea cada control tiene su nombre…ese ese es que nos interesa ahora..

ahora fijense con este codigo como escribo en el bloc de notas..usando unas funciones api’s…

Public Class Form1
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer
Private Declare Function SendMessageLONG Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Const WM_SETTEXT = &HC

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Shell("notepad.exe", vbNormalNoFocus)
Dim a As Long
Dim b As Long
a = FindWindow("Notepad", vbNullString)
b = FindWindowEx(a, 0&, "Edit", vbNullString)
SendMessageSTRING(b, WM_SETTEXT, 256, "Holaaaaaaaaaaaa")
End Sub
End Class

saludos.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objFSO As Scripting.FileSystemObject
Dim objFile
objFSO = New Scripting.FileSystemObject
objFile = objFSO.GetFile("C:\teclas.zip")
MsgBox("El Archivo " & objFile.Name & ",Tiene un Tamaño de " & objFile.Size & " bytes", vbInformation + vbOKOnly, "Tamaño de archivo")
objFile = Nothing
objFSO = Nothing
End Sub

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

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

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.

Ejemplo Serial HDD

Nos vemos espero les sirva.