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

Printable View

نمایش 50 پست از این تاپیک در یک صفحه

پنج شنبه 21 مهر 1390, 10:38 صبح
vbnovin

نقل قول: در رابطه با : Vs Flex Grid

روش ثبت و ويرايش كل گيريد:

کد HTML:

Private Sub EDIT_KOL_Girid() 'ËÈÊ ææíÑÇíÔ ˜á ÑíÏ '***************************************** 'RO ÊÚÏÇÏ ÑíÏÝ 'RKOL ÊÚÏÇÏ ˜á ÓØÑåÇí ÑíÏ Dim R As Long, RKOL As Long RKOL = G.Rows If G.TextMatrix(G.Row, 0) = "" Then Exit Sub End If PM = MsgBox("ÇÑÈÑãÍÊÑã ÊæÌå:ÂíÇ˜á ÇØáÇÚÇÊ áíÓÊ ËÈÊ ÑÏÏ¿", vbOKCancel + vbMsgBoxRight + vbInformation, "ÍÞæÞ æ ÏÓÊãÒÏ") If PM = 1 Then 'ÍáÞå Èå ÊÚÏÇÏ áíÓÊ Ê˜ÑÇÑ æ ËÈÊ ãíÔæÏ For R = 3 To RKOL - 1 Step 1 Set SeatRS = New Recordset If SeatRS.State = adStateOpen Then SeatRS.Close End If Call conecttttttttttt SeatRS.Filter = "CODp = '" + G.TextMatrix(R, 0) + "' And mah = " & Val(cmbMah.ListIndex) & "" If Not SeatRS.EOF Then If G.TextMatrix(R, 0) <> "" Then 'æíÑÇíÔ ÇØáÇÚÇÊ ãÇå áíÓÊ SeatRS.Close 'æíÑÇíÔ ˜ÏÝÑÏæäÇã...ÝÑÏ SqlStr = " Update tMahaneh Set " & _ " CodP = " & SETCOMA(G.TextMatrix(R, 0), False, True) & _ " karroz = " & SETCOMA(Val(G.TextMatrix(R, 2)), False, True) & _ " EzafKar = " & SETCOMA(Val(G.TextMatrix(R, 3)), False, True) & _ " TatilKar = " & SETCOMA(Val(G.TextMatrix(R, 4)), False, True) & _ " MamoriatBi = " & SETCOMA(Val(G.TextMatrix(R, 5)), False, True) & _ " MamoriatBa = " & SETCOMA(Val(G.TextMatrix(R, 6)), False, True) & _ " KharidMorkhasi = " & SETCOMA(Val(G.TextMatrix(R, 7)), False, True) & _ " NobatKari = " & SETCOMA(Val(G.TextMatrix(R, 8)), False, True) & _ " hPadash = " & SETCOMA(Val(G.TextMatrix(R, 9)), False, True) & _ " hMoavaghe = " & SETCOMA(Val(G.TextMatrix(R, 10)), False, True) & _ " hModireh = " & SETCOMA(Val(G.TextMatrix(R, 11)), False, True) & _ " hJalaseh = " & SETCOMA(Val(G.TextMatrix(R, 12)), False, True) & _ " hEzafeBaBM = " & SETCOMA(Val(G.TextMatrix(R, 13)), False, True) & _ " hEzafeBiBM = " & SETCOMA(Val(G.TextMatrix(R, 14)), False, True) & _ " hEzafeShM = " & SETCOMA(Val(G.TextMatrix(R, 15)), False, True) & _ " hEzafeShB = " & SETCOMA(Val(G.TextMatrix(R, 16)), False, True) & _ " hKarane = " & SETCOMA(Val(G.TextMatrix(R, 17)), False, False) & _ " where " & _ " codp = " & SETCOMA(G.TextMatrix(R, 0), False, False) & _ " AND " & _ " mah = " & SETCOMA(Val(cmbMah.ListIndex), False, False) Connect1.Execute SqlStr End If Else If G.TextMatrix(R, 0) <> "" Then SeatRS.Close 'ËÈÊ ÇØáÇÚÇÊ ÌÏíÏ SqlStr = " Insert Into tMahaneh(mah,codp,karroz,EzafKar,TatilKar,MamoriatBi,MamoriatBa,KharidMorkhasi,NobatKari,hPadash,hMoavaghe,hModireh,hJalaseh,hEzafeBaBM,hEzafeBiBM,hEzafeShM,hEzafeShB,hKarane)" & _ " VALUES( " & _ " '" & Val(cmbMah.ListIndex) & "'," & _ " '" & Val(G.TextMatrix(R, 0)) & "' ," & _ " '" & Val(G.TextMatrix(R, 2)) & "' ," & _ " '" & Val(G.TextMatrix(R, 3)) & "' ," & _ " '" & Val(G.TextMatrix(R, 4)) & "' ," & _ " '" & Val(G.TextMatrix(R, 5)) & "' ," & _ " '" & Val(G.TextMatrix(R, 6)) & "' ," & _ " '" & Val(G.TextMatrix(R, 7)) & "' ," & _ " '" & Val(G.TextMatrix(R, 8)) & "' ," & _ " '" & Val(G.TextMatrix(R, 9)) & "' ," & _ " '" & Val(G.TextMatrix(R, 10)) & "' ," & _ " '" & Val(G.TextMatrix(R, 11)) & "' ," & _ " '" & Val(G.TextMatrix(R, 12)) & "' ," & _ " '" & Val(G.TextMatrix(R, 13)) & "' ," & _ " '" & Val(G.TextMatrix(R, 14)) & "' ," & _ " '" & Val(G.TextMatrix(R, 15)) & "' ," & _ " '" & Val(G.TextMatrix(R, 16)) & "' ," & _ " '" & Val(G.TextMatrix(R, 17)) & "' " & _ " )" Connect1.Execute SqlStr End If End If DoEvents Next R '**************************** 'ÑíÏ æíÑÇíÔ æ ËÈÊ ÔÏå V_EDitSELL = True MsgBox "˜á ÇØáÇÚÇÊ áíÓÊ ËÈÊ ÑÏíÏ", vbOKCancel + vbMsgBoxRight + vbInformation, "ÍÞæÞ æ ÏÓÊãÒÏ" Else 'æíÑÇíÔ ÔÏå æáí ËÈÊ äÔÏå V_EDitSELL = False End If G.SetFocus End Sub
پنج شنبه 21 مهر 1390, 10:41 صبح
vbnovin

