Как создать список с выбранными параметрами?
Уважаемые Эксперты,
Пожалуйста, помогите мне в vba-коде для Visual studio community 2017.
Я работаю в программе со списком задач, который поможет пользователю выбрать правильное решение и избежать ошибки в рабочем процессе. Утилита представляет собой рабочий процесс с согласованными флажками. Я хотел бы создать форму, показывающую результаты отбора с возможностью копирования результата в буфер обмена и печати в формате PDF.
Пожалуйста, найдите ниже мой код.
Что я уже пробовал:
Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged If CheckBox4.Checked Then FlowLayoutPanel3.Show() Else FlowLayoutPanel3.Hide() End If End Sub Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.CheckedChanged If CheckBox5.Checked Then FlowLayoutPanel2.Show() Else FlowLayoutPanel2.Hide() End If End Sub Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox7.CheckedChanged If CheckBox7.Checked Then FlowLayoutPanel4.Show() Else FlowLayoutPanel4.Hide() End If End Sub Private Sub CheckBox10_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox10.CheckedChanged If CheckBox10.Checked Then FlowLayoutPanel5.Show() Else FlowLayoutPanel5.Hide() End If End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load FlowLayoutPanel2.Hide() FlowLayoutPanel3.Hide() FlowLayoutPanel4.Hide() FlowLayoutPanel5.Hide() CheckBox4.Hide() CheckBox5.Hide() CheckBox6.Hide() CheckBox7.Hide() CheckBox8.Hide() CheckBox9.Hide() CheckBox10.Hide() End Sub Friend WithEvents RadioButton1 As RadioButton Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged If RadioButton1.Checked Then CheckBox4.Show() CheckBox5.Show() CheckBox6.Show() CheckBox7.Show() CheckBox8.Hide() CheckBox9.Show() CheckBox10.Hide() Else CheckBox4.Hide() CheckBox5.Hide() CheckBox6.Hide() CheckBox7.Hide() CheckBox8.Hide() CheckBox9.Hide() CheckBox10.Hide() FlowLayoutPanel2.Hide() FlowLayoutPanel3.Hide() FlowLayoutPanel4.Hide() FlowLayoutPanel5.Hide() End If End Sub Friend WithEvents RadioButton2 As RadioButton Friend WithEvents RadioButton3 As RadioButton Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged If RadioButton2.Checked Then CheckBox4.Hide() CheckBox5.Hide() CheckBox6.Hide() CheckBox7.Hide() CheckBox8.Show() CheckBox9.Hide() CheckBox10.Show() Else CheckBox4.Hide() CheckBox5.Hide() CheckBox6.Hide() CheckBox7.Hide() CheckBox8.Hide() CheckBox9.Hide() CheckBox10.Hide() FlowLayoutPanel2.Hide() FlowLayoutPanel3.Hide() FlowLayoutPanel4.Hide() FlowLayoutPanel5.Hide() End If End Sub Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged If RadioButton3.Checked Then CheckBox4.Hide() CheckBox5.Hide() CheckBox6.Hide() CheckBox7.Hide() CheckBox8.Show() CheckBox9.Hide() CheckBox10.Show() Else CheckBox4.Hide() CheckBox5.Hide() CheckBox6.Hide() CheckBox7.Hide() CheckBox8.Hide() CheckBox9.Hide() CheckBox10.Hide() FlowLayoutPanel2.Hide() FlowLayoutPanel3.Hide() FlowLayoutPanel4.Hide() FlowLayoutPanel5.Hide() End If End Sub Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click Me.Close() End Sub Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click Form2.Show() End Sub End Class
Richard MacCutchan
Больше похоже на то VB.NET чем VBA.
CHill60
Это не VBA это так VB.NET-да. Два совершенно разных зверя.
Однако вы сбросили много кода, но не объяснили, в чем заключается ваша проблема.