Mensajes

hola, me gustaría saber si se puede introducir ítems en un Listbox de modo que se vean verticales

del modo normal sería

12345678
45664555
78999999

Pero yo quiero hacerlo así

1 4 7
2 5 8
3 6 9
4 6 9
5 4 9
6 5 9
7 5 9
8 5 9



Si hago esto por ejemplo...

Código (vbnet) [Seleccionar] Expandir

 
       Dim Num() As String = {"1", "2", "3", "4"}
       Dim strLinea As String = Nothing
       strLinea = String.Join(Environment.NewLine, Num).Trim
       ListBox1.Items.Add(strLinea)
       Label1.Text= strLinea


el Label1 muestra correctamente:

Código [Seleccionar] Expandir


1
2
3
4


Mientras que un Listbox o un ListView lo mostraría así

Código [Seleccionar] Expandir

1234

El ListBox aunque lo mostrara como el label pondría uno debajo del otro. Con un Listview podría ponerlo en cada columna, pero también lo pone horizontal.

Lo he hecho con un FlowLayoutPanel1 Panel,  y añado Labels de forma automática pero no es lo que busco. Además que me ocupa mucho código y es tedioso de hacer.

¿Alguna idea?

Gracias



Acebo de darme cuenta que además con Panel, no puedo hacer multiselección

[@Elektro]

Genial @Elektro, pues no tenía ni idea de StringSplitOptions.RemoveEmptyEntries y mira que estuve mirando a ver si había algo pero nada.

Pues ya me lo apunto y le quito el regex al programa que estaba haciendo..



Ya no hace falta que añada el list

Código (vbnet) [Seleccionar] Expandir

        Dim Texto As String =
           "[Primero]" & Environment.NewLine &
           "a" & Environment.NewLine &
           "b" & Environment.NewLine &
           "c" & Environment.NewLine &
           "[Segundo]"
        Dim spl() As String = Texto.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
        MessageBox.Show(spl.ToList.IndexOf("[Segundo]").ToString)


No encontraba la forma porque la clave está en ponerlo entre corchetes {Environment.NewLine}, entonces la función Split si que ya te ofrece la opción de añadir StringSplitOptions

[Sangre en la orina]

Respecto a estos síntomas...

Código [Seleccionar] Expandir

Dolor extremo en la espalda o un costado que no desaparece
Sangre en la orina
Fiebre y escalofríos
Vómitos
Orina con mal olor o con apariencia turbia
Sensación de ardor al orinar

Sangre en la orina
La sangre son glóbulos rojos, si la cantidad es muy grande será perceptible pues la orina sale oscura. No siempre sale sangre o es perceptible. Además, el color de la orina varía según la hidratación. Una persona poco hidratada elimina la orina algo más oscura, si bebes mucha agua será casi o totalmente transparente. Personalmente yo solo he orinado con sangre (no sangre pura ahí en plan gore) fue una vez de 5 cólicos y otra después de una operación (litotricia)

Fiebre y escalofríos
La fiebre ocurre si hay infección. Yo que yo sepa nunca he tenido fiebre a causa de ello. Si te duele fuerte y vas urgencias te tomarán la temperatura y se te manda para casa te dirán que te la vayas tomando y en caso que tengas fiebre vayas a urgencias.

Vómitos
Esto es cuando el dolor es muy, muy intenso. Como expliqué en el anterior comentario..


Orina con mal olor o con apariencia turbia
Esto sí, yo me cambiaba de calzoncillos y al día siguiente notaba un olor algo asqueroso, y eran los calzoncillos. Como sabréis a veces se mancha después de mear y claro luego huele. La apariencia turbia es lo mismo, de antes sangre o poca hidratación.


Sensación de ardor al orinar
Yo esto no se exactamente que es porque no he tenido esa sensación pero sí dolor justo después de orinar por encima del pene, en la vejiga y pequeños pinchazos en la  uretra, a veces.

Solo quería dejar claro eso


chau

