Mensajes

[explorer.exe]

Nada me dijo que se completo satisfactoriamente pero nada reinicie y no está... probaré de nuevo a ver..

1. ¿Te has asegurado que se ha eliminado y no lo tienes oculto en el mismo directorio?.

2. Haz una búsqueda del archivo explorer.exe en el directorio C:\Windows\WinSXS, desde ahí puedes restaurarlo (copy/paste), aunque por otro lado, si has seguido las indicaciones que te comentaron arriba sobrre utilizar el comando SFC, dicho comando debería haber restaurado la copia original del explorer.exe desde el directorio WinSXS, pero bueno, prueba a hacerlo de forma manual.

Saludos

Bueno, aquí tienes una versión (más) mejorada y completa de este Control, puedes personalizarlo de la manera que quieras para tus intenciones...

   



Source:
https://www.mediafire.com/?0webv666y7h6b8u

Saludos.

[OFFTOPIC]
xDDD no se podrá quejar con tanta libertad de elección...
[/OFFTOPIC]

Saludos

En Batch:

Código (dos) [Seleccionar] Expandir

@Echo OFF

(
For /F "UseBackQ Tokens=1,* Delims=," %%a In ("Archivo.txt") Do (
If "%%~a" EQU "1" (
Set "Header=%%a,%%b"
) Else (
Call Echo %%Header%% %%a,%%b
)
)
)>".\Nuevo.txt"

Pause&Exit /B 0

Saludos

[Está prohibido el doble post.Lee las normas del foro, por favor.]

@MHMC777:
Está prohibido el doble post.
Lee las normas del foro, por favor.



Buenas

Me he interesado bastante por el problema que tienes hasta el punto de tomarme la molestia en crear un user-control bastante configurable... ya que realmente me pareció una tarea interesante para pasar el rato xD, el control tiene transparencia (bueno, la basura transparente que ofrece WinForms), se puede elegir entre 3 diseños: Círculo, Triángulo, o Cuadrado/Rectángulo, y por supuesto se puede mover/arrastrar el control al hacer click sobre él, como veo que que las figuras de tu imagen son del mismo tamaño he supuesto que no necesitas redimensionar el control en tiempo de ejecución (aunque es algo fácil de llevar a cabo).

Aquí tienes una demo de las funcionalidades que le añadí a este control:
[youtube=640,360]https://www.youtube.com/watch?v=g8-b9GDZ_WQ[/youtube]

Por cierto el color de fondo del control (dentro del círculo/cuadrado) lo puedes poner en Transparente (Color.Transparent), se me olvidó mostrarlo en el video-demostración.



El control de usuario lo he desarrollado en VB.Net, puedes referenciar la Class desde C#, puedes compilarlo en un .dll para usarlo en C#, o también puedes convertirlo a C# usando algún conversor online (ej: Telerik converter).

Espero que te sirva, el source:
EDITO: Versión mejorada con un pequeño fallo corregido...

Código (vbnet) [Seleccionar] Expandir

' ***********************************************************************
' Author           : Elektro
' Last Modified On : 11-09-2014
' ***********************************************************************
' <copyright file="ElektroShape.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' ***********************************************************************

#Region " Imports "

Imports System.ComponentModel
Imports System.Drawing.Drawing2D
Imports System.Drawing.Text

#End Region

''' <summary>
''' A custom shape control.
''' </summary>
Public Class ElektroShape : Inherits Control

#Region " Properties "

#Region " Visible "

   ''' <summary>
   ''' Gets the default size of the control.
   ''' </summary>
   ''' <value>The default size.</value>
   Protected Overrides ReadOnly Property DefaultSize As Size
       Get
           Return New Size(100I, 100I)
       End Get
   End Property

   ''' <summary>
   ''' Gets or sets the shape figure.
   ''' </summary>
   ''' <value>The shape figure.</value>
   <Browsable(True)>
   <EditorBrowsable(EditorBrowsableState.Always)>
   <Category("Figure")>
   <Description("Indicates the shape figure.")>
   Public Property Figure As Figures
       Get
           Return Me._Figure
       End Get
       Set(ByVal value As Figures)
           Me._Figure = value
           MyBase.Refresh()
       End Set
   End Property
   ''' <summary>
   ''' The shape figure.
   ''' </summary>
   Private _Figure As Figures = Figures.Circle

   ''' <summary>
   ''' Gets or sets a value indicating whether this <see cref="ElektroShape"/> is draggable.
   ''' </summary>
   ''' <value><c>true</c> if draggable; otherwise, <c>false</c>.</value>
   <Browsable(True)>
   <EditorBrowsable(EditorBrowsableState.Always)>
   <Category("Figure")>
   <Description("Determines whether this control is draggable.")>
   Public Property Draggable As Boolean
       Get
           Return Me._Draggable
       End Get
       Set(ByVal value As Boolean)
           Me._Draggable = value
       End Set
   End Property
   ''' <summary>
   ''' A value indicating whether this <see cref="ElektroShape"/> is draggable.
   ''' </summary>
   Private _Draggable As Boolean = False

   ''' <summary>
   ''' Gets or sets the inner color of this <see cref="ElektroShape"/>.
   ''' </summary>
   ''' <value>The inner color of this <see cref="ElektroShape"/>.</value>
   <Browsable(True)>
   <EditorBrowsable(EditorBrowsableState.Always)>
   <Category("Figure")>
   <Description("The inner color of this shape.")>
   Public Property InnerColor As Color
       Get
           Return Me._InnerColor
       End Get
       Set(ByVal value As Color)
           Me._InnerColor = value
           MyBase.Refresh()
       End Set
   End Property
   ''' <summary>
   ''' The inner color of this <see cref="ElektroShape"/>.
   ''' </summary>
   Private _InnerColor As Color = Control.DefaultBackColor

   ''' <summary>
   ''' Gets or sets the border color of this <see cref="ElektroShape"/>.
   ''' </summary>
   ''' <value>The border color of this <see cref="ElektroShape"/>.</value>
   ''' <PermissionSet>
   '''   <IPermission class="System.Security.Permissions.FileIOPermission, mscorlib, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" version="1" Unrestricted="true"/>
   ''' </PermissionSet>
   <Browsable(True)>
   <EditorBrowsable(EditorBrowsableState.Always)>
   <Category("Figure")>
   <Description("The border color of this shape.")>
   Public Property BorderColor As Color
       Get
           Return Me._BorderColor
       End Get
       Set(ByVal value As Color)
           Me._BorderColor = value
           Me.DoPaint()
       End Set
   End Property
   ''' <summary>
   ''' The border color of this <see cref="ElektroShape"/>.
   ''' </summary>
   Private _BorderColor As Color = Control.DefaultForeColor

   ''' <summary>
   ''' Gets or sets the border width of this <see cref="ElektroShape"/>.
   ''' </summary>
   ''' <value>The border width of this <see cref="ElektroShape"/>.</value>
   <Browsable(True)>
   <EditorBrowsable(EditorBrowsableState.Always)>
   <Category("Figure")>
   <Description("The border width of this figure.")>
   Public Property BorderWidth As Integer
       Get
           Return Me._BorderWidth
       End Get
       Set(ByVal value As Integer)
           Me._BorderWidth = value
           Me.DoPaint()
       End Set
   End Property
   ''' <summary>
   ''' The border width of the this <see cref="ElektroShape"/>.
   ''' </summary>
   Private _BorderWidth As Integer = 5I

   ''' <summary>
   ''' Gets or sets the interpolation mode of this <see cref="ElektroShape"/>.
   ''' </summary>
   ''' <value>The circle's interpolation mode.</value>
   <Browsable(True)>
   <EditorBrowsable(EditorBrowsableState.Always)>
   <Category("Quality")>
   <Description("The interpolation mode of this shape.")>
   Public Property InterpolationMode As InterpolationMode
       Get
           Return Me._InterpolationMode
       End Get
       Set(ByVal value As InterpolationMode)
           Me._InterpolationMode = value
           Me.DoPaint()
       End Set
   End Property
   ''' <summary>
   ''' The interpolation mode of this <see cref="ElektroShape"/>.
   ''' </summary>
   Private _InterpolationMode As InterpolationMode = Drawing2D.InterpolationMode.Default

   ''' <summary>
   ''' Gets or set a value specifying how pixels are offset during rendering this <see cref="ElektroShape"/>.
   ''' </summary>
   ''' <value>The circle's pixel offset mode.</value>
   <Browsable(True)>
   <EditorBrowsable(EditorBrowsableState.Always)>
   <Category("Quality")>
   <Description("A value specifying how pixels are offset during rendering this shape.")>
   Public Property PixelOffsetMode As PixelOffsetMode
       Get
           Return Me._PixelOffsetMode
       End Get
       Set(ByVal value As PixelOffsetMode)
           Me._PixelOffsetMode = value
           Me.DoPaint()
       End Set
   End Property
   ''' <summary>
   ''' A value specifying how pixels are offset during rendering this <see cref="ElektroShape"/>.
   ''' </summary>
   Private _PixelOffsetMode As PixelOffsetMode = Drawing2D.PixelOffsetMode.Default

   ''' <summary>
   ''' Gets or sets the rendering quality of this <see cref="ElektroShape"/>.
   ''' </summary>
   ''' <value>The circle's smoothing mode.</value>
   <Browsable(True)>
   <EditorBrowsable(EditorBrowsableState.Always)>
   <Category("Quality")>
   <Description("The rendering quality of this shape.")>
   Public Property SmoothingMode As SmoothingMode
       Get
           Return Me._SmoothingMode
       End Get
       Set(ByVal value As SmoothingMode)
           Me._SmoothingMode = value
           Me.DoPaint()
       End Set
   End Property
   ''' <summary>
   ''' The rendering quality of this <see cref="ElektroShape"/>.
   ''' </summary>
   Private _SmoothingMode As SmoothingMode = Drawing2D.SmoothingMode.Default

