¿Como puedo enviar un resutado de un formulario a otro formulario?
Publicado por Diana (1 intervención) el 18/05/2019 20:55:30
como puedo hacer que el resultado de la suma de varios if se pase a un label de otro formulario
hasta el momento tengo este codigo :
hasta el momento tengo este codigo :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
Public Class PARTE3
Dim ss As Integer
Dim mm As Integer
Dim r1 As Integer
Dim r2 As Integer
Dim r3 As Integer
Dim r4 As Integer
Dim r5 As Integer
Dim r6 As Integer
Dim RESULTADOS As Integer
Private Sub TextBox13_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub PARTE3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox26_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox26.TextChanged
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nombre.TextChanged
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ss = ss + 1
If ss = 60 Then ss = 0mm = mm + 1
End If
cono.Text = Format(mm, "00") & ":" & Format(ss, "00")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox10.Text = " L " And TextBox9.Text = " A " And TextBox8.Text = " G " And TextBox7.Text = " R " And TextBox6.Text = " A " And TextBox1.Text = " N " And TextBox2.Text = " G " And TextBox30.Text = " E " Then
r1 = 16.6666666666667
Else
r1 = 0End If
If TextBox35.Text = " M " And TextBox23.Text = " O " And TextBox12.Text = " N " And TextBox11.Text = " T " And TextBox6.Text = " A " And TextBox22.Text = " N " And TextBox21.Text = " T " And TextBox31.Text = " E " Then
r2 = 16.6666666666667
Else
r2 = 0End If
If TextBox44.Text = " 3 " And TextBox43.Text = " E " And TextBox34.Text = " R " And TextBox51.Text = " O " And TextBox6.Text = " 50 " And TextBox48.Text = " D " And TextBox49.Text = " E " And TextBox47.Text = " N " Then
r3 = 16.6666666666667
Else
r3 = 0End If
If TextBox2.Text = "G " And TextBox16.Text = " A " And TextBox15.Text = " U " And TextBox18.Text = " S " And TextBox27.Text = " S " And TextBox13.Text = " J " And TextBox19.Text = " O " And TextBox34.Text = " R " And TextBox33.Text = " D " And TextBox32.Text = " A " And TextBox28.Text = " N " Then
r4 = 16.6666666666667
Else
r4 = 0End If
If TextBox17.Text = "J " And TextBox32.Text = " A " And TextBox20.Text = " C " And TextBox39.Text = " O " And TextBox38.Text = " B " And TextBox37.Text = " I " Then
r5 = 16.6666666666667
Else
r5 = 0End If
If TextBox24.Text = "G " And TextBox25.Text = " R " And TextBox6.Text = " A " And TextBox29.Text = " F " And TextBox30.Text = " I " And TextBox26.Text = " C " And TextBox36.Text = " O " Then
r5 = 16.6666666666667
Else
r5 = 0End If
RESULTADOS = r1 + r2 + r3 + r4 + r5 + r6
PARTE5.Label6.= RESULTADOS.ToString // ESTE ES EL RESULTADO QUE QUIERO PASAR A AL LABEL
//DE OTRO FORMULARIO
PARTE5.Label5.Text = cono.Text
PARTE5.Show()
Me.Hide()
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles C1.LinkClicked
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer1.Start()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Timer1.Stop()
End Sub
Private Sub TextBox3_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles C5.LinkClicked
PARTE4.Show()
End Sub
Private Sub BOX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
PARTE31.nombre1.Text = nombre.Text
PARTE31.Show()
Me.Hide()
End Sub
Private Sub C2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles C2.LinkClicked
PARTE4.Show()
End Sub
Private Sub C3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles C3.LinkClicked
PARTE4.Show()
End Sub
Private Sub C4_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles C4.LinkClicked
PARTE4.Show()
End Sub
Private Sub C6_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles C6.LinkClicked
PARTE4.Show()
End Sub
Private Sub TextBox35_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox35.TextChanged
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
Private Sub TextBox10_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox10.TextChanged
End Sub
End Class
Valora esta pregunta
0