booknet

عليكم السلام ورحمة الله وبركاتة بارك الله فيك أخي الفاضل، وزادك الله علما. ولكني وجدت الكود التالي فما رأيك في: Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT…

عليكم السلام ورحمة الله وبركاته تفضل أخي العزيز Dim sRowIndex As Integer = 0 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click If DataGridResults.Rows.Count = 0 Then Exit Sub Dim i2 As Integer i2 = DataGridResults.…

أخي العزيز إذا كان عندي أكثر من هارد ديسك في الجهاز، كيف أعرف رقم الهارد ديسك الثاني فقط ولنفرض بأنه "D" وشكرا

Private Sub ListView1_ColumnWidthChanging(sender As Object, e As System.Windows.Forms.ColumnWidthChangingEventArgs) Handles ListView1.ColumnWidthChanging e.Cancel = True e.NewWidth = Me.ListView1.Columns(e.ColumnIndex).Width End Sub

استخدم خاصية فورمات مثال: Format(your number,"000,000,000")

Public Sub BuildTreeString(ByVal rootNode As TreeNode, ByRef buffer As System.Text.StringBuilder) If rootNode.Level = 0 Then buffer.Append(" *" & rootNode.Text) buffer.Append(Environment.NewLine) Else buffer.Append(rootNode.Text) buffer.Append(Environment.NewL…

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress 'If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." Then If (e.KeyChar <…

بسم الله الرحمن الرحيم وجدت كود للتأكد من نوع الفريم نتورك فاذا كان غير موافق لبرنامجي فسوف يقوم بتنصيبه، ولكن المشكلة أن الكود معمول بلغة (inno script) وحاولت تحويله للفيجول ولم أستطع فاذا كان هناك من يستطيع المساعدة، جزاكم الله خيراز الكود هو: عنوان صفحة الك…

السلام عليكم ورحمة الله وبركاته في المثال المرفق كود لتعبئة الشجرة من الداتا أكسس، ولكن المشكلة عندما تزيد الريكوردات عن الألفين تصبح التعبئة بطيئة نوعا ما. فهل هناك كود أفضل وأسرع من الكود المرفق في المثال؟ وشكرا arshef.rar

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

بسم الله الرحمن الرحيم استخدمت الكود التالي لكتابة التاريخ الهجري في التكست بوكس1 فكيف أجعل التكست بوكس 2 ينقص يوم واحد عن الأول وشكرا الكود Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim dt As D…

استخدامت الكود التالي لحفظ وقرائة اللسيت فيو إلى الداتا أكسس وحصلت على إيرور: الكود لحفظ الليست فيو للداتا وفيه إيرور كما هو مبين في الصورة المرفقة: private sub button7_click(byval sender as system.object, byval e as system.eventargs) handles button7.click ' o…

بســم الله الـرحمــن الرحيــم السلام عليكــم ورحمـة الله وبركاتــه ،، المثال المرفق يبحث عن الكلمة داخل الملفات ويظيف السضر الموجود فيه الكلمة الى الليست فيو. سؤالي هو: هل هناك طريقة أسرع من المثال المرفق للبحث في الملفات؟ وشكرا txt_searcher.rar

شكراً لك اخي الكريم ولكن الكود الذي كتبته أنت لا يبحث عن جزء من الكلمة إذا كان الحرف ليس الأول فمثلا كلمة "عمر" لو بتحث عن الميم لا يبحث. وشكرا

شكراً لك اخي الكريم ولكن هل يمكن تطبيق هذا الكود على المثال المرفق وشكرا

بســم الله الـرحمــن الرحيــم السلام عليكــم ورحمـة الله وبركاتــه ،، في المثال المرفق كود للبحث في الليست فيو، والبحث يسير بشكل جيد ولكن ينقصه شيئان: 1- ظهور مسج عند الإنتهاء من البحث. 2- ظهور مسج عند عدم وجود الكلمة في الليست فيو. وشكرا find_string_in_listVi…

السلام عليكــم ورحمـة الله وبركاتــه ،، كيف أنشيئ داتا جديدة بالكود اسمها "MyData.mdb" تحتوي على الرقم الأسم المحتوى وشكرا

شكرا لك أخي العزيز وبارك الله فيك

بســم الله الـرحمــن الرحيــم السلام عليكــم ورحمـة الله وبركاتــه ،، كيف يمكن قراءة آية أو مقطع من السورة؟ علما بأنني أستخدم الكود التالي لقراءة السورة كاملة AxWindowsMediaPlayer1.URL = "c:\001.mp3" جزاكم الله خيرا

وعليكــم السـلام ورحمة الله وبركاتـه.. أخي العزيز objectOrienteD إذا تقصد مراجعتها من قبلي فلم اراجعها ولكنها عندي منذ فترة طويلة ولم أجد فيها أخطاء. وإذا كنت تقصد مراجعتها من قبل مصدرها فلا أعلم، فلقد أنزلتها منذ فترة طويلة من موقع في بي زون. وشكرا