標題: [原創] Visual Base 2010 陣列結果 Part 2 [打印本頁]

---

作者: mark15jill    時間: 2012-12-10 16:02     標題: Visual Base 2010 陣列結果 Part 2

程式說明
說明1.此為大範圍陣列區域和Combobox 對應關係，但必須先新增 Combobox 和 Label 各一個。
說明2.這個程式可應用於檔案架管理、機房配置表。
說明3.若有問題可以詢問，但不代表我全會~

執行結果圖片

[attach]13487[/attach]
[attach]13488[/attach]
程式碼區域

1. Public Class Form1
   
2.     Dim bubo1(25, 4) As Button
   
3.     Dim chcom As ComboBox
   
4.     Dim labcom As Label
   
5.     Private Sub Form1_Invalidated(ByVal sender As Object, ByVal e As System.Windows.Forms.InvalidateEventArgs) Handles Me.Invalidated
   
6.         With Me
   
7.             .Height = 900
   
8.             .Width = 1650
   
9.         End With
   
10.     End Sub
    
11.     Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
    
12. 
    
13.         Dim usx1, usy1 As Integer
    
14.         Dim nn As Integer
    
15. 
    
16.         chcom = Me.ComboBox1
    
17. 
    
18. 
    
19.         Dim fontFamily As New FontFamily("微軟正黑體")
    
20.         Me.Show()
    
21. 
    
22.         nn = 1
    
23.         For usx1 = 0 To 25
    
24.             For usy1 = 0 To 4
    
25. 
    
26.                 bubo1(usx1, usy1) = New button
    
27.                 Me.Controls.Add(bubo1(usx1, usy1))
    
28. 
    
29.                 bubo1(usx1, usy1).BackColor = Color.Aquamarine
    
30.                 bubo1(usx1, usy1).Width = 37
    
31.                 bubo1(usx1, usy1).Height = 150
    
32.                 bubo1(usx1, usy1).AutoSize = False
    
33.                 bubo1(usx1, usy1).TextAlign = ContentAlignment.MiddleCenter ' 上下左右置中
    
34.                 bubo1(usx1, usy1).Font = New Font(fontFamily, 12, FontStyle.Regular, GraphicsUnit.Pixel) ' 字體、大小、類型
    
35.                 bubo1(usx1, usy1).Location = New Point(10 + (43 * usx1), 10 + (155 * usy1))
    
36.                 'bubo1(usx1, usy1).Appearance = Appearance.Button '按鈕型態
    
37.                 bubo1(usx1, usy1).Text = bubo1(usx1, usy1).Name & "第 O 區域" & Chr(10) & "第" & " " & nn & " " & "區塊"
    
38. 
    
39.                 '分隔線'
    
40.                 chcom.Items.Add(bubo1(usx1, usy1).Text)
    
41. 
    
42.                 nn = nn + 1
    
43.             Next
    
44.         Next
    
45. 
    
46. 
    
47.         usx1 = Nothing
    
48.         usy1 = Nothing
    
49. 
    
50.     End Sub
    
51. 
    
52. 
    
53.     Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    
54.         labcom = Me.Label1
    
55.         'labcom.Text = Me.chcom.Text
    
56. 
    
57.         If Me.chcom.Text <> "" Then
    
58.             'MsgBox(Me.chcom.Text) '& Chr(10) & Me.bubo1(25, 4).Text)   
    
59.             If (InStr(Me.chcom.Text, "塊") >= 1) Then
    
60.                 'MsgBox(Me.chcom.Text & Chr(10) & "在第" & InStr(Me.chcom.Text, "塊") & "位") '& Chr(10) & Mid(Me.chcom.Text, 10, 1))
    
61.             End If
    
62.             For aaa = 1 To 2
    
63.                 For usx1 = 0 To 25
    
64.                     For usy1 = 0 To 4
    
65.                         If bubo1(usx1, usy1).Text = Me.chcom.Text Then
    
66.                             labcom.Text = bubo1(usx1, usy1).Text
    
67.                             bubo1(usx1, usy1).BackColor = Color.DarkSalmon
    
68.                         ElseIf bubo1(usx1, usy1).Text <> Me.chcom.Text Then
    
69.                             bubo1(usx1, usy1).BackColor = Color.Aquamarine
    
70.                         End If
    
71.                     Next
    
72.                 Next
    
73.             Next
    
74.         End If
    
75. 
    
76.     End Sub
    
77. 
    
78. 
    
79. End Class

複製代碼

---

作者: kenkid    時間: 2015-5-17 23:26

陣列控制項產生...有趣

---

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