تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في مقاسات الفورم
#1
شباب عندي فورم فيه اثنين داتاقريدفيو ، المشكلة عندي في الشكل مثل مو واضح في الصورة عند تشغيل البرنامج



وهذا شكل الفورم في التصميم




كيف أقدر أعدل حجم وتغير المقاسات تلقائي بحيث إن البرنامج يشوف كم Rows عندي ويمد الداتاقريدفيو على أسفل + تكبير الفورم لأسفل في نفس الوقت
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله

جرب هذال الكود على مشروع جديد فيه فورم واحد واثنين داتاجريد وازرارين ومنه تقدر تطبق الفكرة على مشروعك
الازرارين عشان تضيف بيانات عشوائية للتجربة
آخر سطر اللي فيه ClientSize الرقم 30 هو المساحة بين داتاجريد2 ونهاية
الفورم عشان لو فيه أدوات تبان وغير الرقم إذا كنت تحتاج مساحة أكبرأو أصغر
PHP كود :
Public Class Form1

    
Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load

        Dim D1Column1 
As New System.Windows.Forms.DataGridViewTextBoxColumn
        Me
.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {D1Column1})

        
Dim D2Column1 As New System.Windows.Forms.DataGridViewTextBoxColumn
        Me
.DataGridView2.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {D2Column1})

        
DataGridViewHeightUpdate()

    
End Sub

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        DataGridView1
.Rows.Add(New String() {"a" Rnd().ToString})

    
End Sub

    
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        DataGridView2
.Rows.Add(New String() {"a" Rnd().ToString})

    
End Sub


#Region " DataGridViewHeightUpdate "

    
Private Sub DataGridView1_RowHeightChanged(ByVal sender As ObjectByVal e As System.Windows.Forms.DataGridViewRowEventArgs_
    Handles DataGridView1
.RowHeightChangedDataGridView2.RowHeightChanged
        DataGridViewHeightUpdate
()
    
End Sub

    
Private Sub DataGridView1_RowsAdded(ByVal sender As ObjectByVal e As System.Windows.Forms.DataGridViewRowsAddedEventArgs_
    Handles DataGridView1
.RowsAddedDataGridView2.RowsAdded
        DataGridViewHeightUpdate
()
    
End Sub

    
Private Sub DataGridView1_RowsRemoved(ByVal sender As ObjectByVal e As System.Windows.Forms.DataGridViewRowsRemovedEventArgs_
    Handles DataGridView1
.RowsRemovedDataGridView2.RowsRemoved
        DataGridViewHeightUpdate
()
    
End Sub

    
Private Sub DataGridViewHeightUpdate()
        
'DataGridView1'
        
Dim h1 As Integer Me.DataGridView1.RowTemplate.Height
        
For Each r1 As DataGridViewRow In DataGridView1.Rows
            h1 
+= r1.Height
        Next
        DataGridView1
.Height h1 1

        
'DataGridView2'
        
Dim h2 As Integer Me.DataGridView2.RowTemplate.Height
        
For Each r2 As DataGridViewRow In DataGridView2.Rows
            h2 
+= r2.Height
        Next
        DataGridView2
.Height h2 1

        DataGridView2
.Top DataGridView1.Bottom 10

        
'Form ClientSize'
        
Me.ClientSize = New Size(Me.ClientSize.WidthMe.DataGridView2.Bottom 30)

    
End Sub

#End Region

End Class 

الرد }}}
تم الشكر بواسطة: alzahrani , nabil1982
#3
مشكوووور أخوي وليد مشت الأمور 100%
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم