189 8069 5689

关于vb.net的hwnd的信息

VB.net 获取控件句柄

Dim hwnd0 As Integer

站在用户的角度思考问题,与客户深入沟通,找到信宜网站设计与信宜网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:网站建设、网站制作、企业官网、英文网站、手机端网站、网站推广、空间域名、网页空间、企业邮箱。业务覆盖信宜地区。

Dim hwnd11 As Integer

第二个是你要生成EXE后 运行EXE

第三就是没好像没有文本框控件

在VB.NET中实现文件的拖放

本文介绍了在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如何通过窗口句柄显示窗口

首先声明一下API

在你窗口最顶的位置上写上

Private Declare Function 取窗口句柄 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'由于VB支持中文的 我就定义成 取窗口句柄 这个了

'在窗体中添加一个按钮里面放进下面代码就OK了

Private Sub Command1_Click()

Dim 窗口句柄 As Long '声明窗口句柄变量存储

窗口句柄 = 取窗口句柄(vbNullString, "新建 文本文档.txt - 记事本") '取窗口标题的句柄 把得到窗口标题句柄赋予给刚才 窗口句柄 这变量里

If 窗口句柄 = 0 Then '判断窗口句柄是否等于0 如果等于0表示无法找到窗口句柄

MsgBox "无法找到需要的窗口句柄"

Else

MsgBox "已找到窗口句柄 句柄数为:" 窗口句柄

End If

End Sub


分享标题:关于vb.net的hwnd的信息
文章分享:http://jkwzsj.com/article/ddoisjo.html

其他资讯