SoloCodigo

Como puedo cambiar la barra de estado del VFP.

Gacias

Hola nuevamente, como hago para cambiar el tipo de fuente Terminal.fon, resulta que en mi maquina (Windows ME) tengo una fuente Terminal.fon de 8x14 ok, y en otra maquina (Windows 98), la fuente terminal no se parece a la mia, he tratado de cambiarla, pero los resultados son los mismos el archivo Terminal.fon cambio, pero las dimensiones no son iguales, como puedo hacer para cambiarlo.
Gracias de antemano

Salu2


-=[Cyclop]=-

Hay alguna api que haga esto:

C:\Archivos de programa\Archivos comunes
|
V
C:\Archiv~1\Archiv~1

La terminacion 1 varia de acuerdo a los directorios similares.

Gracias de antemano

-=[Cyclop]=-

 

hola como puedo hacer para conectarme con un servidor, por medio de un proxy

Salu2

Hice un cuadro de seleccion pero no me esta funcionando bien, hay dos cosas que no me gustan

1.- Cuando muevo la direccion del cuadro hacia las X o Y negativas a gran velocidad, el posicion X2 empieza a variar de posicion.

2.- Cuando selecciono una region y voy cambiando la dimension del cuadro, este empieza a hacer un repaint de todo el cuadro y se ve el efecto, no me gusta para nada.


Este es el Codigo


Agregar un Shape con el nombre shpSelection
Agregar un JPG al Picture del Formulario

Dim nPosX As Integer
Dim nPosY As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        nPosX = X
        nPosY = Y
        shpSelection.Top = Y
        shpSelection.Left = X
        shpSelection.Width = 1
        shpSelection.Height = 1
        shpSelection.Visible = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        If shpSelection.Visible Then
           If X > nPosX Then
              shpSelection.Left = nPosX
              shpSelection.Width = X - nPosX
            Else
              shpSelection.Width = nPosX - X
              shpSelection.Left = X
           End If
           If Y > nPosY Then
              shpSelection.Top = nPosY
              shpSelection.Height = Y - nPosY
            Else
              shpSelection.Height = nPosY - Y
              shpSelection.Top = Y
           End If
        End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
        shpSelection.Visible = False
End Sub

Salu2

-=[Cyclop]=-:D

Donde puedo encontrar screenshots de sistemas, como entrada de datos, movimientos, reportes, mantenimiento etc. solo para que nos den ideas. yo encontre una pero tiene pocas screens

www.uyssoft.com

Quiero algo parecido a esto

Gracias

-=[Cyclop]=-

Por que cuando intento grabar en una tabla me sale un error "Insuficiente informacion para actualizar o refrescar"

Dim oConn As ADODB.Connection
Dim oUser As ADODB.Recordset

oConn.CursorLocation = adUseClient
oConn.Open "Provider=ASAProv.80; Data Source=sql_comercial", "dba", "sql"

oUser.Open "SELECT * FROM tabusu", oConnect, adOpenDynamic, adLockOptimistic


Sub Guardar()
      oUser.AddNew
      oUsers!usuario = txtUsuario.Text
      oUser!password = txtPassword.Text
      oUser.Update
End Sub

Salu2

Cyclop

Hola amigos tengo un porgrma hecho en clipper pero cuando quiero descompilarlo con el valkyrie me sale un error que dice Linkeador no reconocido, que puedo hacer o el valkyrie que tengo es la version 5 si no me equivo esta es la ultima version.

Alguien me puede ayudar?

Gracias de antemano

Salu2