home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / gridtest / gridtest.txt < prev   
Text File  |  1991-03-25  |  667b  |  38 lines
  1.  
  2. Sub Text1_Change ()
  3. Grid1.Text = Text1.Text
  4. End Sub
  5.  
  6. Sub Form_Load ()
  7. For r% = 0 To Grid1.Rows - 1
  8.     Grid1.Row = r%
  9.     For C% = 0 To Grid1.Cols - 1
  10.         Grid1.Col = C%
  11.         Grid1.Text = Chr$(Asc("A") + r% - 1) + Str$(C%)
  12.         Next
  13.     Next
  14. End Sub
  15.  
  16. Sub Grid1_SelChange ()
  17. Text1.Text = Grid1.Text
  18. RH.Text = Str$(Grid1.RowHeight)
  19. CW.Text = Str$(Grid1.ColWidth)
  20. End Sub
  21.  
  22. Sub RA_Click (Index As Integer)
  23. Grid1.RowAlignment = Index
  24. End Sub
  25.  
  26. Sub CA_Click (Index As Integer)
  27. Grid1.ColAlignment = Index
  28. End Sub
  29.  
  30. Sub CW_Change ()
  31. Grid1.ColWidth = Val(CW.Text)
  32. End Sub
  33.  
  34. Sub RH_Change ()
  35. Grid1.RowHeight = Val(RH.Text)
  36. End Sub
  37.  
  38.