در رابطه با : Vs Flex Grid

[Dr.Bronx]

با سلام خدمت دوستان
قصد دارم که اگر خداوند توفیق داد و دوستان همکاری کردند ابزار هایی همچون این ابزار که کاربرد خیلی زیادی برای برنامه نویسان داره رو یک بررسی کلی روش انجام بدیم تا دیگه نقطه ابهامی نداشته باشیم .
خوب اول که از دوستان عزیز که با این کنترل کار کردند از جمله دوستانی همچون ( خانم فاطمه وطن دوست و MpmSoft عزیز و جناب Vbhamed ) که ظاهرا با این ابزار آشنایی لازم رو دارند تقاضا می کنم در این تاپیک همکاری داشته باشند . انشاالله که به نتیجه مطلوب برسه

--------------------------------------------------------------------------------
ابتدا این رو بگم که اصلا مهم نیست که آیا کسی سوالی کرده در رابطه با فلان مورد یا نه
مثلا من می بینم که فلان کارو بلدم با این ابزار انجام بدم . خوب میام اینجا موضوع و راه حل رو مطرح می کنم . شاید یک کسی . یک روزی . یک جایی به کارش اومد.
سوال ها و جواب هایی که توی این تاپیک هایی که توی این مدت راجع به این ابزار اومده رو در پست بعدی بررسی می کنیم.

Component One VsFlexGrid

[Dr.Bronx]

سوال : چطور میشه در vsflexgrid فیلد هایی که انگلیسی هستن رو کپشن آن ها رو تغییر داد و فارسی شون کرد.مثل دیتا گرید که کپشین فیلد ها رو تغییر می دهد.

پاسخ :

Vs.TextMatrix(0,1)= "کد"

Vs.TextMatrix(0,2)= "نام"

سوال : چگونه میتوان محتویات یک VsFlexGrid را به چاپ فرستاد ؟

پاسخ1 : برای انجام این کار کافیه از متد PrintGrid استفاده کنید.

پاسخ 2: روش دیگر اگر بخواهید این گرید رو به کریستال پاس بدید کافی هست که اطلاعات موجود در VS رو توسط دستور SaveGrid خود VS در قالب یک فایل XML ذخیره کنید و سپس توسط کریستال به اون فایل متصل بشید و اطلاعات رو نمایش بدید

سوال : چجوری می تونم بکگراند Grid عکس بگذارم .

پاسخ : روی این کنترل یک خاصیت وجود دارد بنام WallPaper که میتوانید عکس را برای زمینه VSFlexGrid تنظیم کنید

سوال : من میخوام وقتی توی تکست باکس آیدی رو نوشتم توی فلکس اون سطری که آیدیش با آیدی موردنظر ما برابر بود سلکت بشه. نمیخام فیلترش کنه فقط بره روی سطر مورد نظر.

پاسخ :

For i = 0 To VSFlexGrid1.Rows

   If Text1.Text = VSFlexGrid1.TextMatrix(i, 0) Then

      VSFlexGrid1.SetFocus

      VSFlexGrid1.Select i, 0

      Exit For

   End If

Next i

ستون 0 همون ستون آیدی هست.

سوال : میخام کاری کنم که وقتی توی تکست باکس شماره شخص رو نوشتیم و کلید ENTER رو زدیم، فقط دریافتی های اون شخص توی گرید نشان داده بشه نه همشون همچنین جمع دریافتی اون شخص رو هم نشون بده.

پاسخ :

یه نمونه بسیار ساده .

Download Attachment File

سوال : کسی از مهندسان محترم سعی کرده اطلاعات داخل گرید رو مستقیم به اکسل اکسپورت کنه؟

پاسخ :

فکر کنم مدیر بخش قبلا این سورس رو گذاشته بودند

Download Attachment File

سوال : من داخل یکی از برنامه هام از VSFlexGrid استفاده میکنم اما هر کار می کنم نمیتونم Align رو تغییر بدم و روی None میمونه چیکار کنم مه بره روی Right?

پاسخ : برای ترازبندی کافیه از این دستور استفاده کنید.

With VSFlex

    ColAlignment(0) = 3       وسط       

    ColAlignment(0) = 2       راست       

 ColAlignment(0) = 1       چپ

سوال : من 2 تا گرید دارم که هر دو به یک Adodc وصل هستند می خوام وقتی رکوردی روی گرید1 انتخاب می کنم روی گرید2 هم انتخاب بشه و بلعکس

پاسخ :

VSFlexGrid2.Row = VSFlexGrid1.Row

سوال : برای رنگ بندی ستونهای خاص از کدام گزینه می توان استفاده نمود؟

پاسخ : نمونه Download Attachment File

سوال : چطوری از کمبو باکس در این ابزار استفاده کنم ؟

پاسخ : تو هر خونه ای می خوای کلیک کن بعدش یا از لیست انتخاب کن، یا بدون اینکه لیست رو باز کنی شروع کن به تایپ کردن
برای انتخاب از لیست با صفحه کلید، دکمه Spacebar رو بزن
برای ویرایش عنصری که تو لیست نیست هم Enter بزن

Download Attachment File

سوال : چطوری میشه مثلا یک Column رو نمایش ندیم ؟ یعنی من ردیفهام اینجوریه :
نام . نام خانوادگی . تلفن
حالا می خوام این تلفن نشون داده نشه

پاسخ : باید به این صورت استفاده کنید

vs.colhidden(0,3) = true

که اون عدد 3 برابر با شماره col شما هستش یعنی 3 که میشه تلفن

سوال و جواب ها : قسمت دوم

از دوستان دیگر هم خواهش می کنم همکاری کنند


-------------------------------------------------------------------------------------------------------

سوال : چطور می توانم اطلاعات flexgrid را بدون اتصال به شئی ado مستقیماً ارسال به اکسل کنم. یعنی دستوری که رکوردهای خود flex را داخل اکسل نمایش دهد.

پاسخ :

FG.SaveGrid "c:\book1.xls", flexFileExcel

سوال :چطوری میشه فاصله بین سطر های vsflex grid رو تعیین کرد

پاسخ :

VSFlexGrid1.RowHeightMin = a

VSFlexGrid1.RowHeightMax = b

VSFlexGrid1.RowHeight(i) = h

سوال : می خوام در vsflex8 زمانی که sort صورت میگیره یه عکس برای مرتب از بالا به پایین و یه عکس هم برای مرتب از پایین به بالا به سرستونی که کاربر کلیک می کنه اختصاص بدم .

پاسخ : از رویدادهای AfterSort و BeforeSort کمک بگیرید.

یه راه بهتر هم اینه که ExplorerBar رو روی FlexExSort قرار بدیم در این صورت روی هر Header که کلیک بشه به همون ترتیب هم سورت میشه


خوب دیگه - تمام سوال و جواب های داخل انجمن وی بی رو در مورد Vsflexgrid در اینجا قرار دادم
باز هم اگه موردی از قلم افتاده دوستان لطف کنند و قرار بدند
موفق و موید باشید.

[barname_majid]

دوست عزیز چه جوری میشه جدول رو بر اساس یکی از دریف ها مثلا ردیف اول که شماره پرسنلی افراد هست از بزرگ به کوچیک یا بالعکس سرت کرد.

[ali-software]

سلام.ببخشید یک سوال داشتم.چه طور می تونم به وسیله vsflexgrid دیتا گرید رو فیلتر کنم.نمیشه.

[Dr.Bronx]

منظورتون رو متوجه نمی شم ؟
یعنی می خواهید هر فیلتری که در vs انجام شد داخل datagrid هم اعمال بشه ؟
خوب اگر اینطور هست دیتاسورس که یک Rs تعریف کنید و دیتاسورس هر دو رو روی RS ست کنید
اگر منظورتون چیز دیگه ای هست لطفا بیشتر توضیح بدید

[ali-software]

نه.ببینید vs چطور مثل دیتا گرید فیلتر میشه.؟؟

[Dr.Bronx]

عذر می خوام دیر جواب دادم

ببنید این کد رو تا توضیح بدم در موردش

Dim Rs As New ADODB.Recordset

Rs.Open "SELECT * FROM Tbl_PersonInfo WHERE Person_Code=" & Txt_Search.Text, Conn, adOpenStatic, adLockOptimistic

Set VS.DataSource = Rs

فکر نمی کنم اصلا نیازی به توضیح باشه
Txt_Search که همون تکست باکسی هست که مثلا کد کاربر رو توش نوشتیم
Conn هم که همین مسیر ارتباط با دیتابیس هست که از قبل معلومه
بعد که داخل RS فیلتر کردیم
اونوقت دیتا سورس vs رو برابر با Rs قرار میدیم
موفق و موید باشید

[Dr.Bronx]

دوستان دیگه هم همکاری کنند تاپیک بدون نتیجه کامل نمونه لطفا
سوال ها رو مطرح کنند
پاسخ هایی که خودتون بهش رسیدین اینجا قرار بدید
موفق باشید

[ali-software]

میشه یک نمونه یا مثال در همون مورد بگذارید؟؟؟؟؟؟؟؟

[HjSoft]

اول از همه بايد خاصيت Bound ( اگر اشتباه نكنم ) كه به طور معمول روي Free هست رو تنظيم كنيد تا ركورد از بانك انتخاب بشه تا فيلتر ها درست انجام بشه !
موفق باشيد

[Dr.Bronx]

دوستان چطوری می تونیم فرمت یک Column رو تغییر بدیم ؟
من توی اون ردیف ساعت رو دارم
و طوری هست که از داخل دیتابیس قابل تغییر نیست
مثلا من از Date استفاده کردم که جواب نداد
VS.ColDataType(5) =flexDTDate
آیا اصلا این دستور درسته ؟
اگر هست دستور صحیح چگونه است؟
ممنون

[فاطمه وطن دوست]

دوستان چطوری می تونیم فرمت یک Column رو تغییر بدیم ؟
من توی اون ردیف ساعت رو دارم
و طوری هست که از داخل دیتابیس قابل تغییر نیست
مثلا من از Date استفاده کردم که جواب نداد
VS.ColDataType(5) =flexDTDate
آیا اصلا این دستور درسته ؟
اگر هست دستور صحیح چگونه است؟
ممنون

  Private Sub Form_Load()

      

          ' format numbers

          fg.ColFormat(1) = "#,###.##" ' number with thousand separators

          fg.ColFormat(2) = "#.###%"   ' percentage

          fg.ColFormat(3) = "#,.##"    ' thousands

          fg.ColFormat(4) = "Currency" ' thousands

      

          ' format booleans

          fg.ColDataType(5) = flexDTBoolean

          fg.ColFormat(5) = "Probably;Hardly" ' boolean

      

          ' format dates

          fg.ColFormat(6) = "ddd, mmmm d, yyyy"

          fg.ColFormat(7) = "Medium Date"

          fg.ColFormat(8) = "Medium Time"

      

          ' set some cells

          fg.TextMatrix(1, 1) = 1234.56

          fg.TextMatrix(1, 2) = 0.5432

          fg.TextMatrix(1, 3) = 125250

          fg.TextMatrix(1, 4) = -1234.5

          fg.TextMatrix(1, 5) = True

          fg.TextMatrix(1, 6) = #7/4/1969#

          fg.TextMatrix(1, 7) = #7/4/1969#

          fg.TextMatrix(1, 8) = #7/4/1969#

          ' display results:    

          Dim i%

          Debug.Print "Format"; Tab(20); "Content"; Tab(40); "Display"

          Debug.Print "-----------"; Tab(20); "-----------"; Tab(40); "-------------"

          For i = 1 To 8

                Debug.Print fg.ColFormat(i); Tab(20); _

                            fg.Cell(flexcpText, 1, i); Tab(40); _

                            fg.Cell(flexcpTextDisplay, 1, i)

          Next

      End Sub

 

[.:. منبع : فایل راهنمای Vsflexgrid .:.]

[gonbady]

سلام خانم وطن دوست . من میخوام داخل دیتابیسم یک فیلد بزارم که اگر مقدار این فیلد 1 باشد رنگ ردیف رکورد مربوط به آن در Vsflexgrid بشه قرمز اگه لطف کنید همراه با یک مثال برام بفرستید ممنون میشم

[parisa.s]

سلام
بچه ها من می خوام
توی فلکسی گرید هر سطرو با یه رنگ نشون بده به شرطی که فیلد رزرو جدولم 1 بود قرمز
فیلد پر جدولم 1 بود زرد و اگر هیچ کدوم اینها نبود سبز نشون بده
نتونستم اینکارو بکنم
این کدی که یکی از دوستان برای فوکوس می خواستن رو من با تغییرات خودم انجام دادم ولی ختی وقتی همین کد رو اجرا می کنم از خاصیت textmatrix ایراد میگیره که invalid property ...
کدی که از این تایپیک برداشتم
For i = 0 To vs.Rows
If Text1.Text = vs.TextMatrix(i, 0) Then
vs.SetFocus
vs.Select i, 0
Exit For
End If
Next i


تغییراتشم توی برنامه ی خودم اینه
ولی هیچ کدوم اجرا نشد
میشه خواهش کنم کمکم کنین
For i = 0 To vs.Rows
If vs.TextMatrix(i, 0)=1 Then
CColor = vs.Cell(flexcpBackColor, vs.Row, 0, vs.Row, vs.Cols - 1)

vs.Cell(flexcpBackColor, vs.Row, 0, vs.Row, vs.Cols - 1) = vbBlue
Exit For
End If
Next i

چه ها خو.اهش میکنم کمکم کنین
عجله دارم یه عالمه
ممنون از همتون

[skh1300]

سلام
من با کد زیر vs1 خودم را پر می کنم

dim x as integer

vs1.Rows = 1001

vs1.Cols = 4

For i = 1 To 1000

vs1.TextMatrix(i, 0) = i

vs1.TextMatrix(i, 1) = i Mod 2

vs1.TextMatrix(i, 2) = "saeed"

Next i

و با کد زیر برای انتخاب استفاده می کنم

x = x + 10

vs1.Select x, 0, x, 1

خوب حالا یه مشکلی هست موقعی که من اطلاعات را select میکنم اسکرولبار به پایین هدایت نمیشه و کاربر نمیفهمه که کدام رکورد select شده

[ali reza mansoori 2]

دوستان وقتی در داخل DataGrid یک سطر رو انتخاب می کنیم داخل Adodc هم همون سطر انخاب میشه حالا این کار رو با VSFlexGrid هم میشود انجام داد

[mostafag]

دوستان وقتی در داخل DataGrid یک سطر رو انتخاب می کنیم داخل Adodc هم همون سطر انخاب میشه حالا این کار رو با VSFlexGrid هم میشود انجام داد

بله میشه
باید خاصیت DataMode رو با FlexdmBound مقدار بدید.

[vbnovin]

اينم تابع كه براي راحت شدن از شر كاما " " ' ' گذاري در دستورات SQL درست كردم " كه سورسهاي پستهاي پايينتر ازش استفاده كردم

Public Function SETCOMA(STRX As Variant, Y1 As Boolean, y2 As Boolean) As Variant
    
    If (STRX <> False) And (STRX <> True) Then
        STRX = Trim(STRX)
    End If
    
    If Y1 = True Then
       STRX = "'" & STRX & "'"
    End If
    
    If y2 = True Then
       STRX = STRX & ","
    End If
    
    SETCOMA = STRX
    
End Function

شرمنده اگر مختصر جواب دادم بعد از مدتها اومدم تو سايت برنامه نويسان اين كدها مربوط به پروژه اي حدود 6 سال پيشم بود الان بيشتر vb.net كار مي كنم پيشنهاد مي كنم شما هم به سمتش بياين در خدمتم ...
درسته زياد تو سايت فعالتي ندارم اما اگر هر سئوالي تو vb داريد بپرسيد در خدمتم تقريبا هر كاري كه تو vb6 بود انجام دادم . هر سئوالي در خدمتم ... بهتر سورسها رو ببريد اول تو خود محيط vb ببينيد تا توضيحات فارسي كه الان ناخوانست رو ببينيد ...

