Mensajes

Perseverancia amigo , ve bien el codigo completo
analizalo, todo....
no te dejes llevar por las apariencias
sabes html ? lo necesitaras

Lo que quieres es que un textbox tenga el valor de algun item del listbox verdad ?
Para eso tienes que hacer asi

Código (vbnet) [Seleccionar] Expandir

Textbox1.text=Listbox1.Items.Item(indice)
Y como tu lo tenias es al reves, estabas haciendo que el valor del textbox pasara al listbox(indice)

Mira buscando en google encontre esto
http://www.elguille.info/regexp/regExp01.aspx
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/166-expresiones-regulares.htm

Y yo cree un programa que tambien necesitaba bloquear los caracteres no numerikos pero permitir el punto

Eso lo logre en el evento KeyPress del TextBox algo asi

Código (vbnet) [Seleccionar] Expandir

  Private Sub TextBox1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not (IsNumeric(e.KeyChar) Or e.KeyChar = "." ) Then
            My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
            e.Handled = True
        End If
    End Sub

Fijate q si se teclea algun caracter q no sea numero o el punto reproduce un sonido del sistema (arterisko)

Talvez tanbien quieras bloquear el salto de linea (13) y el tabulador, para eso usa el siguiente codigo

Código (vbnet) [Seleccionar] Expandir

  Private Sub TextBox1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not (IsNumeric(e.KeyChar) Or e.KeyChar = "." Or Asc(e.KeyChar) = 8 Or Asc(e.KeyChar) = 13) Then
            My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
            e.Handled = True
        End If
    End Sub

Observa como se usa IF

[IP publika]

De la misma forma que lo hiciste para red lan seguramente funciona para red wan, solo que el servidor, al que le llega la peticion de conexion tendria que tener los puertos abiertos, y el cliente tendria que conectarse a su ip, cosa que talvez algo de eso no hacias, pero despues con sockets es lo mismo

Trabaje con sockets y ise una aplicacion servidor/cliente
el caso es q cuando trabajaba como servidor abria el puerto 10 por ejemplo y escuchaba por nuevs clientes
Y cuando era cliente se conectaba ala IP de la red lan del servidor, ademas de su puerto
aora, la ultima ves obtube mi IP publika http://my-ip.es/ y
remplaze la IP de la red lan del servidor, por su IP publika, pero al queerrer conectarme no funcionaba

En que estaba mal o que mejoro?

Asi a vista rapida te digo que tu codigo esta bien, te deben salir solo 4 mensajes (MSGBOX)
Talvez el ultimo mensaje en blanko q te sale esta abajo de ese bucle, o en alguna otra parte del codigo
Para que vayyas viendo intenta esto, una vez abierto el codigo en VB NET presiona F8  Yel formulario cargara, pero ademas veras que en la ventana de codigo aparecera subrayado en amarillo
de esta manera iras viendo como ejecuta el codigo
Recuerda volver a presionar F8 para seguir corriendo el programa

[no sera igual]

Mira estas comenzando a trabajar con matrizes (arreglos) y deberas tener mucho cuidado con sus limites (debes empezar a practikar)
Todo array comienza desde 0 (su primer indice), eso significa que el indice del ultimo elemento , no sera igual ala cantidad de elementos (notas.Length)
Si comienza desde 0, entonces obviamente el ultimo indice sera igual a el numero de elementos - 1    (notas.Length-1).

Entonces en tu codigo, en la funcion ejemplo, mas especificamente en el el bucle FOR, cuando determinas el limite del for, cometiste el error q te explike.

Código (vbnet) [Seleccionar] Expandir

Public Function ejemplo(ByVal ParamArray notas() As Integer) As Integer
        Dim acumulador As Integer
        Dim promedio As Integer
        acumulador = 0

        For indice = 0 To notas.Length - 1
            acumulador = acumulador + notas.Length
            promedio = acumulador / notas(indice)
        Next

        Return promedio

    End Function


Observa como quedo el FOR
con este codigo al pasarle ala funcion ejemplo los valores ejemplo(1,1)  me devuelve 4

Q puedo hacer?

Pues mira para llamar a un control dde un formulario distinto
debes comensar por decir en que  formulario se encuentra , algo asi

Código (vbnet) [Seleccionar] Expandir

frm_administrador.lst_codcab.Items.Add(txt_codcab.text)

De esa manera puedes llamar a controles de otro formulario
Aunque tambien te recomendaria agreges un modulo o clase a tu proyecto, y ahi agreges variables publicas

Saludos gente

Mi consulta es como crear un chat o algo para compartir datos en VB NET pero no qiero limitarme ala red local si no que deseo q funcione en computadoras q no esten en una misma intranet....

Yo habia trabajado muy poko con Sokets en vb net y logre crear un chat entre PC de la misma red
qisiera adaptar eso para internet...

Que me recomiendan

Bueo qiero saber como crear la clave y el valor en el registro desde net para bloquear el Administrdr. de T.
Ya se que desde esta ruta:
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr

Estoy usando el objeto Wscript.Shell y hago esto

Código (vbnet) [Seleccionar] Expandir

Dim admin As String = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
Dim WSHShell
            WSHShell = CreateObject("Wscript.Shell")

            WSHShell.RegWrite(admin, 1)
            WSHShell = Nothing

y ME Sale el error:
Raíz no válida en la clave del registro "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr".

Como puedo solucionar esto