Bueno, esto es una pregunta simple, ¿quieren que organicemos un concurso de desarrollo de aplicaciones .NET?

· ¿Cual sería el premio?
Por el momento el único premio sería la satisfacción personal de quedar en el primer, segundo, o tercer puesto.
A menos que el-brujo decidiera premiar esos puestos, todo es posible, pero no creo que esto vaya a suceder en este tipo de concurso (ya que esto no sería un EHN-DEV), por eso y... por otras razones.


· ¿Cuanto tiempo duraría el concurso?
Debemos meditarlo, supongo que 30 o 60 días, pero antes de acabar el año.


· ¿Quienes serían los jueces?
Hasta que finalice la votación no sabremos si organizaremos un concurso, mucho menos sabemos ahora mismo quienes serán los jueces, pero Elektro y Kubox estarán entre ellos.


· ¿Cuantos participantes seguros hay?
Por el momento solo hay 4 participantes seguros, si tu estás seguro de querrer participar deja un comentario en este post para incrementar la cantidad de participantes .

Participantes: Eleкtro, kub0x, XresH y Markul.

· ¿Cuales son las bases del concurso?
Las bases para el concurso se realizarán una vez determinada la decisión de la celebración del concurso.
Se podrán presentar aplicaciones codeadas en los siguientes lenguajes : VB .NET, C# y C++/CLI.)
Se debe publicar el código fuente de la aplicación.

Notas:
· Toda la información proporcionada arriba puede ser actualizada/reectificada en cualquier momento durante esta votación.
· La votación puede ser cancelada, suspendida, o darse por finalizada antes de acabar el plazo.

Mínimo de participantes necesarios para celebración: 7-10.

Saludos!

Buenas

1) Las imágenes no se veian, te he editado el post para que al menos se vean las urls, pero creo que no te costaba nada revisar el post que escribiste por ti mismo.

2) Me da la sensación de que estás utilizando el framework de DotNetBar ya que el Form es idéntico al de las plantillas que proporcionan, bueno, obviamente estás utilizando un set de controles profesionales ya sea DotNetBar, Telerik, DevExpress, o etc., y lo que quiero decir con esto es que dichas herramientas profesionales suelen traer mucho más que los propios controles, como métodos de validacion para ciertas tareas, incluso podría haber algún custom ErrorProvider, etc, no te vendría mal preguntar al soporte de la compañia en cuestión para verificar si proporcionan algo en el paquete que te pueda ser útil para resolver el problema que tienes, el cual no se si he llegado a comprender muy bien.


Sinceramente, ¿en serio esperas poder recibir ayuda cualificada sin mostrar parte de tú código?, para empezar no sabemos de que manera estás generando los controles dinamicamente por ejemplo el nombre dinámico que les estás asignando (si alguno), pero al instanciar los textboxes, los checkboxes, y los botones, deberías añadirle un Tag a cada control haciendo referencia a la fila en cuestión donde los estás agregando, y así no tendrías dificultades para desactivar los textboxes de una fila en concreto.

No se si esto es lo que buscas, pero creo que podrás adaptarlo a tus necesidades.

Ejemplo:


Source:

Public Class Form1
 
    ''' <summary>
    ''' Initializes a new instance of the <see cref="Form1"/> class.
    ''' </summary>
    Public Sub New()
 
        ' This call is required by the designer.
        InitializeComponent()
 
        ' Add any initialization after the InitializeComponent() call.
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
        Me.StartPosition = FormStartPosition.CenterScreen
        Me.MaximizeBox = False
 
    End Sub
 
    ''' <summary>
    ''' Handles the Load event of the Form1.
    ''' </summary>
    Private Shadows Sub Load() Handles MyBase.Load
 
        Me.CreateRowsOfControls(RowsCount:=5I)
 
    End Sub
 
    ''' <summary>
    ''' Creates the controls.
    ''' </summary>
    ''' <param name="RowsCount">The amount of rows of controls to generate.</param>
    Private Sub CreateRowsOfControls(ByVal RowsCount As Integer)
 
        Me.SuspendLayout()
 
        For row As Integer = 1I To RowsCount
 
            For num As Integer = 1I To 5I
 
                Dim tb As New TextBox With
                    {
                        .Name = String.Format("tb_{0}.{1}", CStr(row), CStr(num)),
                        .Size = New Size(15I, 20I),
                        .Location = New Point((15I * num) + (2I * num), (20I * row) + (5I * row)),
                        .Tag = row
                    }
 
                Me.Controls.Add(tb)
 
            Next num
 
            Dim bt As New Button With
                {
                    .Name = String.Format("bt_{0}", CStr(row)),
                    .Size = New Point(120I, 20I),
                    .Text = String.Format("Desactivar fila nº{0}", CStr(row)),
                    .Location = New Point(Me.Controls(String.Format("tb_{0}.{1}", CStr(row), CStr(RowsCount))).Right + 5I, (20I * row) + (5I * row)),
                    .Cursor = Cursors.Hand,
                    .Tag = New Object() {row, True}
                }
 
            AddHandler bt.Click, AddressOf bt_Click
 
            Me.Controls.Add(bt)
 
        Next row
 
        Me.ResumeLayout()
 
    End Sub
 
    ''' <summary>
    ''' Handles the Click event of the bt controls.
    ''' </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 bt_Click(ByVal sender As Object, ByVal e As EventArgs)
 
        Dim bt As Button = DirectCast(sender, Button)
        Dim Row As Integer = DirectCast(bt.Tag(0I), Integer)
        Dim Disable As Boolean = DirectCast(bt.Tag(1I), Boolean)
 
        Dim tbNamePattern As String = String.Format("tb_{0}.", CStr(Row))
 
        Me.SuspendLayout()
 
        Select Case Disable
 
            Case True ' Desactivar controles
 
                bt.Text = String.Format("Activar fila nº{0}", CStr(Row))
                bt.Tag = New Object() {Row, Not Disable}
 
                ControlIterator.Disable(Of TextBox)(Me.Controls, tbNamePattern)
 
                ControlIterator.PerformAction(Of TextBox)(Me.Controls,
                                                          Sub(tb As TextBox)
                                                              tb.BackColor = Color.Black
                                                          End Sub,
                                                          ContainsName:=tbNamePattern)
 
            Case Else ' Activar controles
 
                bt.Text = String.Format("Desactivar fila nº{0}", CStr(Row))
                bt.Tag = New Object() {Row, Not Disable}
 
                ControlIterator.Enable(Of TextBox)(Me.Controls, tbNamePattern)
 
                ControlIterator.PerformAction(Of TextBox)(Me.Controls,
                                                          Sub(tb As TextBox)
                                                              tb.BackColor = SystemColors.Window
                                                          End Sub,
                                                          ContainsName:=tbNamePattern)
 
        End Select ' Disable
 
        Me.ResumeLayout()
 
    End Sub
 
End Class

Como te habrás dado cuenta uso una class llamada 'Control Iterator', es una Class que escribí hace tiempo que te puede servir para el propósito del primer problema y del segundo problema, el código es demasiado largo así que aqui te lo dejo en un enlace externo:

Control Iterator for VB.Net (15-Sep-2014)

Saludos.

Solo comento para decir muy pero que muy buena alternativa, pero como siempre en Batch se debe recurrir a la utilización de otro lenguaje y/o herramienta externa para llevar a cabo algunos propósitos de forma eficiente.

Saludos!

Yo me ofrezco para ayudar en lo que se pueda, en caso de que quieran, y también para participar en el concurso con el desaarrollo de una aplicación que se me ha ocurrido xD

saludos

Se agradece que algunoas personas estén agradecidas con el foro y tengan motivación por hacer regalos, alguna vez que otra yo intenté regalar subscripciones premium de Uploaded al primero que escribiese, pero siempre me borraban mis posts, claro, porque yo soy la oveja negra del foro, y mis regalos son escoria, ya verás como contigo no hacen lo mismo xD.

PD: Yo ya tengo GOT 3, pero quizás deberías aclarar si la descarga es de la serie con audio inglés o en castellano, o en ambas, a mi no me queda claro eso xD.

Saludos!

Como añadir una marca de agua en una imagen usando la librería Aspose Imaging ( http://www.aspose.com/.net/imaging-component.aspx ).

    ' Add Watermark
    ' By Elektro
 
    ''' <summary>
    ''' Adds a watermark into an image, at the specified position.
    ''' </summary>
    ''' <param name="img">Indicates the image.</param>
    ''' <param name="text">Indicates the watermark text.</param>
    ''' <param name="fnt">Indicates the watermark text font.</param>
    ''' <param name="color">Indicates the watermark text color.</param>
    ''' <param name="position">Indicates the watermark text position.</param>
    ''' <returns>Aspose.Imaging.Image.</returns>
    Private Function AddWatermark(ByVal img As Aspose.Imaging.Image,
                                  ByVal text As String,
                                  ByVal fnt As Aspose.Imaging.Font,
                                  ByVal color As Aspose.Imaging.Color,
                                  ByVal position As Aspose.Imaging.PointF) As Aspose.Imaging.Image
 
        Using brush As New Aspose.Imaging.Brushes.SolidBrush With {.Color = color, .Opacity = 100.0F}
 
            ' Create and initialize an instance of Graphics class.
            Dim g As New Aspose.Imaging.Graphics(img)
 
            ' Draw a String using the SolidBrush object and Font, at specific Point and with specific format.
            g.DrawString(s:=text, font:=fnt, brush:=brush, point:=position)
 
        End Using
 
        ' Return the modified image.
        Return img
 
    End Function
 
    ''' <summary>
    ''' Adds a watermark into an image, at a prefedined position.
    ''' </summary>
    ''' <param name="img">Indicates the image.</param>
    ''' <param name="text">Indicates the watermark text.</param>
    ''' <param name="fnt">Indicates the watermark text font.</param>
    ''' <param name="color">Indicates the watermark text color.</param>
    ''' <param name="position">Indicates the watermark text position.</param>
    ''' <param name="verticalmargin">Indicates the watermark text vertical margin.</param>
    ''' <param name="horizontalmargin">Indicates the watermark text horizontal margin.</param>
    ''' <returns>Aspose.Imaging.Image.</returns>
    Private Function AddWatermark(ByVal img As Aspose.Imaging.Image,
                                  ByVal text As String,
                                  ByVal fnt As Aspose.Imaging.Font,
                                  ByVal color As Aspose.Imaging.Color,
                                  ByVal position As WatermarkPosition,
                                  Optional ByVal verticalmargin As Single = 0.0F,
                                  Optional ByVal horizontalmargin As Single = 0.0F) As Aspose.Imaging.Image
 
        Dim textformat As New Aspose.Imaging.StringFormat
        Dim textposition As Aspose.Imaging.PointF = Aspose.Imaging.PointF.Empty
        textformat.FormatFlags = Aspose.Imaging.StringFormatFlags.MeasureTrailingSpaces
 
        Select Case position
 
            Case WatermarkPosition.Top ' Note: horizontalmargin value is ignored.
                textposition = New Aspose.Imaging.PointF(x:=(img.Width \ 2), y:=verticalmargin)
                textformat.Alignment = Aspose.Imaging.StringAlignment.Center
 
            Case WatermarkPosition.TopLeft
                textposition = New Aspose.Imaging.PointF(x:=horizontalmargin, y:=verticalmargin)
                textformat.Alignment = Aspose.Imaging.StringAlignment.Near
 
            Case WatermarkPosition.TopRight
                Dim f As New System.Drawing.Font(fnt.Name, fnt.Size, DirectCast(fnt.Style, System.Drawing.FontStyle))
                Dim measure As System.Drawing.Size = TextRenderer.MeasureText(text, f)
                textposition = New Aspose.Imaging.PointF(x:=(img.Width - measure.Width - horizontalmargin), y:=verticalmargin)
                textformat.Alignment = Aspose.Imaging.StringAlignment.Near
 
            Case WatermarkPosition.Middle ' Note: verticalmargin horizontalmargin and values are ignored.
                textposition = New Aspose.Imaging.PointF(x:=(img.Width \ 2), y:=(img.Height \ 2))
                textformat.Alignment = Aspose.Imaging.StringAlignment.Center
 
            Case WatermarkPosition.MiddleLeft ' Note: verticalmargin value is ignored.
                textposition = New Aspose.Imaging.PointF(x:=(horizontalmargin), y:=(img.Height \ 2))
                textformat.Alignment = Aspose.Imaging.StringAlignment.Near
 
            Case WatermarkPosition.MiddleRight ' Note: verticalmargin value is ignored.
                Dim f As New System.Drawing.Font(fnt.Name, fnt.Size, DirectCast(fnt.Style, System.Drawing.FontStyle))
                Dim measure As System.Drawing.Size = TextRenderer.MeasureText(text, f)
                textposition = New Aspose.Imaging.PointF(x:=(img.Width - measure.Width - horizontalmargin), y:=(img.Height \ 2))
                textformat.Alignment = Aspose.Imaging.StringAlignment.Near
 
            Case WatermarkPosition.Bottom ' Note: horizontalmargin value is ignored.
                Dim f As New System.Drawing.Font(fnt.Name, fnt.Size, DirectCast(fnt.Style, System.Drawing.FontStyle))
                Dim measure As System.Drawing.Size = TextRenderer.MeasureText(text, f)
                textposition = New Aspose.Imaging.PointF(x:=(img.Width \ 2), y:=(img.Height - measure.Height - verticalmargin))
                textformat.Alignment = Aspose.Imaging.StringAlignment.Center
 
            Case WatermarkPosition.BottomLeft
                Dim f As New System.Drawing.Font(fnt.Name, fnt.Size, DirectCast(fnt.Style, System.Drawing.FontStyle))
                Dim measure As System.Drawing.Size = TextRenderer.MeasureText(text, f)
                textposition = New Aspose.Imaging.PointF(x:=(horizontalmargin), y:=(img.Height - measure.Height - verticalmargin))
                textformat.Alignment = Aspose.Imaging.StringAlignment.Near
 
            Case WatermarkPosition.BottomRight
                Dim f As New System.Drawing.Font(fnt.Name, fnt.Size, DirectCast(fnt.Style, System.Drawing.FontStyle))
                Dim measure As System.Drawing.Size = TextRenderer.MeasureText(text, f)
                textposition = New Aspose.Imaging.PointF(x:=(img.Width - measure.Width - horizontalmargin), y:=(img.Height - measure.Height - verticalmargin))
                textformat.Alignment = Aspose.Imaging.StringAlignment.Near
 
        End Select
 
        Using brush As New Aspose.Imaging.Brushes.SolidBrush With {.Color = color, .Opacity = 100.0F}
 
            ' Create and initialize an instance of Graphics class.
            Dim g As New Aspose.Imaging.Graphics(img)
 
            ' Draw a String using the SolidBrush object and Font, at specific Point and with specific format.
            g.DrawString(s:=text, font:=fnt, brush:=brush, point:=textposition, format:=textformat)
 
        End Using
 
        textformat.Dispose()
 
        ' Return the modified image.
        Return img
 
    End Function
 
    ''' <summary>
    ''' Specifies a Watermark position
    ''' </summary>
    Public Enum WatermarkPosition As Short
 
        ''' <summary>
        ''' Top position.
        ''' horizontalmargin value is ignored.
        ''' </summary>
        Top = 0S
 
        ''' <summary>
        ''' Top-Left position.
        ''' </summary>
        TopLeft = 1S
 
        ''' <summary>
        ''' Top-Right position.
        ''' </summary>
        TopRight = 2S
 
        ''' <summary>
        ''' Middle-Left position.
        ''' verticalmargin value is ignored.
        ''' </summary>
        MiddleLeft = 3S
 
        ''' <summary>
        ''' Middle position.
        ''' verticalmargin and horizontalmargin values are ignored.
        ''' </summary>
        Middle = 4S
 
        ''' <summary>
        ''' Middle-Right position.
        ''' verticalmargin value is ignored.
        ''' </summary>
        MiddleRight = 5S
 
        ''' <summary>
        ''' Bottom position.
        ''' horizontalmargin value is ignored.
        ''' </summary>
        Bottom = 6S
 
        ''' <summary>
        ''' Bottom-Left position.
        ''' </summary>
        BottomLeft = 7S
 
        ''' <summary>
        ''' Bottom-Right position.
        ''' </summary>
        BottomRight = 8S
 
    End Enum