تو اين برنمامه من از VSflexGrid 8 استفاده كردم ، يادش بخير واقعا كولاكه مثل محيط اكسل امكانات بهتون ميده ...

فكر كنم با نگاه به اين كدها arcgis عزيز همه چيز دستگيرتون شده باشه ...

رومنا : سئوالي داشتيد درخدمتم hamyromana@yahoo.com ,

[moghadam1372]

چطوری می شود درVSflexGrid یک ردیف ( سطر ) را با کلیک برروی آن انتخاب کرده وبعد آن ردیف را ویرایش کرد؟

[gohari244]

سلام دوستان
1-کسی می دونه با چه دستوری رکوردی از جدول حذف کنیم که همون رکورد داخل بانک نیز حذف شود
2-چطور میشه با یک دستور از سلولی به سلول بعد رفته و متن اون سلول به حالت انتخاب در بیاد

[ali-software]

آفای wolf-sky فلکس گرید همچین خاصیتی نداره.لطفا کمک کنید

[HjSoft]

خاصيت DataType رو روي Bound بذارين .

[ali-software]

من این کارو کردم.لطفا برام یک نمونه بگذارید تا فیلتر بشه.بازم ممنون

[butterfly8528]

سلام .

چطوری قسمتی رو که در عکس با رنگ قرمز مشخص کردم پاک یا مخفی کنم ؟

[hrj1981]

این قسمت محلهای فریز شده در گرید می باشد که شمابا تغییر مقادیر دو آیتم زیر از پروپرتیز گرید می توانید آنها را افزایش یا کاهش دهید
FixedCols AND FixedRows

[butterfly8528]

چطوری سطر اول رو به حالت انتخاب در بیارم ؟

[فاطمه وطن دوست]

چطوری سطر اول رو به حالت انتخاب در بیارم ؟

منظورتون اینه ؟

vsf1.SelectionMode=flexSelectionByRow

[Dr.Bronx]

متشکر از شما خانم وطن دوست
با این کد مشکل بنده حل شد : VS.ColFormat(5) = "Medium Time"

آیا حالت های دیگه هم از ساعات رو پشتیبانی می کنه ؟
مثله Access : short time , long time
و غیره

[فاطمه وطن دوست]

متشکر از شما خانم وطن دوست
با این کد مشکل بنده حل شد : VS.ColFormat(5) = "Medium Time"

آیا حالت های دیگه هم از ساعات رو پشتیبانی می کنه ؟
مثله Access : short time , long time
و غیره

========

تست کنید.

fg.ColFormat(Col) = "long time"

یه نکته رو هم بگم : جواب ها رو میشه بدون انتظار کشیدن و خیلی راحت از روی فایل راهنمای Vsflex grid پیدا کرد.
قبلاً این فایل در انجمن گذاشته شده.

[Dr.Bronx]

من فایل setup رو تازه تونستم پیدا کنم
قبلا فقط همین vsflex8.ocx رو داشتم
تازه انقدر نمونه دارم آدم نمی دونه کدومش مربوط به کدوم میشه

--
اگر بخوام که اون __ ق.ظ__ نیاد باید چه کار کرد
من از vs.colformat (8) = "##:##" استفاده کردم اما جواب نداد
راه دیگه ای هست ؟

[فاطمه وطن دوست]

من فایل setup رو تازه تونستم پیدا کنم
قبلا فقط همین vsflex8.ocx رو داشتم
تازه انقدر نمونه دارم آدم نمی دونه کدومش مربوط به کدوم میشه

--
اگر بخوام که اون __ ق.ظ__ نیاد باید چه کار کرد
من از vs.colformat (8) = "##:##" استفاده کردم اما جواب نداد
راه دیگه ای هست ؟

ببینید با این کد مشکل حل میشه ؟

fg.TextMatrix(Row, Col) = Str(DateTime.Hour(Time)) + ":" + Str(DateTime.Minute(Time)) + ":" + Str(DateTime.Second(Time))

[Dr.Bronx]

خوب این کار دیگه ای می کنه
اون فیلد من از قبل پر شده
یعنی داره از یک کوئری اطلاعاتش رو می گیره

