Si das click desde X imagen

[BaByRoDrI]

Ando trabajando en un proyecto para mi escuela, apenas ando haciendo funciones básicas. Tengo un formulario como este(principal):

img10.imageshack.us/img10/470/form1.png

Al hacer click sobre la PC, saldrá un registro como este:

img35.imageshack.us/img35/6941/form2i.png

Al terminar de llenar los datos, los compruebe y quede todo bien el programa regresa al Form1, pero quiero que el label1 que dice: "DISPONIBLE" ahora ponga no disponible eso en caso de que se use la PC1. No se si me di a entender!

De ante mano muchas gracias!!

Lo siento, no me dejan poner imagenes =S, pero pues allí solo le agregan el http : //

[Judgement]

Saludos, no se si te refieres a esto:

Código vb:

TuLabel.Caption = "No Disponible"
 

[BaByRoDrI]

Iniciado por Judgement

Saludos, no se si te refieres a esto:

Código vb:

TuLabel.Caption = "No Disponible"
 

Claro a eso me refiero, pero tengo varios label y esos van en base a la PC que se selecciono, supongo que se hará mediante IF pero alguien sabe como solo se cosas muy basicas!

[agus0]

Disculpa no entiendo tu pregunta...

[agus0]

Ha! dejame ver si entendi...

seria esto:

CODIGO DEL FORM1:

Código:

Public NPC As Integer

Private Sub Picture1_Click()
NPC = 1
Form2.Show
End Sub

Private Sub Picture2_Click()
NPC = 2
Form2.Show
End Sub

CODIGO DEL FORM2:

Código:

Private Sub Command1_Click()
If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" And Text4.Text <> "" Then
    Select Case Form1.NPC
    Case 1
    Form1.Label1.Caption = "NO DISPONIBLE"
    Case 2
    Form1.Label2.Caption = "NO DISPONIBLE"
    End Select
End If

End Sub

Mira igual te dejo el proyecto en visual para que lo descargues y lo veas y analizes mejor

http://www.mediafire.com/download.php?2lnkgtizre3 [LINK DE DESCARGA DE MEDIAFIRE]

ESPERO QUE TE SIRVA

[BaByRoDrI]

Iniciado por agus0

Disculpa no entiendo tu pregunta...

Ya viste las imagenes¿? Quiero decir que por ejemplo:

Quieres la PC #1, le das click, entonces te saldrá el segundo Form que es un registro, ya que llenaste los datos te regresa al Form1, pero el Label de la PC que antes tenía DISPONIBLE ahora quiero que ponga NO DISPONIBLE

[BaByRoDrI]

Iniciado por agus0

Ha! dejame ver si entendi...

seria esto:

CODIGO DEL FORM1:

Código:

Public NPC As Integer

Private Sub Picture1_Click()
NPC = 1
Form2.Show
End Sub

Private Sub Picture2_Click()
NPC = 2
Form2.Show
End Sub

CODIGO DEL FORM2:

Código:

Private Sub Command1_Click()
If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" And Text4.Text <> "" Then
    Select Case Form1.NPC
    Case 1
    Form1.Label1.Caption = "NO DISPONIBLE"
    Case 2
    Form1.Label2.Caption = "NO DISPONIBLE"
    End Select
End If

End Sub

Mira igual te dejo el proyecto en visual para que lo descargues y lo veas y analizes mejor

ESPERO QUE TE SIRVA

O_O Exactamente eso!! Es que nunca se me ocurrio asignarle variables al presionar las imagenes!! Me has salvado!! mil gracias!!!