resulta que estoy desarrollando un programa para monitorear el estado de una maquina controlada por un plc, utilizando las DDE de RSLINX, bueno el punto es que con ayuda de un compañero logramos hacerlo funcionar en tiempo real, pero a la hora del diseño del formulario este tiene un tamaño pequeño y al maximizarse lo hace únicamente la ventana en si pero no su contenido que incluye varios textbox, labels y una imagen de fondo.
ahora la pregunta es como puedo hacer que este formulario se expanda en pantalla completa sin importar la resolucion del monitor junto con todo su contenido es decir una especie de escalado a pantalla completa?
por su ayuda les agradezco desde ahora
ademas les dejo el codigo con el cual comunicamos es bastante simple y aun con algunos bugs menores pero antes de revisar eso me interesa el poder utilizarlo en una pantalla grande.
Código:
Private Sub Form_Load()
End Sub
Private Sub Image1_Click()
End Sub
Private Sub Timer1_Timer()
'VELOCIDAD
Text1.LinkTopic = "RSLINX|650V19"
Text1.LinkItem = "N7:140,L1,C1"
Text1.LinkMode = 1
Text1 = (Val(Text1) * 600) / 3686
Text1 = Round(Text1, 0)
'CLIPS
Text2.LinkTopic = "RSLINX|650V19"
Text2.LinkItem = "N7:50,L1,C1"
Text2.LinkMode = 1
'
'DECLARAR G4
Text11.LinkTopic = "RSLINX|650V19"
Text11.LinkItem = "N80:27,L1,C1"
Text11.LinkMode = 1
'DECLARAR VARIABLES DE G7
'H4
Text12.LinkTopic = "RSLINX|650V19"
Text12.LinkItem = "N7:20,L1,C1"
Text12.LinkMode = 1
'H6
Text13.LinkTopic = "RSLINX|650V19"
Text13.LinkItem = "N7:22,L1,C1"
Text13.LinkMode = 1
'H5
Text14.LinkTopic = "RSLINX|650V19"
Text14.LinkItem = "N7:21,L1,C1"
Text14.LinkMode = 1
'DECLARAR G7
Text15 = (Val(Text12) * Val(Text13))
Text15 = Val(Text14) / Val(Text15) * 1000
'OPERAR OEE
Text3 = Text15
Text3 = Text2 / Text15
Text3 = Text3 / Text11 * 100
Text3 = Round(Text3, 1)
'DECLARAR TIEMPO TOTAL
Text4.LinkTopic = "RSLINX|650V19"
Text4.LinkItem = "N7:150,L1,C1"
Text4.LinkMode = 1
'DECLARAR TIEMPO PARCIAL
Text5.LinkTopic = "RSLINX|650V19"
Text5.LinkItem = "N7:151,L1,C1"
Text5.LinkMode = 1
Text5 = Val(Text5) / 10
'FORMULA PARA LOG OBJETIVOS
Text7 = Text15 * 720
Text7 = Round(Text7, 0)
If (Text12 = 300) Then
Text6 = " EXP"
Text8 = 300
Else
End If
If (Text12 = 400) Then
Text6 = "NAT"
Text8 = 400
Else
End If
If (Text12 = 450) Then
Text6 = "KLE"
Text8 = 325
Else
End If
If (Text12 = 1000) Then
Text6 = "SCT"
Text8 = 636
Else
End If
If (Text12 = 1001) Then
Text6 = "REG 1000"
Text8 = 550
Else
End If
If (Text12 = 1002) Then
Text6 = "NATL 1000"
Text8 = 500
Else
End If
Timer2.Enabled = True
Timer1.Enabled = False
End Sub
Private Sub Timer2_Timer()
0 Timer1.Enabled = True
Timer2.Enabled = False
End Sub