#End Region

#Region " Hidden "

   ''' <summary>
   ''' Gets or sets the background color of the control.
   ''' </summary>
   ''' <value>The background color of the control.</value>
   ''' <PermissionSet>
   '''   <IPermission class="System.Security.Permissions.FileIOPermission, mscorlib, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" version="1" Unrestricted="true" />
   ''' </PermissionSet>
   <Browsable(False)>
   <EditorBrowsable(EditorBrowsableState.Never)>
   <Bindable(False)>
   <DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>
   <Description("The background color of the control.")>
   Public Overrides Property BackColor() As Color
       Get
           Dim currentColor As Color = Color.White
           If MyBase.Parent IsNot Nothing Then
               currentColor = MyBase.Parent.BackColor
           End If
           Return currentColor
       End Get
       Set(ByVal Value As Color)
           MyBase.BackColor = Value
       End Set
   End Property

   ''' <summary>
   ''' Gets or sets the foreground color of the control.
   ''' </summary>
   ''' <value>The foreground color of the control.</value>
   ''' <PermissionSet>
   '''   <IPermission class="System.Security.Permissions.FileIOPermission, mscorlib, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" version="1" Unrestricted="true" />
   ''' </PermissionSet>
   <Browsable(False)>
   <EditorBrowsable(EditorBrowsableState.Never)>
   <Bindable(False)>
   <DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>
   <Description("The foreground color of the control.")>
   Public Overrides Property ForeColor As Color
       Get
           Return MyBase.ForeColor
       End Get
       Set(ByVal value As Color)
           MyBase.ForeColor = value
       End Set
   End Property

   ''' <summary>
   ''' Gets or sets the text associated with this control.
   ''' </summary>
   ''' <value>The text associated with this control.</value>
   <Browsable(False)>
   <EditorBrowsable(EditorBrowsableState.Never)>
   <Bindable(False)>
   <DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>
   <Category("Figure")>
   <Description("The text associated with this control.")>
   Public Overrides Property Text As String
       Get
           Return MyBase.Text
       End Get
       Set(value As String)
           MyBase.Text = value
       End Set
   End Property

   ''' <summary>
   ''' Gets or sets the rendering mode for text associated with this <see cref="ElektroShape"/>.
   ''' </summary>
   ''' <value>The circle's text rendering hint.</value>
   <Browsable(False)>
   <EditorBrowsable(EditorBrowsableState.Never)>
   <Category("Quality")>
   <Description("The rendering mode for text associated with this control.")>
   Public Property TextRenderingHint As TextRenderingHint
       Get
           Return Me._TextRenderingHint
       End Get
       Set(ByVal value As TextRenderingHint)
           Me._TextRenderingHint = value
           Me.DoPaint()
       End Set
   End Property
   ''' <summary>
   ''' The rendering mode for text associated with this <see cref="ElektroShape"/>.
   ''' </summary>
   Private _TextRenderingHint As TextRenderingHint = Drawing.Text.TextRenderingHint.SystemDefault

#End Region

#End Region

#Region " Miscellaneous Objects "

   ''' <summary>
   ''' The draggable information to drag the control.
   ''' </summary>
   Private Property draggableInfo As DragInfo = DragInfo.Empty

