vb点虐 拖拽到桌面 vb窗体移动到右上角
vb点虐 怎么把程序做成快捷方式放在桌面上
一种是打包成安装文件,比较简单;另一种是使用压缩软件做成自解压的绿色软件,现在网络上很多都是这种类型的绿色软件,但是这种方式要确保被安装的机器上需要安装有相对应的.NET平台,否则还是无法运行。
创新互联建站提供成都做网站、成都网站制作、网页设计,品牌网站设计,1元广告等致力于企业网站建设与公司网站制作,10余年的网站开发和建站经验,助力企业信息化建设,成功案例突破成百上千,是您实现网站建设的好选择.
在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点虐 如何做一个类似手机桌面的效果,就是可以托一下就换一个桌面,还要有拖动的效果。
我晕。。。
1楼,楼主说的是类似手机桌面,不是说些手机程序(虽然点虐 确实可以写手机程序(蛋疼。。))
2楼,为啥不直接改变容器的Left。。。。
切入正题,大致思路:
用一个容器,如Panel来盛装所有控件,Panel的MouseMove事件中通过e.Button判断左键按下来实现拖动的效果,然后在计时器中更改Panel的Location。(这样做很简单,但效率非常低)
要流畅的话,就自己写一个容器控件,内部的子控件全部自己绘制(实现一些轻量级的控件类),不过工作量较大
Visual studio(简称VB.NET)PictureBox里有一副图片,怎样拖出桌面生成一个图片文件阿。
貌似这样做不到,因为拖到桌面以后,就是系统来处理这个事件了,脱离VB点虐 的掌控了。如果是从桌面拖文件到Picturebox里是可以的。
建议你可以在Picturebox上建立右键菜单,内容是“生成文件到桌面”,这样好做一点,不要自己找虐。
名称栏目:vb点虐 拖拽到桌面 vb窗体移动到右上角
浏览路径:http://scyanting.com/article/ddsgjgh.html