VB에서 목록 상자에 숫자를 추가하는 방법

list는 단일 열 데이터 테이블이므로 실제로 그리드 등을 사용하여 요청을 구현하는 것이 가장 쉽습니다. 목록을 사용하여 구현할 수도 있지만 코드를 사용하여 부드럽게 구현해야 합니다.

양식에 ListBox 1개, TextBOX 1개, CommandButton 컨트롤 3개를 추가합니다. ListBox의 Sorted 속성을 True로 변경합니다. 이 속성을 사용하면 ListBox 컨트롤이 사전순으로 자동 정렬할 수 있습니다.

Sorted 속성으로 인해 일련번호는 00으로 채워져야 합니다. 그렇지 않으면 정렬 결과는

1, 10, 100, 11, 12...

그런 다음 다음 코드:

p>

Private Sub Command1_Click()

오류 발생 시 다음 재개

'새 정보 추가

Me.List1.AddItem Right("00" & Me.List1.ListCount + 1, 3) & " " & Me.Text1.Text

'데이터에 삽입하려면 다음 코드를 사용하지만 삽입된 시퀀스 번호를 쓰려면 다른 텍스트를 만들어야 합니다. 즉, Tmp를 새 텍스트의 값으로 바꿔야 합니다.

'Dim Tmp As Integer

'Tmp = 10

'Tmp-1은 목록이 0부터 시작하기 때문에 일련번호 10을 목록 9행으로 바꾸는 것입니다.

'Me.List1.AddItem Right("00 " & Tmp, 3) & " " & Me.Text1.Text, Tmp - 1

'For i = Tmp To Me.List1.ListCount - 1

' DoEvents

' Me.List1.List(i) = Right("00 " & i + 1, 3) & " " & Right(Me.List1.List(i), Len(Me.List1.List( i)) - InStr(Me.List1.List(i), " ") - 2)

'다음

'데이터의 마지막 열을 가장 큰 숫자로 변경

'Me.List1.List(Me.List1.ListCount - 1) = Right("00" & Me.List1.ListCount, 3) & " " & Right(Me.List1.List(Me.List1 .ListCount - 1), Len(Me.List1.List(Me.List1.ListCount - 1)) - InStr(Me.List1.List(Me.List1.ListCount - 1), " ") - 2)

End Sub

Private Sub Command2_Click()

오류 시 재개 다음

'정보 수정

Me.List1. List(Me.Text1.Tag) = Right("00" & Me.Text1.Tag + 1, 3) & " " & Me.Text1.Text

End Sub

Private Sub Command3_Click()

오류 시 다음 재개

'정보 삭제

For i = CInt(Me.Text1.Tag) To Me.List1.ListCount - 1

DoEvents

Me.List1 .List(i) = Right("00" & i + 1, 3) & " " &

; 오른쪽(Me.List1.List(i + 1), Len(Me.List1.List(i + 1)) - InStr(Me.List1.List(i + 1), " ") - 2)

다음

'마지막 데이터 삭제

Me.List1.RemoveItem (Me.List1.ListCount - 1)

'목록이 있기 때문에 일련 번호를 사용하면 RemoveItem 메서드를 더 이상 사용할 수 없습니다.

'Me.List1.RemoveItem (Me.Text1.Tag)

End Sub

Private Sub Form_Load()

'이 장소가 1000이면 Right("00" & i, 3)를 Right("000" & i, 4)로 변경해야 합니다.

'최대 개수는 필요한 만큼 수정됩니다.

For i = 1 To 100

Me.List1.AddItem Right("00" & i, 3) & " XXX" & i

다음

Me.Command1.Caption = "추가"

Me.Command2.Caption = "수정"

Me.Command3.Caption = " 삭제"

End Sub

Private Sub List1_Click()

'목록의 정보에서 일련번호를 제거합니다. 그리고 이를 텍스트에 표시합니다.

Me.Text1.Text = Right(Me.List1.Text, Len(Me.List1.Text) - InStr(Me.List1.Text, " ") - 2)

'Text의 Tag 속성에 일련번호를 저장합니다.

Me.Text1.Tag = Me.List1.ListIndex

End Sub