كيف يمكنني عمل نص في الفورم يتغير كلما أعدت تحميل البرنامج

1-

هناك عشرات الطرق لانجاز المهمة، وهذه احداها .. قم باضافة النصوص إلى إلى مربع نصي Text Box وقم بالفصل بين كل حكمة وأخرى بضغط زر Enter .. ثم قم بضبط الخاصية Visible لمربع النص إلى False .. ويمكنك بعدها استخدام الكود

Private Sub Form_Load()
 Dim txt() As String, rndnum As Byte
 txt = Split(Text1, vbCrLf)
 rndnum = Int(Rnd * (UBound(txt) + 1))
 MsgBox txt(rndnum)
End Sub

2-

استخدم احدى الاداتين MS Char أو Graph.

أخي الحبيب حبذا لو وضحت أكثر .. فهذه الفكرة .. في بالي و أخي سبقني ..

حفظك الله

محبك/ أبو زيد

السلام عليكم ورحمة الله وبركاته

عزيزي learning :

قم بكتابة الحكم في ملف نصي TEST.TXT كل حكمة في سطر واحفظ الملف في مسار البرنامج.

ضع على نافذة المشروع أداة Label التي تريد عرض الحكم فيها وضع زر أوامر لعرض الحكمة التالية وانسخ الكود التالي :

Option Explicit
Dim Tips As New Collection
Const TIP_FILE = "TEST.TXT"
Dim CurrentTip As Long

Public Sub DisplayCurrentTip()
    If Tips.Count > 0 Then
        Label1.Caption = Tips.Item(CurrentTip)
    End If
End Sub

Private Sub DoNextTip()
    CurrentTip = Int((Tips.Count * Rnd) + 1)
    form1.DisplayCurrentTip
End Sub

Function LoadTips(sFile As String) As Boolean
    Dim NextTip As String
    Dim InFile As Integer
    InFile = FreeFile
    If sFile = "" Then
        LoadTips = False
        Exit Function
    End If
    If Dir(sFile) = "" Then
        LoadTips = False
        Exit Function
    End If
    Open sFile For Input As InFile
    While Not EOF(InFile)
        Line Input #InFile, NextTip
        Tips.Add NextTip
    Wend
    Close InFile
    DoNextTip
    LoadTips = True
End Function

Private Sub Command1_Click()
    DoNextTip
End Sub

Private Sub Form_Load()
    Dim ShowAtStartup As Long
    ShowAtStartup = GetSetting(App.EXEName, "Options", "Show Tips at Startup", 1)
    If ShowAtStartup = 0 Then
        Unload Me
        Exit Sub
    End If
    Randomize
    If LoadTips(App.Path & "" & TIP_FILE) = False Then
        Label1.Caption = "That the " & TIP_FILE & " file was not found? " & vbCrLf & vbCrLf & _
           "Create a text file named " & TIP_FILE & " using NotePad with 1 tip per line. " & _
           "Then place it in the same directory as the application. "
    End If
End Sub

جربه وقل لي رأيك فيه عزيزي.

إن كان هذا ما تريد فادعو لي.

جزاك الله خيرا لقد كفيت ووفيت وزدت على طلبي في السؤال الأول

وقد عملت مثل ما كتبت وسعدت جدا جدا بالنتيجة

بارك الله لك في علمك وحلمك وكرمك ورزقك النجاح والتفوق في الدين والدنيا والآخرة

الاخ الكريم عبدالغني محسن

حاولت تطبيق المثال الذي تفضلت به على الاكسيس بحيث يظهر لي سطر واحد في كل مرة في اداة العنوان باستعمال (Timer) على النموذج حتى يصل لنهاية الملف والعودة بعد ذلك من جديد

شكرا لك

أهلاً بك عزيزي VB.Net على العموم أنا لم أجرب الكود على ACCESS

فلست متأكد من عمله أم لا