PDA

View Full Version : سوال: سؤال در مورد ColWidth


Hassan2500
سه شنبه 28 شهریور 1391, 17:26 عصر
سلام

از دوستان کدی میخوام که ColWidth همه سلولها رو در سطر اول MSFlexGrid1 با هم جمع کنه و این در حالیه که اندازه هر کدام متفاوته و در آخر حاصل جمع رو در تکست1 نشون بده

مثلاً ColWidth سلول اول 600 و ColWidth سلول دوم 800 و جمع آنها 1400 میشود و 1400 رو در تکست1 نشون بده
Hassan2500
چهارشنبه 29 شهریور 1391, 12:19 عصر
کسی نیست پاسخ بده
Hassan2500
چهارشنبه 29 شهریور 1391, 18:25 عصر
کسی نیست پاسخ بده
محسن واژدی
چهارشنبه 29 شهریور 1391, 20:42 عصر
سلام علیکم
کد زیر بررسی کنید:
Private Sub Command1_Click()
Dim i, lR&
With MSFlexGrid1
For i = 0 To .Cols - 1
lR& = lR& + .ColWidth(i)
Next
Text1 = lR&
End With
End Sub

موفق باشید