Hola a todos.
Aqui os traigo una funcion muy util para convertir los datos de un datatable a un objeto JSON de JavaScript.
Este ejemplo lo he reailzado en un WebService
VB
Activar webcam con silverlight visual basic net
Hola a todos, aqui el ejemplo de como activar la webcam a traves de Silverlight.
Yo como no poseo webcam he descargado SplitCam para simular una webcam y poder realizar este ejemplo.
Bien vamos a el ejemplo:
Rotar una imagen winforms vb net
Hola a todos, en este post vamos a ver un brebe ejemplo de como rotar una imgen en un picturebox.
Para ello vamos a crear un nuevo proyecto , y vamo a añadir un control picturebox, y 2 botones
En el load del form, asignamos la imagen a el picturebox de la siguiente forma.
|
1 2 3 4 5 |
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim Bm As New Bitmap("C:\Imagen3.jpg") Me.PictureBox1.Image = Bm Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage End Sub |
Ahora vamos con el boton2 rotor a la derecha. que es 90º y lo hacemos de la siguiente manera.
|
1 2 3 4 5 |
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim bm As Bitmap = PictureBox1.Image bm.RotateFlip(RotateFlipType.Rotate90FlipNone) Me.PictureBox1.Image = bm End Sub |
Ahora a la izquierda que son 270º, aqui el codigo.
|
1 2 3 4 5 |
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim bm As Bitmap = PictureBox1.Image bm.RotateFlip(RotateFlipType.Rotate270FlipNone) Me.PictureBox1.Image = bm End Sub |
Bueno hasta aqui el ejemplo de rotacion de imagen, como veras hay mas opciones de rotacion, como voltear completamente la imagen etc,etc ,etc.
Espero que os sirva, un saludo a todos, y siguenos en twitter Facebook y Google+.
Como hacer que una aplicacion inicie al iniciar windows vb net
Hola a todos.
Bueno aqui os pongo el breve ejemplo de como iniciar una aplicacion al iniciar windows, la cosa va a ser muy muy simple.
Para ello creamos un checkbox. de tal forma que nos quede algo parecido a esto.
ahora nos vamos a informacion del esamblado y le damos un nombre a nuestra aplicacion para que este sea el nombre que se guarde en el registro
Leer másComo hacer que una aplicacion inicie al iniciar windows vb net
Convertir datos de Json a Datatable en visual basic .net vb
Hola a todos
Aqui os traigo el ejemplo de como desserializar los datos de json y convertirlos a un datatable.
Bien vamos con el codigo
“V” son los datos recibidos por el webservice. ver post de JSON A DATATABLE
Asi que ahora lo que hacemos es la declaracion de la desserialización, y donde nos retornara los datos, este objeto sera de tipo lista con diccionario, igual que cuando serializamos.
Leer másConvertir datos de Json a Datatable en visual basic .net vb
Ejemplo de Tooltip en visual basic .net vb
Hola a todos,
aqui un ejemplo de como usar el tooltip de .net
Para ello he creado en un formulario, varios controles, 3 , 1 boton, 1 checkbox, y 1 progresbar., y he arrastado un control tooltip.
Ejemplo de RichTextBox vb net
Hola a todos
Aqui un ejemplo de como utilizar el RichTextBox de Winform en vb.net
Para ello empezaremos por crear 1 formulario , 7 botones y una caja de RichTextBox. de tal forma que nos quede algo asi
Ahora vamos a empezar con el primer boton, para seleccionar la fuente.
|
1 2 3 4 5 |
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim f As New FontDialog f.ShowDialog() Me.RichTextBox1.SelectionFont = f.Font End Sub |
Seguimos con los botones 2, 3 y 4 que seran para la alineación .
|
1 2 3 4 5 6 7 8 9 10 11 |
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Left End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Center End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Right End Sub |
Ahora el boton5 para el color,
|
1 2 3 4 5 |
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Dim c As New ColorDialog c.ShowDialog() Me.RichTextBox1.SelectionColor = c.Color End Sub |
Y por ultimo los botones 6 y 7, el cual nos muestra los datos sobre el richtextbox que los guarda en un String, y el siguiente lo volvera a cargar.
|
1 2 3 4 5 |
Dim Datos As String Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click MsgBox(Me.RichTextBox1.Rtf) Datos = Me.RichTextBox1.Rtf End Sub |
|
1 2 3 |
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Me.RichTextBox1.Rtf = Datos End Sub |
Ahora todo el codigo seguido.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
Public Class Form1 Dim Datos As String Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim f As New FontDialog f.ShowDialog() Me.RichTextBox1.SelectionFont = f.Font End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Dim c As New ColorDialog c.ShowDialog() Me.RichTextBox1.SelectionColor = c.Color End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Left End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Center End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Right End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click MsgBox(Me.RichTextBox1.Rtf) Datos = Me.RichTextBox1.Rtf End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Me.RichTextBox1.Rtf = Datos End Sub End Class |
Espero que os sirva el ejemplo, un saludo a todos. y ya saben , comenten, siguenos en twitter,Facebook y Google+
Si quieres ver el video pincha aqui
Crear y heredar un formulario winform
Hola a todos.
Para realizar este ejemplo haremos lo siguiente, creamos un nuevo proyecto de Libreria de Clases.
1 Crear una dll con 1 formulario, 1 Propiedad y un Boton, de tal manera que nos quede algo asi.
y dentro del codigo escribimos lo siguiente.
Para la propiedad y Para el Boton
|
1 2 3 4 5 6 7 8 9 |
Public Property TEXTO As String Private Sub MiPantalla_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click MsgBox(TEXTO) End Sub |
Nos queda el formulario en 1 DLL cuando compilemos.
Añadir un form dentro de otro form vb net
Hola a todos,
En este ejemplo vamos a ver como añadir un formulario a otro formulario
Padre e hijo.
Lo primero que debemos hacer es crear un nuevo proyecto.
Y crear un formulario al que llamamos Padre.
En las propiedades del padre, buscamos la propiedad IsMDIParent y la establecemos a True
con lo que veremos que el fondo del formulario cambiara de color.
Ahora crearemos otro formulario al que llamamos hijo.
y le pintamos por ejemplo un boton.
Ahora en el padre Añade un SplitContainer y un boton de tal manera que quede algo asi.
y en el evento clic del boton del padre ponemos lo siguiente,
Public Class Padre