PDA

View Full Version : دیتا گرید زیبا


sajad_boj70
پنج شنبه 30 شهریور 1391, 15:46 عصر
سلام.
دوستان من دنبال یک دیتا گرید زیبا و متفاوت از دیتا گرید خود vb میگردم.
اگه کسی از دوستان داره ممنون میشم آپلود کنه.
محسن واژدی
پنج شنبه 30 شهریور 1391, 16:59 عصر
سلام علیکم
از vsflexgrid استفاده کنید

موفق باشید
sajad_boj70
پنج شنبه 30 شهریور 1391, 22:25 عصر
سلام علیکم
از vsflexgrid استفاده کنید

موفق باشید

ممنون.
غیر از vsflexgrid ابزار دیگه ای وجود نداره؟
محسن واژدی
جمعه 31 شهریور 1391, 07:19 صبح
ممنون.
غیر از vsflexgrid ابزار دیگه ای وجود نداره؟

بجز msflexgrid که تقریباً با vsflexgrid یکسان است کنترل دیگه ای ندیده ام، البته میتوانید آنرا در یک کنترل کاربر قرار داده و سفارشی کنید،

موفق باشید
sajad_boj70
جمعه 31 شهریور 1391, 08:56 صبح
بجز msflexgrid که تقریباً با vsflexgrid یکسان است کنترل دیگه ای ندیده ام، البته میتوانید آنرا در یک کنترل کاربر قرار داده و سفارشی کنید،

موفق باشید

ممنون.
در vsflexgrid چه طور میشه font قسمت header رو جدا تنظیم کرد و و font قسمت مطالب هم جدا تنظیم کرد.
در عکس پایین مشکلی که وجود داره اینکه که وقتی font رو تغییر میدیم font کل vsflexgrid تغییر میکنه که کار رو خراب میکنه و یا حروف فارسی نشون داده نمیشه و یا حروف انگلیسی
93164
sajad_boj70
جمعه 31 شهریور 1391, 09:43 صبح
همچنین چه طور میشه خاصیت update و ویرایش VSFlexGrid رو فعال کرد؟
محسن واژدی
جمعه 31 شهریور 1391, 09:45 صبح
سلام علیکم
برای تغییر فونت هدر میتوانیم از کدی مشابه زیر استفاده کنیم:
Private Sub Command1_Click()
With VSFlexGrid1
.Cell(flexcpFontName, 0, 0, , .Cols - 1) = "B Titr"
.Cell(flexcpFontBold, 0, 0, , .Cols - 1) = True
End With
End Sub

موفق باشید
sajad_boj70
جمعه 31 شهریور 1391, 10:27 صبح
سلام علیکم
برای تغییر فونت هدر میتوانیم از کدی مشابه زیر استفاده کنیم:
Private Sub Command1_Click()
With VSFlexGrid1
.Cell(flexcpFontName, 0, 0, , .Cols - 1) = "B Titr"
.Cell(flexcpFontBold, 0, 0, , .Cols - 1) = True
End With
End Sub

موفق باشید
ممنون .
اگه بخوام فقط فیلدهای مربوط به قسمت (آدرس سایت و فایل) arial باشند و بقیه b titr باید چیکار کنم؟
محسن واژدی
جمعه 31 شهریور 1391, 14:57 عصر
ممنون .
اگه بخوام فقط فیلدهای مربوط به قسمت (آدرس سایت و فایل) arial باشند و بقیه b titr باید چیکار کنم؟

خواهش میکنم، کد زیر را بررسی کنید:
Private Sub Command1_Click()
With VSFlexGrid1
.Cell(flexcpFontName, 0, 0, .Rows - 1, .Cols - 1) = "B Titr"
.Cell(flexcpFontBold, 0, 0, , .Cols - 1) = True
.Cell(flexcpFontName, 1, 1, .Rows - 1) = "Arial"
.Cell(flexcpFontName, 1, 6, .Rows - 1) = "Arial"
End With
End Sub

موفق باشید