Mensajes

foreach recorre un Arreglo, colección, objetos enumerarles devolviéndolos como si fueran uno solo

Si lo puedes entender mejor tal vez asi:

Código (csharp) [Seleccionar] Expandir


char[] letras = "HOLA".ToCharArray();
char letraActual;
for (int i = 0; i < letras.Length; i++) {
   letraActual = letras[i];
   // se trabaja con letra Actual
}

El for podria ser resumido a esto

Código (csharp) [Seleccionar] Expandir


char[] letras = "HOLA".ToCharArray();
foreach (char letraActual in letras)
   // se trabaja con letra Actual
}


espero que hayas entendido, ovbiamente el framework esta pensado y optimizado para hacer eso, no es por "ahorrar codigo" nada mas

Puedes hacer un foreach de Me.Controls y ver si el nombre es P(numero) y asi aplicarle el text

EJ: Teniendo 4 botones P1, P2, P3, P4

Código (csharp) [Seleccionar] Expandir


for (int i = 1; i < 5; i++) {
  foreach(Control control in this.Controls) {
      if (control.Name == "P" + i)
          control.Text = i;
  }
}


@Stelio Kontos, @BlackZeroX: Bajando de prioridad el proceso puede pasar desapercibido

Elemental code, yo hize exactamente lo mismo en .net, pero apagar a "determinada hora", compruebo cada 1 minuto y medio (no me importa la precision de  la hora del apagado ). Hubiera presentado eso en lugar del Notas por red  

Usa timer que tengan un minuto de intervalo, usas un contador y si llega a 60 ... apagas

No se si te habras dado cuenta, Esto es el subforo de vb, lo tuyo es C++..... va a otro lado

No faltaria poner quien lo hizo tambien el la lista? (no la encuesta )

Y.... bueno, los participantes... votamos? que dicen los demas ?

Mod: Tenemos que votar sino no podemos ver los resultados

El nombre de mi aplicacion bien original, la unica en español que hay

[Agradecimientos]

Wow, tremenda presentacion, fue lindo poner ideas, pispear algo de programacion y sobretodo probarlo

El concurso va estar que arde

6.- Tengo el orgullo de poder decir que es 100% indetectable (puesto que no actuo directamente sobre el proceso del juego)

Esa fue mi idea

Quedo muy bueno che felizitaciones y espero que ganes o almenos empates con Raul que tambien me gusto mucho su mensagero.

Saludos y suerte.

Cuando lo termine tambien lo presentare aca, Si es posible lo corrijo hoy antes de que cierre el concurso

Mod: Notas por red , ya esta listo pueden bajarlo devuelta y probarlo

* Agradecimientos  : Raul388 & BlackZer0x & Dessa & LeandroA

WTF!

Eso definitivamente es C++, no visual basic

[En las declaraciones]

Buenas. Esto es un agregado al ucListView de Carles PV en el que pongo mediante flags que las columnas muestren el triangulito al lado (winXP) o arriba y que ademas se ponga la cabecera de la columna azulada (win7)

Porque a veces las columnas se vuelven locas y hay que poner orden xD

Si alguno probo Win7, vera que en el ListView el orden se muestra de una forma distinta


Poniendo el triangulo arriba y remarcando el Header de la columna ordenada.

Pues se me ocurrio buscar como lograr eso, y encontre Esto que es parte de como se maneja un ListView por API. Me di cuenta que ya no se agrega un triángulo al listview, es anticuado, ahora es mediante unos flags en el formato de la cabecera. Entonces me decidí modificar el ucListView para que acepte eso en sus columnas. Y aqui el resultado

En el control de usuario, agregar lo siguiente

En las declaraciones

Código (vb) [Seleccionar] Expandir

Private Const HDF_SORTDOWN As Long = &H400
Private Const HDF_SORTUP As Long = &H200

En las Propiedades

Código (vb) [Seleccionar] Expandir


Public Property Get ColumnOrder(ByVal Column As Integer) As eSortOrderConstants
   Dim uHDI   As HDITEM
   If (m_hListView And m_hHeader) Then
       uHDI.mask = LVCF_FMT
       Call SendMessage(m_hListView, HDM_GETITEM, Column, uHDI)
       If (HDF_SORTDOWN And uHDI.fmt) Then
           ColumnOrder = soDescending
       ElseIf (HDF_SORTUP And uHDI.fmt) Then
           ColumnOrder = soAscending
       Else
           ColumnOrder = soDefault
       End If
   End If
End Property
Public Property Let ColumnOrder(ByVal Column As Integer, ByVal order As eSortOrderConstants)
   Dim uHDI   As HDITEM
   If (m_hListView And m_hHeader) Then
       With uHDI
           .mask = HDI_FORMAT
           Call SendMessage(m_hHeader, HDM_GETITEM, Column, uHDI)
           If order = soAscending Then
               .fmt = (.fmt And Not HDF_SORTDOWN) Or HDF_SORTUP
           ElseIf order = soDescending Then
               .fmt = (.fmt And Not HDF_SORTUP) Or HDF_SORTDOWN
           Else
               .fmt = .fmt And Not (HDF_SORTUP Or HDF_SORTDOWN)
           End If
       End With
       Call SendMessage(m_hHeader, HDM_SETITEM, Column, uHDI)
   End If
End Property

Y listo, para que ver la modificacion en accion ponen en un ucListView

Código (vb) [Seleccionar] Expandir

Private Sub ucListView1_ColumnClick(Column As Integer)
   If ucListView1.ColumnOrder(Column) = soAscending Then
       ucListView1.ColumnOrder(Column) = soDescending
   Else
       ucListView1.ColumnOrder(Column) = soAscending
   End If

Y les quedara asi:


Aunque no es muy lindo que quede asi digamos.... para que paresca un ListView Comun y corriente, con este codigo alcanza

Código (vb) [Seleccionar] Expandir

Private Sub ucListView1_ColumnClick(Column As Integer)
  Dim nCol As Integer

   With ucListView1
       If (.Count > 1) Then
           For nCol = 0 To 2
               If (nCol <> Column) Then .ColumnOrder(nCol) = soDefault
           Next nCol
           If .ColumnOrder(Column) = soAscending Then
               .ColumnOrder(Column) = soDescending
             Else
               .ColumnOrder(Column) = soAscending
           End If
           ' Aca su rutina para ordenar
       End If
   End With
End Sub


PD: Deben compilar el proyecto para verlo visualmente, desde el IDE (salvo que le hayan puesto un manifest, aunque dudo que funcione) no se mostrará

Espero que les sirva!
Pueden bajar el control modificado, con el ejecutable y un ejemplo descargandolo Aca


Originalmente para El foro de LeandroA

Los concursantes no votan o si?