Obtener Unidades Con vb-File system Drives
Hola a todos, siempre hemos querido hacer un control personalizado para guardar nuestros datos. Pues aqui te dejo un codigo que seguro que te gustará.
Más que contenido para programadores
Hola a todos, siempre hemos querido hacer un control personalizado para guardar nuestros datos. Pues aqui te dejo un codigo que seguro que te gustará.
Hola a todos. Bueno aqui os traigo un poco de codigo para saber si el dispositivo que esta conectado a nuestra web es un movil o no.
El codigo que aqui pongo esta en la siguiente URL por si quereis ver el ejemplo en vuestros moviles. Con clic AQUI te manda a la URL y si no este es el enlace.
http://soulsmakers.com/Ejemplos/EsMovil.aspx (Recuerda respetar las mayusculas y las minusculas)
si bien el codigo es sencillo.
hago un copy paste tal cual esta.
1 2 3 4 5 6 7 8 9 |
Dim style = "None" If Request.Browser.IsMobileDevice = True Then style = "Suift" End If Me.Response.Write("<div id=" & style & ">Navegador:" & Request.Browser.Browser & "</div></br>") Me.Response.Write("<div id=" & style & ">EsMovil:" & Request.Browser.IsMobileDevice & "</div></br>") Me.Response.Write("<div id=" & style & ">Modelo:" & Request.Browser.MobileDeviceModel & "</div></br>") Me.Response.Write("<div id=" & style & ">Plataforma:" & Request.Browser.Platform & "</div></br>") Me.Response.Write("<div id=" & style & ">User Agent:" & Request.UserAgent & "</div></br>") |
Quiero aclarar que suift es un style (estilo) dentro del form, de tal manera que si es movil incremento el tamaño de letra.
en mi caso el resultado es el siguiente
Hola a todos, aqui os traigo el ejemplo de como obtener el color de un pixel.
Para este ejemplo , necesitamos 2 picturebox y una imagen.
el primer picturebox, cargaremos la imagen de la cual vamos a recoger el color y en el segundo picturebox mostramos el color que tenemos debajo del cursor del raton al pasar por encima el primer picturebox.
Para ello vamos a utilizar el evento de picturebox.mouse move y añadimos el siguiente codigo.
1 2 3 4 |
Dim b As Bitmap = Me.PictureBox1.Image 'Cogemos la imagen del picturebox y la pasamos a un bitmap Me.Label2.Text = b.GetPixel(e.X, e.Y).ToString 'cogemos el pixel indicado por el mouse y mostramos e argb Me.Label4.Text = Hex(b.GetPixel(e.X, e.Y).ToArgb) 'Convertimos a Hexadecimal el argb que es un numero entero Me.PictureBox2.BackColor = Color.FromArgb(b.GetPixel(e.X, e.Y).ToArgb) 'a el segundo bitmap le ponemos el color |
Si quieres el codigo completo pincha aqui, VS2012
Espero que os sirva un saludo