visual basic Radom Name

[math@root 0]

Bom Eu procurei e achei um topico falando a respeito só não entendi como funciona eu quero fazer o mesmo que o membro disso no topico AQUI Se alguem poder me ajuda ficarei muito grato

[Gord0n 455]

Você coloca este codigo no VB.NET

Public Function Gerar(Letras As Integer) As String

Dim R As New Random(My.Computer.Clock.TickCount)

Dim Permitidos As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"

Dim Devol As String = String.Empty

For l As Integer = 1 To Letras

Devol &= Permitidos.Substring(R.Next(0, Permitidos.Length), 1)

Next

Return Devol

End Function

 

No Form1 você coloca este :

 

Form1.Name = Gerar(9)

 

 

 

sIMPLESZÃO

[math@root 0]

esse aqui , eu coloco em cima de tudo ? e o segundo no lugar do nome da form é isso que entendi ?

Public Function Gerar(Letras As Integer) As String

Dim R As New Random(My.Computer.Clock.TickCount)

Dim Permitidos As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"

Dim Devol As String = String.Empty

For l As Integer = 1 To Letras

Devol &= Permitidos.Substring(R.Next(0, Permitidos.Length), 1)

Next

Return Devol

End Function

[[N]ARUTO_ 95]

esse aqui , eu coloco em cima de tudo ? e o segundo no lugar do nome da form é isso que entendi ?

Public Function Gerar(Letras As Integer) As String

Dim R As New Random(My.Computer.Clock.TickCount)

Dim Permitidos As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"

Dim Devol As String = String.Empty

For l As Integer = 1 To Letras

Devol &= Permitidos.Substring(R.Next(0, Permitidos.Length), 1)

Next

Return Devol

End Function

Eu fiz o projeto usando esses codigo ae

Source aqui :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se