UpgradeVB6Code
جمعه 06 اردیبهشت 1387, 14:09 عصر
سلام
چه جوری میتونم وقتی روی یکی از سلول های FlexGrid دابل کلیک میشه و میره به حالت Edit رنگ همون سلول رو مثلا آبی کنم بعد که از حالت Edit در میاد رنگش دوباره سفید بشه ؟؟؟
من همچن کدی رو نوشتم و ظاهرا جواب گرفتم امام میخوام ببینم راه اصولی تری نداره ؟ یعنی خود FlexGrid همچین پراپرتیی نداره ؟
وقتی میره به حالت Edit رنگ آبی میشه
Private Sub VSFlexGrid_StartEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)
FlexGrid.Select Row, Col
FlexGrid.CellBackColor = vbBlue
End Sub
رنگش دوباره سفید میشه
Private Sub VSFlexGrid_AfterEdit(ByVal Row As Long, ByVal Col As Long)
VSFlexGrid.Select Row, Col
VSFlexGrid.CellBackColor = vbWhite
End Sub
یعنی منظورم اینه که پراپرتی که سطر و ستون و رنگ رو به عنوان پارامتر بگیره نه اینکه اول Select کنم بعد رنگ رو عوض کنم !؟
سوال دومم اینه که چه جوری یک سلول که Row و Col اون مشخص هست رو با کد نویسی به حالت Edit ببرم ؟؟؟
(این سوال دومی مهمتره)
چه جوری میتونم وقتی روی یکی از سلول های FlexGrid دابل کلیک میشه و میره به حالت Edit رنگ همون سلول رو مثلا آبی کنم بعد که از حالت Edit در میاد رنگش دوباره سفید بشه ؟؟؟
من همچن کدی رو نوشتم و ظاهرا جواب گرفتم امام میخوام ببینم راه اصولی تری نداره ؟ یعنی خود FlexGrid همچین پراپرتیی نداره ؟
وقتی میره به حالت Edit رنگ آبی میشه
Private Sub VSFlexGrid_StartEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)
FlexGrid.Select Row, Col
FlexGrid.CellBackColor = vbBlue
End Sub
رنگش دوباره سفید میشه
Private Sub VSFlexGrid_AfterEdit(ByVal Row As Long, ByVal Col As Long)
VSFlexGrid.Select Row, Col
VSFlexGrid.CellBackColor = vbWhite
End Sub
یعنی منظورم اینه که پراپرتی که سطر و ستون و رنگ رو به عنوان پارامتر بگیره نه اینکه اول Select کنم بعد رنگ رو عوض کنم !؟
سوال دومم اینه که چه جوری یک سلول که Row و Col اون مشخص هست رو با کد نویسی به حالت Edit ببرم ؟؟؟
(این سوال دومی مهمتره)