A ver un momento xd esto se está yendo de las manos, no es un dolor fuerte, es una pequeña molestia y solo es cuando tomo café y me dura unas cuantas horas y después ya está, al día siguiente no tengo nada, mi objetivo principal era si sabíais que elemento del café podría causarme esto para eliminarlo y poder seguir tomando café o si era el propio café en si y tengo que dejarlo por completo, muchas gracias por las recomendaciones pero no creo que sea lo de las piedras es que de verdad que lo tengo más que comprobado que me pasa cuando tomo café, es algo totalmente soportable pero la duda es si puede ir a más, si el café puede hacer que te salgan piedras y ese tipo de cosas, me explico?

Muchas gracias a todos y un saludo

el cólico no tiene porqué se un dolor fuerte. como te he explicado yo llevo todo el año eliminando piedras. Tenía en los dos riñones y los causaba la leche el calcio.

Puede ser un dolor leve, que como dices te duele al tomar café  y durante horas. Si produces piedra, las pequeñas o las pequeñas que se generan por la fracturación de una grande, salen produciendo un dolor leve como el que nombras pero a lo largo del día se va, a medida que vas tomando líquido va bajando.

Lo del café no se porque, porque yo la primera vez también pensé que era el café. Quizás sea porque es lo primero que se bebe al día o por la cafeína.  Pero no era el café, pero yo lo atribuí a ello en un principio también.

Claro también puede que esa otra cosa, pero por lo que dices es lo que creo.

El dolor fuerte pasa cuando sale una piedra grande y si se atasca en el conducto, pues se inflama y suele más que un parto, es una pasada. El límite del dolor es cuando ya no puedes beber agua porque vomitas. El dolor es tan intenso que te dan nauseas y vomitas.  Pero bueno yo no digo que te vaya a pasar, solo digo que si produces piedra (cálculos) puede que un día te pase. A veces avisa con pequeños dolor como el que dices, pero otra no, entra de golpe.

Por eso es bueno beber mucha agua, si fuera el caso porque así vas eliminando.


como ha dicho el El_Andaluz  las piedras en riñon los médicos lo llaman 'cálculos renales'

[cólico]

A judgar por los síntomas que nombras, es cólico, probablemente tengas piedra en el riñon

Lo se muy bien pues yo parezco de eso, me lo diagnosticaron este año y llevo todo el año eliminando piedras.

Debes beber al menos dos litros de agua al día, pero agua, no bebidas carbonatadas ni botellas de ron.  Si lo haces poco a poco se irá el dolor del riñón, pero irá bajando a la parte de la vejiga y los testículos.

Te recomiendo que vayas al médico, se lo comentes al médico  y te hagan una radiografía. Seguramente pidan un análisis de orina. Es posible que un día de estos, incluso puede que hoy, de madrugada y así por las buenas te entre un dolor que desees morirte. Eso es divido a que ha salido una piedra del riñón (grande como de un par de milímetros), y baja por un conducto plano hacia la vejiga, ese trayecto es muy, muy doloroso. Si vas a urgencias y te atienden como es debido, te darán un calmante y te recetarán anti-inflamantorio y calmante.

Es importante conseguir la piedra porque cuando baje a la vejiga la eliminarás por la uretra. Es conveniente analizarla para saber que la causa.

Espero haberte ayudado

Chau

[La Quiniela]

Hola amigos

Comparto aquí un sencillísimo código para hacer La Quiniela. Se trata de un código que genera variaciones de la quiniela de forma aleatoria. Es lo mismo que esos artilugios con daditos 1, X, 2  que venden en estancos, librerías o quioscos.



Es una versión virtual de los dados. El programita muestra una ventana como esta:




Para usuarios sin conocimientos de programación
Tan sólo necesitas el Bloc de Notas de Windows:

- Abre el Bloc de Notas (notepad.exe)

- Copia y pega el siguiente código VBSCRIPT

   

Código [Seleccionar] Expandir


        Dim var(14)
Dim Rand
Dim Partido
       Dim P15(2)
