• 쇼핑몰
  • 커뮤니티
  • 북마크

vb.net




[기타] [vb.net] 랜덤(Random)문자 생성

하나를하더라도최선을
2020.03.17 11:57 1,014 0
  • - 첨부파일 : RandomKeyGenerator.vb (3.7K) - 다운로드

본문



방법1. RandomKeyGenerator.vb 클래스를 추가하고 아래 함수를 사용하면 됩니다.?
 
Private Function RandomString(ByVal KeyChars As Integer) As String
        Dim KeyGen As New RandomKeyGenerator
        KeyGen.KeyLetters = "abcdefghijklmnopqrstuvwxyz"
        KeyGen.KeyNumbers = "0123456789"
        KeyGen.KeyChars = KeyChars
        Return KeyGen.Generate()
End Function
 
 
방법2. 
 
Imports System.Text
 
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox(RandomString(10))
    End Sub
 
    Public Function RandomString(ByVal strLen As Integer) As String
        Dim S As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
        Dim SB As New StringBuilder
        Dim R As New Random
        For i As Integer = 1 To strLen
            SB.Append(S.Substring(R.Next(0, S.Length), 1))
        Next
        Return SB.ToString()
    End Function
 
End Class
 


댓글목록 0

등록된 댓글이 없습니다.