none
Deleted RRS feed

Respostas

  • Boa noite.

    Segue sugestão.

    Se te ajudar, por gentileza, marque como resposta/útil.

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            Dim str_Caracteres As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" '26 caracteres
            str_Caracteres += "abcdefghijklmnopqrstuvwxyz" '26 caracteres
            str_Caracteres += "0123456789" '10 caracteres
            str_Caracteres += "ÇçÃãÕõÁáÉéÍíÓóÚú" '16 caractres
    
            Dim Caracter_Aleatório As New Random
            Dim Título_Form As New StringBuilder
            For i As Integer = 1 To 20
                Título_Form.Append(str_Caracteres.Substring(Caracter_Aleatório.Next(0, 77), 1)) 'número de caracteres menos 1
            Next
    
            Me.Text = Título_Form.ToString
    
          
    End Sub


    MARIANO1776

    segunda-feira, 19 de março de 2018 01:09