DomainUpDown & NumericUpDown
*
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.AppendText("당신은 " + DomainUpDown1.SelectedItem + "을(를) " + CStr(NumericUpDown1.Value) + "개 주문했습니다" + vbCrLf)
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.AppendText("당신은 " + DomainUpDown1.SelectedItem + "을(를) " + CStr(NumericUpDown1.Value) + "개 주문했습니다" + vbCrLf)
End Sub
End Class
* DomainUpDown은 입력된 항목을 선택하는 기능을 한다
* NumericUpDown은 수를 증가,감소 시키며 선택할수 있는 기능을 한다
* 위의 예제로 DomainUpDown 과 NumericUpDown의 기능을 알수 있다
*다음의 오류를 수정해 보세요
1. 정렬 버튼이 작동하게 해보세요(항목 정렬-사과 배 딸기 오렌지 수박 메론 참외 감자 오이)
2, 실행화면을 보면 선택한 항목없이 TextBox에 출력 되었는데 선택한것이 없으면 오류 메세지 출력하고 TextBox에 출력되지 않게 해보세요
3. 수량의 최대값에 도달했을때 메세지 출력하게 해보세요
이 게시물을
댓글'2'
번호
제목
30
22
18
*수정 코드 입니다
1.
If DomainUpDown1.SelectedIndex = -1 Then
MsgBox("종류를 선택하세요")
Else
TextBox1.AppendText("당신은 " + DomainUpDown1.SelectedItem + "을(를) " + CStr(NumericUpDown1.Value) + "개 주문했습니다" + vbCrLf)
End If
2.
If NumericUpDown1.Maximum = NumericUpDown1.Value Then
MsgBox("최대 수량입니다")
End If
3.
DomainUpDown1.Items.Sort()
이 댓글을
* NumericUpDown 최대 ,최소값 지정
Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
NumericUpDown1.Maximum = 10
End Sub
이 댓글을