Mensajes

Sigo sin estar completamente seguro pero no seria mas facil usar una variable publica?

en vez de usar el GetSetting

algo asi...

Dim Pasa as Integer

Public Funcion Numero as integer
Do While Pasa <> 1
  DoEvents
Loop
Pasa = 1
Dim Consecutivo  as integer
Consecutivo = val(Getsetting("Probando", "Prueba", "Consecutivo"))
SaveSetting "Probando", "Prueba", "Consecutivo", cstr(consecutivo+1)
Pasa = 0
Numero = Consecutivo
End Sub

Open Archivo For Append As #1

:/ Cual es la idea de esto?....

es por poner un ejemplo

no es que precisamente tenga que ir ello, sino que quiero que una funcion
se detenga, hasta qe la otra haya terminado, algo asi como un semaforo
que continue hasta que la otra termine

algo asi

Código (vb) [Seleccionar] Expandir

Public Funcion Numero as integer
Do While GetSetting("Probando", "Prueba", "Numero") <> ""
  DoEvents
Loop
SaveSetting "Probando", "Prueba", "Numero", "1"
Dim Consecutivo  as integer
Consecutivo = val(Getsetting("Probando", "Prueba", "Consecutivo"))
SaveSetting "Probando", "Prueba", "Consecutivo", cstr(consecutivo+1)
SaveSetting "Probando", "Prueba", "Numero", ""
Numero = Consecutivo
End Sub

para que no se repita el mismo numero por si es solicitado al mismo
tiempo determinado numero de veces.

Hola a todos de nuevo yo

bueno aqui me tienen de nuevo con una duda, estoy realizando un sistema de oficina ya ven de esos tediosos...

mi pregunta es, que les parece este codigo:

Aqui el MDIForm1
Contiene: Command1, Command2, Label1 y Timer1

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub MDIForm_Load()
SaveSetting "Probando", "Prueba", "Numero", ""
Form1.Show
Form2.Show
Form2.Show
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
DeleteSetting "Probando", "Prueba"
End Sub


Aqui del Form1 (Child)
Contiene: Command1, Command2, Label1 y Timer1

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Command1_Click()
Do While GetSetting("Probando", "Prueba", "Numero") <> ""
  DoEvents
Loop
SaveSetting "Probando", "Prueba", "Numero", "1"
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
SaveSetting "Probando", "Prueba", "Numero", ""
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub

Y aca del form2 (Child)
Contiene: Command1, Command2, Label1 y Timer1

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Command1_Click()
Do While GetSetting("Probando", "Prueba", "Numero") <> ""
  DoEvents
Loop
SaveSetting "Probando", "Prueba", "Numero", "1"
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
SaveSetting "Probando", "Prueba", "Numero", ""
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub

Si se fijan el Form1 y Form2 tienen el mismo codigo.

Espero sus opiniones, el uso de esto es que para que haga un
procedimiento X lo haga hasta que se termine en otro o cuando
se de clic o termine una funcion, ejemplo si en ambos codigos quiero usar el

Open Archivo as append #1

Se que puedo usar el FREEFILE pero solo que no lo quiero usar.

podrias dar mas datos del programa para bajarlo y revisarlo

Mira la manera mas simple, bajate este control http://foro.elhacker.net/index.php/topic,204651.0.html y usando la propiedad LoadImageFromStream de el ucImage le pasas la imagen y listo.

Gracias COBEIN te agradezco llegando a la casa lo revisare grax de nuevo

[Picturebox]

Hola todos como estan, despues de ponerme a buscar en google llego a ustedes ya que todas las busquedas han sido infructuosas.

El problema es que, si envio una un archivo de imagen (JPG, BMP, GIF, etc) enviado mediante SOCKET el cliente lo recibe muy bien, pero si tengo Windows Vista el problema es que no me deja crear un archivo si no tengo los privilegios de administrador. ya que me mandaria ERROR 75, ya que no puedo en ese momento configurar el programa como EJECUTAR COMO ADMINISTRADOR

Entonces lo que quiero saber si es posible si al recibir el archvio

Código (vb) [Seleccionar] Expandir

Sock1.GetData TextoRecibido
ImagenRecibida = ImagenRecibida + TextoRecibido

Como puedo hacer una vez que se haya recibido toda la imagen recibida sin tenerlo que guardar en un archivo, cargarlo desde la variable a un Picturebox o Image

Grax por la ayuda que puedan ofrecer.

me parece muy bien lo del FRAME yo tenia una idea mas
pero es mas conveniente el FRAME

el mio era una variable ponerle un valor y en cada evento de los textbox
en keypress valorar que si la varibale tiene datos un exit sub y sino que
proceda y no limpie el keyascii o keycode depende el evento que elijas

si las aplicaciones son tuyas y las puedes modificar y no quieres meter mucho codigo

Anexa un TIMER del tiempo que gustes de 500 a 1000, tu sabes

el que envia que haga esto

Código (vb) [Seleccionar] Expandir

Savesetting "Grupo", "Programa", "Clave", "Texto"

y el que esta esperando recibir que este revisando
mediante

Código (vb) [Seleccionar] Expandir

Texto = Getsetting("Grupo", "Programa", "Clave")
deletesetting "Grupo", "Programa", "Clave"

busca en google un poco

"Formulario tipo Visual basic"

quizas te pueda ayudar ya que los MDI solo te sirven para todo lo que esta dentro de tu proyecto pero si quieres en tu programa apropiarte de muchos jajaja

usa el SETPARENT pero ojo porque si cierras tu aplicacion con algunas aplicaciones encerradas que pasara con ellas, te lo dejo de tarea, o mejor dicho un paso a la vez

Estoy utilizando el cSocketMaster en un proyecto y me da error de compilación con los comandos Mid$, Str$ y todos los de manejo de cadenas. Alguna explicación?

Porque no intentas omitir el signo ( $ )
y si estas asignando a una variable que
aun no esta creada, solo necesitarias
crearla antes, yo uso esas funciones sin
el SIGNO y no he tenido problema alguno