PlaceChess 这个函数怎么用?

[frdfy]

我是初学者这是做象棋棋盘里面的一个语句
FontSize = Width / 250
ForeColor = vbBlack
For i = 1 To 16
PlaceChess Mid(ChessBlack, i, 1), PosX(i), PosY(i)
Next

ForeColor = vbRed
For i = 1 To 16
PlaceChess Mid(ChessRed, i, 1), PosX(i), -PosY(i)
Next查帮助找布道这个函数
另外
MID 函数 括号里面的是要替换的字符还是将要替换的字符? 那个 i是代表的什么,1 呢?
看帮助没看太懂,希望高手指教,谢谢

[laviewpbt]

PlaceChess 是你自定义的函数,msdn中如果有的话微软那...

[frdfy]

晕,终究我还是菜鸟
看见了
那么MID 函数呢?
Private Sub PlaceChess(ByVal Item As String, ByVal x As Single, ByVal y As Single)
'画棋子：先画一个填充的圆，再画边线，最后写字

'独立一个过程，为将来绘制可以移动的棋子做准备

DrawWidth = 2
Circle (x, y), 0.45
CurrentX = x - TextWidth(Item) / 2
CurrentY = y - TextHeight(Item) / 2
Print Item
End Sub

[rainstormmaster]

Mid(ChessRed, i, 1)
取出字串ChessRed的第i个字符，i表示从什么地方开始截取字串，1表示字串的长度