189 8069 5689
文本框通常用来显示文本字符，以下是用 VB 编写的打开某 txt 文件，并把文件内容显示在文本框的步骤及代码： 1、添加必要的组件（文本框、按钮） 2、设置属性： 3、编写按钮的响应代码：
成都创新互联公司自2013年起，先为广河等服务建站，广河等地企业，进行企业商务咨询服务。为广河企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
Imports System.IO
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim sr As New StreamReader("d:\test.csv")
Dim arr1(), arr2(), arr3(), arr4() As Integer
Dim a1, a2, a3, a4 As New ArrayList
Do Until sr.EndOfStream
Dim str As String = sr.ReadLine
Dim s() As String = str.Split(",")
a1.Add(Convert.ToInt32(s(0)))
a2.Add(Convert.ToInt32(s(1)))
a3.Add(Convert.ToInt32(s(2)))
a4.Add(Convert.ToInt32(s(3)))
ListBox1.Items.Add(s(0))
Loop
arr1 = CType(a1.ToArray(GetType(Integer)), Integer())
arr2 = CType(a2.ToArray(GetType(Integer)), Integer())
arr3 = CType(a3.ToArray(GetType(Integer)), Integer())
arr4 = CType(a4.ToArray(GetType(Integer)), Integer())
sr.Close()
End Sub
End Class
1 使用Shell函数直接调用
语法：Shell (pathname[,windowstyle]).Pathname是指要执行的程序的名字和任何必须的参数或命令行开关，可以包括目录和驱动器名；Windowstyle是执行程序的窗口风格的数字。
使用Shell调用Word比较简单，编程量小，但必须明确指定Word所在路径，这不利于移植，而且，不能对Word进行控制，不利于程序和Word之间的数据交换。
2 使用OLE自动化控制Microsoft Word
2.1 使用方法
（1)Word为OLE自动化提供一种称为“Basic”的对象，要在VB中控制Word ,首先要定义一个引用Word中“Basic”对象的对象变量：Dim Wordobj as Object
(2)将Word 中的“Basic”对象赋给该对象：Set Wordobj=CreateObject("Word.Basic")
(3)可以使用大多数WordBasic语句和函数控制Word或Word文档，使用方法和在Word宏中使用WordBasic指令的方法基本相同。
(4)关闭Word:Set Wordobj =Nothing。
注意：“Basic”对象不支持关闭它自己的一个方法。即若在OLE自动化中关闭了Word，则对象被置为Nothing，便不能再对对象进行操作，程序出错。
2.2 VB指令与WordBasic指令的差异
(1)有一些语句和函数不能使用，包括：控制结构，如While…Wend和If…Then…Else；声明语句，如Dim；定制对话框相关的语句：FileExit语句；要求数组变量作为参数的语句或函数。
(2)也有一些指令使用方法不同。①返回字符串以一个美元符（$）结束的WordBasic函数的关键字必须括在方括号中。例如，在WordBasic宏中的GetBookmark$()语句：mark$=GetBookmark$("Address")，若用VB调用，必须这样写mark$=Wordobj.[Ge-tBookmark$]("Address")。②选择一个命令按钮用“True”,不选择用“False”
2.3 对OLE自动化的说明
Word可以为OLE自动化给另一个应用提供对象，但是它不能使用OLE自动化访问其它应用中的对象。例如：VB和Excel可以使用OLE自动化访问Word，但是Word不能使用OLE自动化访问它们。
3 在包容器中嵌入Word对象
在VB中，要访问在包容器中嵌入的Word对象，首先要在项目中插入对象。做法如下：在窗体中插入OLE控件，对象类型选择“MicrosoftWord图片”或“Microsoft Word文档”，再按“确定”。
然后用Object属性访问文档或图片，并使用WordBasic语句和函数作用于它。嵌入的对象必须在可被访问之前被激活，可以使用Action属性激活OLE控件。例如，使用下面指令访问一个嵌入在称为OLE1的OLE控件中的文档：
Dim Wordobj as Object
OLE1.Action =7
Set Wordobj =OLE1.Object.Application. WordBasic
其他方面，使用方法同OLE自动化。使用在包容器中嵌入的Word对象，Word显示的窗口大小、位置与OLE控件定义的大小、位置相同，而且工具栏显示位置与Word脱离。这一点与OLE自动化相比，是个不足。
总之，要想在Microsoft Visual Basic中控制Microsoft Word，最好使用OLE自动化，通过使用WordBasic指令对Word进行全面控制，而且，用户使用起来与使用Microsoft Word一样，非常方便。
说明：以下代码在Microsoft Visual Basic 2005 （简体中文版）中通过。
创建新项目：
在窗体上添加文本框2个：TextBox1，TextBox2
TextBox1 -- 用来编辑要写入的文本文件的内容，或显示打开的文本文件的内容
TextBox2 -- 用来输入要打开或要写入的文件名（包括盘符，路径）（例如：c:\123.txt）
在窗体上添加2个按钮：Button1，Button2
Button1 -- 写入文件
Button2 -- 打开文件
代码如下：
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim w As New StreamWriter(TextBox2.Text)
w.Write(TextBox1.Text)
w.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim r As New StreamReader(TextBox2.Text)
Dim s As String
TextBox1.Text = ""
Do While r.Peek -1 '是否到文件尾
s = r.ReadLine
' MessageBox.Show(r.Peek)
TextBox1.Text = TextBox1.Text s vbCrLf
Loop
r.Close()
End Sub
End Class
补充:你要把读出的数据赋值给一个变量,只要:声明一个变量为数值类型,然后只要读取一行就可以了,把这行数据经过转换成数值后赋给这个变量.
楼下的根本不对。exe右键是没有“打开方式”的，也没必要因为这个问题而还原系统。把exe设置为直接运行，方法：新建一个txt文件，输入ftype exefile="%1" %* ，保存，把扩展名改为bat，双击这个文件，就好了。
1、实现上传按钮方法代码。
2、判断图片对象是否为空代码。
3、取得数据库字段 dt.Rows(0)("Pic")方法代码。
4、字节数组转换为Image类型方法代码。
5、处理SQL中操作Image类型方法代码。
6、实现的上传结果。