[Vb 6.0] 체크박스 / 라디오버튼

 

라디오 버튼

Private Sub Option1_Click()
    If Option1.Value = True Then
        Text1.Text = Option1.Caption
    End If
End Sub
Private Sub Option2_Click()
    If Option1.Value = True Then
        Text1.Text = Option2.Caption
    End If
End Sub

......

 

 

체크 박스

체크박스는 여러 개를 동시에 선택할 수 있고, 선택 후 다시 눌러 해제를 하였을때 출력된 문구가 사라질 수 있도록 구현

  Replace(문자, Old Text(바꾸고싶은 문자), New Text(새로 넣을 문자))   

Private Sub Check1_Click()

    Dim a As String
    Dim b As String
    
    If Check1.Value = 1 Then
        Text2.Text = Text2.Text & Check1.Caption & ","
    ElseIf Check1.Value = 0 Then
        Text2.Text = Replace(Text2.Text, Check1.Caption & ",", "")
    End If
    
End Sub

Private Sub Check2_Click()

    Dim a As String
    Dim b As String
    
    If Check2.Value = 1 Then
        Text2.Text = Text2.Text & Check2.Caption & ","
    ElseIf Check2.Value = 0 Then
        Text2.Text = Replace(Text2.Text, Check2.Caption & ",", "")
    End If
    
End Sub

... ...