Home      Search

Private Sub cboColor_DrawItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cmbColor.DrawItem Select Case e.Index Case 0 'Blanco e.Graphics.FillRectangle(Brushes.White, e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height) Case 1 'azul e.Graphics.FillRectangle(Brushes.LightCyan, e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height) Case 2 'amarillo e.Graphics.FillRectangle(Brushes.Yellow, e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height) Case 3 'rosa e.Graphics.FillRectangle(Brushes.LightPink, e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height) Case 4 'gris e.Graphics.FillRectangle(Brushes.LightGray, e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height) Case 5 'naranja e.Graphics.FillRectangle(Brushes.Orange, e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height) Case 6 'verde claro e.Graphics.FillRectangle(Brushes.LightGreen, e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height) Case 7 'salmón e.Graphics.FillRectangle(Brushes.Salmon, e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height) Case 8 'rojo e.Graphics.FillRectangle(Brushes.Red, e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height) End Select End Sub	Colorear el fondo de los elementos de un combo en un winform Uploaded on  4/28/2007 12:00:00 AM Programming Language: Visual Basic .NET By: vela See more code snippets of vela .net  visual basic
Dim imagen, miniatura As Image Dim datosBlob() As Byte datosBlob = CType(dataset_imagen.Tables(0).Rows(e.Item.ItemIndex)("campo_blob_que_contiene_la_imagen"), Byte()) Dim imagenmemoria As MemoryStream imagenmemoria = New MemoryStream(datosBlob) imagen = Image.FromStream(imagenmemoria) Dim nuevoAlto As Integer Dim nuevoAncho As Integer If imagen.Height > imagen.Width Then nuevoAlto = 80 nuevoAncho = (imagen.Width * 80) / imagen.Height Else nuevoAncho = 80 nuevoAlto = (imagen.Height * 80) / imagen.Width End If miniatura = New Bitmap(nuevoAncho, nuevoAlto, imagen.PixelFormat) Dim grafico As Graphics = Graphics.FromImage(miniatura) grafico.CompositingQuality = Drawing2D.CompositingQuality.HighQuality grafico.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic Dim rectangulo As Rectangle rectangulo = New Rectangle(0, 0, nuevoAncho, nuevoAlto) grafico.DrawImage(imagen, rectangulo) miniatura.Save(path_en_disco, Imaging.ImageFormat.Jpeg)	Almacenar una imagen en disco procedente de una base de datos Uploaded on  4/28/2007 12:00:00 AM Programming Language: Visual Basic .NET By: vela See more code snippets of vela .net  visual basic
System.IO.MemoryStream ms = new System.IO.MemoryStream(buffer); System.Drawing.Bitmap b = (System.Drawing.Bitmap)Image.FromStream(ms); b.Save("ficherito.png", System.Drawing.Imaging.ImageFormat.Png);	Pasar un flujo de bytes a un fichero almacenado en disco Uploaded on  4/28/2007 12:00:00 AM Programming Language: c# By: vela See more code snippets of vela .net  c#
txtEjemplo.Attributes.Add("onkeydown", "if(event.which || event.keyCode){if ((event.which == 13) || (event.keyCode == 13)) {document.getElementById('" + cmdBoton.ClientID + "').click();return false;}} else {return true}; ");	Programar el evento "onkeydown" de una caja de texto en un webform Uploaded on  4/28/2007 12:00:00 AM Programming Language: c# By: vela See more code snippets of vela .net  c#  javascript
Dim smtp As SmtpClient smtp = New SmtpClient("servidor_de_correo_saliente") Dim mensaje As MailMessage Dim adjuntos As System.Collections.ArrayList adjuntos = New System.Collections.ArrayList() Dim i As Integer For i = 0 To lstFicheros.Items.Count - 1 adjuntos.Add(New Attachment(lstFicheros.Items(i).ToString())) Next mensaje.BodyEncoding = System.Text.Encoding.GetEncoding(1252) mensaje.Subject = "Asunto" mensaje.IsBodyHtml = True If lstFicheros.Items.Count > 0 Then Dim j As Integer For j = 0 To lstFicheros.Items.Count - 1 mensaje.Attachments.Add(CType(adjuntos.Item(j), Attachment)) Next End If smtp.Send(mensaje)	Crear un correo electrónico con ficheros adjuntos Uploaded on  4/29/2007 12:00:00 AM Programming Language: visual basic .net By: vela See more code snippets of vela .net  email  visual basic
1 2 3 4 ...