Bununla birlikte çubuğunu her kaydırdığınızda yeni harfler ve sayılar gelir. Visual Basic ile gelen ızgara kontrolünü kullandığınızda ise yandaki ve üstteki hücrelerin boş kaldığını görürsünüz. Peki Excel’deki gibi uçsuz bucaksız hesap tablolarını nasıl yaratacaksınız? Bunu yapmanın yolu tabii ki yine kodlardan geçiyor...
Private Sub Form_Load()
Dim i As Integer
Grid1.Rows = 50
Grid1.Cols = 50
Grid1.Col = 0: Grid1.Row = 0
Grid1.Picture = Picture1.Picture
'Izgara kontrolünün en az 1 sütun veya 1 satırdan oluştuğundan emin ol.
If Grid1.FixedCols < 1 Or Grid1.FixedRows < 1 Then
Stop
End If
'Kontrolün üstüne harfleri yerleştirmeye başla.
For i = 0 To Grid1.Cols - 2
Grid1.Col = i + 1
Grid1.Row = 0
Grid1.Text = Chr$(i Mod 26 + Asc("A"))
'Eğer sütun sayısı 26’yı geçiyorsa çift karakter kullan.
If i + Asc("A") > Asc("Z") Then
Grid1.Text = Chr$(i \ 26 - 1 + Asc("A")) + Grid1.Text
End If
Grid1.FixedAlignment(Grid1.Col) = 2 'Merkeze getir.
Next
'numaraları alt-sol köşeye yerleştir.
For i = 1 To Grid1.Rows - 1
Grid1.Col = 0
Grid1.Row = i
Grid1.Text = Format$(i)
Next
Grid1.FixedAlignment(0) = 2 ' Merkeze getir.
End Sub
Püf Noktası: Resimde gördüğünüz gibi yerleşik satırların ve sütunların ortasında ufak bir resim var.
Peki o resmi oraya nasıl yerleştirdik? Bildiğiniz gibi ızgara kontrolünün Properties kutucuğuna
baktığınızda böyle bir özellik görülmüyor. Eklediğimiz şu satır:
Grid1.Picture = Picture1.Picture
bu işi başarmıştır. Tabii ki bu satırı eklemeden bir resim kutusu yaratmalı ve istediğiniz resmi bu kutuya önceden eklemelisiniz.