Temas

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.

[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.