Visual Basic - ¿Como puedo enviar un resutado de un formulario a otro formulario?

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Diana
Val: 1
Ha aumentado su posición en 20 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

¿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 :

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 = 0
            mm = 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 = 0
        End 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 = 0
        End 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 = 0
        End 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 = 0
        End 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 = 0
        End 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 = 0
 
        End 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder