질문과 답변· ·
초기화 에 대해서 .질문입니다
제가 글자 모양.글자 크기 글자색을..선택하면 그 글에 따라 입력한 글자나 속성이 변화도록 하는 프로그램을 작성했는데여..
초기화가 안되네여.. ㅡㅡ;;;
그러니까 색깔중에 빨간색을 클릭하고 나서
다른색을 클릭하거나.. 빨간색을 클릭하고 나서 종료시키고 다시 실행시켜서 글을 적으면 빨간색이 나오네여 ㅠ.ㅠ
다른것도 마찬가지고여..
이게 제가 짠 소스거든여
Private Sub cmd1_Click()
If chkred.Value = 1 Then
Text1.ForeColor = red
End If
If chkblue.Value = 1 Then
Text1.ForeColor = blue
End If
If chkyellow.Value = 1 Then
Text1.ForeColor = yellow
End If
If Chkorange.Value = 1 Then
Text1.ForeColor = orange
End If
If chkmo1.Value = 1 Then
Text1.FontBold = True
End If
If chkmo2.Value = 1 Then
Text1.Font.Italic = True
End If
If chkmo3.Value = 1 Then
Text1.FontUnderline = True
End If
Text1.FontSize = Combo1.ListIndex
End Sub
Private Sub Cmd2_Click()
End
End Sub
조그마한 조언이라도 부탁드립니다..
독학으로는 너무 어려운듯 하네여 비베 ㅠ.ㅠ
초기화가 안되네여.. ㅡㅡ;;;
그러니까 색깔중에 빨간색을 클릭하고 나서
다른색을 클릭하거나.. 빨간색을 클릭하고 나서 종료시키고 다시 실행시켜서 글을 적으면 빨간색이 나오네여 ㅠ.ㅠ
다른것도 마찬가지고여..
이게 제가 짠 소스거든여
Private Sub cmd1_Click()
If chkred.Value = 1 Then
Text1.ForeColor = red
End If
If chkblue.Value = 1 Then
Text1.ForeColor = blue
End If
If chkyellow.Value = 1 Then
Text1.ForeColor = yellow
End If
If Chkorange.Value = 1 Then
Text1.ForeColor = orange
End If
If chkmo1.Value = 1 Then
Text1.FontBold = True
End If
If chkmo2.Value = 1 Then
Text1.Font.Italic = True
End If
If chkmo3.Value = 1 Then
Text1.FontUnderline = True
End If
Text1.FontSize = Combo1.ListIndex
End Sub
Private Sub Cmd2_Click()
End
End Sub
조그마한 조언이라도 부탁드립니다..
독학으로는 너무 어려운듯 하네여 비베 ㅠ.ㅠ
댓글 1
CheckBox는 0,1,2의 값을 가질 수 있는데 위의 코드를 보면 1일 경우에만 어떻게 하라고 정의되어 있지, 그것을 해지한 상태, 즉 0이거나 2일 때는 어떻게 하라고 정의되어 있지 않습니다.
또한 빨간색과 파란색을 동시에 선택했을 때에도, 나중의 IF문의 영향만 받도록 되어 있습니다.
따라서, 옵션 버튼 컨트롤을 이용해서 하나만 선택되도록 만들어 조건문을 단순화할 필요가 있습니다.