22-12-12, 05:06 PM
السلام عليكم ورحمة الله وبركاته
تفضل مثال كامل
السلام عليكم ورحمة الله وبركاته
تفضل مثال كامل
كود :
Public Class Form1
Private Tips As New List(Of String)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadTips("Azkar.dl")
End Sub
Private Function LoadTips(ByVal filename As String) As Boolean
If IO.File.Exists(filename) Then
Tips = Split(IO.File.ReadAllText(filename).Trim, vbNewLine).ToList
Return True
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DisplayTip()
End Sub
Private Sub DisplayTip()
If Tips.Count > 0 Then
Dim indx As Integer = CInt((Tips.Count - 1) * Rnd() + 1)
Me.Label1.Text = Tips.Item(indx - 1)
End If
End Sub
End Classالسلام عليكم ورحمة الله وبركاته