[RESOLVED] hide show button

[new1]

Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim i As Integer = 0
        If ComboBox1.SelectedIndex = 1 Then
            Do Until i = 80
                Select Case True
                    Case i < 70
                        Dim tempButton As Button = DirectCast(Me.Controls("qmb_" & i), Button)
                        tempButton.Visible = False
                    Case i > 70
                        Dim tempButton As Button = DirectCast(Me.Controls("qmb_" & i), Button)
                        tempButton.Visible = True
                End Select
                i += 1
            Loop
        Else
            Do Until i = 80
                Select Case True
                    Case i < 70
                        Dim tempButton As Button = DirectCast(Me.Controls("qmb_" & i), Button)
                        tempButton.Visible = True
                    Case i > 70
                        Dim tempButton As Button = DirectCast(Me.Controls("qmb_" & i), Button)
                        tempButton.Visible = False
                End Select
                i += 1
            Loop
        End If
    End Sub

is there an easy way to do it or better code than mine because this is just a simple there will be like 400 button and to show and hide every 70 will be long code

[pkarvou]

If you want to hide or show every 70 buttons you could check

i mod 140

[new1]

If you want to hide or show every 70 buttons you could check

i mod 140

what is i mod 140 sorry i'm new to programing

[pkarvou]

Mod is the modulo of a division

For example think 34/5 then

34 = 6*5 + 4 --> mod = 4

[pkarvou]

Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    Dim i As Integer
    For i = 1 to 400 
        Dim tempButton As Button = DirectCast(Me.Controls("qmb_" & i), Button)
        tempButton.visible = ((ComboBox1.SelectedIndex = 1) And (i Mod 140 > 70))
            Or ((ComboBox1.SelectedIndex <> 1) And (i Mod 140 < 70))
    Next
End Sub

What about this?

[new1]

Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    Dim i As Integer
    For i = 1 to 400 
        Dim tempButton As Button = DirectCast(Me.Controls("qmb_" & i), Button)
        tempButton.visible = ((ComboBox1.SelectedIndex = 1) And (i Mod 140 > 70))
            Or ((ComboBox1.SelectedIndex <> 1) And (i Mod 140 < 70))
    Next
End Sub

What about this?

your code mean that only bottons from 351 to 400 will be visable..how that will help me show and hide buttons 70 by 70

[.paul.]

here's a simplified example that uses 14 buttons + hides/shows buttons 1-7 + 8-14 when you change the combobox item. this will only work in vb2010:

Public Class Form1
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedIndex = 0 Then
            Array.ForEach(Enumerable.Range(1, 7).ToArray, Sub(x) Me.Controls("Button" & x.ToString).Visible = True)
            Array.ForEach(Enumerable.Range(8, 7).ToArray, Sub(x) Me.Controls("Button" & x.ToString).Visible = False)
        Else
            Array.ForEach(Enumerable.Range(1, 7).ToArray, Sub(x) Me.Controls("Button" & x.ToString).Visible = False)
            Array.ForEach(Enumerable.Range(8, 7).ToArray, Sub(x) Me.Controls("Button" & x.ToString).Visible = True)
        End If
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ComboBox1.SelectedIndex = 0
    End Sub
 
End Class

[new1]

here's a simplified example that uses 14 buttons + hides/shows buttons 1-7 + 8-14 when you change the combobox item. this will only work in vb2010:

Public Class Form1
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedIndex = 0 Then
            Array.ForEach(Enumerable.Range(1, 7).ToArray, Sub(x) Me.Controls("Button" & x.ToString).Visible = True)
            Array.ForEach(Enumerable.Range(8, 7).ToArray, Sub(x) Me.Controls("Button" & x.ToString).Visible = False)
        Else
            Array.ForEach(Enumerable.Range(1, 7).ToArray, Sub(x) Me.Controls("Button" & x.ToString).Visible = False)
            Array.ForEach(Enumerable.Range(8, 7).ToArray, Sub(x) Me.Controls("Button" & x.ToString).Visible = True)
        End If
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ComboBox1.SelectedIndex = 0
    End Sub
 
End Class

hmmm nice paul but i did it in other way tell me what do you think about the code and which are better and why yours or mine..i want you to tell me which better cause i want to learn hwo to code better

Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim i As Integer
        For i = 0 To 79
            Dim tempButton As Button = DirectCast(Me.Controls("qmb_" & i), Button)
tempButton.Visible = ((ComboBox1.SelectedIndex = 0) And (i > 69)) Or ((ComboBox1.SelectedIndex = 1) And (i <= 69))
Next
End Sub

[.paul.]

i prefer my method because it's easier to read, but if your (pkarvou's) method works, then it's ok.

[pkarvou]

your code mean that only bottons from 351 to 400 will be visable..how that will help me show and hide buttons 70 by 70

If i < 140
Example i = 65 then i = 0*140 + 65 mod = 65 visible if SelectionIndex <> 1

if 140<i<280
Example i = 226 then i=1*140 + 77 mod = 86 visible if SelectionIndex = 1

if i > 280
Example i = 311 then i = 2*140 + 31 mod = 31 visible if SelectionIndex <> 1


So on each occasion your result will be between 0 and 140 so you cab check visibility