Mensajes

[Hadess_inf]

Declara una property como te ha indicado el compañero @Hadess_inf

Solo es necesario que modifiques el código del formulario que contiene el primer TextBox:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Public Property TB_text As String
       Get
           Return Me.TB.Text
       End Get
       Set(ByVal str As String)
           Form2.TB.Text = str
       End Set
   End Property

   Private Sub TB_TextChanged(sender As Object, e As EventArgs) _
   Handles TB.TextChanged
       Me.TB_text = sender.text
   End Sub

   Private Shadows Sub Load() Handles MyBase.Load
       Me.TB.Text = "Hello World!"
       Form2.Show()
   End Sub

End Class

La intención es separar un poco los datos, de la UI, siempre hay que tener los buenos hábitos en mente... (aunque esto no sea WPF), pero si lo prefieres diréctamente puedes ahorrarte la propiedad y utilizar el evento OnTextChanged para interactuar con el Textbox secundario:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Private Shadows Sub Load() Handles MyBase.Load
       Form2.Show()
       TB.Text = "Hello World!"
   End Sub

   Private Sub TB_TextChanged(sender As Object, e As EventArgs) _
   Handles TB.TextChanged
       Form2.TB.Text = sender.text
   End Sub

End Class

Saludos

Aquí tienes lo necesario:
.NET Phone Communication Library Part IV - Receive SMS

Plus:
.NET Phone Communication Library Part I - Retrieve Phone Settings

PD: El resto de artículos parece que han sido eliminados por antiguedad.

Saludos

@Keyen Night gracias

Cierro el tema.

¿Los iconos los tienes en formato ICO o son en formato PNG?,  si te fijas el diálogo está filtrado para mostrar sólamente iconos en formato ICO, no PNG...

(no quiero pensar que reálmente no te reconoce los iconos ICO... es casi imposible, segúramente la causa sea lo que te acabo de decir)

De todas formas te digo como hacerlo de forma manual...

Para el icono del exe, en el archivo .vbproj de tu solución añade esto:

Código [Seleccionar] Expandir


  <PropertyGroup>
    <ApplicationIcon>C:\ruta del icono.ICO</ApplicationIcon>
  </PropertyGroup>

Y para cambiar el icono del formulario...

Código (vbnet) [Seleccionar] Expandir

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim bmp As Bitmap = Bitmap.FromFile("C:\ruta del icono.ICO")

        Me.Icon = System.Drawing.Icon.FromHandle(bmp.GetHicon())

    End Sub

Saludos

[EDITO:]

Dado un número, devuelve el valor más próximo de un Enum.

Código (vbnet) [Seleccionar] Expandir

   #Region " Get Nearest Enum Value "
   
      ' [ Get Nearest Enum Value ]
      '
      ' // By Elektro H@cker
      '
      ' Examples :
      '
      ' Enum Bitrate As Short : kbps_128 = 128 : kbps_192 = 192 : kbps_256 = 256 : kbps_320 = 320 : End Enum
      ' MsgBox(Get_Nearest_Enum_Value(Of Bitrate)(133).ToString) ' Result: kbps_128
      ' MsgBox(Get_Nearest_Enum_Value(Of KnownColor)(1000)) ' Result: 174
   
   Private Function Get_Nearest_Enum_Value(Of T)(ByVal value As Long) As T

       Return [Enum].Parse(GetType(T), [Enum].GetValues(GetType(T)).
                                              Cast(Of Object).
                                              OrderBy(Function(br) Math.Abs(value - br)).
                                              First)

   End Function
   
   #End Region



Dado un número, devuelve el valor próximo más bajo de un Enum.

Código (vbnet) [Seleccionar] Expandir

   #Region " Get Nearest Lower Enum Value "
   
      ' [ Get Nearest Lower Enum Value ]
      '
      ' // By Elektro H@cker
      '
      ' Examples :
      '
      ' Enum Bitrate As Short : kbps_128 = 128 : kbps_192 = 192 : kbps_256 = 256 : kbps_320 = 320 : End Enum
      ' MsgBox(Get_Nearest_Lower_Enum_Value(Of Bitrate)(190).ToString) ' Result: kbps_128
      ' MsgBox(Get_Nearest_Lower_Enum_Value(Of Bitrate)(196).ToString) ' Result: kbps_192
   
   Private Function Get_Nearest_Lower_Enum_Value(Of T)(ByVal value As Integer) As T

       Select Case value

           Case Is < [Enum].GetValues(GetType(T)).Cast(Of Object).First
               Return Nothing

           Case Else
               Return [Enum].Parse(GetType(T), [Enum].GetValues(GetType(T)).
                                                      Cast(Of Object)().
                                                      Where(Function(enum_value) enum_value <= value).
                                                      Last)
       End Select

   End Function
   
   #End Region




Dado un número, devuelve el valor próximo más alto de un Enum.

Código (vbnet) [Seleccionar] Expandir

   #Region " Get Nearest Higher Enum Value "
   
      ' [ Get Nearest Higher Enum Value ]
      '
      ' // By Elektro H@cker
      '
      ' Examples :
      '
      ' Enum Bitrate As Short : kbps_128 = 128 : kbps_192 = 192 : kbps_256 = 256 : kbps_320 = 320 : End Enum
      ' MsgBox(Get_Nearest_Higher_Enum_Value(Of Bitrate)(196).ToString) ' Result: kbps_256
      ' MsgBox(Get_Nearest_Higher_Enum_Value(Of KnownColor)(1000)) ' Result: 0
   
   Private Function Get_Nearest_Higher_Enum_Value(Of T)(ByVal value As Integer) As T

       Select Case value

           Case Is > [Enum].GetValues(GetType(T)).Cast(Of Object).Last
               Return Nothing

           Case Else

               Return [Enum].Parse(GetType(T), [Enum].GetValues(GetType(T)).
                                                      Cast(Of Object).
                                                      Where(Function(enum_value) enum_value >= value).
                                                      FirstOrDefault)
       End Select

   End Function
   
   #End Region

EDITO:

Aquí todos juntos:

Código (vbnet) [Seleccionar] Expandir

    #Region " Get Nearest Enum Value "
     
        ' [ Get Nearest Enum Value ]
        '
        ' // By Elektro H@cker
        '
        ' Examples :
        '
        ' MsgBox(Get_Nearest_Enum_Value(Of Bitrate)(133, Enum_Direction.Nearest).ToString) ' Result: kbps_128
        ' MsgBox(Get_Nearest_Enum_Value(Of KnownColor)(1000, Enum_Direction.Nearest)) ' Result: 174
        '
        ' MsgBox(Get_Nearest_Enum_Value(Of Bitrate)(190, Enum_Direction.Down).ToString) ' Result: kbps_128
        ' MsgBox(Get_Nearest_Enum_Value(Of KnownColor)(-1, Enum_Direction.Down).ToString) ' Result: 0
        '
        ' MsgBox(Get_Nearest_Enum_Value(Of Bitrate)(196, Enum_Direction.Up).ToString) ' Result: kbps_256
        ' MsgBox(Get_Nearest_Enum_Value(Of KnownColor)(1000, Enum_Direction.Up)) ' Result: 0
     
    Private Enum Enum_Direction As Short
        Down = 1
        Up = 2
        Nearest = 0
    End Enum

    Private Function Get_Nearest_Enum_Value(Of T)(ByVal value As Long, _
                                                  Optional ByVal direction As Enum_Direction = Enum_Direction.Nearest) As T

        Select Case direction

            Case Enum_Direction.Nearest ' Return nearest Enum value
                Return [Enum].Parse(GetType(T), [Enum].GetValues(GetType(T)).
                                                       Cast(Of Object).
                                                       OrderBy(Function(br) Math.Abs(value - br)).
                                                       First)

            Case Enum_Direction.Down ' Return nearest lower Enum value
                If value < [Enum].GetValues(GetType(T)).Cast(Of Object).First Then
                    Return Nothing
                Else
                    Return [Enum].Parse(GetType(T), [Enum].GetValues(GetType(T)).
                                                           Cast(Of Object)().
                                                           Where(Function(enum_value) enum_value <= value).
                                                           Last)
                End If

            Case Enum_Direction.Up ' Return nearest higher Enum value
                If value > [Enum].GetValues(GetType(T)).Cast(Of Object).Last Then
                    Return Nothing
                Else
                    Return [Enum].Parse(GetType(T), [Enum].GetValues(GetType(T)).
                                                           Cast(Of Object).
                                                           Where(Function(enum_value) enum_value >= value).
                                                           FirstOrDefault)
                End If

        End Select

    End Function
     
    #End Region

