• Domingo 5 de Mayo de 2024, 14:40

Mostrar Mensajes

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


Mensajes - tyron

Páginas: [1] 2
1
Visual C++ / Re: Ayuda Urgente, Imprimir Clase Vista!!!!
« en: Miércoles 13 de Julio de 2005, 14:17 »
Hola SteelX, aunque ya consegui imprimirlo hace algun tiempo gracias de todos modos. El problema que tenia es que en el modo de mapeo MM_LOENGLISH se debe poner la coordenada 'y' en negativo, eso no lo sabia y me imprimia todo unas 400 veces mas pequeño de lo normal. Pero ya esta todo solucionado. Gracias por tu interes. Un saludo.

2
Visual Basic 6.0 e inferiores / Re: Apagar Equipo
« en: Jueves 16 de Junio de 2005, 14:37 »
Hola, pues este codigo me lo he tenido ke currar yo, pero va!

En un modulo:
Código: Text
  1. Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As _
  2. Long, ByVal dwReserved As Long) As Long
  3. Public Declare Function ExitWindows Lib "user32" (ByVal dwReserved As _
  4. Long, ByVal uReturnCode As Long) As Long
  5.  
  6. Public Const EWX_LOGOFF = 0
  7. Public Const EWX_SHUTDOWN = 1
  8. Public Const EWX_REBOOT = 2
  9. Public Const EWX_FORCE = 4
  10.  

En un boton o lo que quieras:
Código: Text
  1. ExitWindowsEx EWX_SHUTDOWN, 0&
  2.  

Yo tengo instalado el XP, no lo he podido probar en windows98 pero supongo que funcionara. Un saludo.

3
Visual Basic 6.0 e inferiores / Re: Apagar Equipo
« en: Miércoles 15 de Junio de 2005, 17:46 »
Hola, por ir descartando problemas....
Has cambiado 'MYPC' por el nombre del pc ke kieres apagar?
Un saludo.

4
Visual Basic 6.0 e inferiores / Re: Apagar Equipo
« en: Miércoles 15 de Junio de 2005, 02:14 »
Holaa, a ver si esto te puede servir:

En un modulo:
Código: Text
  1. Option Explicit
  2.  
  3.       Public Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias _
  4.       "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage _
  5.       As String, ByVal dwTimeout As Long, ByVal bForceAppsClosed As Long, ByVal _
  6.       bRebootAfterShutdown As Long) As Long
  7.  
  8.       Public Declare Function AbortSystemShutdown Lib "advapi32.dll" Alias
  9.       "AbortSystemShutdownA" (ByVal lpMachineName As String) As Long
  10.  


En un formulario:
Código: Text
  1.   'Crea un formulario con dos botones
  2.       Private Sub Command1_Click()
  3.           'Inicia el apagado de la maquina llamada MYPC con un mensaje de aviso,tardará
  4.           '30 seg en apagarse,cerraras las aplicaciones abiertas y reiniciara la maquina.
  5.           InitiateSystemShutdown "\\MYPC", "The system is Shutting Down", 30, True, True
  6.       End Sub
  7.  
  8.       Private Sub Command2_Click()
  9.           'Si antes de los 30 seg, este botón es pulsado, el apagado se detendrá
  10.           AbortSystemShutdown "\\MYPC"
  11.       End Sub
  12.  

5
Visual Basic 6.0 e inferiores / Re: Crear Un Archivo Txt
« en: Domingo 12 de Junio de 2005, 03:07 »
Para guardar los datos de un Richtextbox con formato txt normal puedes hacer esto:

Código: Text
  1. RichTextBox1.SaveFile "RutaArchivo", 1
  2.  

El segundo argumento (el 1) es para guardarlo con ese formato. Un saludo.

6
Visual Basic 6.0 e inferiores / Re: Ejecutar Un Bat Desde Vb
« en: Martes 7 de Junio de 2005, 18:04 »
Hola, con respecto al post de RadicalEd, solo decir a nuestro amigo Jeremy que depende de en que ordenador lo ejecute, el .bat tardará unos milisegundos (tal vez segundos) mas, o menos, en ejecutarse. Para que lo tenga en cuenta. Un saludo.

7
Visual Basic 6.0 e inferiores / Re: Ejecutar Un Bat Desde Vb
« en: Lunes 6 de Junio de 2005, 13:45 »
Puedes poner un timer para que vaya detectando, mediante el nombre de la ventana de MSDOS, si existe, ya que si no existe es que ha terminado. Te paso un codigo de ejemplo, prueba a ver si te sirve.

