View Single Post
  #7 (permalink)  
Old August 2nd, 2005, 12:10 AM
Raghavendra_Mudugal Raghavendra_Mudugal is offline
Friend of Wrox
Points: 687, Level: 9
Points: 687, Level: 9 Points: 687, Level: 9 Points: 687, Level: 9
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Dec 2004
Location: Chennai, Tamilnadu, India.
Posts: 221
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Hello Vinay, In that case use this simple solution

Add a MSHflexgrid and copy and paste this code

Private Sub Form_Load()
s = Me.MSHFlexGrid1.Rows
For q = 1 To s - 1
    Me.MSHFlexGrid1.Col = 1
    Me.MSHFlexGrid1.Row = q
    Me.MSHFlexGrid1.CellFontName = "Wingdings"
    Me.MSHFlexGrid1.TextMatrix(q, 1) = "o"
Next
End Sub

Private Sub MSHFlexGrid1_Click()
If Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.RowSel, 1) = "o" Then
    Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.RowSel, 1) = "รพ"
Else
    Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.RowSel, 1) = "o"
End If
End Sub

I guess, it must give you some anothere thought to approch.
Please check this and let me know.

Hope this helps

With Regards,
Raghavendra Mudugal
Reply With Quote