[محمد مسافر]

اسعدتم بالخير

كيف يمكن توسيع مساحه وعرض احد الاعمده كما هو مطلوب وموضح في الصوره مرفق لكم المشروع وهو شبه جاهز بقيت هذه النقطه فقط بارك الله فيكم .

[princelovelorn]

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

أستخدم هذا الكود لتنسيق عرض العمود

كود :

'التحكم في عرض العمود
       DataGridView1.Columns(0).Width = 30
       DataGridView1.Columns(1).Width = 110
       DataGridView1.Columns(2).Width = 110
       DataGridView1.Columns(3).Width = 60
       DataGridView1.Columns(4).Width = 50
       DataGridView1.Columns(5).Width = 50
       DataGridView1.Columns(6).Width = 50
       DataGridView1.Columns(7).Width = 50
       DataGridView1.Columns(8).Width = 50
       DataGridView1.Columns(9).Width = 50
       DataGridView1.Columns(10).Width = 50
       DataGridView1.Columns(11).Width = 50
       DataGridView1.Columns(12).Width = 100
       DataGridView1.Columns(13).Width = 100

[محمد مسافر]

(19-09-24, 07:23 PM)princelovelorn كتب : السلام عليكم ورحمة الله وبركاته

أستخدم هذا الكود لتنسيق عرض العمود

كود :

'التحكم في عرض العمود
       DataGridView1.Columns(0).Width = 30
       DataGridView1.Columns(1).Width = 110
       DataGridView1.Columns(2).Width = 110
       DataGridView1.Columns(3).Width = 60
       DataGridView1.Columns(4).Width = 50
       DataGridView1.Columns(5).Width = 50
       DataGridView1.Columns(6).Width = 50
       DataGridView1.Columns(7).Width = 50
       DataGridView1.Columns(8).Width = 50
       DataGridView1.Columns(9).Width = 50
       DataGridView1.Columns(10).Width = 50
       DataGridView1.Columns(11).Width = 50
       DataGridView1.Columns(12).Width = 100
       DataGridView1.Columns(13).Width = 100

شكراً يابرنس   جربت الكود الموضح اخترت القياس للعمود 4 ووضعته في مكان الفورم لود  وللاسف ظهرت معي رساله الخطا الموضحه فماهو السبب

[princelovelorn]

(19-09-24, 08:59 PM)محمد مسافر كتب :

(19-09-24, 07:23 PM)princelovelorn كتب :

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

أستخدم هذا الكود لتنسيق عرض العمود

كود :

[align=center]'التحكم في عرض العمود[/align]
[align=center]        DataGridView1.Columns(0).Width = 30[/align]
[align=center]        DataGridView1.Columns(1).Width = 110[/align]
[align=center]        DataGridView1.Columns(2).Width = 110[/align]
[align=center]        DataGridView1.Columns(3).Width = 60[/align]
[align=center]        DataGridView1.Columns(4).Width = 50[/align]
[align=center]        DataGridView1.Columns(5).Width = 50[/align]
[align=center]        DataGridView1.Columns(6).Width = 50[/align]
[align=center]        DataGridView1.Columns(7).Width = 50[/align]
[align=center]        DataGridView1.Columns(8).Width = 50[/align]
[align=center]        DataGridView1.Columns(9).Width = 50[/align]
[align=center]        DataGridView1.Columns(10).Width = 50[/align]
[align=center]        DataGridView1.Columns(11).Width = 50[/align]
[align=center]        DataGridView1.Columns(12).Width = 100[/align]
[align=center]        DataGridView1.Columns(13).Width = 100[/align]

شكراً يابرنس   جربت الكود الموضح اخترت القياس للعمود 4 ووضعته في مكان الفورم لود  وللاسف ظهرت معي رساله الخطا الموضحه فماهو السبب

مرفق المشروع بعد اضافة الاكواد ويعمل تمام

  students.rar (الحجم : 1.11 م ب / التحميلات : 27)
  students.rar (الحجم : 1.11 م ب / التحميلات : 27) وملحوظة اذا اردت المستخدم يقوم بلتحكم في عرض العمود

قم بتغيير خصائص الداتا جريد 

AllowUserToResizeColumns    True

[محمد مسافر]

مشكووووووووور الله يسعدك

[محمد مسافر]

على نفس المثال فكرت في امكانيه استخدام RadioButton  للاختيار في البحث من خلال :

1- RadioButton   لتحديد البحث فقط بـ VILLAGE
2- RadioButton   لتحديد البحث فقط بـ OZLAHH

وحاولت وعملت الاكواد الاتيه ولم تظهر نتائج البحث بالتحديد علماً اني عملت خيار البوتون 1 هو التلقائي فماهو تصحيح الكود والمكان الصحيح شاكراً تفهمكم  :

PHP كود :

Imports System.Data.OleDb

Public Class Form1

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Dim da As New OleDbDataAdapter("SELECT * FROM [Coverage Claims] WHERE [VILLAGE] LIKE @c ", con)
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Dim da As New OleDbDataAdapter("SELECT * FROM [Coverage Claims] WHERE [OZLAHH] LIKE @c ", con)
    End Sub

    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Coverage Claims.accdb;Password=")
    Dim da As New OleDbDataAdapter("SELECT * FROM [Coverage Claims] WHERE [VILLAGE]&[OZLAHH] LIKE @c ", con)
    Dim dt As New DataTable


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataGridView1.AllowDrop = True
        For Each l In InputLanguage.InstalledInputLanguages
            If l.culture.ToString.StartsWith("ar") Then InputLanguage.CurrentInputLanguage = l

            RadioButton1.Checked = True
        Next
    End Sub

    Private Sub textSerch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textSerch.TextChanged

        dt.Clear()
        Label1.Hide()
        If textSerch.Text.Trim = "" Then Label1.Visible = False : Exit Sub
        If textSerch.Text.Trim.Length < 3 Then
            Label1.Visible = True
            Exit Sub
        End If

        dt.Clear()
        Label1.Hide()
        If textSerch.Text.Trim.Length >= 3 Then
            da.SelectCommand.Parameters.Clear()
            da.SelectCommand.Parameters.AddWithValue("@c", "%" & textSerch.Text.Trim & "%")
            da.Fill(dt)
            DataGridView1.DataSource = dt
            DataGridView1.ClearSelection()
            If dt.Rows.Count = 0 Then Label1.Show()
        End If
        If textSerch.Text = "" Then
            Label2.Show()
        Else
            Label2.Hide()
        End If


        'التحكم في عرض العمود
        DataGridView1.Columns(0).Width = 40
        DataGridView1.Columns(1).Width = 110
        DataGridView1.Columns(2).Width = 110
        DataGridView1.Columns(3).Width = 130
        DataGridView1.Columns(4).Width = 130


    End Sub 


[princelovelorn]

تفضل المطلوب
في المرفقات

[محمد مسافر]

(22-09-24, 08:10 PM)princelovelorn كتب : تفضل المطلوب
في المرفقات

تسلم اناملك ولك كل التحيه والتقدير