منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - قسم مكتبة اكواد VB.NET

BBCodeParser

Sun, 07 Dec 2025 10:08:21 +0000

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

المرفق هو عبارة عن كلاس تحويل اكواد الـbbcode الى مثيلاتها بــhtml

password:vb4arb

طبعا تحتاج تنزيل مراجع عن طريق NuGet حتما ستعرفها باذن الله عند وجود اي خطأ

تستطيع التعديل عليها مثل ما فلعلت انا بها من قبل.

يمكنك الاستغناء عن sanitizer بحذفها فهي تنظف(حسب اللذي فهمته عنها) النص من اي خطورة او استغلال.

BBCodeParser.zip (الحجم : 824 بايت / التحميلات : 6)

إجراء تصحيح اسماء الصور ليتناسب مع برنامج ffmpeg

Sun, 19 Oct 2025 00:32:40 +0000

بسم الله الرحمنالرحيم

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

الكود التالي توصلت له بعد تعب مع برنامج ffmpeg فالتعامل معه لا بد من الدقة.

اليكم الاجراء

كود :
Sub repairimagesnames(imagespath As String)

     Dim i As Integer = 0

     Dim pics() As String = Directory.GetFiles(imagespath, "*.png")

     If pics.Count > 0 Then

         Dim c As Integer = pics.Count

         Dim d As Integer = Len(c.ToString())

         Dim strname As String = StrDup(d, "0")

         For i = 0 To c - 1

             On Error Resume Next

             Dim fn As String = pics(i)

             If Path.GetExtension(fn).ToString.ToLower = ".wav" Then Continue For

             Dim newname As String = i.ToString(strname) & ".png"

             My.Computer.FileSystem.RenameFile(fn, newname)

         Next

         MsgBox("تم تصحيح اسماء الصور", MsgBoxStyle.Exclamation, "")

     End If

 End Sub

أخذ ايقونة من صورة و حفظها

Wed, 15 Oct 2025 21:00:18 +0000

كود :
Public Sub Ticon(imgpath As String, iconpath As String)

     Dim bmp As New Bitmap(Image.FromFile(imgpath))

     Dim iconHandle = bmp.GetHicon()

     Dim icon As Icon = Icon.FromHandle(iconHandle)

     Using fs As New FileStream(iconpath, FileMode.Create)

         icon.Save(fs)

     End Using

 End Sub

هذا الاجراء يحفظه مباشرة الى المسار المرسل

الان يعمل ولا ادري ماهو سر عدم عمله في وقت مضى!

استخدام متغير عام لتخزين مثيل الفــورم

Tue, 13 May 2025 12:17:23 +0000

كنتُ أعانـي من مشكلة إنشاء مثيل جديد من الفــورم في كل مرة أضغط فيه بوتن فتح الفـورم على الزر.
والذي يؤدي بدوره يؤدي إلى فتح نسخ متعددة من الفورم.

هذا الكود التي كنت أعاني منه

كود :
 Dim frm As New FormSemester1 : frm.MdiParent = Me : frm.Show() ()

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

مثـلاً عند فتح الفـورم (FormDocuments)

كود :
Dim frmDocuments As FormDocuments

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    If frmDocuments Is Nothing OrElse frmDocuments.IsDisposed Then

        frmDocuments = New FormDocuments

        frmDocuments.MdiParent = Me

        frmDocuments.Show()

    Else

        frmDocuments.Activate()

    End If

End Sub

كود لقياس الوقت المستغرق لتنفيذ أي كود

Tue, 06 May 2025 16:29:09 +0000

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

كود :
Dim sw As New Stopwatch()

sw.Start() ' بدء التوقيت

' يمكنك التحكم في وقت الأختبار بزيادة العدد 100 في حلقة for

For i As Integer = 1 To 100

    ' ضع الكود المراد قياس سرعة تنفيذه هنا

Next

sw.Stop() ' إيقاف التوقيت

Console.WriteLine("الوقت المنقضي: " & sw.ElapsedMilliseconds & " مللي ثانية")

طلب مساعده كود يجبر دقة الشاشه في مقاس معين

Fri, 14 Mar 2025 10:57:53 +0000

بسم الله الرحمن الرحيم

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

ماهو الكود الذي يمكنني من تغيير دقة الشاشة الى دقة محددة ( مثلا الى دقة 1366 *768)
بس يكون كود جاهز ينحط في كل فورم
ولكم جزيل الشكر

سؤال

Mon, 17 Feb 2025 19:50:35 +0000

التعليمة مكتوبة بهذه الطريقى :

Me.TextBox1.Text = dgvList.Rows.Count - 1'

TextBox1.Text = dgvList.Rows(0).Cells(1).Value

البرنامج مصمم على تنفيذ التعليمة الاولى المعلقة و تجاهل الثانية الفعالة.
و كل المحاولات فشلت. حتى بحذف التعليمة المعلقة ينفيذه .

ثانيا
يحدث ان اضيف عنصر للشاشة (مربع نص ,, زر ...) لكنه لا يظهر وقا التنفيذ , يختفي مع انه وقت التصميم موجود و يمكن العمل معه.
افيدونا افادكم الله.

