Mensajes

[statuspc(48)]

todavia no entiendo bien la logica del programa, pero bue ...entonces statuspc(48) deberia ser statuspc(49) si son 50 computadoras y la funcion la  deberias pasar del modulo y ponerla directamente en el formulario.y por favor indentar el codigo fuente.

Código (vb) [Seleccionar] Expandir


dim statuspc(48) as boolean
public sub Ocuparpc()
    For i = 0 To ubound(statuspc)
        principal.Label(i).Caption = iif(statuspc(48),"DISPONIBLE","NO DISPONIBLE")
    Next i
End sub


no deberia reemplazarse el 48 del iif por la "i", sino siempre chequearia el valor de (48) no?

saludos.

jajaja se me paso xd, me ire a dormir ando muy desvelado ya jajaja.

Dulces Lunas!!¡.

Antes que nada debes considerar 49 Estados ya que de 0-48 hay 49

Una recomendacion statuspc() ponlo en estado boleano o tipo boolean

Código (vb) [Seleccionar] Expandir


dim statuspc(48) as boolean
public sub Ocuparpc()
   For i = 0 To ubound(statuspc)
       If statuspc(i)  Then
           principal.Label(i).Caption = "DISPONIBLE"
       else
           principal.Label(i).Caption = "NO DISPONIBLE"
       End If
   Next i
End sub


Otra forma de IF(), es lo mismo que arriba

Código (vb) [Seleccionar] Expandir


dim statuspc(48) as boolean
public sub Ocuparpc()
   For i = 0 To ubound(statuspc)
       principal.Label(i).Caption = iif(statuspc(i),"DISPONIBLE","NO DISPONIBLE")
   Next i
End sub


P.D.: Usa function para procesar informacion y devolver un valor y Sub para realizar procesos sin devolver ningun valor por medio del mismo.
Usa private, public, friend segùn se requiera, pero declaralos, estos definen el accceso a dichos procesos/funciones desde exterior, se comprende que si no son declarados seria private por default pero por prioridad seria mejor derarlos.

Dulces Lunas!¡.

Para yo los pics del principal.frm(Form1)  usaria una matriz de controles.
Yo en tu lugar en el    registro.frm(Form2)    usaria una clase para subclasificar todo esos eventos  _Change o mas facil aun una matriz de controles.
Quitaria los Sleep()  que de nada sirven solo estan de màs hasta donde puedo ver.

Solo te digo lo que veo a simple vista de lo que posteaste.

un saludo

Dulces Lunas!¡.

jajajaja perdonen ya me conteste a mi mismo.

por si acaso no era mas obvio SetTextColor()

Dulces Lunas!¡.

Bueno nada mas para saber con que API le aplico color al texto en el HDC creado en memoria, la api que uso para crear dicho texto es:

Código (vb) [Seleccionar] Expandir


CreateFontIndirect


Dulces Lunas!¡.

Hola, Teoricamente las dos es un ocx mas.

saludos

Hace como 3 meses intente abrir un proyecto que usaba la version del 6.0 en seven y jamas corrorio, pase el ocx lo intentaba registrar pero nunca me dejo, por eso mi pregunta.

P.D.: Actualmente estoy en xp, Seven lo desinstale.!¡.

Dulces Lunas!¡.

La grandiosa duda es

¿Que version del M$ Windows Common Controls es la que acepta Vista/Seven?

Dulces Lunas!¡.

los phiconLarge y phiconSmal no se suponen que solo devuelven el punto al array correspondiente?.

Lo de los flags se me paso el 1 era en ExtractIconEx y el 3 era en DrawIconEx

y con GetSystemMetrics lo revisare, aunque con solo quitar 32,16 y sustituirlos por 0 de las apis basta para dejar los iconos en su tamaño natura (Aunque creo que en ese caso mejor devi haber usado DrawIcon y no DrawIconEx  ).

P.D.: Si no comentas ni encuenta, ya que lo habia escrito aquì en el foro con el compilador y probarlo!¡.

Dulces Lunas

Que tipos de Compresion utilizas?

Un consejo agresa una opcion para desempaquetar en donde uno desee, si lo distribuyes solo el EXE y no el source code seria ideal esa opciòn!¡  (Aun no me descargo nada).

Cambiando y reiterando lo que ya he dicho:

Mmm animate a hacerlo sin el feo Codejock, yo ya lo instale pero pesa una friega xS ademas que ni me sirvio en Vb6 sepa el por que, pero bueno jem ya lo desinstale y borre xP.

Para eso hay Skins y otras cosillas.

░▒▓BlackZeroҖ▓▒░ tenes que destruir los handles una vez que termines o coprar mucha ram xD

A tienes razon se me paso es minuculo (GRANDE) detalle jim

Código (Vb) [Seleccionar] Expandir


    DestroyIcon LIcons
    DestroyIcon SIcons


Dulces Lunas