大神，请问vb.net怎么实现：一个文本框，两个按钮，分别可以上翻和下翻，在文本框逐条显示某列的数据啊？

读取Excel文件，显示在textbox里

就像这样

Public Class Form1
Dim exc As New BaseExcel
Dim AppPath As String
Dim LineNum As Integer = 1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
AppPath = Application.StartupPath
MsgBox(exc.LoadFile(AppPath & "\tst.xls"))
MsgBox(exc.Selectfile(AppPath & "\tst.xls"))
MsgBox(exc.SelectSheet("Sheet1"))
TextBox1.Text = exc.GetDate("A" & LineNum)
Me.Text = "第" & LineNum & "行"
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
LineNum = LineNum + 1
TextBox1.Text = exc.GetDate("A" & LineNum)
Me.Text = "第" & LineNum & "行"
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
LineNum = LineNum - 1
If LineNum < 1 Then LineNum = 1
TextBox1.Text = exc.GetDate("A" & LineNum)
Me.Text = "第" & LineNum & "行"
End Sub
Private Sub Form1_Closed(sender As Object, e As EventArgs) Handles Me.Closed
exc.CloseAPP(False)
End Sub
End Class

需要用baseExcel

Imports Microsoft.VisualBasic
Imports System.IO '引用输入输出类
'by first_index
'使用前请添加引用 microsoft Excel 11.0 object library
'BaseExcel类用于简单操作Excel文件
'可以对Excel文件进行 新建，删除，获取列表，修改表格内容等
'分为以下几类功能
'1.文件操作指针
'2.获取列表信息
'3.从表中定位读取和写入
'4.对excel文件进行重命名，删除，添加
'5.对sheet重命名，删除，添加
'6.关闭后台程序
'7.附带10进制和26进制转换
'使用excel数据前需要使用loadfile（）把文件加载到内存
'然后选择**作的文件selectfile（）
'选择**作的sheet selectsheet（）
Public Class BaseExcel
Public Shared Fails As String = "fails" '操作失败
Public Shared Success As String = "Success" '操作成功
Dim AppXls As New Excel.Application '声明Excel对象
Dim AppWokBook As Excel.Workbook '声明工作簿对象
Dim AppSheet As Excel.Worksheet '声明工作表对象
Sub New()
End Sub '构造函数
#Region "文件操作指针"
Function LoadFile(path As String) 'path=文件路径 加载一个文件
Try
AppXls.Workbooks.Open(path) '打开excel文件
AppXls.Visible = False '程序不可见
Return Success '运行成功标记
Catch ex As Exception
Return Fails
End Try
End Function
Function Unloadfile(fileName As String, Save As Boolean) 'filename=文件路径 save=是否保存 内存中关闭一个文件
Try
Dim FileList() As String, I As Integer, Nlins() As String '声明文件列表储存，对比用循环变量，字符串分解数组
FileList = GetFileList(1) '获取被打开的文件列表
For I = 0 To UBound(FileList)
If FileList(I) = fileName Then '循环对比
Exit For
End If
Next
If I > UBound(FileList) Then
Return Fails
Else '如果在被打开的文件中找到
Nlins = Split(fileName, "\") '分解字符，得到文件名
AppXls.Workbooks(Nlins(UBound(Nlins))).Close(SaveChanges:=Save) '关闭excel文件
Return Success

我不能发文件