本文介绍了一种使用Visual Basic编程语言绘制带有特定样式阴影的单元格的方法。通过定义一个子程序DrawCell，该方法能够根据传入的索引、阴影样式及文本参数，在指定位置绘制出具有蓝色交叉阴影效果和米色背景的矩形，并在其上显示文字。
Private Sub DrawCell(ByVal iIndex As Int16, ByVal eStyle As HatchStyle, ByVal s As String)
Const cW = 100
Const cCol = 10
Dim iX As Int16
Dim iY As Int16
Dim iW As Int16
Dim g As Graphics
Dim tempbrush As Brush
g = Me.CreateGraphics
iW = Me.Width / cCol
iX = iIndex Mod cCol
iY = iIndex / cCol
iX = iX * iW
iY = iY * (cW + 30)
tempbrush = New HatchBrush(eStyle, Color.Blue, Color.Beige)
'声明并初始化了一个有着蓝色交叉阴影、米色背景的画刷
g.FillRectangle(tempbrush, iX, iY, cW, cW)
'使用该画刷填充矩形
g.DrawRectangle(Pens.Blue, iX, iY, cW, cW)
g.DrawString(s, Me.Font, Brushes.Blue, iX, iY + cW)
End Sub
扫一扫
2328
到【灌水乐园】发言