نقل قول: در رابطه با : Vs Flex Grid

بازسازي و نمايش در گريد : مثال ...

کد HTML:

Private Sub EDIT_KOL_BAzsaaiGirid() 'ÈÇÒÓÇÒí ˜á ÑíÏ If G.TextMatrix(G.Row, 0) = "" Then Exit Sub End If '******************************************** 'R ÊÚÏÇÏ ÑÏíÝ 'RKOL ÊÚÏÇÏ ˜á ÓØÑåÇí ÑíÏ Dim R As Long, RKOL As Long RKOL = G.Rows For R = 3 To RKOL - 1 Set SeatRS = New Recordset If SeatRS.State = adStateOpen Then SeatRS.Close End If Call conecttttttttttt SeatRS.Filter = "CODp = '" + G.TextMatrix(R, 0) + "' And mah = " & Val(cmbMah.ListIndex) & "" If Not SeatRS.EOF Then 'áíÓÊ ÞÈáÇ ËÈÊ ÔÏå SeatRS.Close G.SetFocus Exit Sub Else SeatRS.Close If G.TextMatrix(R, 0) <> "" Then 'ËÈÊ ÌÏíÏÇØáÇÚÇÊ ãÇå áíÓÊ SqlStr = " Insert Into tMahaneh(mah,codp,karroz,EzafKar,TatilKar,MamoriatBi,MamoriatBa,KharidMorkhasi,NobatKari,hPadash,hMoavaghe,hModireh,hJalaseh,hEzafeBaBM,hEzafeBiBM,hEzafeShM,hEzafeShB,hKarane)" & _ " VALUES( " & _ " '" & Val(cmbMah.ListIndex) & "' ," & _ " '" & Val(G.TextMatrix(R, 0)) & "' ," & _ " '" & Val(G.TextMatrix(R, 2)) & "' ," & _ " '" & Val(G.TextMatrix(R, 3)) & "' ," & _ " '" & Val(G.TextMatrix(R, 4)) & "' ," & _ " '" & Val(G.TextMatrix(R, 5)) & "' ," & _ " '" & Val(G.TextMatrix(R, 6)) & "' ," & _ " '" & Val(G.TextMatrix(R, 7)) & "' ," & _ " '" & Val(G.TextMatrix(R, 8)) & "' ," & _ " '" & Val(G.TextMatrix(R, 9)) & "' ," & _ " '" & Val(G.TextMatrix(R, 10)) & "' ," & _ " '" & Val(G.TextMatrix(R, 11)) & "' ," & _ " '" & Val(G.TextMatrix(R, 12)) & "' ," & _ " '" & Val(G.TextMatrix(R, 13)) & "' ," & _ " '" & Val(G.TextMatrix(R, 14)) & "' ," & _ " '" & Val(G.TextMatrix(R, 15)) & "' ," & _ " '" & Val(G.TextMatrix(R, 16)) & "' ," & _ " '" & Val(G.TextMatrix(R, 17)) & "' " & _ " )" Connect1.Execute SqlStr End If End If DoEvents Next R '****************************************** G.SetFocus End Sub
پنج شنبه 21 مهر 1390, 10:44 صبح
vbnovin

