標題: [原創] vb2010 陣列顯示的結果... [打印本頁]

---

作者: mark15jill    時間: 2012-12-5 17:27     標題: vb2010 陣列顯示的結果...

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

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

1. Public Class Form1
   
2.     Dim chbo1(97, 56) As CheckBox
   
3. 
   
4.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
5. 
   
6.         Dim usx1, usy1 As Integer
   
7.         Dim nn As Integer
   
8. 
   
9. 
   
10.         Dim fontFamily As New FontFamily("微軟正黑體")
    
11.         Me.Show()
    
12. 
    
13.         nn = 1
    
14. 
    
15.         For usx1 = 0 To 97
    
16.             For usy1 = 0 To 56
    
17.                 chbo1(usx1, usy1) = New CheckBox
    
18.                 chbo1(usx1, usy1).BackColor = Color.Aquamarine
    
19.                 chbo1(usx1, usy1).Width = 20
    
20.                 chbo1(usx1, usy1).Height = 20
    
21.                 chbo1(usx1, usy1).Appearance = Appearance.Button
    
22.                 chbo1(usx1, usy1).TextAlign = ContentAlignment.MiddleCenter
    
23.                 chbo1(usx1, usy1).Font = New Font(fontFamily, 14, FontStyle.Regular, GraphicsUnit.Pixel)
    
24.                 chbo1(usx1, usy1).Location = New Point((15 * usx1), (15 * usy1))
    
25.                 Me.Controls.Add(chbo1(usx1, usy1))
    
26.                 'chbo1(usx1, usy1).Text = chbo1(usx1, usy1).Name & "第一區塊" & Chr(10) & Chr(10) & nn
    
27.                 nn = nn + 1
    
28.             Next
    
29.         Next
    
30. 
    
31. 
    
32.         '分隔線'
    
33. 
    
34. 
    
35.         usx1 = Nothing
    
36.         usy1 = Nothing
    
37. 
    
38.     End Sub
    
39. End Class

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)