⇲
Java FAQ


Como te está indicando, debes añadir la extensión .java en el nombre del archivo al usar el compilador de java.

Sobre el problema que tienes de que el compiler compila sin tirar error pero ¿tampoco muestra ningún tipo de información?, no tengo ni idea de que puede ser.

PD: Las preguntas relacionadas con Java van en la sección de Java.

Saludos

En las propiedades de tu proyecto, cambia el .Net Framework objetivo del proyecto a .Net framework 3.5 o superior, para añadir la referencia a LINQ.

Saludos

En el caso específico del problema que has expuesto, puedes hacerlo por ejemplo así:

Ten en cuenta que el siguiente código no está pulido, es solo un ejemplo, y se podría simplificar o parsear el string de otra manera más eficiente.

EDITO: Versión extendida:

Imports System.Reflection
Imports System.Globalization
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
    Handles Button1.Click
 
        Me.ParseControlInstruction("Textbox2.Enabled = False")
        Me.ParseControlInstruction("Textbox2.Hide()")
 
    End Sub
 
    Private Sub ParseControlInstruction(ByVal instruction As String)
 
        Dim isProperty As Boolean
        Dim isMethod As Boolean
 
        If instruction Like "*[.]*[!(]*[=]*" Then
            isProperty = True
 
        ElseIf instruction Like "*[.]*[!=]*[(]*[)]" Then
            isMethod = True
 
        Else
            Throw New NotImplementedException(String.Format("Cannot recognize the instruction string: {0}", instruction))
 
        End If
 
        ' Fix whitespaces.
        instruction = instruction.Trim({" "c})
 
        ' Fix Namespaces. (THIS IS NOT PROPERLY IMPLEMENTED)
        If instruction.StartsWith("Me.", StringComparison.OrdinalIgnoreCase) Then
            instruction = instruction.Remove(0, "Me.".Length)
        End If
 
        Dim ctrlName As String = instruction.Substring(0, instruction.IndexOf("."c))
 
        If isProperty Then
            Dim propName As String = instruction.Remove(0, ctrlName.Length + 1)
            propName = propName.Substring(0, propName.IndexOf(" "c))
 
            Dim value As Object = instruction.Substring(instruction.IndexOf("="c) + 1).Trim({" "c})
 
            Me.SetControlProperty(ctrlName, propName, value, MyBase.Controls, searchChildrens:=True)
 
        ElseIf isMethod Then
            Dim methodName As String = instruction.Remove(0, ctrlName.Length + 1).TrimEnd({"("c, ")"c})
 
            Dim methodParamsStr As String = instruction.Substring(instruction.IndexOf("("c) + 1)
            methodParamsStr = methodParamsStr.Substring(0, methodParamsStr.LastIndexOf(")"c))
            Dim methodParams As IEnumerable(Of Object) = methodParamsStr.Split({", "}, StringSplitOptions.RemoveEmptyEntries)
 
            Me.CallControlMethod(ctrlName, methodName, methodParams, MyBase.Controls, searchChildrens:=True)
 
        End If
 
    End Sub
 
    Private Sub SetControlProperty(ByVal ctrlName As String,
                                   ByVal propName As String,
                                   ByVal value As Object,
                                   ByVal controlCollection As Control.ControlCollection,
                                   Optional ByVal searchChildrens As Boolean = False,
                                   Optional ByVal searchFlags As BindingFlags =
                                                                 BindingFlags.IgnoreCase Or
                                                                 BindingFlags.Instance Or
                                                                 BindingFlags.Public Or
                                                                 BindingFlags.NonPublic)
 
        Dim ctrl As Control = controlCollection.Find(ctrlName, searchChildrens).FirstOrDefault
        Dim prop As PropertyInfo
 
        Select Case ctrl Is Nothing
 
            Case False
                Try
                    prop = ctrl.GetType().GetProperty(propName, searchFlags)
 
                Catch ex As AmbiguousMatchException
                    Throw New AmbiguousMatchException(String.Format("More than one property found with the same name: {0}", propName))
                    Exit Sub
 
                End Try
 
                Select Case prop Is Nothing
 
                    Case False
                        Try
                            prop.SetValue(ctrl, Convert.ChangeType(value, prop.PropertyType), Nothing)
 
                        Catch ex As Exception
                            Throw
 
                        End Try
 
                    Case Else
                        Throw New NullReferenceException(String.Format("Property not found by name: {0}", propName))
 
                End Select ' prop Is Nothing
 
            Case Else
                Throw New NullReferenceException(String.Format("Control not found by name: {0}", ctrlName))
 
        End Select ' ctrl Is Nothing
 
    End Sub
 
    Private Sub CallControlMethod(ByVal ctrlName As String,
                                  ByVal methodName As String,
                                  ByVal methodParams As IEnumerable(Of Object),
                                  ByVal controlCollection As Control.ControlCollection,
                                  Optional ByVal searchChildrens As Boolean = False,
                                  Optional ByVal searchFlags As BindingFlags =
                                                                BindingFlags.IgnoreCase Or
                                                                BindingFlags.Instance Or
                                                                BindingFlags.Public Or
                                                                BindingFlags.NonPublic)
 
        Dim ctrl As Control = controlCollection.Find(ctrlName, searchChildrens).FirstOrDefault
        Dim method As MethodInfo
 
        Select Case ctrl Is Nothing
 
            Case False
                Try
                    method = ctrl.GetType().GetMethod(methodName, searchFlags)
 
                Catch ex As AmbiguousMatchException
                    Throw New AmbiguousMatchException(String.Format("More than one method found with the same name: {0}", methodName))
                    Exit Sub
 
                End Try
 
                Select Case method Is Nothing
 
                    Case False
                        Try
                            method.Invoke(ctrl, searchFlags, Nothing, methodParams.ToArray, CultureInfo.InvariantCulture)
 
                        Catch ex As Exception
                            Throw
 
                        End Try
 
                    Case Else
                        Throw New NullReferenceException(String.Format("Method not found by name: {0}", methodName))
 
                End Select ' prop Is Nothing
 
            Case Else
                Throw New NullReferenceException(String.Format("Control not found by name: {0}", ctrlName))
 
        End Select ' ctrl Is Nothing
 
    End Sub
 