#End Region

#Region " Enumerations "

   ''' <summary>
   ''' Contains the default figure designs.
   ''' </summary>
   Public Enum Figures As Integer

       ''' <summary>
       ''' Circle figure.
       ''' </summary>
       Circle = 0I

       ''' <summary>
       ''' Square figure.
       ''' </summary>
       Square = 1I

       ''' <summary>
       ''' Triangle figure.
       ''' </summary>
       Triangle = 2I

   End Enum

#End Region

#Region " Types "

   ''' <summary>
   ''' Maintains information about a draggable operation.
   ''' </summary>
   Private NotInheritable Class DragInfo

#Region " Properties "

       ''' <summary>
       ''' Gets or sets the initial mouse coordinates.
       ''' </summary>
       ''' <value>The initial mouse coordinates.</value>
       Friend Property InitialMouseCoords As Point = Point.Empty

       ''' <summary>
       ''' Gets or sets the initial location.
       ''' </summary>
       ''' <value>The initial location.</value>
       Friend Property InitialLocation As Point = Point.Empty

       ''' <summary>
       ''' Represents a <see cref="T:DragInfo"/> that is <c>Nothing</c>.
       ''' </summary>
       ''' <value><c>Nothing</c></value>
       Friend Shared ReadOnly Property Empty As DragInfo
           Get
               Return Nothing
           End Get
       End Property

#End Region

#Region " Constructors "

       ''' <summary>
       ''' Initializes a new instance of the <see cref="DragInfo"/> class.
       ''' </summary>
       ''' <param name="mouseCoordinates">The current mouse coordinates.</param>
       ''' <param name="location">The current location.</param>
       Public Sub New(ByVal mouseCoordinates As Point, ByVal location As Point)

           Me.InitialMouseCoords = mouseCoordinates
           Me.InitialLocation = location

       End Sub

#End Region

#Region " Public Methods "

       ''' <summary>
       ''' Return the new location.
       ''' </summary>
       ''' <param name="mouseCoordinates">The current mouse coordinates.</param>
       ''' <returns>The new location.</returns>
       Public Function NewLocation(ByVal mouseCoordinates As Point) As Point

           Return New Point(InitialLocation.X + (mouseCoordinates.X - InitialMouseCoords.X),
                            InitialLocation.Y + (mouseCoordinates.Y - InitialMouseCoords.Y))

       End Function

#End Region

   End Class

#End Region

#Region " Constructors "

   ''' <summary>
   ''' Initializes a new instance of the <see cref="ElektroShape"/> class.
   ''' </summary>
   Private Sub New()

       Me.New(Figures.Circle)

   End Sub

   ''' <summary>
   ''' Initializes a new instance of the <see cref="ElektroShape"/> class.
   ''' </summary>
   ''' <param name="figure">The shape figure.</param>
   Public Sub New(ByVal figure As Figures)

       With Me
           .DoubleBuffered = True
           _Figure = figure
       End With

   End Sub

#End Region

