micheal R jordan

السلام عليكم ورحمة الله تعالى مرحبا بك kamel_net ماذا تقصد هل تقصد البحث عن أسماء أو أرقام داخل الcombo أم ماذا

السلام عليكم لا أعرف كيف لكن آمل أن يفيدك هذا المرفق DataBase.rar

أخي الكريم آسف ماذا تقصد

السلام عليكم ورحمة الله تعالى وبركاته ولا أحلى ولا أجمل من تحية الاسلام خطأ غير مقصود والله أخي لم أنتبه فهي "vi" وليس vb آسف أخي والله آسف أما بخصوص سؤالك هذا الرابط قد يفيدك جدا وأخص بالذكر هذا الكلام DIM NAME AS STRING حسن السؤال الان ماهي الذاكرة اللازمة ل…

أخي الكريم لو أجبت على هذا السؤال سيكون أفضل وإذا كنت قد فهمت فأنت تريد حفظ معلومات عن برنامجك صح حتى يقوم بتذكرها في المرة المقبلة التي يشتغل بها أخي الكريم إذا كان الامر كذلك ف ini قد يكون أفضلوإذا أردت Binary File فيمكنك إعطاؤه أي امتداد كيف ماكان *.* رغم أ…

i'm sorry that i'm going to write in english i donot know what you mean by Dim s As String Label1.Caption = Left(s, 2 and what to do with the topic but your code will take the two letters from the left of the string Means: Dim s As String s="Visul basic" Label…

قد لا أستطيع المساعدة ولكن آمل أن يفيدك هذا الرابط العسيري

السلام عليكم ورحمة الله تعالى أخي الكريم لا بد من الفكرة قبل الكود الجاهز حسن الفكرة يا أخي سهلة وكل ما تحتاجه هو دالة واحدة صغيرة وLoop الدالة هي InStr وسأقتبس من برنامج المرجع للدوال البرمجية لــمحمد سامي يمكنك بواسطة هذه الدالة معرفة أول مكان يظهر فيه نص ما…

الجواب على سؤالك يا أخي سهل لكنه طويل وطويل html htm cpp frm vbp bas php reg jvscript vbs . .. . . . . . . . .. . . بكلام آخر كل الملفات النصية تمكنك من عمل ذلك الامر بكلام آخر أي ملف تفتحه NotePad يمكنك فتحه بواسطة Open For -In out - OutPut -Append- المهم إذا…

آسف أخي الكود يعمل بشكل جيد ماذا عن هذا الكود هنا يا إخوان ألم يجرب أحدكم الكود ماذا عن المواقع في الاعلى ألا تعمل أيضا أخ مبرمج مبتدا ألا يعمل معك الكود حسن ضع أخي الخطأ وسنرى: كل كل عليك فعله هو عندما تظهر رسالة الخطأ قم بالضغط على Ctrl + C بلصقها في NotePad…

السلام عليكم ورحمة اله تعالى وبركاته Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long Private Sub CmdIE_Click() DoFileDownload StrConv(TxtURL, vbUnicode) End Sub أخي الكريم الدالة DoFileDownload هي دالة API API = App…

آسف لم أنتبه إلى الكود وكنت أظن أنك تريد ان تفتح الملف سطرا سطرا إذا أردت أن يعمل الكرد بتاعك فقط أضف vbNewLine أو vbCrLf بعد atext$ = atext$ & lineoftext$ & wrap$ ويصبح الكود هكذا ولكن لابد مما قلته من قبل C11.Filter = "text file|*.txt" C11.ShowOpen Open C11.…

السلام عليكم أهلا أخي حسنا خذ هذا المثال Open FileFath For Input As #1 text1 = Input(LOF(1), 1) Close #1 بحيث FilePath هو مسار الملف كاملا بخصوص #1 فإنه يسمى مقبض الملف(Handle) حتى يقوم بفتحه VB حاله كحال أي نافذة في الويندوز بخصوص LOF(1),1 هذه دالة تقوم بقراء…

أخي لا مشكلة عندي على الاطلاق

أخي الكريم غير text Propreties في Text1 MultiLine =true هذا هو المهم ولكنك قد تريد إضافة ScrollBars وهي أيضا من text Propreties

السلام عليكم آسف على تأخري نعم لقد فهمت الان ولكن هل جربت الكود الثاني نفسه Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long Private Sub Form_Load() DoFileDownload "http://www.m5zn.com/uploads/bf9eb8f384.JPG" End Sub…

في الحقيقة لا أعتقد أنني فهمت ما ترمي إليه لأنني أستعمل IDM ولا أرى أي صفحة أو أي شيء ولكن Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long Private Sub Form_Load() DoFileDownload "http://www.m5zn.com/uploads/bf9eb8f3…

آسف أخي لا أستطيع المساعدة

استعمل أخي هذا الكود بخصوص الملفات Shell "explorer http:\\www.XXX.com\SetupDI.zip" بخصوص صفحات الانترنيت Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long Private Sub Form_Load() DoFileDownload StrConv("http://www.all…

نعم أخي شكرا جزيلا ولقد وجدت مثالا في الموقع الرائع بخصوص API In VB vbnet.mvps.org موقع جيد جدا شكرا يا إخوان