[memo.5ader]

(10-12-15, 09:32 PM)hamada558 كتب :

كود :

Shared Function RandomChars(ByVal m_CapitalChars_AZ As Boolean, ByVal m_SmallChars_az As Boolean, ByVal m_numbers_09 As Boolean, ByVal length As Integer) As String
   Dim charset As String = ""
   If m_CapitalChars_AZ Then charset &= "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   If m_SmallChars_az Then charset &= "abcdefghijklmnopqrstuvwxyz"
   If m_numbers_09 Then charset &= "0123456789"

   Dim result As String = ""

   If charset <> "" Then
       Static r As New Random ' Static مهم اختياره
       For i = 1 To length
           result &= charset(r.Next(0, charset.Length))
       Next
   End If

   Return result
End Function

مشكور اخي العزيز لكن هل من توضيح لكيفية استخدام هذا الكود ،،، انا قرأت الكود و رأيت فيه الاستفادة لكن اريد طريقة استخدامه ،،،،،،،،،،،، مشكوور مجدداً