فعال کردن MaxLength برای سلولهای ردیف اول VSFlexGrid1 و...

[Hassan2500]

سلام

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

[m.4.r.m]

Private Sub vs_KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)
VS.EditMask = "#"
End Sub

[Hassan2500]

Private Sub vs_KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)
VS.EditMask = "#"
End Sub


جناب m.4.r.m این کدی که گذاشتید اصلاً نمیشه هیچ حرفی رو وارد سلولها کرد نحوه کار باهاش چطوریه

[m.4.r.m]

چرا نمیشه تست کردم شد که براتون گذاشتم . شما Editable مربوط به VS رو بزارید رو آیتم سوم . بعد این کد رو بنویسید در KeyPressEdit مربوط به Vs حتما جواب میگیرید .

[Hassan2500]

چرا نمیشه تست کردم شد که براتون گذاشتم . شما Editable مربوط به VS رو بزارید رو آیتم سوم . بعد این کد رو بنویسید در KeyPressEdit مربوط به Vs حتما جواب میگیرید .

جناب m.4.r.m این کاری که گفتید رو هم انجام دادم ولی فقط میشه عدد وارد سلولها کرد من میخوام حروف رو هم وارد کنم آیا میشه حروف رو هم وارد کرد

[m.4.r.m]

Private Sub VSFlexGrid1_KeyDownEdit(ByVal Row As Long, ByVal Col As Long, KeyCode As Integer, ByVal Shift As Integer)
VSFlexGrid1.EditMaxLength = 4
End Sub