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.
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.
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 :-X
como era tu post xDDD?
Weno, aqui esta la parte de deteccion de la resolucion de la pantalla.
CitarCalcular 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