#Region " Overriden Events "

   ''' <summary>
   ''' Raises the <see cref="E:System.Windows.Forms.Control.MouseDown"/> event.
   ''' </summary>
   ''' <param name="e">A <see cref="T:System.Windows.Forms.MouseEventArgs"/> that contains the event data.</param>
   Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)

       MyBase.OnMouseDown(e)
       Me.StartDrag()

   End Sub

   ''' <summary>
   ''' Raises the <see cref="E:System.Windows.Forms.Control.MouseMove"/> event.
   ''' </summary>
   ''' <param name="e">A <see cref="T:System.Windows.Forms.MouseEventArgs"/> that contains the event data.</param>
   Protected Overrides Sub OnMouseMove(e As MouseEventArgs)

       MyBase.OnMouseMove(e)
       Me.Drag()

   End Sub

   ''' <summary>
   ''' Raises the <see cref="E:System.Windows.Forms.Control.MouseUp"/> event.
   ''' </summary>
   ''' <param name="e">A <see cref="T:System.Windows.Forms.MouseEventArgs"/> that contains the event data.</param>
   Protected Overrides Sub OnMouseUp(e As MouseEventArgs)

       MyBase.OnMouseUp(e)
       Me.StopDrag()

   End Sub

   ''' <summary>
   ''' Raises the <see cref="E:System.Windows.Forms.Control.Paint"/> event.
   ''' </summary>
   ''' <param name="e">A <see cref="T:System.Windows.Forms.PaintEventArgs"/> that contains the event data.</param>
   Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)

       With e.Graphics

           .InterpolationMode = Me._InterpolationMode
           .PixelOffsetMode = Me._PixelOffsetMode
           .SmoothingMode = Me._SmoothingMode
           ' .TextRenderingHint = Me._TextRenderingHint

           Select Case Me._Figure

               Case Figures.Circle
                   Me.DrawCircle(e.Graphics)

               Case Figures.Square
                   Me.DrawSquare(e.Graphics)

               Case Figures.Triangle
                   Me.DrawTriangle(e.Graphics)

           End Select ' Me._Figure

       End With ' e.Graphics

       MyBase.OnPaint(e)

   End Sub

#End Region

#Region " Private Methods "