Vamos Luis te lo he dado todo hecho, no es dificil adaptarlo, te falta poco.

En tu último código no has declarado el valor máximo

Código (vbnet) [Seleccionar] Expandir

Dim maximum As Short = 99

Solo te falta eso y copiar esto otro:

Código (vbnet) [Seleccionar] Expandir

       For Each Number As Integer In Result1

          TextBoxes(TextBoxCount).Text = _
              If(Not Number > maximum, _
                 CStr(Number), _
                 CStr(maximum))

          Threading.Interlocked.Increment(TextBoxCount)

      Next Number

La verdad es que el búcle no requiere ningún cambio, pero puedes escribirlo de esta otra forma:

Código [Seleccionar] Expandir

For Each Number As Int32 In Result1

   TextBoxCount += 1

   if not Number > maximum then
      TextBoxes(TextBoxCount).Text = cstr(number)
   else
      TextBoxes(TextBoxCount).Text = cstr(maximum)
    end if

Next Number

Saludos

Los búcles procesan todos los valores que le has dado en su totalidad, por este orden:

Código [Seleccionar] Expandir

a:1 b:20 c:100 d:1 e:40
a:1 b:20 c:100 d:1 e:50
a:1 b:20 c:100 d:2 e:40
a:1 b:20 c:100 d:2 e:50
a:1 b:20 c:200 d:1 e:40
a:1 b:20 c:200 d:1 e:50
a:1 b:20 c:200 d:2 e:40
a:1 b:20 c:200 d:2 e:50
a:1 b:30 c:100 d:1 e:40
a:1 b:30 c:100 d:1 e:50
a:1 b:30 c:100 d:2 e:40
a:1 b:30 c:100 d:2 e:50
a:1 b:30 c:200 d:1 e:40
a:1 b:30 c:200 d:1 e:50
a:1 b:30 c:200 d:2 e:40
a:1 b:30 c:200 d:2 e:50
a:2 b:20 c:100 d:1 e:40
a:2 b:20 c:100 d:1 e:50
a:2 b:20 c:100 d:2 e:40
a:2 b:20 c:100 d:2 e:50
a:2 b:20 c:200 d:1 e:40
a:2 b:20 c:200 d:1 e:50
a:2 b:20 c:200 d:2 e:40
a:2 b:20 c:200 d:2 e:50
a:2 b:30 c:100 d:1 e:40
a:2 b:30 c:100 d:1 e:50
a:2 b:30 c:100 d:2 e:40
a:2 b:30 c:100 d:2 e:50
a:2 b:30 c:200 d:1 e:40
a:2 b:30 c:200 d:1 e:50
a:2 b:30 c:200 d:2 e:40
a:2 b:30 c:200 d:2 e:50

¿Que intentas hacer?, ¿Cual debería ser el resultado esperado?.

Saludos!

Hola, ¿debemos adivinar de que reproductor hablas?.

En el valor por defecto de la clave:

Código [Seleccionar] Expandir

HKEY_CLASSES_ROOT\.dll
...Encontrarás la asociación.

Ejemplo:

Código [Seleccionar] Expandir

HKEY_CLASSES_ROOT\.dll "default value=mediaplayer.dll"

Código [Seleccionar] Expandir

HKEY_CLASSES_ROOT\mediaplayer.dll

Si no se encuentra ahí, entonces está en la clave SystemFileAssociations:

Código [Seleccionar] Expandir

HKCR\SystemFileAssociations\.dll
HKLM\SystemFileAssociations\.dll

Saludos.

[WindowsXP]

En WindowsXP tienes que usar el nombre de la carpeta tal cual, Escritorio en castellano, Desktop en Inglés, y no se como será en aleman.

(De todas formas puedes encontrar el nombre correcto en las claves de registro que almacenan las rutas de las carpetas del sistema)

En el resto de Windows posteriores puedes referirte a las User Shell-Folders por su nombre en Inglés:

Código [Seleccionar] Expandir

%USERPROFILE%\Desktop
-> http://en.wikipedia.org/wiki/Special_folder

Saludos

[Aquí]

que información me pueden dar y si es recomendable desactivarlo mas no eliminarlo.

Aquí puedes ver que es, para que sirve, si es recomendable desactivarlo, y toda la información adicional que puedas llegar a necesitar...

En serio, ¿tanto cuesta buscar antes de preguntar?.

Un saludo.