Blog de programación
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.
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
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
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
DateTimePicker1.Format = DateTimePickerFormat.Custom
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.
DateTimePicker1.CustomFormat = "yyyy/MM/dd"
Nombre de usuario:
System.Security.Principal.WindowsIdentity.GetCurrent.Name
Nombre de la PC:
Environment.MachineName
Nombre de la aplicación:
My.Application.Info.AssemblyName
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
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
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