نقل قول: در رابطه با : Vs Flex Grid

روش حذف خالي كردن خانه هاي گريد با ذكر مثالي براي شما :

کد HTML:

Private Sub Clear_Girid() 'Dim i, j, R As Integer 'ÎÇáí ˜ÑÏä ÎÇäå åÇí ÑíÏ R = G.Rows For i = 3 To R - 1 For j = 2 To 17 G.TextMatrix(i, j) = "" Next Next End Sub

همچنين در روال ديگر عمليات حذف بعد از كليك و انتخاب رديفي از گريد ...

کد HTML:

Private Sub DeleteX() 'ÍÐÝ If G.TextMatrix(G.Row, 0) = "" Then Exit Sub PM = MsgBox("ÇØáÇÚÇÊ Çíä äÇãå ÍÐÝ ÑÏÏ¿", vbOKCancel + vbMsgBoxRight + vbInformation, " ÍÞæÞ ÏÓÊãÒÏ ") If PM = 1 Then 'ÝÑã ÑãÒÏåí ÌåÊ ÍÐÝ Frm_Ramz.Show 1 If flag_Ramz = True Then Set SeatRS = New Recordset If SeatRS.State = adStateOpen Then SeatRS.Close End If 'SqlStr = " SELECT * FROM tMahaneh Where CodP >= " & Val(txtAz) & " And CodP <= " & Val(txtTa) & " And mah = " & Val(cmbMah.ListIndex) & "" Call conecttttttttttt SeatRS.Filter = "CODp = '" + G.TextMatrix(G.Row, 0) + "' And mah = " & Val(cmbMah.ListIndex) & "" If SeatRS.EOF = True Then SeatRS.Close Exit Sub Else R = 1 SeatRS.MoveFirst Do While Not SeatRS.EOF If SeatRS.EOF <> True Then SeatRS.Delete SeatRS.MoveNext R = R + 1 Else SeatRS.MoveNext End If Loop SeatRS.Close End If End If End If 'ÝÑÇÎæÇä ÇíäÑæÇá ÈÑÇí äãÇíÔ ÏÑ ÑíÏ Call CmdSabtMah_Click End Sub Private Sub conecttttttttttt() Set SeatRS = New Recordset If SeatRS.State = adStateOpen Then SeatRS.Close End If 'áíä˜ ÈÇ ÌÏæá ÏÑæä ÈÇä˜ ÇØáÇÚÇÊí ãæÑÏ äÙÑ SelSQL = "select * from tMahaneh ORDER BY CODp DESC;" SeatRS.Open SelSQL, Connect1, adOpenKeyset, adLockOptimistic End Sub
پنج شنبه 21 مهر 1390, 11:00 صبح
vbnovin

نقل قول: در رابطه با : Vs Flex Grid

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

کد HTML:

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 ,
دوشنبه 02 آبان 1390, 23:26 عصر
moghadam1372

نقل قول: در رابطه با : Vs Flex Grid

