عمل جدول على الفورم في الفيجول

الكود التالي يطبع جدول بداخله بعض القيم العشوائية ارجو أن يفيدك:

Private Sub Sample01()

Dim g As Single

Dim i As Single

Dim j As Single

Dim t As String

For i = 1440 To 1440 * 10 Step 720

   Me.Line (1440, i)-(1440 * 7, i)

Next i

For i = 1440 To 1440 * 7 Step 1440

   Me.Line (i, 1440)-(i, 1440 * 10)

Next i



g = (720 - TextHeight("Cell: G20")) / 2

Me.Font.Bold = True

For i = 1 To 5

   t = Chr(Asc("@") + i)

   Me.CurrentY = 1440 + g

   Me.CurrentX = 1440 + 1440 * i + (1440 - Me.TextWidth(t)) / 2

   Me.Print t

Next i

   

For i = 1 To 17

   t = FormatNumber(i, 0)

   Me.CurrentY = 1440 + 720 * i + g

   Me.CurrentX = 2880 - Me.TextWidth(t) - g

   Me.Print t

Next i

Me.Font.Bold = False

For i = 1 To 5

   For j = 1 To 17

      t = FormatNumber(Rnd * 10000, 2)

      Me.CurrentY = 1440 + 720 * j + g

      Me.CurrentX = 2880 + 1440 * i - Me.TextWidth(t) - g

      Me.Print t

   Next j

Next i

End Sub



Private Sub Form_Load()

    Call Sample01

End Sub