hamidrezax1
شنبه 18 اردیبهشت 1395, 07:28 صبح
سلام دوستان وقت بخیر
من یه فرم دارم که داخل اون فقط یک باتن قرار داره.میخوام زمانی که روی باتن کلیک کردم وارد یک کلاس بشه و اگر برای اولین بار وارد شده یه عدد تصادفی بهم بده و اون در یک رشته در خود کلاس نگهداری کنه و در صورت تکرار کلیک روی باتن عدد اول رو که نگهداری شده بمن نشون بده و عدد جدید درست نکنه.متاسفانه نمیدونم باید چیکار کنم تا عدد در کلاس نوشته شدم حفظ بشه.ممنون میشم راهنمایم کنید
Public Class Singleton
Private Shared uniqueInstance As Singleton = Nothing
Sub mssg(ByVal txt As String)
Dim uniqueInstance As Integer
Dim j As Integer j = Rnd() * (1000)
If uniqueInstance = Nothing Then
uniqueInstance = j
MsgBox(uniqueInstance)
Else
MsgBox(uniqueInstance)
End If
End Sub
End Class
من یه فرم دارم که داخل اون فقط یک باتن قرار داره.میخوام زمانی که روی باتن کلیک کردم وارد یک کلاس بشه و اگر برای اولین بار وارد شده یه عدد تصادفی بهم بده و اون در یک رشته در خود کلاس نگهداری کنه و در صورت تکرار کلیک روی باتن عدد اول رو که نگهداری شده بمن نشون بده و عدد جدید درست نکنه.متاسفانه نمیدونم باید چیکار کنم تا عدد در کلاس نوشته شدم حفظ بشه.ممنون میشم راهنمایم کنید
Public Class Singleton
Private Shared uniqueInstance As Singleton = Nothing
Sub mssg(ByVal txt As String)
Dim uniqueInstance As Integer
Dim j As Integer j = Rnd() * (1000)
If uniqueInstance = Nothing Then
uniqueInstance = j
MsgBox(uniqueInstance)
Else
MsgBox(uniqueInstance)
End If
End Sub
End Class