home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
gridtest
/
gridtest.txt
< prev
Wrap
Text File
|
1991-03-25
|
667b
|
38 lines
Sub Text1_Change ()
Grid1.Text = Text1.Text
End Sub
Sub Form_Load ()
For r% = 0 To Grid1.Rows - 1
Grid1.Row = r%
For C% = 0 To Grid1.Cols - 1
Grid1.Col = C%
Grid1.Text = Chr$(Asc("A") + r% - 1) + Str$(C%)
Next
Next
End Sub
Sub Grid1_SelChange ()
Text1.Text = Grid1.Text
RH.Text = Str$(Grid1.RowHeight)
CW.Text = Str$(Grid1.ColWidth)
End Sub
Sub RA_Click (Index As Integer)
Grid1.RowAlignment = Index
End Sub
Sub CA_Click (Index As Integer)
Grid1.ColAlignment = Index
End Sub
Sub CW_Change ()
Grid1.ColWidth = Val(CW.Text)
End Sub
Sub RH_Change ()
Grid1.RowHeight = Val(RH.Text)
End Sub