[فاطمه وطن دوست]

خوب این کار دیگه ای می کنه
اون فیلد من از قبل پر شده
یعنی داره از یک کوئری اطلاعاتش رو می گیره

مشکل حل شد؟

[Dr.Bronx]

مشکل حل شد؟

خیر حل نشد
اون کدی که شما گفتید ساعت سیستم رو توی هر ردیف قرار میده
من اطلاعاتم از قبل مشخص هست که چی هستش

[butterfly8528]

منظورتون اینه ؟

کد:
vsf1.SelectionMode=flexSelectionByRow

ممنون . ولی منظور من اینه که بتونم هر سطری رو که بخوام سلکت کنم . مثلا سطر سوم .

[فاطمه وطن دوست]

ممنون . ولی منظور من اینه که بتونم هر سطری رو که بخوام سلکت کنم . مثلا سطر سوم .

سوالتون خیلی کلی هست. یکم توضیح بدید. مثال بزنید.

[xxxxx_xxxxx]

ممنون . ولی منظور من اینه که بتونم هر سطری رو که بخوام سلکت کنم . مثلا سطر سوم .

سلام،
برای سلکت کردن باید از متد Select استفاده کنید. چهار پارامتر داره که دوتای اولیش اصلی و اجباری هست. اولی اشاره به سطر و دومی ستون داره. پس شما برای انتخاب سطر سوم بایست اینطور بنویسید:

VSFlexGrid1.Select 3, 1

البته SelectionMode رو قبلش روی 1 یعنی ByRow قرار بدید.

حالا اگر بخواید سطر بعدی انتخاب بشه، یعنی اگر الان فکوس رو سطر سوم بود بره رو چهارمی.
شما باید متوجه بشید سطر فعلی که فکوس روش هست کدومه که با این متد از گرید میشه فهمید. (VSFlexGrid1.Row) پس دستور به این شکل میشه:

VSFlexGrid1.Select VSFlexGrid1.Row + 1, VSFlexGrid1.Col

برای کم شدن هم به همین طریق. فقط توجه داشته باشید که انتخاب سطر بعدی تنها در شزایطی صورت میگیره که سطر بعدی وجود داشته باشه در غیر این صورت با خطا مواجه میشید. یا باید On Error بزارید که من خوشم نمیاد (:d) یا باید شرایط رو بسنجید. که همین کارو می کنیم.
متد Rows از گرید به تعداد کل سطرهای گرید اشاره میکنه. پس شرط ما برای رفتن به سطر بعدی این میشه:

If VSFlexGrid1.Row + 1 < VSFlexGrid1.Rows Then

   VSFlexGrid1.Select VSFlexGrid1.Row + 1, VSFlexGrid1.Col

End If

برای کم شدن(انتخاب سطرقبلی) هم باید ببینیم شماره سطر فعلی بیشتر از 1 باشد.

موفق باشید/

[Dr.Bronx]

چطور میشه مثل دیتاگرید خاصیت allowaddnew یا allowedit
رو برای Vs هم داشت
یعنی نمی خوام که کاربر توی تکست باکس چیزی وارد کنه
به ترتیب توی Vs وارد کنه و در آخر هم آبدیت بشه دیتابیس
آیا این امکان در vs وجود داره ؟

[HjSoft]

چطور میشه مثل دیتاگرید خاصیت allowaddnew یا allowedit
رو برای Vs هم داشت
یعنی نمی خوام که کاربر توی تکست باکس چیزی وارد کنه
به ترتیب توی Vs وارد کنه و در آخر هم آبدیت بشه دیتابیس
آیا این امکان در vs وجود داره ؟

خاصيت Editable رو به KBDMouse تغيير بده ، ميتوني ويرايش رو انجام بدي !

[kama2222]

چطور مي توانم با زدن تيك يا دوبار كليك روي هر سطر رنگ هر سطر را تغيير دهم.و با دوبار كليك مجدد يا برداشتن تيك رنگ آن را به حالت عادي با داشتن خاصيت backcolor alternative برگردانم.
با تشكر