Mensajes

gracias por la ayuda,ya lo hice

Ola amig@s,me gustaria que en mi aplicacion cada uno pudiera personalizar los colores de los forms y las letras.Por ejemplo si selecciono q el form sea naranja,q se cambie en todos a la vez y tambien se cambie en todos la letra,porq si tengo q poner q se cambien d uno en uno,me puedo morir,asiq si alguien sabe,q me ayude.

Gracias

ola amigos,estoy interesado en saber si alguien de ustedes conoce algun dvd q contenga los roms d mega drive,neogeo,snes,gbc.....
para la ps2,si es asi decidme algun lugar donde descargarlo.


Gracias

ola amigos,llevo cierto tiempo haciendo firmas en photoshop,y me pica la curiosidad de saber como se hacen este tipo de firmas


porque ya estoy cansado de hacer siempre las mismas.
Si fuerais tan amables de explicarme como hacer una firma parecida os estare agradecido.

Gracias

en www.pscode.com hay varios ejemplos sobre el tema

gracias,funciona mu bien

no te bajes el SpeedXP lo unico que hace es acelerar el reloj interno para que parezca que el emule y demas cosas va mas rapido,pero no es asi.Puede llegar incluso a quemarte el micro.

Hola amigos,he estado mirando en el foro sobre este tema y no e encontrado nada,asiq lo posteo en un mensaje.

Me gustaria saber como puedo hacer para que mi aplicacion detecte si hay una nueva version de el y muestre la version nueva en un label.

Gracias

me dejaron este code,pero no me va bien,si pudieras exarle un ojo t lo agradeceria.

Form1

Private Type PosF1
X As Long
y As Long
End Type
Dim MiPos As PosF1

Private Sub Form_Load()
On Error Resume Next
Dim X As Long
X = SetWindowPos(hwnd, -1, 0, 0, 0, 0, SWP_FLAGS)
MiPos.X = Me.Top
MiPos.y = Me.Left

End Sub

Private Sub Timer1_Timer()
If MiPos.X <> Me.Top Or MiPos.y <> Me.Left Then
    MiPos.X = Me.Top
    MiPos.y = Me.Left
    Form4.Top = Me.Top
    Form4.Left = Me.Left + Me.Width
End If

End Sub
Private Sub Form_GotFocus()
Timer1.Enabled = True
End Sub

Private Sub Form_LostFocus()
Timer1.Enabled = False
End Sub

en un modulo

Option Explicit

Declare Function SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long


' SetWindowPos Flags
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOZORDER = &H4
Const SWP_NOREDRAW = &H8
Const SWP_NOACTIVATE = &H10
Const SWP_DRAWFRAME = &H20
Const SWP_SHOWWINDOW = &H40
Const SWP_HIDEWINDOW = &H80
Const SWP_NOCOPYBITS = &H100
Const SWP_NOREPOSITION = &H200
Public Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE


y en el form q quiero q se ponga al lado esto

Private Type PosF1
X As Long
y As Long
End Type
Dim MiPos As PosF1

Private Sub Form_GotFocus()
Timer1.Enabled = True
End Sub

private sub form_load
MiPos.X = Me.Top
MiPos.y = Me.Left
Me.Top = Form1.Top
Me.Left = Form1.Left + Form1.Width
end sub

Private Sub Form_LostFocus()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
If MiPos.X <> Me.Top Or MiPos.y <> Me.Left Then
    MiPos.X = Me.Top
    MiPos.y = Me.Left
    Form1.Top = Me.Top
    Form1.Left = Me.Left - Form1.Width
End If
End Sub

Ola amigos,tengo una duda en mi proyecto,quiero q el form 2 se ponga al lado del form1,y si muevo el 1 se mueva tambien el 2.Y si muevo el 2 tambien se mueva el uno.No se si me explico bien.
Algo como lo de la imagen.