Ultimas publicaciones
Eventos arriba/abajo del MouseWheel

Saludos,
Para agregar eventos con la rueda de nuestro mouse a un windows form, debemos utlizar el siguiente fragmento de código:

Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta > 0 Then
Trace.WriteLine("Scroll hacia arriba!")
Else
Trace.WriteLine("Scroll hacia abajo!")
End If
End Sub

Espero este aporte haya sido de su utilidad.

Seguir leyendo

Escribir en Archivo de Texto - Vb.net

El siguiente código, nos permite crear o agregar contenido a un archivo de texto:
Dim strFile As String = "NombredelArchivodeTexto.txt"
Dim sw As StreamWriter
Try
If (Not File.Exists(strFile)) Then
sw = File.CreateText(strFile)
sw.WriteLine("El archivo de texto inicia aquí")
Else
sw = File.AppendText(strFile)
End If
sw.WriteLine("Texto agregado el: " & DateTime.Now)
sw.Close()
Catch ex As IOException
MsgBox("Error - No se puedo escribir en el archivo de texto.")
End Try

Seguir leyendo

Contar columna de un datagridview según su valor

Establecer el index de la columna que se desea contar
Dim x As Integer = 4
Se coloca el valor en un label
Label1.Text = "Total: " & (From Rows In MyDataGridView.Rows.Cast(Of DataGridViewRow)() Where Not Rows.IsNewRow AndAlso Rows.Cells(x).Value.ToString = "OPEN").Count

Seguir leyendo

Deshabilitar MouseWheel (Scroll) en un Combobox

Para prevenir el scroll en un combobox mientras nos movemos dentro de un formulario debemos utilizar el siguiente código:

Private Sub Combobox1_MouseWheel(sender As Object, e As MouseEventArgs) Handles Combobox1.MouseWheel
Dim HMEA As HandledMouseEventArgs = DirectCast(e, HandledMouseEventArgs)
HMEA.Handled = True
End Sub

Seguir leyendo

Cambiar formato de fecha en un datetimepicker

DateTimePicker1.Format = DateTimePickerFormat.Custom
DateTimePicker1.CustomFormat = "yyyy/MM/dd"
El fragmento de código anterior se debe colocar en el load del formulario o cualquier otro sub proceso y mostrará la fecha en formato: 2020/01/20.

Seguir leyendo

Obtener información del sistema

Nombre de usuario:
System.Security.Principal.WindowsIdentity.GetCurrent.Name
Nombre de la PC:
Environment.MachineName
Nombre de la aplicación:
My.Application.Info.AssemblyName

Seguir leyendo

Ajustar el contenido de las columnas al tamaño del DataGridView

El siguiente código ajusta el tamaño de las columnas de tal forma que no van a quedar espacios al lado derecho del DataGridView

myDataGridView.AutoSizeColumnsMode = DataGridViewAutoSizeColumnMode.Fill


Seguir leyendo

Centrar encabezado y contenido de una columna en un DataGridView

El siguiente fragmento de código se puede utilizar para centrar el Header (encabezado):

myDatagridview.Columns("Nombre de la Columna").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
Para centrar el contenido de la columna usar el siguiente código:
myDatagridview.Columns(número de la columna).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

De forma adicional se recuerda las diferentes formas de alineación:
BottomCenter --> Abajo al centro
BottomLeft --> Abajo a la Izquierda
BottomRight --> Abajo a la Derecha
MiddleCenter --> En medio al centro
MiddleLeft --> En medio a la izquierda
MiddleRight --> En medio a la derecha
NotSet --> Ninguna alineación
TopCenter --> Arriba al centro
TopLeft --> Arriba a la izquierda
TopRight --> Arriba a la derecha

Seguir leyendo

Sumar los valores de una columna en un DataGridView

La siguiente función se encargará de obtener el total de una columna y pasar el resultado a un textbox

Dim Total As Single
Dim Col As Integer=Me.DataGridView1.CurrentCell.ColumnIndex
For Each row As DataGridViewRow In Me.DataGridView1.Rows<
Total += Val(row.Cells(Col).Value)
Next


//Pasando el resultado al textbox
Me.TextBox1.Text = Total.ToString

Seguir leyendo

Iniciar Sesión

Por favor complete sus credenciales de inicio de sesión.

¿Olvidó su contraseña?
Entradas por categoría:
C# (1)
C++ (10)
Java (3)
Vb.net (9)
Entradas por Fecha:
2020-8 (2)
2020-7 (10)
2020-4 (1)
2020-2 (1)
2020-1 (5)
2021-7 (1)
2021-6 (3)