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 - karmany

#1211
Programación Visual Basic / Re: Estilo XP
31 Agosto 2006, 18:48 PM
Hola Zeroql...

Cita de: Zeroqla mi los estilos visuales me funcionan bien. con el manifest dentro de los controles common controls

No digas eso porque volvemos a lo mismo. La pregunta que hace WarGhost es si te funciona con:

"Microsoft Windows Common Controls 6.0"
[/size]

Y pienso que a ti tampoco te debe funcionar
#1212
Ingeniería Inversa / Re: desconpilar
31 Agosto 2006, 16:33 PM
Mira, esta es mi opinión:
Añadir a un programa más opciones de las que tiene y sin saber ensamblador, pues puedes tardar una eternidad..

Además y lo peor de todo, es que tal vez con lo nuevo que implantes al programa, sea necesario obtener algún dato anterior.. me explico:
Imagina un programa en VB en donde, en el código fuente el autor da a la x el valor 34.
x = 34
Piensa que si quieres modificar ese 34 a 33 por ej... ¡Pónte a buscar dónde guarda ese 34!

Basta de rollos..
Mi opinión es que si ese programa se te queda pequeño y encima entiendes de C++ y VB, yo me pondría ya a hacer mi propio programa.

#1213
Software / Re: AYUDA CON DVDR PHILIPS 1648P1
31 Agosto 2006, 15:54 PM
Descarga este programa que comenta Mordor y pruébalo:
Power DVD
#1214
Ingeniería Inversa / Re: desconpilar
31 Agosto 2006, 15:42 PM
Hola rodes..

No vas a conseguir con ningún programa el código fuente original.
No sé qué es lo que querrás hacer pero si quieres modificar algo, la alternativa es un debugger como el Olly, y modificar en el código  ensamblador lo que quieres. Esto es muy complicado si no sabes ensamblador ni conoces el Olly.

En esta página tienes un curso completo de manejo de Olly:

PULSA AQUÍ
[/b][/u][/color][/size][/url]

#1215
Programación Visual Basic / Re: Estilo XP
30 Agosto 2006, 03:01 AM
Yo también comprobé hace tiempo que hay algunos controles que aún usando el  'manifest' aparecen sin modificar el estilo..
Yo de hecho, llevo un tiempo espezando a manejarme en VB2005, en donde el estilo es WXP.

¿Qué control en especial es el que te interesa poner en estilo windows XP?
#1216
Después de comerme bastante la cabeza he hecho por fín un código que alinea texto en un listbox.
Estoy dando los últimos retoques. Lo subiré también a la Web de elGuille.
Terminado por fín--

El código completo está bien explicado en la web de elGuille:

http://www.elguille.info/colabora/vb2006/karmany_centrartextolistbox.htm

He estado también intentando hacer lo mismo de alguna forma más sencilla(y que fuera perfectamente precisa), pero no he conseguido hacer funcionar nada más.
Pienso que con estos dos ejemplos que he puesto ya no tiene que haber ningún problema.

Lo único es que si pones un título, no lo pongas en sus propiedades centrado(ej. un textbox o label centrado), ya que como también he dicho, a veces el ancho del listbox no se puede calcular correctamente y se verá el título desplazado. Y eso queda muy poco estético.
El título hay que tratarlo como un ítem más, así devolverá un valor que después habrá que transformar a scalemode del form y por último hay que pensar en la distancia que hay entre la izquierda del form y la izquierda del list que en definitiva es el Left del List.
Bueno si tienes alguna duda respecto a esto, házmelo saber y te lo explico.
#1217
Software / Re: grabadora no me va
29 Agosto 2006, 01:46 AM
Es un tema muy general, pero yendo por lo más sencillo:

-Son compatibles los DVD's con tu grabadora?
-Has visto si tienes algún problema en ad. dispositivos?
-Has probado a utilizar otro software de grabación diferente?

Yo siempre recomiendo, según para qué casos el CloneCD.
Deja sólo instalado un software de grabación, puede crearte conflictos sino.

Cuando acabes de grabar el DVD, no lo saques y comprueba desde tu grabadora que se ha grabado. Puede ser que estés utilizando un DVD que no sea compatible con tu lector.
#1218
Ingeniería Inversa / Re: PROBLEMAS? RE:
29 Agosto 2006, 01:37 AM
Hola fortil...
Yo estoy con tena.
Actualmente el debugger más utilizado es el OllyDBG.
El OllyDBG te va a funcionar sin ningún problema.

Además en la fantástica página de Ricardo Narvaja tienes un IMPRESIONANTE (en mayúsculas) curso de cómo utilizar el OllyDBG desde cero e información también a niveles muy altos..
Seguro que dejas el Softice.
#1219
Al final he conseguido algo que puede ser útil. El problema es que alineo el texto utilizando espacios y el problema de los espacios es que ocupan varios píxeles, dependiendo de cada letra. Por este motivo la alineación es buena pero no es perfecta, por culpa de estos píxeles de los espacios..

He intentado insertar datos al listbox utilizando sendmessage:
SendMessage(List1.hwnd, LB_ADDSTRING, 0, ByVal "dato"), pero no he conseguido ver ninguna constante de SendMessage que permita empezar a escribir en una determinada coordenada..
Si alguien tiene alguna idea más o a qué API podría echar un vistazo...(se tiene que poder hacer de alguna forma.)

Dejo mi código. Sólo hay que poner un listbox: List1 y un Label: Label1.

'*******************************************************
'*      Código para centrar texto en un listbox        *
'* Hay que añadir: 1 listbox: List1 y 1 label: Label1. *
'*                                                     *
'*              Realizado por karmany                  *
'*******************************************************


Private Sub Form_Load()
  Label1.AutoSize = True
  List1.AddItem (centrar("centro"))
  List1.AddItem (centrar("karmany"))
  List1.AddItem (centrar("oil"))
  'LTrim para recuperar el item original.
End Sub

Public Function centrar(text As String) As String

  Dim tamtexto As Integer, tamlist As Integer, tamreal As Integer
  Dim tamspc As Integer, espacios As Integer

  Label1.Font.Name = List1.Font.Name 'Nombre de la letra
  Label1.FontSize = List1.FontSize 'Tamaño de la letra
  Label1.FontBold = List1.FontBold 'Negrita
  Label1.FontItalic = List1.FontItalic 'Cursiva

  'Calcula el tamaño de un espacio:
  Label1.Caption = " "
  tamspc = Label1.Width

  'Calcula el tamaño del texto:
  Label1.Caption = text
  tamtexto = Label1.Width

  'Calcula el tamaño del listbox:
  tamlist = List1.Width

  'Calcula el tamaño que hay que poner delante del texto:
  tamreal = Int(tamlist - tamtexto) / 2

  'Calcula el número de espacios que hay delante del texto:
  espacios = Int(tamreal / tamspc) - 1

  centrar = Space(espacios) & text

End Function
#1220
Esta es una pregunta que llevo mucho tiempo intentando resolver y sin éxito..
A ver si alguno sabe cómo centrar texto en un listbox..

Hasta ahora lo que he hecho es utilizar la letra Courier que es proporcional y así calculo el centro sabiendo los caracteres que caben en un listbox.
A ver si a alguien se le ocurre algo mejor..
Gracias