#Region " Drag "

   ''' <summary>
   ''' Initializes a drag operation.
   ''' </summary>
   Private Sub StartDrag()

       If (Me._Draggable) Then

           Me.draggableInfo = New DragInfo(MousePosition, MyBase.Location)

       End If

   End Sub

   ''' <summary>
   ''' Drags the control.
   ''' </summary>
   Private Sub Drag()

       If (Me._Draggable) AndAlso (Me.draggableInfo IsNot DragInfo.Empty) Then

           MyBase.Location = New Point(Me.draggableInfo.NewLocation(MousePosition))

       End If

   End Sub

   ''' <summary>
   ''' Destroys a drag operation.
   ''' </summary>
   Private Sub StopDrag()

       Me.draggableInfo = DragInfo.Empty

   End Sub

#End Region

#Region " Paint "

   ''' <summary>
   ''' Raises the <see cref="E:System.Windows.Forms.Control.Paint"/> event for the specified control.
   ''' </summary>
   Private Sub DoPaint()

       Using g As Graphics = MyBase.CreateGraphics
           MyBase.InvokePaint(Me, New PaintEventArgs(g, MyBase.ClientRectangle))
       End Using

   End Sub

   ''' <summary>
   ''' Gets a <see cref="System.Drawing.Rectangle"/> with the bounds fixed according to the specified <see cref="System.Drawing.Pen.Width"/>.
   ''' </summary>
   ''' <param name="pen">The <see cref="System.Drawing.Pen"/>.</param>
   ''' <returns>The <see cref="System.Drawing.Rectangle"/> with the bounds fixed.</returns>
   Private Function GetFigueRectangle(ByVal pen As Pen) As Rectangle

       Return New Rectangle With
                   {
                       .x = 0.0F + (pen.Width / 2.0F),
                       .y = 0.0F + (pen.Width / 2.0F),
                       .width = (CSng(MyBase.Width) - pen.Width),
                       .height = (CSng(MyBase.Height) - pen.Width)
                   }

   End Function

   ''' <summary>
   ''' Draws a circle on the specified <see cref="System.Drawing.Graphics"/> object.
   ''' </summary>
   ''' <param name="g">The <see cref="System.Drawing.Graphics"/> object to paint.</param>
   Private Sub DrawCircle(ByRef g As Graphics)

       With g

           Using pen As New Pen(Me._BorderColor, Me._BorderWidth)

               Dim rect As Rectangle = Me.GetFigueRectangle(pen)

               If Not Me._InnerColor = Color.Transparent Then

                   ' Fill circle background.
                   Using brush As New SolidBrush(Me._InnerColor)
                       .FillEllipse(brush, rect)
                   End Using

               End If ' Not Me._InnerColor = Color.Transparent

               ' Draw the circle figure.
               .DrawEllipse(pen, rect)

           End Using ' pen As New Pen(Me._BorderColor, Me._BorderWidth)

       End With ' g

   End Sub

   ''' <summary>
   ''' Draws an square on the specified <see cref="System.Drawing.Graphics"/> object.
   ''' </summary>
   ''' <param name="g">The <see cref="System.Drawing.Graphics"/> object to paint.</param>
   Private Sub DrawSquare(ByRef g As Graphics)

       With g

           Using pen As New Pen(Me._BorderColor, Me._BorderWidth)

               Dim rect As Rectangle = Me.GetFigueRectangle(pen)

               If Not Me._InnerColor = Color.Transparent Then

                   ' Fill the square background.
                   Using brush As New SolidBrush(Me._InnerColor)
                       .FillRectangle(brush, rect)
                   End Using

               End If ' Not Me._InnerColor = Color.Transparent

               ' Draw the square figure.
               .DrawRectangle(pen, rect)

           End Using ' pen As New Pen(Me._BorderColor, Me._BorderWidth)

       End With ' g

   End Sub

   ''' <summary>
   ''' Draws a triangle on the specified <see cref="System.Drawing.Graphics"/> object.
   ''' </summary>
   ''' <param name="g">The <see cref="System.Drawing.Graphics"/> object to paint.</param>
   Private Sub DrawTriangle(ByRef g As Graphics)

       With g

           Using pen As New Pen(Me._BorderColor, Me._BorderWidth)

               Using path As New GraphicsPath(FillMode.Alternate)

                   Dim rect As Rectangle = MyBase.ClientRectangle

                   ' Set the triangle path coordinates.
                   Dim trianglePoints As PointF() =
                       {
                           New PointF(CSng(rect.Left + CSng(rect.Width / 2.0F)), CSng(rect.Top + pen.Width)),
                           New PointF(CSng(rect.Right - pen.Width), CSng(rect.Bottom - (pen.Width / 2.0F))),
                           New PointF(CSng(rect.Left + pen.Width), CSng(rect.Bottom - (pen.Width / 2.0F))),
                           New PointF(CSng(rect.Left + CSng(rect.Width / 2.0F)), CSng(rect.Top + pen.Width))
                       }

                   path.AddLines(trianglePoints)
                   path.CloseFigure()

                   If Not Me._InnerColor = Color.Transparent Then

                       ' Fill the triangle background.
                       Using brush As New SolidBrush(Me._InnerColor)
                           .FillPath(brush, path)
                       End Using

                   End If ' Not Me._InnerColor = Color.Transparent

                   ' Draw the triangle figure.
                   .DrawPath(pen, path)

               End Using ' path As New GraphicsPath(FillMode.Alternate)

           End Using ' pen As New Pen(Me._BorderColor, Me._BorderWidth)

       End With ' g

   End Sub

#End Region

#End Region

End Class

EDITO:

Aquí tienes un ejemplo real de uso dinámico en tiempo de ejecución, creación/instanciado de controles y supscripción a eventos del ratón.

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Private Sub Test() Handles MyBase.Shown

       For count As Integer = 0 To 5

           Dim shape As New ElektroShape(ElektroShape.Figures.Circle)
           With shape

               .Name = String.Format("shape_{0}", CStr(count))
               .Size = New Size(48, 48)
               .Location = New Point(Me.ClientRectangle.Left + (.Size.Width * count) + (10 * count), .Size.Height)
               .Draggable = True

               .InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
               .PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
               .SmoothingMode = Drawing2D.SmoothingMode.AntiAlias

               .BorderWidth = 1I
               .BorderColor = Color.DodgerBlue
               .InnerColor = Color.Thistle

               AddHandler shape.Click, AddressOf shape_Click

           End With ' shape

           Me.Controls.Add(shape)

       Next count

   End Sub

   ''' <summary>
   ''' Handles the Click event of the shape control.
   ''' </summary>
   ''' <param name="sender">The source of the event.</param>
   ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
   Private Sub shape_Click(ByVal sender As Object, ByVal e As EventArgs)

       Dim mouseArgs = DirectCast(e, MouseEventArgs)

       Dim sb As New System.Text.StringBuilder
       With sb
           .AppendLine("Has hecho 'Click' en una figura !!")
           .AppendLine()
           .AppendFormat("Nombre: {0}", DirectCast(sender, ElektroShape).Name)
           .AppendLine()
           .AppendFormat("Coordenadas internas: {0}", DirectCast(e, MouseEventArgs).Location.ToString)
           .AppendLine()
           .AppendFormat("Coordenadas externas: {0}", MousePosition.ToString)
       End With

       MessageBox.Show(sb.ToString, Me.Name, MessageBoxButtons.OK, MessageBoxIcon.Information)

   End Sub

End Class

C# (conversión al vuelo):

Código (csharp) [Seleccionar] Expandir


using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
public class Form1
{


private void Test()
{

for (int count = 0; count <= 5; count++) {
ElektroShape shape = new ElektroShape(ElektroShape.Figures.Circle);
var _with1 = shape;

_with1.Name = string.Format("shape_{0}", Convert.ToString(count));
_with1.Size = new Size(48, 48);
_with1.Location = new Point(this.ClientRectangle.Left + (_with1.Size.Width * count) + (10 * count), _with1.Size.Height);
_with1.Draggable = true;

_with1.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic;
_with1.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality;
_with1.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias;

_with1.BorderWidth = 1;
_with1.BorderColor = Color.DodgerBlue;
_with1.InnerColor = Color.Thistle;

shape.Click += shape_Click;

// shape

this.Controls.Add(shape);

}

}

/// <summary>
/// Handles the Click event of the shape control.
/// </summary>
/// <param name="sender">The source of the event.</param>
/// <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>

private void shape_Click(object sender, EventArgs e)
{
dynamic mouseArgs = (MouseEventArgs)e;

System.Text.StringBuilder sb = new System.Text.StringBuilder();
var _with2 = sb;
_with2.AppendLine("Has hecho 'Click' en una figura !!");
_with2.AppendLine();
_with2.AppendFormat("Nombre: {0}", ((ElektroShape)sender).Name);
_with2.AppendLine();
_with2.AppendFormat("Coordenadas internas: {0}", ((MouseEventArgs)e).Location.ToString);
_with2.AppendLine();
_with2.AppendFormat("Coordenadas externas: {0}", MousePosition.ToString);

MessageBox.Show(sb.ToString, this.Name, MessageBoxButtons.OK, MessageBoxIcon.Information);

}
public Form1()
{
Shown += Test;
}

}

//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//=======================================================


Saludos.

De donde eres... ¿Y donde te gustaría viajar?

De La Tierra, y me gustaría viajar a Europa (allá cerca de Júpiter)

PD: Soñar es gratis, viajar no xD.

Saludos!

[Disco]

No se si lo he entendido bien...

Instancias una lista de la Class Disco, y lo que quieres hacer es llenar un ComboBox que contenga los distintos "Generos" da los items de la lista de Disco?

Entonces solo tienes que seleccionar la propiedad "genero" de cada item Disco, lo puedes hacer con una query de LINQ o con un For:

VB.Net

Código (vbnet) [Seleccionar] Expandir

Imports System.Globalization
Imports System.Threading

Public Class Form1

   Public Shared listaDisco As New List(Of Disco) From
       {
           New Disco With {.titulo = "a", .genero = "Rock"},
           New Disco With {.titulo = "b", .genero = "Pop"},
           New Disco With {.titulo = "c", .genero = "Dubstep"},
           New Disco With {.titulo = "d", .genero = "dubstep"}
       }

   Class Disco
       Public titulo As String
       Public genero As String
       Public año As Integer
       Public autor As String
       Public precio As Double
       Public fecha_registro As DateTime
   End Class

   Private Sub test() Handles MyBase.Shown

       Dim currentCulture As CultureInfo = Thread.CurrentThread.CurrentCulture
       Dim textInfo As TextInfo = currentCulture.TextInfo()

       Dim genres As IEnumerable(Of String) =
           (From disc As Disco In listaDisco
            Select textInfo.ToTitleCase(disc.genero)
            Distinct)

       With ComboBox1
           .Sorted = True
           .SuspendLayout()
           .Items.AddRange(genres.ToArray)
           .SelectedIndex = 0
           .ResumeLayout()
       End With

   End Sub

End Class

CSharp:

Código (csharp) [Seleccionar] Expandir


using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
using System.Globalization;
using System.Threading;

public class Form1
{

public static List<Disco> listaDisco = new List<Disco> {
new Disco {
titulo = "a",
genero = "Rock"
},
new Disco {
titulo = "b",
genero = "Pop"
},
new Disco {
titulo = "c",
genero = "Dubstep"
},
new Disco {
titulo = "d",
genero = "dubstep"
}

};

public class Disco
{
public string titulo;
public string genero;
public int año;
public string autor;
public double precio;
public DateTime fecha_registro;
}


private void test()
{
CultureInfo currentCulture = Thread.CurrentThread.CurrentCulture;
TextInfo textInfo = currentCulture.TextInfo();

IEnumerable<string> genres = (from disc in listaDiscotextInfo.ToTitleCase(disc.genero));

var _with1 = ComboBox1;
_with1.Sorted = true;
_with1.SuspendLayout();
_with1.Items.AddRange(genres.ToArray);
_with1.SelectedIndex = 0;
_with1.ResumeLayout();

}
public Form1()
{
Shown += test;
}

}

//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//=======================================================


[EDITO:]

Eso te pasa por incrédulo, te dije y aseguré que esa voz no estaba en el win7 y aun así ni p.u.t.o caso (parece mentira que te fíes tan poco de mi). Yo sigo pensando que es la voz del win8, ¿lo as descartado por completo con seguridad?.
Saludos...

Songoku

Lo siento simplemente se me olvidó que me dijiste eso por que tengo un lio tremendo con este tema ya... no me acordaba que me dijiste ese comentario sobre Windows 7, de verdad, de lo contrario no habría tenido motivos para ponerme a instalar Windows 7... que da mucho palo, simplemente no me acordaba :S, así que no es para hablar de esa manera y decirme que no confio en ti, por que no tengo motivos para desconfiar de alguien que me intenta ayudar como eres tú.
De todas formas entiendo que te haya podido parecer eso por que ha sido un lapsus tremendo ahora que me doy cuenta, no pasa nada, a veces suelo ser bastante olvidadizo.

Sobre Windows 8, sip, lo tengo instalado en la V.M. y las voces son muy distintas, muy... sosas, la voz castellana tiene un tono bastante grave, nada que ver con la del video que mostré, además, solo hay una voz femenina que hable en Castellano, las otras dos son latinas.
De todas formas debo decir que lo he probado en Windows 8.1, en Windows 8 no, pero no creo que se hayan tomado la molestia y el trabajo de actualizar las voces Españolas en esa actualización del 8 al 8.1 xD, espero que no... vaya

Bueno tendré que salir de dudas... descargaré una ISO del XP, Vista, y otra del 8 (no 8.1), ya editaré este comentario para informar.

EDITO:
Windows Vista en Español solo lleva la voz de Anna, que es inglés.
Windows XP en Español solo lleva la voz de Microsoft Sam, que es inglés, y por cierto, es una completa basura.
Windows 8, todavía no lo he podido probar.

Saludos

El tema ha sido movido a Programación C/C++.

http://foro.elhacker.net/index.php?topic=424210.0

hola Eleкtro, por favor fíjate en el enlace, supuestamente es la voz que buscas, lo que realmente desconozco si es compatible con diferentes asistentes virtuales, o bien ya integra uno... tambien la misma está para decarga gratuita para plataformas android.

No, el contenido del enlace no es la voz, es un pack de recursos para "diseñar" macros de reconocimiento de voz, en el pack incluyen algunas herramientas como Loquendo junto a unas voces de loquendo (ninguna es la voz que estoy buscando)

De hecho ahora que me fijo mejor en el contenido del enlace, lo has sacado de la descripción de un video de youtube que yo también encontré por casualidad y que NO tiene que ver con el primer video que se publicó de "E.V.A." por el compañero @Bundor, ¿verdad?, es otro video si no recuerdo mal de una persona latina, y el rar no contiene nada respecto a la voz que se usa en el video original del youtuber Español .

Gracias de nuevo,
saludos