代码
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 CrLfsr 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和C#有什么差异?还有它们的优点、缺点是什么?一、C#
--- 像VB一样简单vb.net有队列结构吗 , 像C++一样强大的新语
C#是第一流的面向组件的语言
由 Turbo Pascal, Delphi, and Visual J++的首席设计师Anders Hejlsberg 倾心3年设计
所有的语言元素都是真正的对象
开发强壮和可重用的软件
所有的.NET Framework中的基类库(Base Class Library)都由C# 编写
二、VB.NET
--- 完全面向对象的BASIC语言
1.新语言特性
完全面向对象–继承(Inheritance), 重载(overloading), 共享的成员, 结构化异常处理
强壮的语言 –严格的类型检查, 变量声明时初始化vb.net有队列结构吗 , 支持垃圾收集(Garbage collection)
强大 –支持委托(Delegates), free threadingvb.net有队列结构吗,Variant 数据类型被 Object 代替
2.与VB6一致的语法
三、2者的区别?
1.语法上的差异
例如循环的写法
VB.NET
For I = 1 To 10
‘ for loop
Next I
C#
For (i=1;i11;i++) {
// for loop
}
另外Visual Basic 对大小写不敏感,而C#是大小写敏感的 。
2.C# 具有但 Visual Basic 不具有的特性
指针, 移位操作符, 内嵌的文档(XML)
重载操作符
3.Visual Basic具有但 C# 不具有的特性
更丰富的语法: Events, Try…Catch, Select…Case, 实现 Interface
后期绑定(Late binding), 动态数组, 模块(modules), 可选参数, 参数属性(parameterized properties)
推荐阅读
- 斗鱼直播拜年视频,2021斗鱼春节晚会
- 包含没有广告如何营销的词条
- 火花视频app为什么危险,火花视频为什么看不了了
- 整合营销传播策略如何制定,整合营销传播策略制定的3W1H原则心得体会
- c语言如何定义图形函数 c语言是怎么写图形
- 普通网络怎么连接路由器,网络怎么连接无线路由器
- 用电脑做直播怎么连麦唱歌,直播怎么连电脑放音乐
- python算反三角函数 python反正弦函数
- 鸿蒙系统APP历史版本,鸿蒙旧版