Mensajes

[ask]

I did try mane but the thing is that it would take me too much time to debug this as I would need to test each param by each param which would be too long so I wondered if there was someone open to help but you doesn't seem to!

Its OK man if you don't wanna help just leave the thread

A forum is to ask help no? I'm just asking for some help nothing more...

exactly to ask no to ask for my stupid english Knowledge can diference between those words 

I wanna help but don't want make your whole work.

regards

I think you are so lazy, You At least should come here with some doubt. But you always are here as if the people here work for you.  

can someone make me a FUD,
can someone make my work for me, then go to my house and help me with my wife,
maybe someone can bring me money.
maybe can go to my work for me.
also make my homework.

Deberías hacerlo para skype ahora que pasara a la historia.

esta muy guapo

[OTL]

O postea uno de OTL

[EDITO:]

Es así.

Código (vb) [Seleccionar] Expandir

ListView1.ListItems(1).ForeColor = vbRed


saludos

EDITO:

un ejemplo mas claro para que no tengas dudas.

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim i As Integer
Dim li As ListItem

ListView1.View = lvwReport

ListView1.ColumnHeaders.Add Text:="hola", Width:=1000
   
For i = 1 To 8
Set li = ListView1.ListItems.Add(Text:="Item " & i)
Next i

ListView1.ListItems(1).ForeColor = vbYellow
ListView1.ListItems(2).ForeColor = vbBlue
ListView1.ListItems(3).ForeColor = vbRed
ListView1.ListItems(4).ForeColor = vbGreen
ListView1.ListItems(5).ForeColor = vbCyan
ListView1.ListItems(6).ForeColor = vbWhite
ListView1.ListItems(7).ForeColor = vbBlack
ListView1.ListItems(8).ForeColor = vbMagenta
End Sub




saludos

Pues creo que debería funcionar, si funciona en W7, no hay mucha diferencia.

Si pones tus checkboxs en un groupbox puedes hacer esto.

Código (vbnet) [Seleccionar] Expandir

Dim ChkBox As CheckBox = Nothing

       For Each xObject As Object In Me.GroupBox1.Controls
           If TypeOf xObject Is CheckBox Then
               ChkBox = xObject
               ChkBox.Checked = True
           End If
       Next


creo que a eso te refieres.

y sin Groupbox así:

Código (vbnet) [Seleccionar] Expandir

For Each ctrl As Control In Me.Controls

            If TypeOf ctrl Is CheckBox Then
                DirectCast(ctrl, CheckBox).CheckState = CheckState.Checked
            End If

        Next

saludos.

Yo pense algo asi aunque no se si funcione :S  

Código (python) [Seleccionar] Expandir

ar = []
num=''

while (num!=0):
num = int(input("Introduce un numero: "))
ar.append(num)

r = max(ar)
print ('Maximo: ' ,r)




saludos

No se nada de python. pero podrias ir agregando los valores a un array luego usas max y listo obtienes el valor máximo "mas alto".

[@Danyfirex]

@Danyfirex que penosidad de código.

si yo se algo, muy tonto  pero bueeeee.

saludos mDrinky.