Ejemplo de uso:

    Private Sub Form1_Load() Handles MyBase.Load
 
        ' Load an image to add a watermark.
        Dim img As Aspose.Imaging.Image = Aspose.Imaging.Image.Load("C:\sample.bmp")
 
        ' Set the watermark text.
        Dim text As String = "ElektroStudios"
 
        ' Set the watermark text color.
        Dim color As Aspose.Imaging.Color = Aspose.Imaging.Color.White
 
        ' Set the watermark text font.
        Dim fnt As New Aspose.Imaging.Font("Lucida Console", 32, FontStyle.Bold)
 
        ' Add the watermark into the image.
        img = Me.AddWatermark(img:=img, text:=text, fnt:=fnt, color:=color, position:=WatermarkPosition.BottomRight)
 
        ' Or...
        ' Dim position As New Aspose.Imaging.PointF(x:=10, y:=10)
        ' img = Me.AddWatermark(img:=img, text:=text, fnt:=fnt, color:=color, position:=position)
 
        ' Save the image to disk.
        img.Save("C:\Watermark.bmp")
 
        ' See the resulting image.
        Process.Start("C:\Watermark.bmp")
        Application.Exit()
 
    End Sub

No se mucho sobre este tema, no conozco mucho de C++ así que no puedo ayudarte casi, pero repetiré lo que dije:


Utilizar el método Assembly.Load(byte[]) para cargar un ensamblado C++ que contenga código nativo NO está soportado.

¿Has buscado en Google el código de error?, porque hay muchos resultados con información y posibles soluciones (aparte de este enlace):


+

-> Attempt to load an unverifiable executable with fixups (IAT with more than 2 sections or a TLS section.) (Exception from HRESULT: 0x80131019)

Asi pues, si quieres "cargar" una dll de C++ según parece vas a tener que recurrir al P/Invoking, aunque no se si esa será la única solución, como ya he dicho no manejo mucho este tema de cargar una dll de C++ para invokar funciones o lo que pretendas hacer, pero así es como siempre lo he echo con librerías de terceros desarrolladas en C++ y por supuesto con las de la WinAPI, toma un ejemplo:

Imports System.Runtime.InteropServices
 
' <System.Security.SuppressUnmanagedCodeSecurity>
Friend Class SafeNativeMethods
 
    <DllImport("2.bin", EntryPoint:="Nombre_De_La_Función", SetLastError:=False, CharSet:=CharSet.Auto)>
    Friend Shared Function Nombre_A_Mostrar(
            ByVal Parametro1 As String,
            ByVal Parametro2 As IntPtr
    ) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
 
End Class

+



PD: El compañero @Kubox creo que sabe bastante sobre este tema de C++ en .NET y te podrá ayudar mejor que yo en caso de que lea este post.

