20-01-14, 08:40 AM
السلام عليكم
- نفس طريقة الأزرار بالضبط فقط بدل الأزرار بالتكست بوكس ، أدرج Text1 وضع خاصية الـ Index تساوي صفر وأجعله مخفي ، ثم إستخدم نفس الكود الخاص بالأزرار ولكن غير إسم الزر بإسم التكست بوكس ، ولفترض أن إسم الحقل الذي تريد عرض محتواه هو Name , فسيكون الكود بهذا الشكل :-
- تحياتي .
- نفس طريقة الأزرار بالضبط فقط بدل الأزرار بالتكست بوكس ، أدرج Text1 وضع خاصية الـ Index تساوي صفر وأجعله مخفي ، ثم إستخدم نفس الكود الخاص بالأزرار ولكن غير إسم الزر بإسم التكست بوكس ، ولفترض أن إسم الحقل الذي تريد عرض محتواه هو Name , فسيكون الكود بهذا الشكل :-
كود :
Private Sub Form_Load()
Dim I As Long
ConnectDB
rs.Open "Select * From A", DB, adOpenDynamic, adLockPessimistic
I = 0
If Not IsEmptyRecordSet(rs) Then
Do While Not rs.EOF
I = I + 1
Load Text1(I)
Text1(I).Text = rs![Name]
Text1(I).Left = 240
If I = 1 Then
Text1(I).Top = 120
Else
Text1(I).Top = Text1(I - 1).Top + Text1(I - 1).Height + 120
End If
Text1(I).Visible = True
rs.MoveNext
Loop
End If
End Sub- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
