0

コードを使用して入力された日付の2つの列を持つリストボックスがあります:

   'Press  to place value into Array
    Private Sub TxtMark_Enter(ByVal sender As System.Object, _
            ByVal e As KeyEventArgs) Handles TxtMark.KeyDown


    Dim Mark As Double
    Dim DataString As String

    If e.KeyCode = Keys.Enter Then

        If Double.TryParse(TxtMark.Text, Mark) = False Then
            MessageBox.Show(" You must enter a numeric value like 1 or 2")
            TxtMark.Clear()
            TxtMark.Focus()
            Exit Sub
        End If

        If Mark < 0 Then
            MessageBox.Show("Valid range is between 0 and 100, 7 would work " _
                & Mark.ToString & " Does not")
            TxtMark.Clear()
            TxtMark.Focus()
            Exit Sub
        End If



        If NumberOfScores < MaxEntries Then
            ScoreArray(NumberOfScores) = Mark

            DataString = (NumberOfScores + 1).ToString + ".  " + _
                NameArray(NumberOfScores).PadRight(15) + _
  Mark.ToString.PadLeft(5)
            Lstdisplay.Items.Add(DataString)
            NumberOfScores += 1
        End If
        TxtMark.Clear()
        TxtName.Clear()
        TxtName.Focus()
        Exit Sub

    End If

私がやりたいことは、データが入力されると自動的にマークの一部を行うラベルを持つことです。どんなアイデアでも素晴らしいでしょう

4

2 に答える 2

0

1 つのアイデアは、文字列の数値部分を返すカスタム拡張機能を追加してから、上記の Matt Wilko の反復を使用することです。

カスタム拡張機能を作成するには、次のようにクラスをプロジェクトに追加します。

Imports Microsoft.VisualBasic
Imports System.Runtime.CompilerServices
Namespace Extensions
Public Module ExtensionMethods
    <Extension()> _
    Public Function GetNumeric(ByVal source As String) As String
        'Takes the passed in string and returns the numeric part
        Dim ReturnString As String = ""
        For A = 1 To source.Length
            If IsNumeric(source.Substring(A, 1)) Then
                ReturnString += source.Substring(A, 1)
            End If
        Next
        Return ReturnString
    End Function

End Module
End Namespace

その後、プロジェクトに MyProject.Extensions をインポートすると、string.GetNumeric を使用してコードの数値部分を返すことができます。

これがあなた（および他の人）に役立つことを願っています。

于 2013-09-16T09:10:48.593 に答える