Ces nombres doivent être écrits dans des textbox par l'utilisateur dans le programme
Private table(5) As Double Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim iter As Integer iter = 0 For Each C As Control In Me.Controls If TypeOf (C) Is TextBox Then If Double.TryParse(DirectCast(C, TextBox).Text, table(iter)) Then iter += 1 End If End If Next Try table = OrderNumber() Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Private Function OrderNumber() As Double() Return (From value In table Select value Order By value Ascending).ToArray End Function
Private table(5) As Double Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim iter As Integer iter = 0 For Each C As Control In Me.Controls If TypeOf (C) Is TextBox Then If Double.TryParse(DirectCast(C, TextBox).Text, table(iter)) Then iter += 1 End If End If Next Try table = OrderNumber() Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Private Function OrderNumber() As Double() Return (From value In table Select value Order By value Ascending).ToArray End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Structure textboxdata Public value As Double Public nametextbox As String End Structure Private table(5) As textboxdata Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim iter As Integer iter = 0 For Each C As Control In Me.Controls If TypeOf (C) Is TextBox Then If Double.TryParse(DirectCast(C, TextBox).Text, table(iter).value) Then table(iter).nametextbox = DirectCast(C, TextBox).Name iter += 1 End If End If Next Try table = OrderNumber() Catch ex As Exception MessageBox.Show(ex.Message) End Try For Each C As Control In Me.Controls If TypeOf (C) Is TextBox Then If (C.Name table(5).nametextbox) Or (C.Name table(4).nametextbox) Or (C.Name = table(3).nametextbox) Then C.BackColor = Color.Blue Else C.BackColor = Color.White End If End If Next End Sub Private Function OrderNumber() As textboxdata() Return (From fields In table Select fields Order By fields.value Ascending).ToArray End Function End Class