GeoAvila (Geovanny G. Avila) » Visual Basic .NET http://geoavila.com Desarrollo.. de software. Tue, 27 Apr 2010 23:30:21 +0000 http://wordpress.org/?v=2.9.2 en hourly 1 Impedir que un form se cierre csharp,vb.net http://geoavila.com/impedir-que-un-form-se-cierre-csharpvb-net/ http://geoavila.com/impedir-que-un-form-se-cierre-csharpvb-net/#comments Tue, 11 Aug 2009 22:42:32 +0000 GeoAvila http://geoavila.com/?p=202

A continuación, este código te ayudará para evitar que un formularion se cierre sin previa validación, para esto usamos la evento FormClosing de los formulacion de Windows Forms.

En Visual Basic .Net es de esta manera

PLAIN TEXT
VB.NET:
  1. Private Sub forma_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs)
  2. Dim valor1 As [Decimal]
  3. Dim valor2 As [Decimal]
  4. valor1 = Convert.ToDecimal(txtval1.Text)
  5. valor2 = Convert.ToDecimal(txtval2.Text)
  6. If valor1 <> valor2 Then
  7. MessageBox.Show(Me, "Los valore deben coincidir", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
  8. e.Cancel = True 'evita que el form se cierre
  9.  
  10. End If
  11. End Sub

PLAIN TEXT
C#:
  1. private void forma_FormClosing(object sender, FormClosingEventArgs e)
  2. {
  3. Decimal valor1;
  4. Decimal valor2;
  5. valor1 = Convert.ToDecimal(valor1.Text);
  6. valor2 = Convert.ToDecimal(valor2.Text);
  7. if (valor1 != valor2)
  8. {
  9. MessageBox.Show(this, "Los valores deben coincidir", "Error",MessageBoxButtons.OK,MessageBoxIcon.Error);
  10. e.Cancel = true; //evita que el form se cierre
  11. }
  12.  
  13. }

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.

]]> http://geoavila.com/impedir-que-un-form-se-cierre-csharpvb-net/feed/ 1 Valida TextBox si es Entero o Decimal http://geoavila.com/valida-textbox-si-es-entero-o-decimal/ http://geoavila.com/valida-textbox-si-es-entero-o-decimal/#comments Thu, 06 Aug 2009 21:41:13 +0000 GeoAvila http://geoavila.com/?p=197 Bueno estas funciones ayudan a validar si el texto ingresado en un textbox es un valor numérico ó es un valor decimal, estas son de las validaciones más usadas para desarrollar así que acá se los dejo.

PLAIN TEXT
VB.NET:
  1. Public Shared Function EsInteger(ByVal theValue As String) As Boolean
  2.     'funcion para enteros
  3.     Try
  4.         Convert.ToInt32(theValue)
  5.         Return True
  6.     Catch
  7.         Return False
  8.     End Try
  9. End Function
  10.  
  11. Public Shared Function EsDecimal(ByVal theValue As String) As Boolean
  12.     'funcion para enteros
  13.     Try
  14.         Convert.ToDecimal(theValue)
  15.         Return True
  16.     Catch
  17.         Return False
  18.     End Try
  19. End Function

PLAIN TEXT
C#:
  1. public static bool EsInteger(string theValue)//funcion para enteros
  2.         {
  3.             try
  4.             {
  5.                 Convert.ToInt32(theValue);
  6.                 return true;
  7.             }
  8.             catch
  9.             {
  10.                 return false;
  11.             }
  12.         }
  13.  
  14.         public static bool EsDecimal(string theValue)//funcion para enteros
  15.         {
  16.             try
  17.             {
  18.                 Convert.ToDecimal(theValue);
  19.                 return true;
  20.             }
  21.             catch
  22.             {
  23.                 return false;
  24.             }
  25.         }

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

PLAIN TEXT
VB.NET:
  1. Public Shared Function EsInteger(ByVal theValue As String) As Boolean
  2. Dim value As Integer
  3. Return Integer.TryParse(theValue, value)
  4. End Function

PLAIN TEXT
C#:
  1. public static bool EsInteger(string theValue)
  2. {
  3. int value;
  4. return int.TryParse(theValue, out value);
  5. }

bueno espero les sea de gran ayuda.

nos vemos

]]> http://geoavila.com/valida-textbox-si-es-entero-o-decimal/feed/ 0 validar si hay texto en un textbox vb.net c# http://geoavila.com/valida-si-hay-texto-en-un-textbox/ http://geoavila.com/valida-si-hay-texto-en-un-textbox/#comments Wed, 05 Aug 2009 19:48:00 +0000 GeoAvila http://geoavila.com/2009/08/05/valida-enterodecimal-en-un-textbox/ Esta código ayuda a revisar si existe un texto ingresado en un textbox en VB.net y C#.

PLAIN TEXT
VB.NET:
  1. If TextBox.Text.Length <1 Then
  2. MessageBox.Show(Me, "Debe colocar un cliente válido", "error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
  3. Return
  4. End If

PLAIN TEXT
C#:
  1. if (TextBox.Text.Length <1)
  2. {
  3. MessageBox.Show(this, "Debe colocar un cliente válido", "error", MessageBoxButtons.OK, MessageBoxIcon.Error);
  4. return;
  5. }

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

]]> http://geoavila.com/valida-si-hay-texto-en-un-textbox/feed/ 0 Test de HD para Video Manual http://geoavila.com/test-de-hd-para-video-manual/ http://geoavila.com/test-de-hd-para-video-manual/#comments Mon, 27 Jul 2009 21:45:26 +0000 GeoAvila http://geoavila.com/?p=153 Bueno estando en un café libre, pregunté si me podían echar una mano con la compresión de video, para el manual, y bueno he aquí la demo de lo mejor que he conseguido gracias a rodrigo polo, espero que se vea bien en la mayoría de los clientes.

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

]]> http://geoavila.com/test-de-hd-para-video-manual/feed/ 1 Mini Tutorial: Enviar Texto a Aplicación Externa con VB NET http://geoavila.com/mini-tutorial-enviar-texto-a-aplicacion-externa-con-vb-net/ http://geoavila.com/mini-tutorial-enviar-texto-a-aplicacion-externa-con-vb-net/#comments Sun, 14 Sep 2008 04:54:47 +0000 seba123neo http://geoavila.com/?p=101 Hola, bueno esto lo hice porque veo que muchos lo preguntan y no saben como hacerlo, hay muchas formas para hacerlo, esta es una de ellas. Les voy a hacer un ejemplo de como mandar un texto al textbox de una aplicacion externa, en este caso el Notepad de windows.

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...

PLAIN TEXT
VB.NET:
  1. Public Class Form1
  2. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
  3. 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
  4. 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
  5. 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
  6. Private Const WM_SETTEXT = &HC
  7.  
  8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  9. Shell("notepad.exe", vbNormalNoFocus)
  10. Dim a As Long
  11. Dim b As Long
  12. a = FindWindow("Notepad", vbNullString)
  13. b = FindWindowEx(a, 0&, "Edit", vbNullString)
  14. SendMessageSTRING(b, WM_SETTEXT, 256, "Holaaaaaaaaaaaa")
  15. End Sub
  16. End Class

saludos.

]]> http://geoavila.com/mini-tutorial-enviar-texto-a-aplicacion-externa-con-vb-net/feed/ 0 Saber el Tamaño de Un Archivo con VB NET http://geoavila.com/saber-el-tamano-de-un-archivo-con-vb-net/ http://geoavila.com/saber-el-tamano-de-un-archivo-con-vb-net/#comments Fri, 19 Oct 2007 00:54:08 +0000 seba123neo http://geoavila.com/?p=83 Este ejemplo permite saber el tamaño de un archivo,ingresando la ruta del mismo.Usa como metodo La libreria Microsoft Scripting Runtime,que la tenes que agregar desde el menu Proyecto-->Añadir Referencias.

PLAIN TEXT
VB.NET:
  1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2. Dim objFSO As Scripting.FileSystemObject
  3. Dim objFile
  4. objFSO = New Scripting.FileSystemObject
  5. objFile = objFSO.GetFile("C:\teclas.zip")
  6. MsgBox("El Archivo " &amp; objFile.Name &amp; ",Tiene un Tamaño de " &amp; objFile.Size &amp; " bytes", vbInformation + vbOKOnly, "Tamaño de archivo")
  7. objFile = Nothing
  8. objFSO = Nothing
  9. End Sub

]]> http://geoavila.com/saber-el-tamano-de-un-archivo-con-vb-net/feed/ 0 Textbox que permite sólo Letras en Vb.Net 05 http://geoavila.com/textbos-que-permite-solo-letras-en-vbnet-05/ http://geoavila.com/textbos-que-permite-solo-letras-en-vbnet-05/#comments Fri, 06 Jul 2007 22:06:14 +0000 GeoAvila http://geoavila.com/?p=74 Como en el ejemplo de solo números este código lo colocamos en el evento KeyPress de nuestras cajas de texto

