새 줄을 포함하도록 메시지 상자로 전달되는 MessageBox 메시지를 작성할 수 있습니까?

Question

누락 된 체크리스트 항목 목록을 반환하는 사용자를위한 메시지를 생성하려고합니다. 내 질문 : 새 줄을 포함하는 MessageBox에 전달할 수있는 메시지를 작성하는 방법이 있습니까? 나는 여러 가지 개별 메시지를 받아들이는 방법을 오버로딩하는 것을 고려해 왔지만 이것을하기위한보다 우아한 방법이 있어야한다. 아래는이 메시지 수집, 표시 및 향후 수출을보다 편리한 형식으로 처리하도록 설계된 클래스입니다.

Public Class clsChecklistMissingItems 

Private Shared iWrong As Integer = 0 'Number of items wrong. 
Private Shared sMissingItems() As String 'Will use the number of items wrong. 

Public Shared Sub CollectItem(ByVal mess As String) 'Saves the message passed to it. 


    ReDim Preserve sMissingItems(iWrong) 'Resize the array based on the counter. 
    sMissingItems(iWrong) = mess 'Assign the message to the missing items string array. 
    iWrong = iWrong + 1 'Increment the counter (may give us +1 

End Sub 

Public Sub DisplayList() 'Displays the message at the end of the execution. 
    'Can this be generated procedurally? 

    MessageBox.Show("There were " & iWrong & " missing or incorrect items." & vbNewLine & 
        sMissingItems(iWrong)) 

End Sub End Class 

내 대체 솔루션은 텍스트 상자와 유사한 동작합니다 텍스트 상자와 같은 포맷 된 양식을 작성하는 것입니다,하지만 기술의 모든 기능을 제공합니다.

Answer 1

배열을 사용하는 것이 최선의 방법은 아닙니다. .NET에는 List<T>과 같이 배열보다 훨씬 뛰어난 기본 제공 컬렉션 클래스가 많이 있습니다. Visual Basic의 다른 "맛"(VBScript, VBA 등)에서 익숙해지기 때문에 배열을 사용하는 것이 유감이지만 .NET FCL에서 사용할 수있는 것을 배워야합니다.

당신은 메시지의 목록 구축 루프와 StringBuilder를 사용하여이 같은 일을 할 수 있습니다 : 그것은 VB.NET 캐리지을 가지고 나에게 지적되었다 내 동료와 대화 후

Dim wrongItems As New List(Of String)() 

' fill the collection however you do it... 
wrongItems.AddRange({"Reason 1", "Reason 2", "Reason 3"}) 

Dim sb As New StringBuilder() 

For Each item In wrongItems 
    sb.AppendLine(item) 
Next 

MsgBox(String.Format("There were {0} missing or incorrect items.", 
        wrongItems.Count) & vbNewLine & sb.ToString()) 

Answer 2

을 줄 바꾸기는 새 줄을 나타내는 문자열로 연결되도록 설계되었습니다.

Public Sub DisplayList() 

    Dim sMessage As String = "" 

    For i As Integer = 0 To sMissingItems.Length - 1 
     sMessage = sMessage & sMissingItems(i) & vbCrLf 
    Next 

    MessageBox.Show(sMessage) 

End Sub 

이 시점에서 배열이 아닌 목록을 사용하여 구현할 기회가 없었습니다.