Как разделить серийный номер на 4 текстовых поля после CTRL + V в VB.Net - PullRequest
Новая
       6

Как разделить серийный номер на 4 текстовых поля после CTRL + V в VB.Net

0 голосов
/ 08 февраля 2020

Моя проблема в том, что у меня 4 текстовых поля и 1 "серийный номер". То, что я хочу:

Когда пользователь вставляет серийный номер в первый TextBox, строка будет разделена на 4 цифры для каждого текстового поля, таким образом, оставляя всего 16 цифр, однако 4 в каждом TextBox.

И, наконец, я хотел проверить 4 текстовых поля, чтобы увидеть, соответствует ли текст в них тексту внутри строки "Serial", и все это при нажатии кнопки OK (Button1_Click). Проблема в том, что я понятия не имею, как это сделать, может ли кто-нибудь помочь мне с этим? 

    Function Validacao(serial As String)
        Dim Serial(15) As String
        Serial(0) = "E8V7-J3MK-K3D4-D255"

        For i = 0 To Serial.Count() - 1 Step 1
            If serial = Serial(i) Then
                Return True
            End If
        Next

        Return False
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Validacao(TextBox1.Text) = True Then
            MsgBox("Example Software is activated.", MsgBoxStyle.Information, "Congratulations!")
            My.Settings.SaveSettings = True
            My.Settings.Save()
            My.Settings.Reload()
            Dim dirSavePoint As New IO.DirectoryInfo("C:\ProgramData\SavePoint")
            If Not dirSavePoint.Exists Then
                My.Computer.FileSystem.CreateDirectory("C:\ProgramData\SavePoint")
            End If
            escreveINI("C:\ProgramData\SavePoint\Serial.INI", "Settings", "Serial", TextBox1.Text)
            Form3.Show()
            Me.Hide()
        Else
            MsgBox("Error! Your serial number is invalid.", MsgBoxStyle.Critical, "Error!")
        End If
    End Sub

End Class
...