<script type="text/javascript">
</script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
关键字 WM_DROPFILES VB. net
要让 VB. net相应外部 托拽来的文件,需处理WM_DROPFILES消息。
Private Declare Sub DragAcceptFiles Lib "shell32.dll" (ByVal hWnd As Int32, ByVal fAccept As Int32)
Private Declare Sub DragFinish Lib "shell32.dll" (ByVal hDrop As Int32)
Private Declare Function DragQueryFile Lib "shell32.dll" Alias "DragQueryFileA" (ByVal hDrop As Int32, ByVal UINT As Int32, ByVal lpStr As
String, ByVal ch As Int32) As Int32
Private Const WM_DROPFILES = &H233
Private Const MAX_LENGTH = 255
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg = WM_DROPFILES Then
DragFiles(m.WParam.ToInt32)
Exit Sub
End If
MyBase.WndProc(m)
End Sub
Private Sub DragFiles(ByVal hDrop As Int32)
Dim iReturn As Int32
Dim sFile As String
sFile = Space(MAX_LENGTH)
iReturn = DragQueryFile(hDrop, 0, sFile, MAX_LENGTH)
If iReturn Then
TextBox3.Text = sFile
PictureBox1.Image = Image.FromFile(Trim(TextBox3.Text))
DragFinish(hDrop)
End If
End Sub
我的代码只是适用于. net的PictureBox能用的图像文件噢!
seover="window.status='正文--
托拽
Explore中的
文件到
VB.
net的
窗口 40
Star(
原作)';return true">
<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript">
</script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
托拽
Explore中的
文件到
VB.
net的
窗口 40
Star(
原作)
关键字 WM_DROPFILES VB. net
要让 VB. net相应外部 托拽来的文件,需处理WM_DROPFILES消息。
Private Declare Sub DragAcceptFiles Lib "shell32.dll" (ByVal hWnd As Int32, ByVal fAccept As Int32)
Private Declare Sub DragFinish Lib "shell32.dll" (ByVal hDrop As Int32)
Private Declare Function DragQueryFile Lib "shell32.dll" Alias "DragQueryFileA" (ByVal hDrop As Int32, ByVal UINT As Int32, ByVal lpStr As
String, ByVal ch As Int32) As Int32
Private Const WM_DROPFILES = &H233
Private Const MAX_LENGTH = 255
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg = WM_DROPFILES Then
DragFiles(m.WParam.ToInt32)
Exit Sub
End If
MyBase.WndProc(m)
End Sub
Private Sub DragFiles(ByVal hDrop As Int32)
Dim iReturn As Int32
Dim sFile As String
sFile = Space(MAX_LENGTH)
iReturn = DragQueryFile(hDrop, 0, sFile, MAX_LENGTH)
If iReturn Then
TextBox3.Text = sFile
PictureBox1.Image = Image.FromFile(Trim(TextBox3.Text))
DragFinish(hDrop)
End If
End Sub
我的代码只是适用于. net的PictureBox能用的图像文件噢!
<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript">
</script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>