End Class

Saludos

@LordBynary

Está prohibido revivir temas antiguos, además, fíjate en la fecha de conexión del usuario SpiritDead en su perfil, dudo que vaya a responderte.

---

Para modificar en tiempo de ejecución la propiedad de un control teniendo solamente un string del tipo "Control.Property = Value", puedes hacerlo utilizando Reflection.
Pero no entendí muy bien si es eso lo que pretendes hacer.

Plantea tu duda de forma correcta en otro tema, y muestra tú código.

---

Tema cerrado.

Saludos.

En mi opinión... todos esos fenómenos paranormales son producto de la imaginación, es como el típico individuo que por desgracia sufre una experiencia cercana a la muerte ...por ejemplo un coma de corta duración (o incluso simplemente anestesiados xD), y en esa exeriencia dicen haber visto un tunel de luz... una luz que por supuesto debe ser Dios (¿que otra cosa podría ser, no?), y cuando despiertan de esa experiencia cercana a la muerte asocian de una manera irracional y primitiva esa luz con Dios, que Dios les estaba guiando con una luz o cosas así, cuando en realidad ese efecto túnel de luz es creado por el decrebro debido al estado de los ojos y del individuo (de forma muy mal explicada), es algo demostrado de forma científica, pero la gente seguirá creyendo que ha visto a Dios.. o espíritus, cuando todas esas cosas tienen otra explicación.

Para mi esto es lo mismo... gente que cree en algo de forma equivocada, pero bueno, que cada uno crea en lo que le de la gana.

Para ser sinceros no siempre he pensado así, de pequeño yo era menos racional e hice Ouija 2 veces, pero no vi nada ni tampoco me pasó nada.

Saludos!

---

Imgur Uploader.Net es un cliente de Imgur desarrollado en VB.Net para subir imágenes de forma anónima.

NOTA: PARA USAR ESTE PROGRAMA ES NECESARIO REGISTRARSE EN LA WEB DE IMGUR PARA OBTENER LAS IDS NECESARIAS DEL USO DE LA API.
https://api.imgur.com/#register

---

Version 1.1

   

• Added

      · Magnetic Sticker (Desktop Docking).
      · Image thumbnail preview.
      · 'BBCode Normal' and 'BBCode Thumbnail' UI elements.
      · 'Copy To Clipboard' button.
      · 'Abort Upload' button.
      · Image filesize detection and prevention according to Imgur's limitations.
         These are:
         GIF and PNG: 2 MB
         All Others : 10 MB
      · Automatic image compression with images that reachs Imgur's limitations.

   

• Improved

      · Uploading task now is done in background to avoid APP hanging.
      · Major code updating and optimizations with minor fixes.

   

• Fixed

      · Application allows Drag&Drop when an uploading task is running.
      · 'XCF' file format was unrecognized.
      · Imgur's error response codes were unrecognized.

   

• Removed

      · 'Small Square' and 'Big Square' urls, due to irrelevance.

---

Project......: Imgur Uploader.Net
Author.......: Elektro ( Contact me: censurado )
Descirption..: Imgur client to upload images in your account.
Version......: 1.1
Dev. Language: VB.Net
Technology...: Windows Forms
Interface    : Graphical User Interface
Framework....: 4.0
Architecture.: Neutral x86/x64
Dependencies.: CButton
Language.....: English
Date Release.: 19-January-2015

---

---

http://www.mediafire.com/download/12bdq6o65owy8lt/Imgur+Uploader.NET.rar





Saludos!

No se que tipo de comillas estarás usando... debes usar comillas dobles:


Saludos

Bueno me gustaría aclarar dos cosas para que veas que no me contradigo:
La primera es que yo no creo en los extraterrestres como si fuera una creencia en una fe ciega, sé perfectamente que existen por haber vivido cierta experiencia ...y si, para ti eso solo es mi palabra, pero con eso a mi me es suficiente para saber de lo que hablo... obviamente,
lo segundo es que, son dos temas muy distintos... la creencia de la gente en extraterrestres significa creer en algo físico, un ser vivo hecho de materia... organismos de ""carne y hueso"", y los fantasmas/espíritus demoniacos pues... son todo lo contrario, algo que contradice a la ciencia.

