+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : عروض أعمدة ال datagrid تلقائيآ حسب البيانات المكتوبة فيها (/showthread.php?tid=9026)
عروض أعمدة ال datagrid تلقائيآ حسب البيانات المكتوبة فيها - اسلام الكبابى - 25-05-13
لدى datagrid متصلة [SIZE=3][b]ب ADODC
وتعرض بيانات جدول معين فى أعمدتها
[/b][/SIZE][SIZE=3][b]فهل من كود أو خاصية من خواص ال[/b][/SIZE] datagrid [SIZE=3][b][SIZE=3][b][b]أو أى طريقة
[/b][/b][/SIZE]تغير من عروض هذه الأعمدة تلقائيآ حسب البيانات المكتوبة فيها
[/b][/SIZE][SIZE=3][b][b]كما نتحكم فى عرض ال Label مثلآ بجعل[/b][/b][/SIZE][SIZE=3][b] الخاصية Autosize تساوي True
ولكم ألف شكر [/b][/SIZE]
عروض أعمدة ال datagrid تلقائيآ حسب البيانات المكتوبة فيها - اسلام الكبابى - 27-05-13
[SIZE=4]من افكارأستاذنا الكبير/ ناجي ابراهيم زاده الله من علمه وفضله
من اجاباته علينا فى موضوع (عرض الTEXT أو ال Label حسب طول الكلام المكتوب فيه [/SIZE])
[SIZE=3][b]ثم فى موضوع (طباعة الفورم بأكملها على الورقة مهما كانت أبعادها) [/b][/SIZE]
[SIZE=3][b]
توصلت لحل [/b][/SIZE][SIZE=3][b][SIZE=3][b][SIZE=3][b] والحمد لله[/b][/SIZE]
هذا كود [/b][/SIZE][/b][/SIZE][SIZE=3][b][SIZE=3][b][SIZE=3][b]يقوم بهذه العملية ([/b][/SIZE]وقد جربته ونفذ المطلوب والحمد لله)
[/b][/SIZE][/b][/SIZE]
[HTML]
Dim MAXWid(9)
Private Sub Form_Activate()
For J = 0 To 3
Rem0,1,2,3" الرقم3 باعتبار أن ال ataGrid1 أربعة أعمدة
Label1(J).AutoSize = True
Label1(J).Font.Size = DataGrid1.Font.Size
Label1(J).Font.Name = DataGrid1.Font.Name
Label1(J).Font.Italic = DataGrid1.Font.Italic
Label1(J).Font.Bold = DataGrid1.Font.Bold
Next J
Rem
Adodc1.Refresh
Nrec = Adodc1.Recordset.RecordCount
Adodc1.Recordset.MoveFirst
For I = 1 To Nrec - 1
For J = 0 To 3
TEXTT = DataGrid1.Columns(J).Value
Label1(J).Caption = TEXTT + " "
If MAXWid(J) < Label1(J).Width Then MAXWid(J) = Label1(J).Width
Next J
Adodc1.Recordset.MoveNext
Next I
For J = 0 To 3
TEXTT = DataGrid1.Columns(J).Value
Label1(J).Caption = TEXTT + " "
If MAXWid(J) < Label1(J).Width Then MAXWid(J) = Label1(J).Width
Next J
For J = 0 To 3
DataGrid1.Columns(J).Width = MAXWid(J) + 100
Next J
End Sub
[/HTML][SIZE=3][b][SIZE=3][b]
وأرجو من أستاذنا الكبيرأن يكتبه بأسلوب أسهل من ذلك
أو أن يذكر لنا خاصية من خواص ال[/b][/SIZE][/b][/SIZE] datagrid [SIZE=3][b][SIZE=3][b][SIZE=3][b]تقوم بهذه العملية [/b][/SIZE][/b][/SIZE][/b][/SIZE][SIZE=3][b]
[SIZE=4]ولكم ألف شكر
[/SIZE][/b][/SIZE]
RE: عروض أعمدة ال datagrid تلقائيآ حسب البيانات المكتوبة فيها - tighrmte - 27-02-23
مشكور استاد