Mensajes

tienes que convertir el DC del picture a BMP (Es mas facil y rapido!¡) despues a JPG,PNGGIF, o el de tu preferencia, o ya de plano a directamente!¡, despues tienes DOS alternativas las cuales son:

Guardar las imagenes en el HardDisk o tratarlas directamente a el Formato Deseado (Yo preferiria el AVI!¡, despues comprimiria a otro, ya que si fuese directamente a formato video se tardria la aplicacion xS).

Dulces Lunas!¡.

[Twip]

son equivalencias

1 pixel = 15 Twip

Aplicando una regla de 3 se convierten esos Twip a pixeles o viceversa (en este caso estory convirtiendo de Pixeles a Twip ya que el .Height del textbox esta en Twip... aun que pude dividir estos entre 15 y no multiplicar el .height del commandButton).

1 P = 15 T
cmdCommand1.Height P    -->    T    ( ya que esta en Pixeles .height)

Si no estuviese en pixeles se invierte

1 P = 15 T
X P    --> cmdCommand1.Height P T    ( ya que esta en Twip .height)

Embos casos se Obvia el uno y se pasa a hacer la poperacion Final
es decir

el el 1er caso

cmdCommand1.Height Pixeles   *   15 Twip  \  1Pixel
obviando la divicion
cmdCommand1.Height Pixeles   *   15 Twip

en el caso dos

cmdCommand1.Height P Twip  *  1 Pixel  \ 15 Twip
obviando la multiplicacion
cmdCommand1.Height P Twip \ 15 Twip

y como por defecto en pixeles tanto como en Twip no hay puntos desimales y pues usamos \ para devolver el entero de la divión y no / ya que devuelve el entero con fracción

Dulces Lunas!¡.

[Hwnd]

.
Un textBox dentro de un CommandButton, tambien se pueden meter los programas Ajenos dentro del Form solo obteniendo el Hwnd del mismo.!¡.

Con scaleMode = Pixeles

Código (vb) [Seleccionar] Expandir



Option Explicit

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long

Private Sub cmdCommand1_Click()
   Me.ScaleMode = 3    '   //  Pixeles
   SetParent txtText1.hwnd, cmdCommand1.hwnd
   With txtText1
       .Top = ((cmdCommand1.Height * 15) - .Height) \ 2
       .Left = ((cmdCommand1.Width * 15) - .Width) \ 2
       Putfocus (.hwnd)
   End With
End Sub



sin ScaleMode Pixel

Código (Vb) [Seleccionar] Expandir



Option Explicit

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long

Private Sub cmdCommand1_Click()
   SetParent txtText1.hwnd, cmdCommand1.hwnd
   With txtText1
       .Top = (cmdCommand1.Height - .Height) \ 2
       .Left = (cmdCommand1.Width - .Width) \ 2
       Putfocus (.hwnd)
   End With
End Sub



Dulces Lunas!¡.

Enviale un MP

Ducles Lunas!¡.

.
Por hay me encontre esto...

Descargar Source

Nota: Esta en Delphi

Dulces Lunas!¡.

.
Bueno me acabe de reinstalar este juego pues la verdad quisiera jugar, alguien se anima?

OJO:-> La version 1.0!¡.

VPN por ---> Hamachi

Dulces Lunas!¡.

pero si queres codigo al pedo (como me gusta hacer a mi)

pone asi :

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
CODIGO
End Sub


y al boton ponele el mismo codigo XD

No estamos en la Prehistoria ¬¬"

Dulces Lunas!¡.

Bueno me acabe de reinstalar este juego pues la verdad quisiera jugar, alguien se anima?

Alguien juega la version 1.0 Ojo!¡.

VPN por ---> Hamachi


Dulces Lunas!¡.

""" --- >chr(34)

mmm ya lo han posteado Sorry 8) (Eso me pasa por no leer algo que crei que no le habian dado importancia!¡.)

Dulces Lunas!¡.

[.Bas]

No puedes usar un Módulo bas a menos que crees un "Control De Usuario" que tenga alguna función (programada) que sirva de intermediario para llamar a las funciones de un módulo bas, ya que puedes añadir el Control como un Objeto que puede ser manipulado desde VBS..

Modulo ( .Bas ) no es admitido, pero FRM, Cls, Ctl, Object en gral si a eso era lo que me referia.

Dulces Lunas!¡.