VB.Net прохождение/вызов переменной

Question

Как передать значение модулю/функции. Всякий раз, когда я ищу здесь или Google, я получаю код для C#, а не VB.net.

Я хочу, чтобы иметь возможность нажимать на кнопку и передавать значение модулю и выполнять его. Каждая кнопка имеет значение 1,2,3,4 и т. Д. ... и они возвращаются, чтобы сделать панель видимой = истина/ложь.

i.e. Я хочу сказать ниже, но когда я нажимаю btnShow1, я хочу передать это как значение функции и скрыть/показать панель, о которой я говорю.

Текущий код

Protected Sub btnShowQ1_Click(sender As Object, e As System.EventArgs) Handles btnShowQ1.Click 

     If panel1.Visible = True Then 
      panel1.Visible = False 
     Else 
      panel1.Visible = True 
     End If 

    End Sub 

Guess код

'Protected Sub btnShowQ1_Click(sender As Object, e As System.EventArgs) Handles btnShowQ1.Click 
      vpanel = btnShowQ1.value 
     Call fncPanel(vpanel as string) as string 

    End Sub 

Тогда где-то - я думаю, в App_Code Я создаю function.vb

Imports Microsoft.VisualBasic 

Public Class ciFunctions 
    Public Function fncPanel(vPanel as string)as string 
      If (vPanel).visible = False then 
       (vPanel).visible = true 
      Else 
       (vPanel).visible = false 
      End IF 
    End Function 
End Class 

Answer 1

Установите кнопки CommandArgument свойства на номер панели, к которой она показывает или скрывает:

<asp:Button ID="Button1" runat="server" Text="Show/Hide" CommandArgument="1" /> 
<asp:Button ID="Button2" runat="server" Text="Show/Hide" CommandArgument="2" /> 

На событии нажатия кнопки:

Private Sub Button_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, ... 
    ' get the button which triggers this event 
    Dim thisButton As Button = DirectCast(sender, Button) 

    ' construct the panel name to toggle visibility from the button's CommandArgument property 
    Dim panelName as String = "panel" & thisButton.CommandArgument 

    ' call the function, passing the panel name and the reference to current page 
    TogglePanel(Me, panelName) 
End Sub 

Вы можете добавить все кнопки мыши обработчика событий к этому суб, добавив их в список «Ручки ...», как указано выше. Поэтому вам не нужно создавать обработчик событий для каждой кнопки на странице. Только один, чтобы справиться с ними.

Создать функцию для переключения видимости:

Sub TogglePanel(pg As Page, panelName As String) 
    ' get the panel control on the page 
    Dim panel As Panel = DirectCast(pg.FindControl(panelName), Panel) 

    ' toggle its visibility 
    panel.Visible = Not panel.Visible 
End Sub 

Параметр pg требуется, если вы поставите эту функцию в классе, кроме страницы, он работает или в модуле. Если функция находится в одном классе страниц, то pg не требуется.

Answer 2

Вы должны быть в состоянии просто добавить параметр типа Panel, а в событии btnShow передать элемент.

Public Sub ChangePanelVis(panel as Panel) 
    If panel.Visible then 
     panel.Visible = True 
    Else 
     panel.Visible = True 
    End If 
End Sub 

Protected Sub btnShowQ1_Click(sender As Object, e As System.EventArgs) Handles btnShowQ1.Click 
    ChangePanelVis(panel1) 
End Sub