Randomize
For Partido = 1 To 14
Rand = CStr(Int(Rnd * 3))
Rand = Replace(Rand, "1", "X")
Rand = Replace(Rand, "0", "1")

var(Partido) = _
"Partido " _
& Right("00" & Partido, 2) _
& ":..... " _
& Rand
Next
  For Partido = 1 To 2
      Rand = CStr(Int(Rnd * 4))
        P15(Partido) = Replace(Rand, "3", "M")
       Next

     MsgBox Join(var, vbCrLf) _
& vbCrLf & vbCrLf _
      & "[P15]" & vbCrLf _
& "Equipo A:  " & P15(1) _
& vbCrLf _
& "Equipo B:  " & P15(2), _
vbOKOnly, _
"Mi Quiniela"


-   Guarda con extensión *.VBS, por ejemplo miquiniela.vbs, haces doble clic sobre el archivo y ya tienes tu apuesta columna.

Si has hecho alguna vez la quiniela sabrás que una apuesta consta de dos columnas. Este programa solo genera una columna por motivos estéticos. Para generar otra vuelve a hacer doble clic sobre el archivo VBS y generará otra distinta.

Existen 4782969 columnas posibles, así que es difícil que vuelva a salir otra idéntica.

Si deseas que genere las dos columnas usa este otro código:

   

Código [Seleccionar] Expandir


        Dim var(14)
Dim Rand1
Dim Rand2
Dim Partido
       Dim P15(2)
Randomize
For Partido = 1 To 14
Rand1 = CStr(Int(Rnd * 3))
Rand1 = Replace(Rand1, "1", "X")
Rand1 = Replace(Rand1, "0", "1")
Rand2 = CStr(Int(Rnd * 3))
Rand2 = Replace(Rand2, "1", "X")
Rand2 = Replace(Rand2, "0", "1")
var(Partido) = _
"Partido " _
& Right("00" & Partido , 2) _
& ":..... " _
& Rand1 & vbTab _
& Right("00" & Partido , 2) _
& ":..... " & Rand2

Next
  For Partido = 1 To 2
      Rand = CStr(Int(Rnd * 4))
        P15(Partido) = Replace(Rand, "3", "M")
       Next

     MsgBox Join(var, vbCrLf) _
& vbCrLf & vbCrLf _
      & "[P15]" & vbCrLf _
& "Equipo A:  " & P15(1) _
& vbCrLf _
& "Equipo B:  " & P15(2), _
vbOKOnly, _
"Mi Quiniela"


Ejemplo de como se verá:





PARA VISUAL STUDIO
Aquí lo dejo en otros lenguajes de programación:

VB

Código (vb) [Seleccionar] Expandir


Dim var(14) As String, P15(2) As String
Dim Rand As String
Dim Partido As Integer
       Randomize
       For Partido = 1 To 14
           Rand = CStr(Int(Rnd * 3))
           Rand = Replace(Rand, "1", "X")
           Rand = Replace(Rand, "0", "1")
           var(Partido) = "Partido " & Right("00" & Partido, 2) _
           & ":..... " & Rand
      Next
       For Partido = 1 To 2
       Rand = CStr(Int(Rnd * 4))
       P15(Partido) = Replace(Rand, "3", "M")
       Next
     MsgBox Join(var, vbCrLf) & vbCrLf & vbCrLf & _
     "[P15]" & vbCrLf _
     & "Equipo A:  " _
     & P15(1) & vbCrLf _
     & "Equipo B:  " _
     & P15(2), , vbOKOnly, "Mi Quiniela"



VB.NET (Consola)

     