Saludos.

jajajjajaja... me rio por no llorar.

Si ya sabia yo que el fenómeno del 'Ice Bucket Challenge' no podia traer nada bueno en general.

http://foro.elhacker.net/foro_libre/ice_bucket_challenge_iquestque_opinas-t420476.0.html

Saludos

Bien, ¿pero piensas explicar el tipo de excepción y el mensaje de error, o esperas que lo adivinemos?.

-> Assembly.Load Method (Byte()) - MSDN

El método Assembly.Load es para abrir ensamblados (entorno de ejecución .NET).

-> Assembly (CLI) - Wikipedia

¿El archivo 2.bin es un ensamblado .NET, una dll con la extensión camuflada?, ¿Cuales son tus verdaderas intenciones, que intentas conseguir?, ¿estás intentando clonar dicho ensamblado en la memoria para cargar el stream en tiempo de ejecución?;
porfavor, se claro con el problema que tienes, el error, y el resultado que esperas conseguir.

Saludos!

Me pareciste una persona inteligente, pero ya has demostrado que además de no ser capaz de aceptar una crítica contructiva eres completamente tonto y debes recurrir al sarcasmo así como a gilipolleces tonterías las cuales ni vienen al caso, ni son como tu dices.

Te lo diré de otro modo, ¿tu para que vienes a Trollear a un usuario juzgandole y diciendole si tiene que pagar por algo o no?, está claro que te gusta trollear a los que te llevan la contrario (y con motivos de sobra te la he llevado), o bien puedes intentar aceptarlo, o seguir con tus estupideces inmaduras repitiendo las frases que se te dicen, lo mismo que hacen los niños, ¿será que te identificas con el personaje 'Bender' por tu forma de ser?, eso parece.

Además:

1) Para criticar con objetividad sobre los problemas personales que pueda tener un moderador, primero deberías ser moderador, para poder vivirlo y no hablar sin tener ni p**a idea... como decimos en España.

2) Si quizás tienes falta de autoestima, medios, motivación, o si tienes incluso envidia y eso te impide intentar anunciarte en "X" lugar o vender un producto profesional a "X" persona entonces no es mi problema, pero yo no soy tu enemigo.

Un saludo!