Menú

Mostrar Mensajes

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

Mostrar Mensajes Menú

Mensajes - _Sergi_

#31
Diseño Gráfico / Re: Mi galeria de Firmas
6 Octubre 2006, 00:59 AM
Estan muy buenas, felicidades
#32
CitarSimplemente hay que enviar el POSt para el GET localmente, desde un script local.

Me interesa este tema pero eso que has dicho en concreto no termino de entendero; ¿Podrías aclararlo un poco más?

Gracias
#33
Generalmente nadie se aprende declaraciones de API de memoria. Para eso está API guide, API viewer etc.

Un saludo
#34
Simplemente basta con crear una matriz con todos los números. Para ello usamos Split, pasándole como argumento los datos y el separador utilizado (En éste caso, ||)

Luego, usamos un bucle para recorrer todos los números y sumarlos.

Sería algo así, espero que no tenga ningún error.

Código (vb) [Seleccionar]
Private Sub Picture1_Click()
On Error Resume Next
Dim ValorASumar As Integer
Dim Datos As String
Dim Suma As Integer
'Llenamos la variable datos
Datos = "501||5||||11||20||0||0||0"
'Hacemos la matriz
MatrizDatos = Split(Datos, "||")
'Bucle que recorre todos los numeros y los suma
For n = 0 To UBound(MatrizDatos)
Valor = MatrizDatos(n)
Suma = Suma + Valor
Next n
'Presentamos el resultado
MsgBox "La suma es: " & Suma
End Sub


Para terminar, y si por alguna razón los separadores son otros caraceres (por ejemplo intro, como has dicho) puedes sustituirlos utilizando Replace, ya que los retornos de carro, espacios, etc son caracteres normales y corrientes.

Texto = Replace(Text1.Text, Chr(13), "||")

En vez de Chr(13) también puedes usar la constante vbCrLf como es lógico.

Un saludo
#35
Sólo tienes que usar la propiedad MousePointer.

Por ejemplo

Private Sub Command1_Click()
'Proceso empieza
Screen.MousePointer = vbHourglass
open cd.filename for binary as #1
file = len(cd.filename)
get #1, , file
close #1
'Proceso termina
Screen.MousePointer = vbDefault.
End Sub


En el caso de que quisieras utilizar un icono personalizado, sería algo así


Screen.MouseIcon = LoadPicture("C:\Test\Cursor.cur")
Screen.MousePointer = vbCustom


También puedes cursores desde archivos externos. Como sabes VB 6 no incluye el cursor de la mano; lo podrías usar de éste modo:

'En un módulo
Public Const HandCursor = 32649&
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'En el evento MouseMove del form, botón etc
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub


Bien, lo mismo que te dije se aplica a las barras de progreso. Simplemente, cada vez que se complete un proceso, súmale un número a la propiedad Value de la ProgressBar

Por ejemplo

'Empieza el proceso
Process1.Value = 0
Kill "C:\TEMP\*.tmp"
Process1.Value = 25
Dim Datos as String
Dim Hora as Variant
Process1.Value = 75
Msgbox "Datos " & Datos & " " & "Hora: " & Hora
'Proceso terminado
Process1.Value = 100
Msgbox "Terminado"


Y para terminar, aclararte que no se produce ningún evento mientras VB6 realiza una acción.

Un saludo

#36
Programación Visual Basic / Re: Shell Remota
2 Octubre 2006, 01:50 AM
El resultado del comando se almacena en la variable respuesta. Eso es todo

Un saludo
#37
Multimedia / Re: imagen invertida
2 Octubre 2006, 01:40 AM
Necesitas un programa más potente, el Windows Movie Maker no tiene esa posibilidad, al menos, yo no la he encontrado.

Un saludo
#38
Por lo que yo tengo entendido, aún no.
#39
Al decirte que buscaras sólo trataba de ayudarte. Como dice WarGhost, se ha hablado docenas de veces de esto, y como te dije yo... es cuestión de buscar.

Ayuda a guardar datos en un textbox
http://foro.elhacker.net/index.php/topic,83025.0.html

Textbox
http://foro.elhacker.net/index.php/topic,105479.0.html

Write
http://foro.elhacker.net/index.php/topic,78908.0.html

De un textbox, al bloc de notas
http://foro.elhacker.net/index.php/topic,97036.0.html

Guardar a un .txt

http://foro.elhacker.net/index.php/topic,119982.0.html

DUDAS: Tecla ALT, Función CASE, como GARDAR una cosa.

http://foro.elhacker.net/index.php/topic,79400.0.html

Ayuda para GUARDAR y ABRIR textos *.txt en una TextBox.
http://foro.elhacker.net/index.php/topic,78225.0.html

Tutorial: Abrir y Guardar Texto, Control Textbox
http://foro.elhacker.net/index.php/topic,78689.0.html

Problema con OpenFile
http://foro.elhacker.net/index.php/topic,121812.0.html

Cadenas
http://foro.elhacker.net/index.php/topic,100489.0.html

leer un archivo txt
http://foro.elhacker.net/index.php/topic,117691.0.html

timer,variable, y caja de texto
http://foro.elhacker.net/index.php/topic,83950.0.html

Como crear un archivo .txt para luego editarlo?
http://foro.elhacker.net/index.php/topic,75003.0.html

Problema con la lectura y escritura de un arxivo
http://foro.elhacker.net/index.php/topic,138160.0.html

ABRIR UN *.txt EN MUCHOS TextBox
http://foro.elhacker.net/index.php/topic,84832.0.html

problemas al guardar el contenido de un listbox en vb6
http://foro.elhacker.net/index.php/topic,73758.0.html

Abrir texto en un textbox
http://foro.elhacker.net/index.php/topic,120611.0.html

Escritura concurrente en un archivo
http://foro.elhacker.net/index.php/topic,122936.0.html

Cargar un fichero a un textbox
http://foro.elhacker.net/index.php/topic,141411.0.html

Escribir un .txt con vb
http://foro.elhacker.net/index.php/topic,73936.0.html

Editar un txt cambiando variables
http://foro.elhacker.net/index.php/topic,122889.0.html

Un saludo

#40
Programación Visual Basic / Re: Tengo esta duda
1 Octubre 2006, 01:38 AM
Eso es QuickBasic, necesitas un editor de QuickBasic. Pudes usar por ejemplo Microsoft QuickBasic. La versión 1.1 viene en el CD de Windows 95 y Windows 98 dentro del directorio .../OLD/DOS/.

Sólo tienes que abrir QuickBasic, pegar el código entero y pulsar F5. Si quieres más, bájate algún buen tutorial de QB o bien mira la documentación adjunta (QB.HLP) que encontrarás en la carpeta que te dije.

Por ejemplo, COLOR sirve para cambiar el color del texto, SCREEN para cambiar los modos de pantalla (1-13) y LOCATE mueve el cursor de texto (hay dos cursores, el de textos y el de gráficos) a una posición de la pantalla.

Un saludo

PD: Si no tienes los CDs de Windows, puedes usar Firstbasic, pero éste programa es shareware y es difícil encontrarlo crackeado ya que es para DOS. Busca los archivos que necesitas en google, la mula etc.

PD2: QuickBasic 1.1 no permite compilar (generar EXE), necesitas QuickBasic 4.5