Ultimas publicaciones
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

El objetivo principal de este blog es proveer soluciones a las personas que se encuentran aprendiendo diversos lenguajes de programación.
Además se incluyen soluciones para la instalación de software para mantenimiento de nuestros equipos.
Si desea participar como colaborador y publicar contenido, puede comunicarse al correo: sac@admramsa.com. Será un gusto contar con su colaboración.