چطوری می شود درVSflexGrid یک ردیف ( سطر ) را با کلیک برروی آن انتخاب کرده وبعد آن ردیف را ویرایش کرد؟
پنج شنبه 24 آذر 1390, 11:29 صبح
sehm67

نقل قول: در رابطه با : Vs Flex Grid

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

یعنی بر روی هر سطر کلیک راست کردیم انتخاب بشه؟
چهارشنبه 28 دی 1390, 01:55 صبح
gonbady

نقل قول: در رابطه با : Vs Flex Grid

سلام خانم وطن دوست . من میخوام داخل دیتابیسم یک فیلد بزارم که اگر مقدار این فیلد 1 باشد رنگ ردیف رکورد مربوط به آن در Vsflexgrid بشه قرمز اگه لطف کنید همراه با یک مثال برام بفرستید ممنون میشم
یک شنبه 23 بهمن 1390, 15:11 عصر
1101001

نقل قول: در رابطه با : Vs Flex Grid

ثبت دیتا در بانک از Combo درون VSFlexGrid

سلام خدمت دوستان عزیز
برای اولین بار از کامپوننت VSFlexGrid 8 استفاده کردم و به جدولی در بانک متصل هست. هر سلول از VSFlexGrid رو به Combo تبدیل کردم، که وقتی تغییر میکنه باید توی رکورد مربوطه ثبت بشه.
لطفاً راهنمایی کنید
پنج شنبه 04 اسفند 1390, 00:11 صبح
kitcat_m18

نقل قول: در رابطه با : Vs Flex Grid
سلام،
از کد زیر استفاده کن. بعد از اینکه Focous از کمبو تغییر داده شده خارج بشه رکوردست آپدیت میشه و دیتای جدید جایگزین میشه
```
Private Sub fg_CellChanged(ByVal Row As Long, ByVal Col As Long)

    If Row > 0 Then

        Rs.AbsolutePosition = Row

        Rs.Fields(Col) = fg.TextMatrix(Row, Col)

        Rs.Update

    End If

End Sub
```
موفق باشی :لبخندساده:
شنبه 06 اسفند 1390, 08:39 صبح
1101001

نقل قول: در رابطه با : Vs Flex Grid
نقل قول:
نوشته شده توسط kitcat_m18

سلام،
از کد زیر استفاده کن. بعد از اینکه Focous از کمبو تغییر داده شده خارج بشه رکوردست آپدیت میشه و دیتای جدید جایگزین میشه

Private Sub fg_CellChanged(ByVal Row As Long, ByVal Col As Long)
If Row > 0 Then
Rs.AbsolutePosition = Row
Rs.Fields(Col) = fg.TextMatrix(Row, Col)
Rs.Update
End If
End Sub

موفق باشی :لبخندساده:
سلام

مهندس دستت درد نکنه کمک کردی، اما سرعت فرم خیلی شدید کند شد، با کمی تغییر درست شد، به جای CellChanged از این استفاده کردم با سرعت حجم بالای جدول رو ادیت میکنه.
```
Private Sub Flex_AfterEdit(ByVal Row As Long, ByVal Col As Long)

On Error Resume Next

Rs1.Close

Rs1.Open "SELECT * from days order by ID_Sol,year,moon"

If Row > 0 Then

   Rs1.AbsolutePosition = Row

   Rs1.Fields(Col - 1) = Flex.TextMatrix(Row, Col)

   Rs1.Update

End If

End Sub
```
سه شنبه 23 اسفند 1390, 14:51 عصر
mostafaserial

نقل قول: در رابطه با : Vs Flex Grid
سلام
من از vs خروجی اکسل میگیرم همه چی درسته فقط تاریخ رو به شکل زیر نشون میده .
این دستوری که دادم
```
VS.SaveGrid "ex.xls", flexFileExcel, _

      flexXLSaveFixedCells Or flexXLSaveRaw
```
به این شکل ###############
عکس
http://img4up.com/up2/78454471895425711356.jpg
یک شنبه 28 اسفند 1390, 11:05 صبح
mostafaserial

نقل قول: در رابطه با : Vs Flex Grid

سلام
کسی نیست جواب بده؟
پنج شنبه 26 مرداد 1391, 17:01 عصر
ahp_online

