189 8069 5689
Dim bit As Bitmap=New Bitmap(textBox1.ClientRectangle.Width, _
创新互联服务项目包括枣强网站建设、枣强网站制作、枣强网页制作以及枣强网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，枣强网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到枣强省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
textBox1.ClientRectangle.Height, _
System.Drawing.Imaging.PixelFormat.Format24bppRgb)
textBox1.DrawToBitmap(bit,textBox1.ClientRectangle)
pictureBox1.Image=bit
bit.Save("")'保存文件的路径
这是保存文本框内容的方法，保存余下内容的方法我还要点事件弄
在access数据库里将字段的类型设置为ole对象
Public img As Byte() '图片处理用的字节数组
img=My.Computer.FileSystem.ReadAllBytes(filePath)'filePath是你图片文件的路径
剩下的就是数据库插入操作了
Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb")
Dim comm As OleDb.OleDbCommand
comm = New OleDb.OleDbCommand( _
"INSERT INTO Photo(BuFan_F,PhotoNo,Photo) Values('" Me.CobBuFan.Text.Trim "','" Me.txtNo.Text.Trim "',@image)", cn)
'向数据库添加存储了图片数据的二进制数组
comm.Parameters.Add("@image", _
OleDb.OleDbType.Binary, img.Length).Value = img
If cn.State = ConnectionState.Closed Then cn.Open() '打开数据库连接
comm.ExecuteNonQuery() '执行数据库命令
If cn.State = ConnectionState.Open Then cn.Close() '关闭数据库连接
MessageBox.Show("图片成功保存到数据库", "完成", MessageBoxButtons.OK, MessageBoxIcon.Information)
CType 函数
任何数据类型
必须在两种数据类型之间定义扩大转换或收缩转换
引发 InvalidCastException
DirectCast
任何数据类型
一个类型必须继承自或者实现另一个类型
引发 InvalidCastException
TryCast
仅引用类型
一个类型必须继承或者实现另一个类型
返回 Nothing (Visual Basic)
用split函数
dim a()
a = split("-48.437500 0.000000 -0.000011 0.000011"," ")’按空格将文本拆分成数组赋值给a
得到的是文本，如果想得到数字就a(1) = val(a(1))‘把a(1)的值强制转化成数字赋值给a(1)，全部转换自己弄个循环搞定
大概就这样，你自己试试吧
Dim s As String = "h" Hex(Asc(Val(InputBox("输入数值", "提示", 1))))
MsgBox(s)
这属于装箱拆箱。我举个例子你就明白了：
Dim x As Integer = 5
Dim o As Object = x '装箱
Dim y As Integer = CType(o, Integer) '拆箱（在Option Strict Off的情况下，直接用o给y赋值，会发生自动转换，也就是说在这种情况下，你不必显式调用CType函数）
另外：VB.NET支持后期绑定，所以你也可以不进行拆箱，直接在Object类型下就可以调用它的属性和方法
比如，下面的语句在Option Strict Off是是合法的
Dim s As String = 886
Dim i As Integer = "53"
Dim f As Object = New Form()
f.Show() '注意，f是Object类型的
总之，VB.NET的语法要比C#灵活得多