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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] توسيع عرض العمود (/showthread.php?tid=50321)

توسيع عرض العمود - محمد مسافر - 19-09-24

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

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

RE: توسيع عرض العمود - princelovelorn - 19-09-24

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

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

كود :
'التحكم في عرض العمود
       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


RE: توسيع عرض العمود - محمد مسافر - 19-09-24

(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 ووضعته في مكان الفورم لود  وللاسف ظهرت معي رساله الخطا الموضحه فماهو السبب

RE: توسيع عرض العمود - princelovelorn - 20-09-24

(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 ووضعته في مكان الفورم لود  وللاسف ظهرت معي رساله الخطا الموضحه فماهو السبب

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

[attachment=29780][attachment=29780]وملحوظة اذا اردت المستخدم يقوم بلتحكم في عرض العمود
قم بتغيير خصائص الداتا جريد 
AllowUserToResizeColumns    True


RE: توسيع عرض العمود - محمد مسافر - 20-09-24

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

RE: توسيع عرض العمود - محمد مسافر - 22-09-24

على نفس المثال فكرت في امكانيه استخدام 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 


RE: توسيع عرض العمود - princelovelorn - 22-09-24

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

RE: توسيع عرض العمود - محمد مسافر - 23-09-24

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


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