نقل قول: در رابطه با : Vs Flex Grid

یک سوال:
چطور میشه توی خود دیتاگرید مستقیم تایپ کرد واطلاعات همانجا توی بانک اطلاعاتی ذخیره بشه؟؟ حتی اگر خواستیم ادیت کنیم همین اتفاق بیفته؟؟
پنج شنبه 26 مرداد 1391, 18:39 عصر
MohammadGh2011

نقل قول: در رابطه با : Vs Flex Grid

نقل قول:

نوشته شده توسط ahp_online

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

سلام عليکم
شما فيلدهاي ديتاگريد رو وقتي متصل کنيد به فيلد بانک اطلاعاتي،در موقع اجرا اگه مستقيم توي ديتاگريد بنويسيد؛اون نوشته ذخيره ميشه و مشکلي نداره.

موفق باشيد
پنج شنبه 26 مرداد 1391, 20:30 عصر
ahp_online

نقل قول: در رابطه با : Vs Flex Grid

نقل قول:

نوشته شده توسط MohammadGh2011

سلام عليکم
شما فيلدهاي ديتاگريد رو وقتي متصل کنيد به فيلد بانک اطلاعاتي،در موقع اجرا اگه مستقيم توي ديتاگريد بنويسيد؛اون نوشته ذخيره ميشه و مشکلي نداره.

موفق باشيد

سلام
لطفا نحوه اتصال به دیتاگرید flaxgrid رو بگید؟؟در حالت پیش فرض نمیشود داخل این دیتاگرید نوشت!! چه باید کرد؟
جمعه 27 مرداد 1391, 03:30 صبح
MohammadGh2011

نقل قول: در رابطه با : Vs Flex Grid

نقل قول:

نوشته شده توسط ahp_online

سلام
لطفا نحوه اتصال به دیتاگرید flaxgrid رو بگید؟؟در حالت پیش فرض نمیشود داخل این دیتاگرید نوشت!! چه باید کرد؟

دوست عزيز منظور شما کدوم کنترله؛ Datagrid يا FlexGrid ؟
دوشنبه 30 مرداد 1391, 09:52 صبح
ahp_online

نقل قول: در رابطه با : Vs Flex Grid

flex grid منظورمه
شرمنده اگه منظورمو بد بیان کردم
دوشنبه 30 مرداد 1391, 22:19 عصر
MohammadGh2011

نقل قول: در رابطه با : Vs Flex Grid

نقل قول:

نوشته شده توسط ahp_online

flex grid منظورمه
شرمنده اگه منظورمو بد بیان کردم

خواهش ميکنم
تا اونجايي که بنده اطلاع دارم براي بانکهاي اطلاعاتي فقط بايد از DataGrid استفاده کرد؛و براي برقراري ارتباط دنبال FlexGrid نرفتم که ببينم چه طوريه.

از DataGrid استفاده کنيد.

موفق باشيد
چهارشنبه 01 شهریور 1391, 07:54 صبح
Javad-2010

نقل قول: در رابطه با : Vs Flex Grid

با سلام ؛
لطفا اگه کسی میتونه اینجا یه راهنمایی بکنه.
پنج شنبه 02 شهریور 1391, 07:02 صبح
gohari244

نقل قول: در رابطه با : Vs Flex Grid

سلام دوستان
1-کسی می دونه با چه دستوری رکوردی از جدول حذف کنیم که همون رکورد داخل بانک نیز حذف شود
2-چطور میشه با یک دستور از سلولی به سلول بعد رفته و متن اون سلول به حالت انتخاب در بیاد
پنج شنبه 02 شهریور 1391, 11:02 صبح
Javad-2010

نقل قول: در رابطه با : Vs Flex Grid

با سلام ؛
کاربرد هر یک از موارد زیر چیست و چه فرقی بین آنهاست ؟؟؟
vsflex8.ocx
vsflex8d.ocx
vsflex8l.ocx
vsflex8n.ocx
vsflex8u.ocx
vsstr8.ocx
پنج شنبه 02 شهریور 1391, 16:27 عصر
gohari244

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

لطفا جواب سوالات منو بدین
سه شنبه 14 آذر 1391, 22:53 عصر
nazanin_90

