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

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

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

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

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

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

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

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

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

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

y el que esta esperando recibir que este revisando
mediante

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

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