기타 [vb.net] 랜덤(Random)문자 생성
페이지 정보
본문
방법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
첨부파일
-
RandomKeyGenerator.vb (3.7K)
352회 다운로드 | DATE : 2020-03-17 11:57:54
- 이전글[vb.net] datagridview 에서 endedit 호출 후 DataSource 의 checkbox 적용 안됨 20.03.23
- 다음글[vb.net] 컨트롤 순서 변경(맨앞으로/맨뒤로) 20.02.24
댓글목록
등록된 댓글이 없습니다.