PLAIN TEXT
VB.NET:
  1. If Char.IsLetter(e.KeyChar) Then
  2. e.Handled = False
  3. ElseIf Char.IsControl(e.KeyChar) Then
  4. e.Handled = False
  5. ElseIf Char.IsSeparator(e.KeyChar) Then
  6. e.Handled = False
  7. Else
  8. e.Handled = True
  9. End If

y así tenemos solo texto en nuestras cajas de texto

nos vemos

]]> http://geoavila.com/textbos-que-permite-solo-letras-en-vbnet-05/feed/ 3 Textbox que permite sólo Números en Vb.Net 05 http://geoavila.com/solo-numeros-en-vbnet-05/ http://geoavila.com/solo-numeros-en-vbnet-05/#comments Fri, 06 Jul 2007 22:02:16 +0000 GeoAvila http://geoavila.com/?p=73 Este código lo colocamos en el evento Keypress de nuestras cajas de texto que queremos que sean únicamente numéricas.

PLAIN TEXT
VB.NET:
  1. If Char.IsDigit(e.KeyChar) Then
  2. e.Handled = False
  3. ElseIf Char.IsControl(e.KeyChar) Then
  4. e.Handled = False
  5. Else
  6. e.Handled = True
  7. 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:

PLAIN TEXT
VB.NET:
  1. If e.KeyChar = "." Then
  2. e.Handled = False
  3. exit sub
  4. End If
  5. If Char.IsDigit(e.KeyChar) Then
  6. e.Handled = False
  7. ElseIf Char.IsControl(e.KeyChar) Then
  8. e.Handled = False
  9. Else
  10. e.Handled = True
  11. End If

listo un pequeño ejemplo

]]> http://geoavila.com/solo-numeros-en-vbnet-05/feed/ 4 Enviar parámetro a Reporting Services Vb.Net 05 http://geoavila.com/enviar-parametro-a-reporting-services-vbnet/ http://geoavila.com/enviar-parametro-a-reporting-services-vbnet/#comments Fri, 06 Jul 2007 15:18:39 +0000 GeoAvila http://geoavila.com/?p=72 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:

PLAIN TEXT
VB.NET:
  1. Private Sub Cargar()
  2. Dim instance As New Microsoft.Reporting.WinForms.ReportParameter("Oficina", "01")
  3. Dim instance1 As New Microsoft.Reporting.WinForms.ReportParameter("Fecha", "2004.01.01")
  4. Dim instance2 As New Microsoft.Reporting.WinForms.ReportParameter("Ordenadopor", "01")
  5. Dim prms(2) As Microsoft.Reporting.WinForms.ReportParameter
  6. prms(0) = instance
  7. prms(1) = instance1
  8. prms(2) = instance2
  9. ReportViewer1.ServerReport.ReportServerUrl = New Uri("https://www.geoavila.com/ReportServer/")
  10. ReportViewer1.ServerReport.ReportPath = "/Report Project2/rpt_balance_antiguedad"
  11. ReportViewer1.ServerReport.SetParameters(prms)
  12. ReportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Remote
  13. ReportViewer1.RefreshReport()
  14. End Sub
  15.  
  16. Private Sub CmdVer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdVer.Click
  17. Cargar()
  18. End Sub

De esta manera podremos visualizar un reporte en un Winforms.

nos vemos.

]]> http://geoavila.com/enviar-parametro-a-reporting-services-vbnet/feed/ 9 Saber serial del Disco Duro en Vb.net ‘05 http://geoavila.com/saber-serial-del-disco-duro-en-vbnet-05/ http://geoavila.com/saber-serial-del-disco-duro-en-vbnet-05/#comments Fri, 15 Jun 2007 21:41:16 +0000 GeoAvila http://geoavila.com/?p=63 En este ejemplo usando las funciones proporcionadas por "Imports System.Management"(Win32_DiskDrive,Win32_PhysicalMedia) , se muestran el tipo el modelo y el Serial del disco Duro, les dejo el link

Ejemplo Serial HDD

foto HDD

Nos vemos espero les sirva.

]]> http://geoavila.com/saber-serial-del-disco-duro-en-vbnet-05/feed/ 2