Mensajes

Hola. Eso ya lo sabía, pero al ponerlo así se mostraba arriba a la izquierda. Pero ya lo solucioné. Como quiero que aparezca al lado del texto escrito, sumo el Left de la caja de texto a la X y el Top de la misma a la Y y ya se coloca correctamente.

Saludos y gracias.

Una cosa, ¿cómo hago para hacer aparecer una ventana en esas coordenadas? Porque me devuelve X = 148 Y = 0, pero el formulario me aparece en otro sitio.

Saludos.

Muchas gracias, seba123neo. Me funciona perfectamente.

Saludos.

Perdón por el malentendido, pero yo me refiero a las coordenadas en la pantalla. En el IDE de VB, cuando introduces algo que reconoce, como por ejemplo "App.", se despliega una lista con las posibles opciones. Lo que yo necesito son las coordenadas del texto para desplegar una lista en esa posición.

Saludos.

Hola. En mi aplicación necesito saber la posición del cursor del texto para poder hacer aparecer una ventana al final de una letra, justo al lado. Al estilo de VB. ¿Alguien sabe cómo?

Gracias de antemano.

Gracis, gulabyte, pero estuve pensando y ahora utilizo este código:

Código (vb) [Seleccionar] Expandir


Function Encontrado(Cadena As String, Letra As String) As Boolean
Dim Texto As String
Texto = StrReverse(Cadena)
If Left(Texto, 1) = Letra Then
Encontrado = True
Else
Encontrado = False
End Function


Gracias de nuevo y saludos.

Hola. Estoy creando una aplicación en la que necesito que, al escribir algo, aparezca un ToolTip que me de información sobre lo que escribo, al estilo de VB. ¿Alguien sabe como detectar si escribí una cierta palabra, y en ese caso mostrar un ToolTip?

P.D.: Lo del ToolTip puedo hacerlo yo.

Gracias de antemano.

Hola. En un post vi que se podían utilizar APIs en VBS, pero requería tener el Excel instalado.

Código [Seleccionar] Expandir


Set WshShell = CreateObject("WScript.Shell")
Set Application=CreateObject("Excel.Application")
WshShell.Run "calc.exe"
hwnd=Application.ExecuteExcel4Macro("CALL(""user32″",""FindWindowA"",""JJC"",0,""Calculadora"")")
RC=Application.ExecuteExcel4Macro("CALL(""user32″",""SetWindowPos"",""JJJJJJJJ""," & hwnd & ",-1,0,0,0,0,3)")


Este ejemplo ejecuta la calculadora y la pone siempre visible.

Saludos.

En un troyano que hice hace tiempo utilizé lo de declararlo como Byte, tomé el ejemplo de ahí pero sigue sin funcionar.

Saludos.

Hola. Estoy creando un programa que permite convertir un archivo MP3 a EXE. El conversor lee en formato binario la canción y la añade al reproductor (algo parecido a un stub).
El problema es que cuando se abre el reproductor no reproduce la canción. Hago todo correctamente, ya que el archivo MP3 lo extrae en la carpeta correspondiente, pero lo que falla es el tamaño del archivo. En el evento Form_Load puse:

Código (vb) [Seleccionar] Expandir


Dim Cancion As String * 65000
Dim Secuencia As String * 5
RutaTemporal = Environ("TEMP")
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
Get #1, LOF(1) - 34, Cancion
Get #1, , Secuencia
Close #1
Open RutaTemporal & "\mp3file.mp3" For Binary Access Write As #2
Put #2, 1, Cancion
Close #2

Pero la canción ocupa más, y el problema es que no puedo aumentar todavía más el tamaño de la variable.

¿Alguna solución?

Gracias de antemano.