[bakriano30@yahoo.com]

(15-08-19, 11:53 PM)سعود كتب :

مثال لملف نصي باسم t.txt

PHP كود :

 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Top = My.Computer.Screen.WorkingArea.Bottom
        Me.Left = My.Computer.Screen.WorkingArea.Right - Me.Width
        ListBox1.Items.AddRange(My.Computer.FileSystem.ReadAllText(CurDir() & "\t.txt", System.Text.Encoding.UTF8).Split(vbNewLine))
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Me.Top -= 20
    End Sub

    Private Sub Form1_Move(sender As Object, e As System.EventArgs) Handles Me.Move
        If Me.Bottom <= My.Computer.Screen.WorkingArea.Bottom Then Timer1.Stop() : Me.Top = My.Computer.Screen.WorkingArea.Bottom - Me.Height
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        MsgBox(ListBox1.Items(Int(Rnd() * ListBox1.Items.Count)))
    End Sub 


شكرا جدا اخ سعود هذا هو المطلوب ولكن اريد بدل المسج بوكس يعمل سليكت ع السطر بدل ما يطلع في مسج بوكس