Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Hadess_inf

#921
Eso es lo que pasa cuando uno esta que le mira las piernitas a la compañera de al lado ...

Que sencillo esta tu examen men .. ¡¡¡
#922
seria bueno que pongas tu codigo para ver en que tienes problemas ...
#923
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
#924
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
#925
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.