|
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
1
« 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
« 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: Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As _ Long, ByVal dwReserved As Long) As Long Public Declare Function ExitWindows Lib "user32" (ByVal dwReserved As _ Long, ByVal uReturnCode As Long) As Long Public Const EWX_LOGOFF = 0 Public Const EWX_SHUTDOWN = 1 Public Const EWX_REBOOT = 2 Public Const EWX_FORCE = 4
En un boton o lo que quieras: ExitWindowsEx EWX_SHUTDOWN, 0&
Yo tengo instalado el XP, no lo he podido probar en windows98 pero supongo que funcionara. Un saludo.
3
« 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
« en: Miércoles 15 de Junio de 2005, 02:14 »
Holaa, a ver si esto te puede servir: En un modulo: Option Explicit Public Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias _ "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage _ As String, ByVal dwTimeout As Long, ByVal bForceAppsClosed As Long, ByVal _ bRebootAfterShutdown As Long) As Long Public Declare Function AbortSystemShutdown Lib "advapi32.dll" Alias "AbortSystemShutdownA" (ByVal lpMachineName As String) As Long
En un formulario: 'Crea un formulario con dos botones Private Sub Command1_Click() 'Inicia el apagado de la maquina llamada MYPC con un mensaje de aviso,tardará '30 seg en apagarse,cerraras las aplicaciones abiertas y reiniciara la maquina. InitiateSystemShutdown "\\MYPC", "The system is Shutting Down", 30, True, True End Sub Private Sub Command2_Click() 'Si antes de los 30 seg, este botón es pulsado, el apagado se detendrá AbortSystemShutdown "\\MYPC" End Sub
5
« en: Domingo 12 de Junio de 2005, 03:07 »
Para guardar los datos de un Richtextbox con formato txt normal puedes hacer esto: RichTextBox1.SaveFile "RutaArchivo", 1
El segundo argumento (el 1) es para guardarlo con ese formato. Un saludo.
6
« 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
« 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. 'Declaramos las funciones correspondientes Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _ (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As _ Long) As Long
Esta es una función que nos devuelve el nombre de clase de una ventana de la que solo conocemos el título. Public Function NombreClase(NombreVentana As String) As String Dim hWnd As Long Dim lpClassName As String Dim nMaxCount As Long Dim lresult As Long nMaxCount = 256 lpClassName = Space(nMaxCount) hWnd = FindWindow(vbNullString, NombreVentana) lresult = GetClassName(hWnd, lpClassName, nMaxCount) NombreClase = Left$(lpClassName, lresult) End Function
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 Function Ejecutando(NombreClase As String) As Boolean Ejecutando = (FindWindow(NombreClase, vbNullString) <> 0) End Function
Espero te sirva. Un saludo
8
« 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
« en: Jueves 26 de Mayo de 2005, 21:45 »
Amigo SteelX, prueba a poner esta linea en el OnInitDialog de tu aplicación: this->ShowWindow(SW_SHOWMINIMIZED);
Espero que te sirva. Un saludo.
10
« 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
« en: Martes 24 de Mayo de 2005, 12:55 »
Hola, tengo una función para eso. Espero te sirva. Un saludo. Function NumATexto(ByVal Valor As Double) As String On Error GoTo RutError Select Case Valor Case 0: NumATexto = "CERO" Case 1: NumATexto = "UN" Case 2: NumATexto = "DOS" Case 3: NumATexto = "TRES" Case 4: NumATexto = "CUATRO" Case 5: NumATexto = "CINCO" Case 6: NumATexto = "SEIS" Case 7: NumATexto = "SIETE" Case 8: NumATexto = "OCHO" Case 9: NumATexto = "NUEVE" Case 10: NumATexto = "DIEZ" Case 11: NumATexto = "ONCE" Case 12: NumATexto = "DOCE" Case 13: NumATexto = "TRECE" Case 14: NumATexto = "CATORCE" Case 15: NumATexto = "QUINCE" Case Is < 20: NumATexto = "DIECI" & NumATexto(Valor - 10) Case 20: NumATexto = "VEINTE" Case Is < 30: NumATexto = "VEINTI" & NumATexto(Valor - 20) Case 30: NumATexto = "TREINTA" Case 40: NumATexto = "CUARENTA" Case 50: NumATexto = "CINCUENTA" Case 60: NumATexto = "SESENTA" Case 70: NumATexto = "SETENTA" Case 80: NumATexto = "OCHENTA" Case 90: NumATexto = "NOVENTA" Case Is < 100: NumATexto = NumATexto(Int(Valor \ 10) * 10) & " Y " & NumATexto(Valor Mod 10) Case 100: NumATexto = "CIEN" Case Is < 200: NumATexto = "CIENTO " & NumATexto(Valor - 100) Case 200, 300, 400, 600, 800: NumATexto = NumATexto(Int(Valor \ 100)) & "CIENTOS" Case 500: NumATexto = "QUINIENTOS" Case 700: NumATexto = "SETECIENTOS" Case 900: NumATexto = "NOVECIENTOS" Case Is < 1000: NumATexto = NumATexto(Int(Valor \ 100) * 100) & " " & NumATexto(Valor Mod 100) Case 1000: NumATexto = "MIL" Case Is < 2000: NumATexto = "MIL " & NumATexto(Valor Mod 1000) Case Is < 1000000: NumATexto = NumATexto(Int(Valor \ 1000)) & " MIL" If Valor Mod 1000 Then NumATexto = NumATexto & " " & NumATexto(Valor Mod 1000) End If Case 1000000: NumATexto = "UN MILLON" Case Is < 2000000: NumATexto = "UN MILLON " & NumATexto(Valor Mod 1000000) Case Is < 1000000000000#: NumATexto = NumATexto(Int(Valor / 1000000)) & " MILLONES" If (Valor - Int(Valor / 1000000) * 1000000) Then NumATexto = NumATexto & " " & NumATexto(Valor - Int(Valor / 1000000) * 1000000) End If Case 1000000000000#: NumATexto = "UN BILLON" Case Is < 2000000000000#: NumATexto = "UN BILLON " & NumATexto(Valor - Int(Valor / 1000000000000#) * 1000000000000#) Case Else: NumATexto = NumATexto(Int(Valor / 1000000000000#)) & " BILLONES" If (Valor - Int(Valor / 1000000000000#) * 1000000000000#) Then NumATexto = NumATexto & " " & NumATexto(Valor - Int(Valor / 1000000000000#) * 1000000000000#) End If End Select Exit Function RutError: MsgBox "Debe introducir Numeros", vbCritical, "Aviso (NumATexto)" End Function
12
« 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
« en: Lunes 23 de Mayo de 2005, 19:03 »
Como que 'muestre un texto en flash con un commandbutton'?
14
« 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: 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
« 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
« 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: Dlg.m_ofn.lpstrTitle = "Titulo";
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
« 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
« 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
« 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
« en: Domingo 15 de Mayo de 2005, 02:45 »
Es verdad  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
« 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
« 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
« en: Jueves 12 de Mayo de 2005, 21:34 »
Me parece que tienes poco espacio en el disco duro...
24
« 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: m_cCuota.EnableWindow(m_bControlesActivos);
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
« en: Miércoles 11 de Mayo de 2005, 17:08 »
Hola, espero que con este ejemplo te quede claro como hacerlo. Un saludo
|
|
|