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

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

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

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

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

كود :

'التحكم في عرض العمود

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

(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

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

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

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

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

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