1 ضمیمه

نقل قول: در رابطه با : Vs Flex Grid

سلام به اساتید محترم
همانطور که در تصویر ضمیمه ملاحظه می فرمائید عنوان ستون اول و سوم بعلت کاهش عرض ستون به صورت کامل معلوم نیست.
آیا خصوصیت justify (آنطور که در ورد و اکسل هست) برای متون گرید وجود دارد که در صورت افزایش متن نسبت به عرض ستون ، متن بشکند و اضافه آن در زیر آن نوشته شود؟
باتشکر
چهارشنبه 15 آذر 1391, 09:47 صبح
hrj1981

نقل قول: در رابطه با : Vs Flex Grid

در جدول Properties مربوط به گريد خودتان گزينه WordWrap را برابر با True قرار دهيد
چهارشنبه 15 آذر 1391, 20:50 عصر
hrj1981

نقل قول: در رابطه با : Vs Flex Grid

بله همه قسمتهاي گريد قابل تغيير هستند ،رنگ و فونت 99 درصد قسمتهاي گريد را ميتوني از همون Properties تغيير بدي ، فقط در رابطه با ستون ها و بعضي قسمتها بايد با كد نويسي انجام بدي
چهارشنبه 15 آذر 1391, 21:20 عصر
nazanin_90

نقل قول: در رابطه با : Vs Flex Grid

نقل قول:

نوشته شده توسط hrj1981

بله همه قسمتهاي گريد قابل تغيير هستند ،رنگ و فونت 99 درصد قسمتهاي گريد را ميتوني از همون Properties تغيير بدي ، فقط در رابطه با ستون ها و بعضي قسمتها بايد با كد نويسي انجام بدي

سلام و با عرض پوزش از شما جناب hrj1981 !
قبل از اینکه پاسخ شما را ببینم اشتباهاً بجای تغییر سؤال آن راحذف کردم.
ضمناً بابت پاسخ هم ممنونم
شنبه 18 آذر 1391, 16:46 عصر
mostabed

نقل قول: در رابطه با : Vs Flex Grid

سلام به دوستان
خواستم ببینم میشه یه جستجوی واژه تو این گریدها ایجاد کرد بصورتی که با تایپ درون تکست باکس بصورت اتومات تو گرید پیدا کنه یه چیزی شبیه اتو سرچ خودش اما توی یه تکس باکس
ممنون
دوشنبه 11 دی 1391, 03:57 صبح
hamidsajjadieh

نقل قول: در رابطه با : Vs Flex Grid

با سلام

وقتی در flexgrid متنی را تایپ میکنم (به عنوان جستجو) و البته حالت AutoSearch اون روی 1 یا 2 تنظیم شده باشه ، اون متن را در flexgrid اگه باشه سلکت میکنه ولی فوکوس روی اون ردیف نمیره.میخوام بدونم که چطوری میشه فوکوس را روی اون ردیف یا سلول برد.
دوشنبه 16 بهمن 1391, 14:15 عصر
mohammadmowlavi

نقل قول: در رابطه با : Vs Flex Grid

سلام فایل نصب و راهنمای این کامپوننت رو قرار نمیدید
جمعه 12 مهر 1392, 00:06 صبح
RAMA2009

نقل قول: در رابطه با : Vs Flex Grid

سلام لطفا این کامپوننت رو قرار میدید دانلود کنیم؟
من ندارمش
جمعه 12 مهر 1392, 11:18 صبح
RAMA2009

نقل قول: در رابطه با : Vs Flex Grid

130 تا پست گذاشتین راجع به این کنترل سوال کردین!
یعنی یکی نیست این کنترل رو ارائه بده؟!!!
توی اینترنت و منابع خارجی جستجو کردم، ولی رایگان نیستند و کد لایسنس ندارن.
از دوستان عزیز خواهش میکنم اگر کسی این کنترل رو داره ارائه بده لطفا.
شنبه 27 مهر 1392, 10:30 صبح
jafar_ho

1 ضمیمه

نقل قول: در رابطه با : Vs Flex Grid

لينک دانلود بود توي پستها
ولي باز قرار ميدم ر ج ي س تر شدشو!
چهارشنبه 04 دی 1392, 21:58 عصر
gohari244

