在程序中做出信息的分隔線
當(dāng)我們想將一些訊息分門別類時(shí),最常使用的控制項(xiàng)就是Frame;不過(guò)我們也可利用
兩個(gè) Line控制項(xiàng)來(lái)做出分隔線,以將訊息分類。其效果有點(diǎn)類似網(wǎng)路上??吹降?BR> Horizontal Line ,或是微軟產(chǎn)品的 /說(shuō)明/關(guān)於.../
中的那個(gè)分隔線。例如以下程式碼可
產(chǎn)生如下圖的效果:
請(qǐng)先加入兩個(gè) Line 控制項(xiàng)到表單上
Private Sub Form_Load()
With Line1
.BorderColor = &H808080
.X1 = 0
.X2 = 5000
.Y1 = 1100
.Y2 = .Y1
End With
With Line2
.BorderColor = vbWhite
.BorderWidth = 2
.X1 = Line1.X1
.X2 = Line1.X2
.Y1 = Line1.Y1 + 20
.Y2 = .Y1
End With
Line1.ZOrder 0
End Sub
當(dāng)我們想將一些訊息分門別類時(shí),最常使用的控制項(xiàng)就是Frame;不過(guò)我們也可利用
兩個(gè) Line控制項(xiàng)來(lái)做出分隔線,以將訊息分類。其效果有點(diǎn)類似網(wǎng)路上??吹降?BR> Horizontal Line ,或是微軟產(chǎn)品的 /說(shuō)明/關(guān)於.../
中的那個(gè)分隔線。例如以下程式碼可
產(chǎn)生如下圖的效果:
請(qǐng)先加入兩個(gè) Line 控制項(xiàng)到表單上
Private Sub Form_Load()
With Line1
.BorderColor = &H808080
.X1 = 0
.X2 = 5000
.Y1 = 1100
.Y2 = .Y1
End With
With Line2
.BorderColor = vbWhite
.BorderWidth = 2
.X1 = Line1.X1
.X2 = Line1.X2
.Y1 = Line1.Y1 + 20
.Y2 = .Y1
End With
Line1.ZOrder 0
End Sub