ُError نتيجة الجمع بين الراميتر من نوع Array مع بارميتر من نوع Optional

Sun, 15 Sep 2024 11:55:20 +0000

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

(ByVal ParamArray Cont() As System.Windows.Forms.Control, Optional ByVal FldCont As System.Windows.Forms.Control = Nothing)

سؤال للاعضاء

Tue, 16 Jul 2024 18:51:36 +0000

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

انا جديد في القروب فيجوال بيسك انا مبرمج على

فيجوال بيسك 6 وانظممت حديثا الي فيجوال استوديو دوت نت

انا الان منزل فيجوال استوديو 2015

السؤال الان هل الكريستال ريبورت مدمج ضمنياً مع الفيجوال

ام يجب ان انزلة لوحدة كا برنامج مستقل

وشكراً

ملء قائمة نصية من ملف نصي عند تعريفها مباشرة

Sat, 01 Jun 2024 22:53:58 +0000

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

لم اكن اتوقع انه يمكن التعريف والتعبئة في منطقة التصريحات العامة هكذا:

PHP كود :
   Dim lst As New List(Of String)(IO.File.ReadLines("C:\Users\myname\Desktop\cities.txt")) 

GetKeysCount

Fri, 24 May 2024 20:57:47 +0000

PHP كود :
Private Function GetKeysCount(cn As OleDbConnection, tb As String) As Integer
     If cn.State = ConnectionState.Closed Then cn.Open()
     Dim akeys As DataTable = cn.GetOleDbSchemaTable(OleDbSchemaGuid.Primary_Keys, New String() {Nothing, Nothing, tb})
     Return (akeys.Rows.Count)
 End Function 

هل اكسس يسمح باكثر من مفتاح ضمن جدول واحد؟
ان كان لا يسمح فهذا الكود مناسب للتحقق قبل الاضافة (لمن ليس عندهم برنامج الاكسس و انما فقط ملفات التشغيل)

الغاء المفتاح من الجدول

Sat, 18 May 2024 15:00:28 +0000

PHP كود :
ALTER TABLE YourTableName DROP CONSTRAINT PrimaryKey 

مع انه بسيط لكن تعبت و انا اخمن بنية الكود عشان هذا اضفته لاتذكره بسهولة

مساء الخير.

موديول لانشاء ملف الاكسل واعادة تسمية الورقة الاولى الى tb بدل كلمة ,ورقة1

Wed, 17 Apr 2024 19:40:05 +0000

كما مكتوب بالعنوان وهذا محتوى الموديول:

PHP كود :
Imports System.Runtime.InteropServices
Imports Microsoft.Office.Interop
Module Module1
    Dim sw As Integer = Screen.PrimaryScreen.WorkingArea.Right
    Dim sh As Integer = Screen.PrimaryScreen.WorkingArea.Bottom
    Dim ax, ay As Integer, dr As Boolean
    Public myform As Form = Nothing
    Public apppath As String = IO.Path.GetDirectoryName(System.Windows.Forms.Application.ExecutablePath) & "\"
    Public xdb As String = apppath & "db.xlsx"
    Public excelapp As Excel.Application
    Public excelworkbook As Excel.Workbook
    Public excelworksheet As Excel.Worksheet
    Public misv As Object = Reflection.Missing.Value
    Public Sub xc()
        excelworkbook.Close()
        excelapp.Quit()
        releaseObject(excelapp)
        releaseObject(excelworkbook)
        releaseObject(excelworksheet)
    End Sub
    Public Sub CreateExcelFile()
        If IO.File.Exists(xdb) Then
            MsgBox("الملف موجود مسبقا", MsgBoxStyle.Information, "")
            Exit Sub
        Else
            excelapp = New Excel.Application
            excelworkbook = excelapp.Workbooks.Add(misv)
            excelworksheet = CType(excelworkbook.Worksheets(1), Excel.Worksheet)
            excelworksheet.Name = "tb1"
            excelworkbook.SaveAs(xdb)
            xc()
        End If
    End Sub
    Public Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub
    Public Sub rep(f As Form)
        If f.Left < 0 Then f.Left = 0
        If f.Top < 0 Then f.Top = 0
        If f.Right > sw Then f.Left = (sw - f.Width)
        If f.Bottom > sh Then f.Top = (sh - f.Height)
    End Sub
    Public Sub mdown(sender As Object, e As MouseEventArgs)
        If e.Button = MouseButtons.Left Then
            dr = True
            ax = sender.MousePosition.X - myform.Left
            ay = sender.MousePosition.Y - myform.Top
            If TypeOf sender Is Button Then
                CType(sender, Button).ForeColor = Color.Red
            End If
        End If
    End Sub
    Public Sub mmove(sender As Object, e As MouseEventArgs)
        If dr Then
            myform.Left = sender.MousePosition.X - ax
            myform.Top = sender.MousePosition.Y - ay
        End If
    End Sub
    Public Sub mup(sender As Object, e As MouseEventArgs)
        dr = False
        rep(myform)
        If TypeOf sender Is Button Then
            CType(sender, Button).ForeColor = Color.Black
        End If
    End Sub
    Public Sub mcontrols(f As Control)
        If TypeOf f Is Form Then
            AddHandler f.MouseDown, AddressOf mdown
            AddHandler f.MouseMove, AddressOf mmove
            AddHandler f.MouseUp, AddressOf mup
        End If
        For Each c As Control In f.Controls
            mcontrols(c)
            If TypeOf (c) Is Panel Or TypeOf (c) Is Label Or TypeOf (c) Is PictureBox Or TypeOf (c) Is GroupBox Then
                AddHandler c.MouseDown, AddressOf mdown
                AddHandler c.MouseMove, AddressOf mmove
                AddHandler c.MouseUp, AddressOf mup
            End If
        Next
    End Sub
End Module 

وباي حدث تريد التنفيذ اكتب الكود التالي:

PHP كود :
If IO.File.Exists(xdb) = False Then
     CreateExcelFile()
 End If 

Module1.zip (الحجم : 1.16 ك ب / التحميلات : 60)

كود عرض عدد ملفات بامتدادات محددة

Wed, 17 Apr 2024 02:33:00 +0000

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

اذكر زمان احتجت كود يجلب او يعرض عدد ملفات بامتدادات محددة ولكوني مبتديء آنذاك كتبت شبه جريدة من الاكواد اما هذه الايام و بعد انقطاع جزئي عرفت صياغة الـFunction المسؤولة مع ان الحلول حصلت عليها في حينها لكنها كانت بطرق جديدة لم استوعبها.

المهم هذه او هذا هو الكود:

PHP كود :
Private Function Images_Count(Extensions() As String, ImagesFolder As String) As Integer
     Dim c As Integer = 0
     For i As Integer = 0 To Extensions.Count - 1
         c += Directory.GetFiles(ImagesFolder, Extensions(i)).Length
     Next
     Return c
 End Function 

السلام عليكم

Wed, 06 Mar 2024 20:36:30 +0000

السلام عليكم
عندي مشكله في استخدام فيجوال بيسك 2017 عندي قاعدة بيانات SQLite واعمل علي برنامج جرد المخازن مشتريات ومبيعات ومرتجع مورد ومرتجع زبون وعندي هذا الكود بيظهر عدد المشتريات فقط ويتجاهل عدد المبيعات وعدد المرتجعات اريد من الاخواه الافاضل المساعدة في حل هذه المشكله ولكم جزيل الشكر

هذا الكود يعرض نتيجه qty فقط
وباقي الحقول لا يتم عرضاها مثل qtya,qtyb,qtyc
المشكله في هذا الجزء
اذا كانت
FROM Invoice WHERE Qty IS NOT NULL AND ItmName IS NOT NULL AND ItmName <> '' GROUP BY ItmName, code ORDER BY ItmName"
اذا كانت FROM Invoice WHERE Qty يعرض بيانات Qty
واذا كانت FROM Invoice WHERE Qtya يعرض بيانات Qtya وهكذا
اريد حل هذه المشكله مع جزيل الشكر

Imports System.Data.SQLite

Public Class ForGARD


    Private Sub ForGARD_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Using conn As SQLiteConnection = DatabaseConnection.GetConnection()
            conn.Open()

            Dim query As String = "SELECT ItmName AS أسم_الصنف, code AS كود_الصنف, SUM(Qty) AS مشتريات, SUM(Qtya) AS مبيعات, SUM(Qtyb) AS مرتجع_زبون, SUM(Qtyc) AS مرتجع_مورد, SUM(Qty) - SUM(Qtya) - SUM(Qtyc) + SUM(Qtyb) AS المخزن FROM Invoice WHERE Qty IS NOT NULL AND ItmName IS NOT NULL AND ItmName <> '' GROUP BY ItmName, code ORDER BY ItmName"

            Dim dt As New DataTable()

            Dim adapter As New SQLiteDataAdapter(query, conn)
            adapter.Fill(dt)

            For Each row As DataRow In dt.Rows
                Dim purchases As Integer = If(row("مشتريات") IsNot DBNull.Value, Convert.ToInt32(row("مشتريات")), 0)
                Dim sales As Integer = If(row("مبيعات") IsNot DBNull.Value, Convert.ToInt32(row("مبيعات")), 0)
                Dim customerReturns As Integer = If(row("مرتجع_زبون") IsNot DBNull.Value, Convert.ToInt32(row("مرتجع_زبون")), 0)
                Dim supplierReturns As Integer = If(row("مرتجع_مورد") IsNot DBNull.Value, Convert.ToInt32(row("مرتجع_مورد")), 0)

                row("مشتريات") = purchases
                row("مبيعات") = sales
                row("مرتجع_زبون") = customerReturns
                row("مرتجع_مورد") = supplierReturns
                row("المخزن") = purchases - sales - supplierReturns + customerReturns
            Next

            DataGridView1.DataSource = dt

            Dim columnWidths() As Integer = {200, 90, 90, 90, 90, 90, 90}

            For i As Integer = 0 To DataGridView1.Columns.Count - 1
                DataGridView1.Columns(i).Width = columnWidths(i)
            Next


        End Using

يا جماعة الخير الموقع رافض رفع الملف