نقل قول: در رابطه با : Vs Flex Grid

سلام
خواهشمند است بگوئید که چطور مقادیر یک ستون را با هم جمع کنم
دوشنبه 12 اسفند 1392, 15:27 عصر
hamed747

نقل قول: در رابطه با : Vs Flex Grid

سلام
ببخشید من از این کامپوننت میخوام استفاده کنم
اما این ارور رو میده
باید چیکار کنم؟
http://www.upweblog.com/do.php?imgf=Capture.jpg
دوشنبه 12 اسفند 1392, 15:46 عصر
Dr.Bronx

نقل قول: در رابطه با : Vs Flex Grid

Run رو باز کنید و بنویسید :

regsvr32 vsflex8u.ocx

موفق باشید ./
دوشنبه 11 فروردین 1393, 23:33 عصر
mohammadmowlavi

نقل قول: در رابطه با : Vs Flex Grid

سلام چطور میشه یه پرینت سفارشی از این کامپوننت داشن منظورم هیدر و فوتر هست
شنبه 13 تیر 1394, 04:46 صبح
mohamadm147

نقل قول: در رابطه با : Vs Flex Grid

من در برنامه با vsflexgrid کار می کنم می خواهم زمانی که روی هر کدام از ردیف های اول کلیک می کنم بک صفحه باز شود ، صفحه جدید باز که شد vsflexgrid دیگری آنجا هست زمانی که در این صفحه جدید بر روی هر کدام از ردیف های vsflexgrid کلیک کرم اطلاعات آن ردیف بروی روی vsflexgrid قبلی برود.لطفا اگر امکان دارد راهنماییم کنیداگر منظورم را متوجه نشدید بگید که عکس بزارم
جمعه 16 مرداد 1394, 16:52 عصر
butterfly8528

نقل قول: در رابطه با : Vs Flex Grid

نقل قول:

نوشته شده توسط mohamadm147

من در برنامه با vsflexgrid کار می کنم می خواهم زمانی که روی هر کدام از ردیف های اول کلیک می کنم بک صفحه باز شود ، صفحه جدید باز که شد vsflexgrid دیگری آنجا هست زمانی که در این صفحه جدید بر روی هر کدام از ردیف های vsflexgrid کلیک کرم اطلاعات آن ردیف بروی روی vsflexgrid قبلی برود.لطفا اگر امکان دارد راهنماییم کنیداگر منظورم را متوجه نشدید بگید که عکس بزارم

سلام.
تمام نیاز های شما با استفاده از رویداد Click گرید و پاس دادن مقادیر سلول های آن بین فرم های برنامه، با استفاده از خاصیت TextMatrix گرید، برطرف خواهد شد.
پنج شنبه 26 آذر 1394, 17:22 عصر
ars2000

نقل قول: در رابطه با : Vs Flex Grid

ضمن عرض سلام و خسته نباشی به همه شما کاربران عزیز
من دارم روی یه برنامه گرافیکی کار میکنم که توی یکدونه از فرمهای اون عکس و جدولی باز بشه که دارای چهار ستون باشه (ردیف-رنگ-کد رنگOle-وتعداد) که تموم رنگهای غیر تکراری در سلهای اون مشخص بشه و چون پیکسلها از 16777215 رنگ RGB تشکیل شده سلهای جدول باید رنگی باشه بمن گفتن تنها جدولی که بشه سلهای اونو با کد نویسی رنگی کرد VSFlexGrid هست ولی میخوام اول مطمعن بشم اگه چنین کاری میشه با این کامپوننت انجام داد روش کار و تحقیق کنم دوم اینکه از چه کدی برای رد کردن پیکسلهای تکراری استفاده کنم که سرعت من پایین نباشه قبلا از حلقه ها استفاده کردم ولی بعلت بالا بودن تعداد پیکساها برنامه هنگ میکنه ممنون میشم اگه مسیر درست رو بمن بگین در ضمن مشابه این کاری که میخوام بکنم بصورت فایل Exe هست ضمیمه میکنم ولی من میخوام سورس اونو با کمی تغیرات تو پروژه ام بنویسم. با تشکر
:خجالت:http://www.downloadha.com/tag/%D8%A8...colors-finder/
پنج شنبه 26 آذر 1394, 23:55 عصر
ars2000

