[原創] vb2010 陣列顯示的結果...

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-12-5 17:27 | 只看該作者

本帖最後由 mark15jill 於 2012-12-5 17:29 編輯

vb2010 可以這樣做..
其他版本請自行研究
純屬好玩...(其實是陣列還沒搞好ˇˇ

Public Class Form1
Dim chbo1(97, 56) As CheckBox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim usx1, usy1 As Integer
Dim nn As Integer
Dim fontFamily As New FontFamily("微軟正黑體")
Me.Show()
nn = 1
For usx1 = 0 To 97
For usy1 = 0 To 56
chbo1(usx1, usy1) = New CheckBox
chbo1(usx1, usy1).BackColor = Color.Aquamarine
chbo1(usx1, usy1).Width = 20
chbo1(usx1, usy1).Height = 20
chbo1(usx1, usy1).Appearance = Appearance.Button
chbo1(usx1, usy1).TextAlign = ContentAlignment.MiddleCenter
chbo1(usx1, usy1).Font = New Font(fontFamily, 14, FontStyle.Regular, GraphicsUnit.Pixel)
chbo1(usx1, usy1).Location = New Point((15 * usx1), (15 * usy1))
Me.Controls.Add(chbo1(usx1, usy1))
'chbo1(usx1, usy1).Text = chbo1(usx1, usy1).Name & "第一區塊" & Chr(10) & Chr(10) & nn
nn = nn + 1
Next
Next
'分隔線'
usx1 = Nothing
usy1 = Nothing
End Sub
End Class

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。