Código (vbnet) [Seleccionar] Expandir

 
        Dim Signo() As String = {"1", "X", "2"}
       Dim P15(2) As String, Var(14) As String
       Dim Rand As New Random
       For Partido As Integer = 1 To 14
           Var(Partido) = String.Format("Partido {0:00}:..... {1}",
                                        Partido, Signo(Rand.Next(0, 3)))
       Next
       For Partido As Integer = 1 To 2
           P15(Partido) = (CStr(Rand.Next(0, 4)).Replace("3", "M"))
       Next

       Console.WriteLine(String.Format("{0}{1}{1}[P15]{1}Equipo A:  {2}{1}Equipo B:  {3}",
                                     String.Join(Environment.NewLine, Var),
                       Environment.NewLine,
                       P15(1),
                       P15(2)))
       Console.ReadLine()


NET C# (Consola)
    

Código (csharp) [Seleccionar] Expandir


            string[] Signo = { "1", "X", "2" };
           string[] P15 = new string[3];
           string[] Var = new string[15];
           Random Rand = new Random();
           for (int Partido = 1; Partido <= 14; Partido++)
           {
               Var.SetValue(string.Format("Partido {0:00}:..... {1}", Partido, Signo[Rand.Next

(0, 3)]), Partido);
           }
           for (int Partido = 1; Partido <= 2; Partido++)
           {
               P15.SetValue(Convert.ToString(Rand.Next(0, 4)).Replace("3", "M"), Partido);
           }

          Console.WriteLine(string.Format("{0}{1}{1}[P15]{1}Equipo A:  {2}{1}Equipo B:  {3}",
               string.Join(Environment.NewLine, Var),
               Environment.NewLine, P15[1], P15[2]));
          Console.ReadLine();



Advierto que es puramente aleatorio , este programa no hace milagros  . Está pensado especialmente para personas que no sepan programar y quieran hacer la quinela  al azar, como con los dados, pero usando el ordenador.

Pues nada, suerte y que toque  



Personalmente considero que las Loterías y Apuestas del Estados son invento para recaudar dinero y quitárselo a los pobres.

[inform-world.ru]

Me alegro que lo hayas podido solucionar.  

y gracias por explicar  la fuente del problema.

Me he informado un poco y inform-world.ru es un programa malicioso que redirecciona el navegador para mostrar anuncios.

https://malwaretips.com/blogs/remove-inform-world-ru-watch
Nota: No recomiendo desinstalar descargar "las curas" que se facilitan en este enlace. No las he testado pero a menudo, en estas cosas,  es peor la cura que la enfermedad.

Estos anuncios están dirigidos a promover la instalación de contenido cuestionable adicional,
incluyendo las barras de herramientas del navegador web, servicios de optimización y otros productos,
todo lo que el editor puede generar programas publicitarios de pago por clic en los ingresos.

Cuando se infecta con este programa adware, otros síntomas comunes incluyen:

- banners publicitarios son inyectados con las páginas web que se está visitando.
- texto de la página web al azar se convierte en hipervínculos.
-popups aparecen navegador que recomiendan las actualizaciones falsas u otro software.
- Otros programas de software publicitario no deseado puede ser que consiga instalado sin
el conocimiento del usuariox

(Cita del enlace)


Se instala al instalar programas gratuitos, seguramente de sitios como softonic.

Desafortunadamente, algunas descargas gratuitas no describen adecuadamente que
también se va a instalar otro software y es posible que haya instalado programas
publicitarios sin su conocimiento.

(Cita del enlace)


He usado Ping para obtener el Ip de inform-world.ru, que se supone que .ru es RUSIA, pero el IP que me da el ping es este 104.27.173.3 y el geolocalizador de elhacker me dice que procede de arizona, mientras que otro que he probado me dice que San Francisco

Código [Seleccionar] Expandir

irección de IP:  104.27.173.3
Código de País:  USA / US   United States
País:  United States
Región:  CA
Ciudad:  San Francisco
Código Postal:  94107
Latitud:  37.76969909668
Longitud:  -122.39330291748

De journaltsavtos.ru  su IP es  104.28.3.102. Igualmente obtengo lo siguiente:

Código [Seleccionar] Expandir

Dirección de IP:  104.28.3.102
Código de País:  USA / US   United States
País:  United States
Región:  CA
Ciudad:  San Francisco
Código Postal:  94107
Latitud:  37.76969909668
Longitud:  -122.39330291748


