1、实现上传按钮方法代码。
我们提供的服务有：网站制作、成都网站制作、微信公众号开发、网站优化、网站认证、尼木ssl等。为上千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的尼木网站制作公司
2、判断图片对象是否为空代码。
3、取得数据库字段 dt.Rows(0)("Pic")方法代码。
4、字节数组转换为Image类型方法代码。
5、处理SQL中操作Image类型方法代码。
6、实现的上传结果。
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
另起一个线程，在里面循环receive，每收到一个数据就进行分析，特殊命令如exit,执行udpclient.close()，其他数据委托到主线程。
你这是要把你做的浏览器当做默认浏览器吧
如果是这样，需要操作注册表
操作注册表具体方法
1、开始→运行→输入regedit，打开注册表编辑器
2、找到HKEY_CLASSES_ROOT\http\shell\open\command，在右边的窗口中双击"默认"，将要用浏览器的可执行文件的完全路径输入到这里，例如设置IE为默认浏览器：输入“C:\Program Files\Internet Explorer\iexplore.exe”
3、然后找到 HKEY_CLASSES_ROOT\http\shell\open\ddeexec\Application，在右边的窗口中双击"默认"，设置浏览器名，如果是Firefox则输入Firefox，如果是IE则输入IExplore。（小提示：切记不能写错名称，如果你不知道浏览器的标准名称是什么，只需要到安装目录下查看该浏览器的名称即可）
将以步骤用VB.net实现即可
Command()函数可获取启动时参数,一般用这个函数获取网址
winsock 发送图片，就是发送文件嘛。
不过UDP协议每次最多只能发送8K，所以你要先读取文件，建立以个byte（）数组 然后第一次发送是从数组的0-8100这个范围，下次再发送的时候将再从8101开始发送，长度仍未8100就可以了。用一个while 循环来判断文件有没有发送完成就行了。对于接收端，在接收的时候也是要用一个循环来写文件，前提是你必须先把要发送的文件的长度告诉接收端。说的够详细了吧！
imports System.IO
读取指定文件
'
'读取指定文本文件
Public Function readtext(ByVal path As String)
If path = "" Then
readtext = "操作失败！"
Exit Function
End If
Try
If File.Exists(path) = True Then
Dim fs As New FileStream(path, FileMode.Open)
Dim sr As New StreamReader(fs)
Dim str As String
str = sr.ReadToEnd.ToString
sr.Close()
fs.Close()
readtext = str
Else
readtext = "操作失败！"
End If
Catch ex As Exception
readtext = "操作失败！"
End Try
End Function
'向指定文件写入数据
Public Function writetext(ByVal path As String, ByVal opi As Integer, ByVal msg As String)
If path = "" Then
writetext = "操作失败！"
Exit Function
End If
Dim op As FileMode
Select Case opi
Case 1
op = FileMode.Append
Case 2
op = FileMode.Create
Case Else
op = FileMode.Create
End Select
Try
If File.Exists(path) = True Then
Dim fs As New FileStream(path, op)
Dim sr As New StreamWriter(fs)
sr.WriteLine(msg)
sr.Close()
fs.Close()
writetext = "操作完成！"
Else
writetext = "操作失败！"
End If
Catch ex As Exception
writetext = "操作失败！"
End Try
End Function