求助:word插入符号插件中的网格用的是什么控件
最近用VBA做一个类似word插入特殊符号的东西,但不知道word插入符号插件中保存特殊符号的网格用的是什么类型的插件,哪位大侠知道请明示一下:
[解决办法]
PictureBox
Private Sub Form_Load()Dim Y As LongDim X As Long Picture1.AutoRedraw = True For Y = 0 To 1 For X = 0 To 2 Picture1.CurrentY = 30 + 15 * (20 * Y) Picture1.CurrentX = 30 + 15 * (10 * X) Picture1.Line (Picture1.CurrentX, Picture1.CurrentY)-(Picture1.CurrentX + 150, Picture1.CurrentY + 300), 0, B Picture1.CurrentY = 90 + 15 * (20 * Y) Picture1.CurrentX = 60 + 15 * (10 * X) Picture1.Print Chr(65 + Y * 3 + X); Next NextEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If 30 <= X And X <= 480 And 30 <= Y And Y <= 480 Then Debug.Print Chr(65 + Int((X - 30) / 150) + Int((Y - 30) / 300) * 3); End IfEnd Sub