What is JOURNALSAVTOS.RU?
Nota: No recomiendo desinstalar descargar "las curas" que se facilitan en este enlace. No las he testado pero a menudo, en estas cosas,  es peor la cura que la enfermedad.

Código [Seleccionar] Expandir

JOURNALSAVTOS.RU apareció en su PC después de instalar el software libre, que se incluye con el programa de publicidad
de descarga. Adware cambia la página de inicio y motor de búsqueda
de su navegador web para JOURNALSAVTOS.RU.(cita del enlace)


chau

No se para qué le iba a servir a un dinosaurio las plumas, como no sea para el frío y conservar la temperatura, protegerse de el lluvia o camuflaje. Ya que la idea de mostrarlo con piel como la de dragón de Komodo, los cocodrilos o los caimanes no tienen en cuenta que estos lagartos o reptiles son terrestres y acuáticos, están adaptados a ello. Tiene cierto sentido pensar que los que sólo eran terrestres pudieran tener algún tipo de cobertura que les protegiera como pelo o plumas, para mantener la temperatura. Sin embargo los pingüinos son acuáticos y tienen plumas.

Me he acostumbrado a ver los dinosaurios sin plumas, como en Parque Jurásico, además se ven más temibles...

No se, aquí tienes un dinosaurio con pluma, ya no se ve tan temible.

[programador de tareas de Windows]

En casos así yo limpio la compu instalo el sistema de nuevo y listo, no me complico.

Algo básico que se me ocurre es que mires el programador de tareas de Windows

Run:

Código [Seleccionar] Expandir

%windir%\system32\taskschd.msc /s

y mires si hay programado que se ejecute algo extraño automáticamente.

Selecciona Biblioteca de programador de tareas y mira a ver que hay, si ves algo raro dale a Propiedades, ahí veras información sobre esa programación.

Mira también en C:\Windows\Tasks el listado de SCHEDLGU.TXT

Lo que sea puede que trate de conectarse a la red. Ves a Panel de control y clica en Firewall de Windows y luego en Configuración avanzada

Código [Seleccionar] Expandir

%windir%\system32\WF.msc

Mira las reglas de entrada y salida a ver si hay algún exe extraño que trate de conectarse a la red.


Yo hace poco me bajé un supuesto keygen de Norton, pero antes de nada lo examiné. Resulta que era un exe descomprimible y en su interior había vbscripts, archivos bat y un falso exe de Intel, diccionario de contraseñas (no de Norton si no privadas de correos). Creaba una carpeta de Intel en C:. era más falso que judas.  

[antes de la subida también]

Has visto el enlace que puse debajo esa noticia ?  

Ya pero si lo compra directamente al proveedor del vendedor (antes de la subida también) es decir al por mayor, le sale aún más barato.

Entiendo que en el supuesto para ahorrarse lo que pagaría de impuestos en las próximas cajetillas. Pero si lo hubiera hecho al proveedor, comprando al por mayor le sale más barato.


Estoy mirando las otras noticias y parecen como de broma. No se  


Son broma claro...


"Un joven confiesa haber robado mas de 2200 mecheros a sus colegas"

"El Ayuntamiento de  Madrid da permiso a un restaurante chino para vender carne de perro"

"El dueño de Ikea pide a sus clientes que devuelvan todos los lápices robados"

"Desalojan un vagón de metro por el pedo de una joven"

"Mujer con diarrea obliga a desalojar un centro comercial"

Eso explica que pusieran "Marlboro"

Y ahora que recuerdo ha salido una ley, y esto es cierto que hay un límite de pago en efectivo de 2500€. No se a cuánto llegaría eso


Pero bueno, hoy en día nunca se sabe hay muchas noticias locas que parecen mentira y luego son ciertas. Es difícil saber según que



Ahora que pienso... ¿550 cartones? ¿Qué estanco tiene 550 cartones de una sola marca? ahí podrían haber puesto menos cantidad, pero cuela.