1、实现上传按钮方法代码。
创新互联公司主要为客户提供服务项目涵盖了网页视觉设计、VI标志设计、营销网站、网站程序开发、HTML5响应式重庆网站建设公司、成都做手机网站、微商城、网站托管及成都企业网站维护、WEB系统开发、域名注册、国内外服务器租用、视频、平面设计、SEO优化排名。设计、前端、后端三个建站步骤的完善服务体系。一人跟踪测试的建站服务标准。已经为搬家公司行业客户提供了网站设计服务。
2、判断图片对象是否为空代码。
3、取得数据库字段 dt.Rows(0)("Pic")方法代码。
4、字节数组转换为Image类型方法代码。
5、处理SQL中操作Image类型方法代码。
6、实现的上传结果。
VB.net是微软最新平台技术，是.netframeworkSDK的一种语言。VB.net和VC#.net在功能上没有区别。编译以后生成的可执行文件被称为Assembly，即
程序集
。
如果是托管的Dll或则com组件类，直接在项目上添加这个DLL的引用\x0d\x0a如果是非托管的，已API函数方式调用的DLL，使用DllImport方式申明DLL函数\x0d\x0a\x0d\x0a不过一般这种情况是吧IP地址等配置信息写在配置文件里面，若XML，INI，应用程序配置文件等方式\x0d\x0a\x0d\x0a配置文件用户可以直接打开查看，连接字符串写在那里，数据库就不安全了。
本文介绍了在VB NET中如何实现接受拖放的文件 即从资源管理器中拖放到应用程序中的时候 自动获取拖放的文件 文中的例子是一个接受拖放文件显示文件内容的VB NET实例程序 引言
对于文本格式的文件 我们可以直接拖到记事本中就可以看到内容 各种类型的图片 拖到Photoshop中 就可以直接对其编辑 我们如何在VB NET开发的程序也实现上述效果呢？
思路
我们知道 每一个Windows的应用程序都有一个消息队列 程序的主体接受系统的消息 然后分发出去（给一个form 或者一个控件） 接受者有相应的程序来处理消息 在 NET的Form中 默认情况下程序是不翻译这些消息的 也就是说默认我们的Class是不加入应用程序的消息泵 能不能把我们的Form Class加入应用程序的消息泵呢？可以！
在 NET中 任何一个实现IMessageFilter 接口的类 可以添加到应用程序的消息泵中 以在消息被调度到控件或窗体之前将它筛选出来或执行其他操作 使用 Application 类中的 AddMessageFilter 方法 可以将消息筛选器添加到应用程序的消息泵中
于是我们在程序加载的时候 调用Application AddMessageFilter（Me） 然而 默认情况下一个Form或者控件是不能接受拖放的文件的 我们调用一个WIN API DragAcceptFiles源码天空 这个API可以设置对应的控件是否能接受拖放的文件 然后可以用DragQueryFile查询拖放到的文件列表 也就是拖放文件地具体路径和文件名
代码
Imports System Runtime InteropServices
Public Class Form
Inherits System Windows Forms Form
Implements IMessageFilter
API申明
Const WM_DROPFILES = H 拖放文件消息
DllImport（ shell dll ） Public Shared Sub DragFinish（ByVal hDrop As Integer）
End Sub
DllImport（ shell dll ） Public Shared Sub DragAcceptFiles（ByVal hwnd As Integer ByVal fAccept As Boolean）
End Sub
DllImport（ shell dll ） Public Shared Function DragQueryFile（ByVal HDROP As Integer ByVal UINT As Integer ByVal lpStr As System Text StringBuilder ByVal ch As Integer） As Integer
End Function
Private Sub Form _Load（ByVal sender As System Object ByVal e As System EventArgs） Handles MyBase Load
Application AddMessageFilter（Me）
DragAcceptFiles（TextBox Handle ToInt True）
End Sub
Function PreFilterMessage（ByRef m As Message） As Boolean Implements IMessageFilter PreFilterMessage
If m Msg = WM_DROPFILES Then
设置拖放的动作
Dim nfiles As Int
nfiles = DragQueryFile（m WParam ToInt Nothing ）
Dim i As Int
Dim *** As New System Text StringBuilder（ ）
Dim sFirstFileName As String 记录第一个文件名
TextBox Clear（）
For i = To nfiles
DragQueryFile（m WParam ToInt i *** ）
If i = Then sFirstFileName = *** ToString
TextBox AppendText（ControlChars CrLf *** ToString）
Next
DragFinish（m WParam ToInt ） 拖放完成
显示文件内容
Dim fs As New System IO FileStream（sFirstFileName IO FileMode Open）
Dim sr As New System IO StreamReader（fs System Text Encoding GetEncoding（ gb ））
TextBox AppendText（ControlChars CrLf sr ReadToEnd（） ToString）
fs Close（）
sr Close（）
End If
Return False
End Function
Protected Overloads Overrides Sub Dispose（ByVal disposing As Boolean）
If disposing Then
If Not （ponents Is Nothing） Then
ponents Dispose（）
End If
End If
Application RemoveMessageFilter（Me）
DragAcceptFiles（TextBox Handle ToInt False）
MyBase Dispose（disposing）
End Sub
lishixinzhi/Article/program/net/201311/13043
您是否曾经希望了解如何检索要在您自己的应用程序中使用的特定文件的属性？如果您要在 VB NET 中开发的应用程序依赖于特定的环境 那么在执行程序中的代码之前 您需要检查文件的属性 例如 您可能需要了解特定文件随之发行的产品 或者是文件的版本号 在 VB NET 中 借助 GetVersionInfo 方法和 FileVersionInfo 类 要获得这些信息简直易如反掌 如果启动 Windows 资源管理器 右击一个文件名 然后从弹出式菜单中选择 属性 则会看到该文件的 属性 窗口 属性 窗口显示了选定文件的有关信息 假设您在任务管理器的 TASKMAN EXE 文件名上右击 图 显示了该文件的 属性 对话框
)this style width= ;
通过使用 FileVersionInfo 类 您可以在 VB NET 应用程序中提供相同的功能 根据应用程序的需要 您可以复制 属性 对话框中显示的全部信息 也可以复制其中的一部分 图 显示了我们将要创建的应用程序 它将用来复制 属性 对话框中显示的部分信息
image javascript:return big(this) src= //img educity cn/img_ / / / jpg javascript:if(this width )this style width= ;
要创建演示程序 请启动 VB NET 并开始一个名为 Retrieving File Properties（检索文件属性）的新项目 按照图 所示 向 Form 添加七个文本框控件 七个标签控件和一个按钮控件 接下来 将以下代码添加到 Get Properties（获取属性）按钮的 Click 事件
borderColorDark=#ffffff cellPadding= width= align=center borderColorLight=black border= e e
Private Sub Button _Click(ByVal sender _As System Object ByVal e As System EventArgs) _Handles Button Click 获取记事本的文件版本Dim FileProperties As FileVersionInfo = FileVersionInfo GetVersionInfo( C:\WINNT\taskman exe ) 检索文件说明（名称）TextBox Text = FileProperties FileDescription 检索文件版本TextBox Text = FileProperties FileVersion 检索文件的内部名称TextBox Text = FileProperties InternalName 检索文件的旧名称TextBox Text = FileProperties OriginalFilename 检索产品名称TextBox Text = FileProperties ProductName 检索产品版本TextBox Text = FileProperties ProductVersion 检索语言TextBox Text = FileProperties LanguageEnd Sub
现在 按 F 键执行该应用程序 当您单击 Get Properties（获取属性）按钮时 程序将显示 TASKMAN EXE 文件的有关信息 如图 中所示
Get Properties（获取属性）按钮的 Click 事件代码调用 GetVersionInfo 方法 该方法返回一个 FileVersionInfo 类 其中包括您所指定的文件的所有版本信息 您需要向 GetVersionInfo 方法提供一个完全限定的文件 如果没有指定正确的路径名 则该方法仅返回文件名本身 而不返回文件信息 调用 GetVersionInfo 后 就像我们在演示程序中所做的一样 只需通过类就可以检索特定的属性 FileVersionInfo 类包含很多属性 您可以通过查询这些属性来检索文件信息 表 仅显示了我们在演示程序中查询的属性 但是可以在 MSDN 中通过搜索 FileVersionInfo 类说明找到完整的列表 表 FileVersionInfo 类可以使用的属性
cellSpacing= cellPadding= width= border= %
属性
%
说明
%
FileDescription
%
检索指定文件的说明
%
FileVersion
%
检索指定文件的版本号
%
InternalName
%
检索指定文件的内部名称 （并不是所有的文件都关联有内部名称 ）
%
OriginalFilename
%
检索指定文件在首次创建时最初被赋予的名称
%
ProductName
%
检索指定文件的产品名称 它是此文件随之发行的产品的名称 （并不是所有的文件都关联有产品名称 ）
%
ProductVersion
%
检索指定文件的产品版本 它是 ProductName 属性的版本
%
Language
%
检索指定文件的版本资源中的 Microsoft 语言标识符（显示为字符串）
lishixinzhi/Article/program/net/201311/12277
以下内容放到vb net中直接调用 Public Class ReadWriteIniClassPrivate Declare Function GetPrivateProfileString Lib kernel Alias GetPrivateProfileStringA (ByVal lpApplicationName As String ByVal lpKeyName As String ByVal lpDefault As String ByVal lpReturnedString As String ByVal nSize As Int ByVal lpFileName As String) As Int Private Declare Function WritePrivateProfileString Lib kernel Alias WritePrivateProfileStringA (ByVal lpApplicationName As String ByVal lpKeyName As String ByVal lpString As String ByVal lpFileName As String) As Int
Private Declare Function GetPrivateProfileStringW Lib kernel Alias GetPrivateProfileStringW (ByVal lpApplicationName As String ByVal lpKeyName As String ByVal lpDefault As String ByVal lpReturnedString As String ByVal nSize As Int ByVal lpFileName As String) As Int Private Declare Function WritePrivateProfileStringW Lib kernel Alias WritePrivateProfileStringW (ByVal lpApplicationName As String ByVal lpKeyName As String ByVal lpString As String ByVal lpFileName As String) As Int mbcsPublic Shared Function GetINI(ByVal Section As String ByVal AppName As String ByVal lpDefault As String ByVal FileName As String) As StringDim MyEncoder As System Text Encoding = System Text Encoding DefaultDim chars( ) As CharDim strResult As String = New String(chars)Dim length As Integer = GetPrivateProfileString(Section AppName lpDefault strResult Len(strResult) FileName) 编码的转换Dim rByte() As Byte = System Text Encoding Default GetBytes(strResult ToCharArray)strResult = New String(MyEncoder GetChars(rByte))Return Microsoft VisualBasic Left(strResult InStr(strResult Chr( )) )End Function 写文件Public Shared Function WriteINI(ByVal Section As String ByVal AppName As String ByVal lpDefault As String ByVal FileName As String) As LongWriteINI = WritePrivateProfileString(Section AppName lpDefault FileName)End Function
unicodePublic Shared Function GetINIW(ByVal Section As String ByVal AppName As String ByVal lpDefault As String ByVal FileName As String) As StringDim MyEncoder As System Text Encoding = System Text Encoding DefaultDim strResult As StringDim chars( ) As CharstrResult = CStr(chars)GetPrivateProfileStringW(Section AppName lpDefault strResult Len(strResult) FileName)
lishixinzhi/Article/program/ASP/201311/21763