Código: Text
  1. 'Declaramos las funciones correspondientes
  2.  
  3. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  4.        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  5.  
  6. Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
  7.        (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As _
  8.        Long) As Long
  9.  

Esta es una función que nos devuelve el nombre de clase de una ventana de la que solo conocemos el título.

Código: Text
  1. Public Function NombreClase(NombreVentana As String) As String
  2. Dim hWnd As Long
  3. Dim lpClassName As String
  4. Dim nMaxCount As Long
  5. Dim lresult As Long
  6.    
  7. nMaxCount = 256
  8. lpClassName = Space(nMaxCount)
  9. hWnd = FindWindow(vbNullString, NombreVentana)
  10. lresult = GetClassName(hWnd, lpClassName, nMaxCount)
  11. NombreClase = Left$(lpClassName, lresult)
  12. End Function
  13.  

Así solo deberias pasarle como parámetro el título de la ventana MSDOS que ejecuta el archivo de proceso por lotes.

Esta función te devuelve verdadero si encuentra la ventana de MSDOS

Código: Text
  1. Function Ejecutando(NombreClase As String) As Boolean
  2. Ejecutando = (FindWindow(NombreClase, vbNullString) <> 0)
  3. End Function
  4.  

Espero te sirva. Un saludo

8
Visual Basic 6.0 e inferiores / Re: Ejecutar Un Bat Desde Vb
« en: Lunes 6 de Junio de 2005, 00:57 »
Hola, puedes probar a poner el formulario por encima de todo, para que no se oculte. Espero te pueda servir, un saludo.

9
Visual C++ / Re: Ocultar Un Dialog Based
« en: Jueves 26 de Mayo de 2005, 21:45 »
Amigo SteelX, prueba a poner esta linea en el OnInitDialog de tu aplicación:

Código: Text
  1. this->ShowWindow(SW_SHOWMINIMIZED);
  2.  

Espero que te sirva. Un saludo.

10
Visual Basic 6.0 e inferiores / Re: Un Retardo Para Una Aplicacion
« en: Jueves 26 de Mayo de 2005, 13:36 »
Hola, creo que con la opción de Kev, un timer, (mas que nada porque no se si usando la api no parará tambien la reproducción del sonido, no la he probado nunca, corrigeme si me equivoco) podrias ponerle un tiempo límite de lo que dura el archivo de sonido, entonces cuando se acabe ese tiempo, muestra la siguiente figura. Espero haberme explicado, pruebalo a ver si te sirve. Un saludo.

11
Visual Basic 6.0 e inferiores / Re: De Numero A Letras
« en: Martes 24 de Mayo de 2005, 12:55 »
Hola, tengo una función para eso. Espero te sirva. Un saludo.

Código: Text
  1. Function NumATexto(ByVal Valor As Double) As String
  2. On Error GoTo RutError
  3.     Select Case Valor
  4.         Case 0: NumATexto = "CERO"
  5.         Case 1: NumATexto = "UN"
  6.         Case 2: NumATexto = "DOS"
  7.         Case 3: NumATexto = "TRES"
  8.         Case 4: NumATexto = "CUATRO"
  9.         Case 5: NumATexto = "CINCO"
  10.         Case 6: NumATexto = "SEIS"
  11.         Case 7: NumATexto = "SIETE"
  12.         Case 8: NumATexto = "OCHO"
  13.         Case 9: NumATexto = "NUEVE"
  14.         Case 10: NumATexto = "DIEZ"
  15.         Case 11: NumATexto = "ONCE"
  16.         Case 12: NumATexto = "DOCE"
  17.         Case 13: NumATexto = "TRECE"
  18.         Case 14: NumATexto = "CATORCE"
  19.         Case 15: NumATexto = "QUINCE"
  20.         Case Is < 20: NumATexto = "DIECI" & NumATexto(Valor - 10)
  21.         Case 20: NumATexto = "VEINTE"
  22.         Case Is < 30: NumATexto = "VEINTI" & NumATexto(Valor - 20)
  23.         Case 30: NumATexto = "TREINTA"
  24.         Case 40: NumATexto = "CUARENTA"
  25.         Case 50: NumATexto = "CINCUENTA"
  26.         Case 60: NumATexto = "SESENTA"
  27.         Case 70: NumATexto = "SETENTA"
  28.         Case 80: NumATexto = "OCHENTA"
  29.         Case 90: NumATexto = "NOVENTA"
  30.         Case Is < 100: NumATexto = NumATexto(Int(Valor \ 10) * 10) & " Y " & NumATexto(Valor Mod 10)
  31.         Case 100: NumATexto = "CIEN"
  32.         Case Is < 200: NumATexto = "CIENTO " & NumATexto(Valor - 100)
  33.         Case 200, 300, 400, 600, 800: NumATexto = NumATexto(Int(Valor \ 100)) & "CIENTOS"
  34.         Case 500: NumATexto = "QUINIENTOS"
  35.         Case 700: NumATexto = "SETECIENTOS"
  36.         Case 900: NumATexto = "NOVECIENTOS"
  37.         Case Is < 1000: NumATexto = NumATexto(Int(Valor \ 100) * 100) & " " & NumATexto(Valor Mod 100)
  38.         Case 1000: NumATexto = "MIL"
  39.         Case Is < 2000: NumATexto = "MIL " & NumATexto(Valor Mod 1000)
  40.         Case Is < 1000000: NumATexto = NumATexto(Int(Valor \ 1000)) & " MIL"
  41.         If Valor Mod 1000 Then
  42.             NumATexto = NumATexto & " " & NumATexto(Valor Mod 1000)
  43.         End If
  44.         Case 1000000: NumATexto = "UN MILLON"
  45.         Case Is < 2000000: NumATexto = "UN MILLON " & NumATexto(Valor Mod 1000000)
  46.         Case Is < 1000000000000#: NumATexto = NumATexto(Int(Valor / 1000000)) & " MILLONES"
  47.         If (Valor - Int(Valor / 1000000) * 1000000) Then
  48.             NumATexto = NumATexto & " " & NumATexto(Valor - Int(Valor / 1000000) * 1000000)
  49.         End If
  50.         Case 1000000000000#: NumATexto = "UN BILLON"
  51.         Case Is < 2000000000000#: NumATexto = "UN BILLON " & NumATexto(Valor - Int(Valor / 1000000000000#) * 1000000000000#)
  52.         Case Else: NumATexto = NumATexto(Int(Valor / 1000000000000#)) & " BILLONES"
  53.         If (Valor - Int(Valor / 1000000000000#) * 1000000000000#) Then
  54.             NumATexto = NumATexto & " " & NumATexto(Valor - Int(Valor / 1000000000000#) * 1000000000000#)
  55.         End If
  56.     End Select
  57.    
  58. Exit Function
  59. RutError:
  60.     MsgBox "Debe introducir Numeros", vbCritical, "Aviso (NumATexto)"
  61. End Function
  62.  

12
Visual Basic 6.0 e inferiores / Re: Ayuda Con Shockwaveflash
« en: Martes 24 de Mayo de 2005, 12:52 »
Hola, no se si se podrá 'emular' el procedimiento mousemove en un shockwaveflash, pero creo que eso que intentas hacer se podria realizar mediante ActionScript en flash. Siento no poder ayudarte con ese procedimiento. Un saludo.

13
Visual Basic 6.0 e inferiores / Re: Ayuda Con Shockwaveflash
« en: Lunes 23 de Mayo de 2005, 19:03 »
Como que 'muestre un texto en flash con un commandbutton'?

14
Visual Basic 6.0 e inferiores / Re: Ayuda Con Shockwaveflash
« en: Domingo 22 de Mayo de 2005, 20:12 »
Hola, te pongo un link a una página a ver si te sirve, no la he leido pero por el título tal vez te sea de utilidad xD. Si no te sirve dimelo e intentaremos buscar alguna otra cosa. El evento mousemove, ¿quieres que sea el que se produce en la película de flash o en el control que contiene la película? disculpa pero es que me perdí un poco con lo último que dijiste:

Citar
ahora el unico problema es la sentencia mousemove en el flash
para q el menu quede bien

¿El menú al que te refieres está en la película de flash?

Un saludo.

15
Visual Basic 6.0 e inferiores / Re: Ayuda Con Shockwaveflash
« en: Domingo 22 de Mayo de 2005, 13:30 »
Hola, perdona por la tardanza en contestar, ya que leí tu mensaje nada mas ponerlo; he estado investigando y haciendo varias pruebas y lo único que se me ha ocurrido es esta 'solución' un poco chapuza, pero por lo menos funciona. Te adjunto el ejemplo y a ver si te sirve. Un saludo.

16
Visual C++ / Re: Abrir - Guardar Archivos
« en: Martes 17 de Mayo de 2005, 21:54 »
Mira, para cambiar el caption de la ventana que te sale a parte de otras muchas cosas:

Código: Text
  1. Dlg.m_ofn.lpstrTitle = "Titulo";
  2.  

m_ofn es una estructura de tipo OPENFILENAME mira en la ayuda acerca de la estructura y descubriras como 'personalizar' el dialgo. Un saludo.

17
Visual Basic 6.0 e inferiores / Re: Ayuda Con Ascii
« en: Lunes 16 de Mayo de 2005, 23:08 »
Entonces lo que necesitas es esto?

Chr('tunumero')

Esto te devuelve el valor de tu numero ascii. Si no es esto lo que buscas intenta explicarte mejor con algun ejemplo. Un saludo.

18
Visual Basic 6.0 e inferiores / Re: Bloquear El Uso De Teclas
« en: Lunes 16 de Mayo de 2005, 19:23 »
Disculpa, no entendi muy bien tu pregunta, quieres bloquear la tecla Esc en toda la aplicacion? Un saludo.

19
Visual Basic 6.0 e inferiores / Re: Ayuda Con Ascii
« en: Lunes 16 de Mayo de 2005, 17:25 »
Para transformar una cadena a su valor ascii se hace con la función Asc('cadena'), si te fijas, esta función devuelve un valor entero. Saludos.

20
Visual Basic 6.0 e inferiores / Re: Bisiesto
« en: Domingo 15 de Mayo de 2005, 02:45 »
Es verdad  :P  jeje. A ver esto:

If Año Mod 4 = 0 Then
    If (Año Mod 100 = 0) And Not (Año Mod 400 = 0) Then
        'No es bisiesto
    Else
        'Es bisiesto
    End If
Else
    'No es bisiesto
End If

Entonces la pregunta es que si hay otra forma diferente a esta de sacar si un año es bisiesto? o es esto lo que buscas?
Un saludo.

21
Visual Basic 6.0 e inferiores / Re: Bisiesto
« en: Domingo 15 de Mayo de 2005, 01:25 »
if Año Mod 4 = 0 then
'es bisiesto
else
'no lo es
end if

22
Visual C++ / Ayuda Urgente, Imprimir Clase Vista!!!!
« en: Sábado 14 de Mayo de 2005, 13:22 »
Hola a todos, necesito urgentemente saber como puedo imprimir lo que en un momento dado se ve en la clase vista, me explico. Dibujo un recibo con todos los datos de un socio, como puedo imprimirlo??? Un saludo a todos y gracias de antemano.

23
Visual Basic 6.0 e inferiores / Re: Problema .cab
« en: Jueves 12 de Mayo de 2005, 21:34 »
Me parece que tienes poco espacio en el disco duro...

24
Visual C++ / Grupo De Radio Button
« en: Jueves 12 de Mayo de 2005, 01:57 »
Hola a todos, espero que me entendais ya que me explico fatal y no se como empezar, bien... la cosa es sencilla. Tengo 4 radio button, y una variable control para los cuatro (ya que si pongo uno con la propiedad group solo puedo tener una variable con ese control) y otra variable valor para los 4 tambien, porque si pongo a los 4 botones con la propiedad group podria tener los cuatro botones seleccionados, y claro para eso pondria unos check button. Buen vamos a lo que vamos, lo que quiero es poder inhabilitar los 4 botones con esa variable. Consiguo deshabilitar uno, el primero, pero como puedo identificar a los demas?
Para deshabilitar o habilitar uno lo hago asi:
Código: Text
  1. m_cCuota.EnableWindow(m_bControlesActivos);
  2.  
Pero eso solo sirve con el primer boton, como paso al segundo? Hay alguna propiedad index o algo parecido?
Un saludo y gracias de antemano.

25
Visual Basic 6.0 e inferiores / Re: Botones Con Color Degradado
« en: Miércoles 11 de Mayo de 2005, 17:08 »
Hola, espero que con este ejemplo te quede claro como hacerlo. Un saludo

Páginas: [1] 2