Entradas

Mostrando entradas de octubre, 2014

Copiar contenido de la papelera en celdas del Datagridview

Imagen
Hola programadores, al igual como habia hecho hace algun tiempo el  Copiar Contenido de Datagridview al portapapeles ----> http://jossm03.blogspot.com/2012/06/copiar-contenido-datagridview-al.html  Ahora hago todo lo contrario es decir  copiar de celdas ya sean de Access o Excel y pegarlas en  la Datagridview. Ademas al ejemplo le incluyo algunas funciones o trucos básicos del DatagridView para contar filas,numerar filas fijas, menú popup(menu con clik derecho), etc. Mi captura en modo diseño Imports System.Text.RegularExpressions Public Class Form1     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         '  migrid.Rows.Add(numfilas.Value)         Try             migrid.Rows.Add(200)   ' agrego 200 filas         Catch ex As Exception             MsgBox(ex.ToString())     ' controlo excepciones         End Try     End Sub     Public Sub pegar()         Try             Dim o As DataObject = DirectCast(Clipbo

Menu check con barra de estado

Imagen
Hola amigos  programadores, hace buen tiempo que me ausente verdad?... Bueno ahora les traigo un pequeño articulo que sin duda, algunos diran yo si lo he visto, etc y casi insignificante, sin embargo en otros casos necesariamente es muy importante, poder controlar con un check la barra de estado(StatuStrip) al estilo de internet explorer. y activar y desactivar de acuerdo a lo requerido. El ejemplo se basa en usar los controles de menu de VS(Visual estudio) y el StatusStrip  y haciendo uso de la memoria poder grabar la propiedad Checked para que cuando se inicia la aplicación quede como la habíamos dejado por ultima vez. Necesitamos los controles vistos en esta captura: El código que le sigue:  Private Sub BarraDeEstadoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Estado.Click         Estado.CheckOnClick() = True  ' cambia el estado del checked         If Estado.Checked = True Then             Barraestado.Visible = True         ElseIf Es