서브 루틴을 통해 문자열 값을 전송하는 중

Question

변수가 Month1 & Month2인데, 어떻게 든 cb_CheckedChanged에서 frmMain_Load로 전송해야합니다. 문자열 값을 전송할 방법이없는 경우 코드를 변경하여 가능하게 할 수 있습니까?

Public Class frmMain 
    Private Sub cb_CheckedChanged(sender As Object, e As EventArgs) Handles chckJan. 
    CheckedChanged, 
    chckFeb.CheckedChanged, 
    chckMar.CheckedChanged, 
    chckApr.CheckedChanged, 
    chckMay.CheckedChanged, 
    chckJun.CheckedChanged, 
    chckJul.CheckedChanged, 
    chckAug.CheckedChanged, 
chckOct.CheckedChanged, 
    chckNov.CheckedChanged, 
    chckDec.CheckedChanged 


    'get all checkboxes 
    Dim Months = Controls.OfType(Of CheckBox)().ToArray() 
    'Get the number of checked CheckBoxes. 
    Dim checkedBoxCount = Months.Count(Function(cb) cb.Checked) 
    'Unchecked CheckBoxes should be enabled if and only if the number of checked CheckBoxes is less than the maximum number allowed. 
    Dim enableUncheckedBoxes = checkedBoxCount < 2 
    'Get the unchecked CheckBoxes. 
    Dim uncheckedBoxes = Months.Where(Function(cb) Not cb.Checked) 
    'Enable or disable the unchecked CheckBoxes as appropriate. 
    For Each uncheckedBox In uncheckedBoxes 
     uncheckedBox.Enabled = enableUncheckedBoxes 
    Next 

    Dim Month1 As String 
    Dim Month2 As String 

    Dim CheckBoxArray1 As CheckBox() = {chckJan, chckFeb, chckMar, chckApr, chckMay, chckJun, chckJul, chckAug, chckSep, chckOct, chckNov, chckDec} 
    For Each CheckBox In CheckBoxArray1 
     If CheckBox.Checked = True And checkedBoxCount = 1 Then 
      Month1 = CheckBox.Name.ToString 
     End If 
    Next 

    Dim CheckBoxArray2 As CheckBox() = {chckJan, chckFeb, chckMar, chckApr, chckMay, chckJun, chckJul, chckAug, chckSep, chckOct, chckNov, chckDec} 
    For Each CheckBox In CheckBoxArray2 
     If CheckBox.Checked = True And checkedBoxCount = 2 Then 
      Month2 = CheckBox.Name.ToString 
     End If 
    Next 

End Sub 


Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 

Answer 1

정말 확실하지 않은 것을 최종 목표는하지만,이 같은 필요 것처럼 보인다 : 당신은, 이벤트 선언은 변경할 수 없습니다 수 없습니다

Public Class frmMain 

    Private Month1 As String 
    Private Month2 As String 

    Private Sub cb_CheckedChanged(sender As Object, e As EventArgs) Handles _ 
     chckJan.CheckedChanged, chckFeb.CheckedChanged, chckMar.CheckedChanged, 
     chckApr.CheckedChanged, chckMay.CheckedChanged, chckJun.CheckedChanged, 
     chckJul.CheckedChanged, chckAug.CheckedChanged, chckSep.CheckedChanged, 
     chckOct.CheckedChanged, chckNov.CheckedChanged, chckDec.CheckedChanged 

     Dim CheckBoxes As CheckBox() = { 
      chckJan, chckFeb, chckMar, chckApr, 
      chckMay, chckJun, chckJul, chckAug, 
      chckSep, chckOct, chckNov, chckDec} 

     Dim checkedBoxes = CheckBoxes.Where(Function(cb) cb.Checked) 
     For Each curCB In CheckBoxes.Where(Function(cb) Not cb.Checked) 
      curCB.Enabled = (checkedBoxes.Count < 2) 
     Next 
     If checkedBoxes.Count = 2 Then 
      Month1 = checkedBoxes.First.Text 
      Month2 = checkedBoxes.Last.Text 
     End If 
    End Sub 

End Class