شريف عادل

أشكرك على الرابط اخى العزيز واعتزر على التأخير شكرا B)

إبحث عن ملف الDLL وأثناء تحزيم البرنامج قم بإضافته يدويا

وضح أكثر

السلام عليكم ورحمة الله وبركاته أعتقد أن الكثبر من الأعضاء يكتفون بقراءة الصفخه الأولى فقط لذا فيجب فعلاً تقليص عدد الصفحات الى اقل عدد ممكن تحياتى...

ضع هذا الكود Private Sub Command37_Click() txtEdit(0).Text = vbCrLf & txtEdit(0).Text End Sub

فين يا جماعه الأكواد التقيله عايزبن نشوف ابداعات

اشكر لك مشاركتك اخ هانى

اخ هانى اعتقد ان العضو لا يقصد انه يريد حمايه ملفاته من النسخ غير القانونى لها

الافضل أن تقوم بعمل تحزيم للبرنامج وترفقه على أحد المواقع وتضع الوصله له حتى لا يكون هناك احتمال نقصان اى شئ من الأدوات شكراً

جارى التحميل والتجربه مشكور

مشكور هشام ازدنا من المعلومات

مشكوووووووووووووووووور اخى boooo7

إليك هدا الكود Private Function ReverseTXT(ByVal TXT As String) As String Dim Count1 As Long, STR1 As String Do While Len(TXT) <> 0 DoEvents STR1 = Left(TXT, 1) & STR1 TXT = Right(TXT, Len(TXT) - 1) Loop ReverseTXT = STR1 End Function Private Sub command1_clic…

بعد كل هذا أستطيع أن أقول أن البرنامج أكثر من رائع

يمكن عمل نسخ احتيطى للملف عن طريق ضغطه او وضعه فى Cabinet

اللهم أزد من علمك استازى النبهانى مشكووووووووووور

مع إحترامى الشديد لإستاذى النبهانى فقد قمت بعمل اقتراحك من قبل ولكنه لم يفلح تحياتى.....

اصل أهل القناطر هم اشباح القليوبيه كلها ههههههههههههههه اشكرك كثيراً على مشاركتك معى فى الموضوع تحياتى......

تعديل بسيط على الكود Private Sub Form_Load() Dim Count1 as long On Error GoTo r Dim a As String Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF = True a = Data1.Recordset.Fields(Count1).Value List1.AddItem a count1=count1+1 Loop Data1.Recordset.Move…

أعتقد انه يقوم بتخزين ملفاته فى المسار C:\Windows\System إبحث فى هذا المسار وان شاء الله ستجد المطلوب