Saludos!

Compriimir una imagen mediante pérdida de calidad, hasta el tamaño objetivo:

        ''' <summary>
        ''' Compress an image to the specified target filesize.
        ''' </summary>
        ''' <param name="inputFile">The input image file.</param>
        ''' <param name="targettFile">The target image file.</param>
        ''' <param name="targetImageFormat">The target image format.</param>
        ''' <param name="targetFileSize">The target filesize, in bytes.</param>
        ''' <exception cref="System.NotImplementedException">Resize Image to -1% and reset quality compression...</exception>
        Private Sub CompressImage(ByVal inputFile As String,
                                  ByVal targettFile As String,
                                  ByVal targetImageFormat As ImageFormat,
                                  ByVal targetFileSize As Long)
 
            Dim qualityPercent As Integer = 100
            Dim bmp As New Bitmap(inputFile)
            Dim codecInfo As ImageCodecInfo = (From codec As ImageCodecInfo In ImageCodecInfo.GetImageDecoders
                                               Where codec.FormatID = targetImageFormat.Guid).First
            Dim encoder As Imaging.Encoder = Imaging.Encoder.Quality
            Dim encoderParameters As New EncoderParameters(1)
 
            Using encoderParameter As New EncoderParameter(encoder, qualityPercent)
                encoderParameters.Param(0) = encoderParameter
                bmp.Save(targettFile, codecInfo, encoderParameters)
            End Using
 
            Dim fInfo As New FileInfo(targettFile)
 
            Do Until fInfo.Length <= targetFileSize
 
                qualityPercent -= 1
 
                If qualityPercent = 50 Then ' Esto lo pongo de manera opcional.
                    Throw New NotImplementedException("Resize Image to -1% and reset quality compression...")
                End If
 
               ' If qualityPercent = 60 Then
               '     resizePercent -= 1
               '     bmp = ImageTools.ResizeImage(bmp, resizePercent)
               '     qualityPercent = 99
               ' End If
 
                Using encoderParameter As New EncoderParameter(encoder, qualityPercent)
                    encoderParameters.Param(0) = encoderParameter
                    bmp.Save(targettFile, codecInfo, encoderParameters)
                End Using
                fInfo = New FileInfo(targettFile)
 
            Loop
 
            encoderParameters.Dispose()
            bmp.Dispose()
 
        End Sub

Plus esta funcion para redimensionar una imagen mediante porcentaje, para utilizarla en conjunto con el método de arriba:

        ''' <summary>
        ''' Resizes an image by a percentage.
        ''' </summary>
        ''' <param name="Bitmap">Indicates the image to resize.</param>
        ''' <param name="Percent">Indicates the percent size.</param>
        ''' <returns>Bitmap.</returns>
        Public Function ResizeImage(ByVal bitmap As Drawing.Bitmap,
                                    ByVal percent As Double,
                                    Optional ByVal quality As Drawing2D.InterpolationMode =
                                                              Drawing2D.InterpolationMode.HighQualityBicubic,
                                    Optional ByVal pixelFormat As Imaging.PixelFormat =
                                                                  Imaging.PixelFormat.Format24bppRgb) As Drawing.Bitmap
 
            Dim width As Integer = (bitmap.Width \ (100I / percent))
            Dim height As Integer = (bitmap.Height \ (100I / percent))
 
            Dim newBitmap As New Bitmap(width, height, pixelFormat)
 
            Using g As Graphics = Graphics.FromImage(newBitmap)
                g.InterpolationMode = quality
                g.DrawImage(bitmap, 0, 0, width, height)
            End Using
 
            Return newBitmap
 
        End Function

Vaya tela...

Lo siento por no leer el post más hallá de la introducción, pero es que siempre me ha parecido ridículo este tema de "apariciones" fantasmagóricas.

Sin ánimo de ofender ni etiquetar a nadie, pero yo personalmente entro en un estado de impotencia (pena, decepción, y otras emociones) al pensar que existen seres humanos inteligentes que pueden creer que, primero de todo, que los "fantasmas" o "demonios" existen, y segundo, que no tienen nada mejor que hacer que sincronizar sus horarios en su mundo "espiritual/dimensional" para aparecerse en nuestro mundo físico solamente cuando a nosotros nos venga bien (ej: jugando a Ouijas) y no cuando ellos quisieran, por la mañana, o por la tarde, no, así que habrá que darle las gracias a los demonios por ser tan considerados con nosotros y aparecer solo cuando a nosotros nos da la real gana.

...O bien estos "fantasmas" que se complican la vida apareciendo en las galletas con caras de jesúcristo, o en manchas en la pared u otras superficies, deben ser antiguas reminiscencias de estudiantes de bellas artes, pobres almas en pena xD, en fín, tiene mucha lógica todo este tema de los demonios, fantasmitas ...o los Dioses (al menos los dioses tal y como cuentan las religiones) xD.

Saludos!