نقل قول: در رابطه با : Vs Flex Grid

نقل قول:

نوشته شده توسط ramzdar

چطوری میشه توی vsflex از CheckBox استفاده کرد؟؟؟

سلام با کد زیر میتونی در هر ردیف textBox رو به شش نوع مختلف فعال کنیVS.CellChecked =flexCheckedVS.CellChecked = flexNoCheckboxVS.CellChecked =flexTSCheckedVS.CellChecked =flexTSGrayedVS.CellChecked = flexTSUncheckedVS.CellChecked =flexUncheckedوقتی هر کدوم از اونا رو اجرا کنید متوجه فرقشون میشین.
سه شنبه 28 اردیبهشت 1395, 23:57 عصر
hamed_vb

1 ضمیمه

نقل قول: در رابطه با : Vs Flex Grid

سلام دوستان من یک فاکتور فروش میخوام طراحی کنم ولی دچار مشکل شدم
مشکلمم اینه که میخوام وقتی یک کالایی رو وارد میکنم اگر از اون کالا موجود باشه تعداد جدید رو با قبلی جمع کنه
یعنی از یک جنس دوبار در فاکتور ذکر نشه
میشه کمکم کنین؟
سورسشم اینه
شنبه 04 آذر 1396, 21:45 عصر
ahyousefi2

نقل قول: در رابطه با : Vs Flex Grid

سلام دوستان عزیز
شرمنده مزاحم شما شدم
یک سوال داشتم
من به تازگی از VSFlexGrid دارم استفاده می کنم

توی دو قسمت مشکل دارم

اول اینکه توی VSFlexGrid برای مثلا 5 تا رکورد ذخیره شده نمایش داده میشه من رکورد پنجم را که انتخاب می کنم رکورد اول پاک میشه. نمی دونم چرا چیزیم پیدا نکردم تا مشکل رو حل کنم

مشکل دوم برای مثال وقتی رکورد حذف میشه VSFlexGrid ریفرش نمیشه

ممنون میشم کمکم کنید

نمونه کدی که من نوشتم:

Me.Adodc1.Refresh
Me.Adodc1.Recordset.Delete
Me.Adodc1.Recordset.Update

Me.VSFlexGrid1.RowHeight(0) = 500

Me.VSFlexGrid1.ColWidth(0) = 500
Me.VSFlexGrid1.ColHidden(1) = True
Me.VSFlexGrid1.ColWidth(2) = 2000
Me.VSFlexGrid1.ColWidth(3) = 2000
Me.VSFlexGrid1.ColWidth(4) = 3000
Me.VSFlexGrid1.ColWidth(5) = 2000
Me.VSFlexGrid1.ColWidth(6) = 2000
Me.VSFlexGrid1.ColWidth(7) = 2000
Me.VSFlexGrid1.ColWidth(8) = 10000
Me.VSFlexGrid1.ColWidth(9) = 2000

Me.VSFlexGrid1.ColAlignment(0) = flexAlignCenterCenter
Me.VSFlexGrid1.ColAlignment(1) = flexAlignCenterCenter
Me.VSFlexGrid1.ColAlignment(2) = flexAlignCenterCenter
Me.VSFlexGrid1.ColAlignment(3) = flexAlignCenterCenter
Me.VSFlexGrid1.ColAlignment(4) = flexAlignCenterCenter
Me.VSFlexGrid1.ColAlignment(5) = flexAlignCenterCenter
Me.VSFlexGrid1.ColAlignment(6) = flexAlignCenterCenter
Me.VSFlexGrid1.ColAlignment(7) = flexAlignCenterCenter
Me.VSFlexGrid1.ColAlignment(8) = flexAlignCenterCenter
Me.VSFlexGrid1.ColAlignment(9) = flexAlignCenterCenter

For i = 1 To Adodc1.Recordset.RecordCount
Me.VSFlexGrid1.TextMatrix(i, 0) = i
Next i
یک شنبه 25 شهریور 1403, 20:11 عصر
eb_1345

نقل قول: در رابطه با : Vs Flex Grid

...........................................

نمایش 50 پست از این تاپیک در یک صفحه