在VB编程时，怎么让文本框里有网格线，就像Excel里的那样？

Question

在VB编程时，想做一个界面，其功能是通过串口读取若干个字节数据，然后显示在文本框里，然后再读取若干个字节显示到下一行里，并且行间有网格线才行，请问高手这个怎么做？

Answer 1

Private Sub Command2_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "c:\11.xls"
SheetName = "sheet1"
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(SheetName) '设置活动工作表

xlSheet.Shapes("textbox1").DrawingObject.object.Text = "设置控件工具面板里textbox内容"
xlSheet.Shapes("文本框 3").TextFrame.Characters.Text = "设置绘图工具栏里文本框内容"
Sheets(SheetName).textbox1.Text = "设置控件工具面板里textbox内容" '给text赋值，不能直接用 xlsheet.textbox1.text

xlApp.DisplayAlerts = False
xlBook.Save
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub