que paso con mi POST.. ¡¡¡¡ ¿?

[Hadess_inf]

Hola que onda con todos, pues me desagrada lo que ha ocurrido, no se porque motivo o razon se ha borrado uno de los post que hice hace un par de dias atras, realmente quisiera saber porke lo borraron, o en tal caso donde esta  ???

No rompi ninguna regla ni nada de eso como para que simplemente lo kitaran, espero que alquien me diga que paso.

Saludos.

[Slasher-K]

Hay formas y formas de pedir las cosas, esto no es un supermercado es un foro de consulta, si tenés una duda la preguntás pero no pedir que te hagan las cosas.

Saludos.

[Hadess_inf]

perdon, pero en nigun momento pedi que me dijeran como es el codigo tal ... tal.

Pedi que me ayuden a entender un codigo, y si es cierto que queria que me ayudacen pero no dije, DENMELO ..¡¡
lo que queria es que me ayuden o me digan por donde puedo empezar, algun codigo por donde empezar 

[NYlOn]

como era tu post xDDD?

[Hadess_inf]

Weno, aqui esta la parte de deteccion de la resolucion de la pantalla.

Calcular la profundidad de color (bits por pixel) y resolución de Windows:

Crear un formulario y un TextBox y escribir:

Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

Private Sub Form_Load()
   Dim col, bit, largo, alto As Integer
   col = GetDeviceCaps(Form1.hdc, 12)
   If col = 1 Then
      bit = GetDeviceCaps(Form1.hdc, 14)
      If bit = 1 Then
         Text1.Text = "Resolucion de 1 bit / 2 colores"
      ElseIf bit = 4 Then
         Text1.Text = "Resolucion de 4 bits / 16 colores"
      End If
   ElseIf col = 8 Then
      Text1.Text = "Resolucion de 8 bits / 256 colores"
   ElseIf col = 16 Then
      Text1.Text = "Resolucion de 16 bits / 65000 colores"
   Else
      Text1.Text = "Resolucion de 16 M colores"
   End If
   largo = GetDeviceCaps(Form1.hdc, 8)
   alto = GetDeviceCaps(Form1.hdc, 10)
   Text1.Text = Text1.Text & " " & largo & "x" & alto & " pixels"
End Sub