锐客网

  1. 首页 > 睿知 > it技术 > >

包含vb.net网页格式拖拽的词条

IT技术图书

vb.net textbox1选中的文本 ， 拖放到textbox2？很久没有上这里了，今天看到了这个问题 ， 尝试做了一个；
本例以源文本框TextBox1全部文字作为拖放文字为例，实现拖放
1、向一个窗体中添加两个文本框，分别名为TextBox1，TextBox2 。注意：把TextBox2控件的AllowDrop属性设置成True ， 这点不要遗漏 。
2、完整的代码如下：
Public Class Form1
Private MouseIsDown As Boolean = False
Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
'设置一个标志以显示鼠标已按下 。
MouseIsDown = True
End Sub
Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove
If MouseIsDown Then
'开始拖动（将TextBox1的文本内容作为拖放内容） 。
TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy)
End If
MouseIsDown = False
End Sub
Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter
'检查正在被拖放的数据的格式 。
If (e.Data.GetDataPresent(DataFormats.Text)) Then
'显示复制光标（表示是拖放行为） 。
e.Effect = DragDropEffects.Copy
Else
'显示不放置光标（表示不是拖放行为） 。
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop
'粘贴文本（将拖放内容作为TextBox2的文本内容） 。
TextBox2.Text = e.Data.GetData(DataFormats.Text)
End Sub
End Class
求助vb.net拖拽文件到窗体获取文件信息这是一个简单的示例，你只需要新建一个项目，并在项目上放置一个文本框：TEXTBOX1，然后，将以下代码复制到代码区：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.AllowDrop = True
End Sub
''建拖曳事件，实现文件拖放
Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
Try
If e.Data.GetDataPresent(DataFormats.FileDrop) = True Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
Try
Dim filepaht As String() = e.Data.GetData(DataFormats.FileDrop)
For Each File As String In filepaht
textBox1.Text = File
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
如此，在文本框里将会出现被拖曳文件的路径信息 。
vb.net 动态控件如何实现拖动功能VB.NET没写过，C#的倒是经常用 ， 你看看能不能有所启发
void Creact()//创建4*5格=20个按钮的键盘
{
const int width=Convert.ToInt32(this.panel1.Width/20);
const int height=Convert.ToInt32(this.panel1.Width/25);
for(int i=1;i=5;i++)
{
for(int j=1;j=4;j++)
{
Button b=new Button();
b.Name="btn"+i.ToString()+j.ToString();
b.Left=40*j;
b.Top=30*i;
b.....//位置设置
b.Text=CortoEnglist(i+j+65);//转换字母键函数略写
...
//加入鼠标事件
b.MouseDown+=new MouseHandler(btn_mousedown);
b.MouseUp+=new MouseHandler(btn_mouseup);
b.MouseLeave+=new MouseHandler(btn_mouseleave);
b.MouseMove+=new MouseHandler(btn_mousemove);
this.panel1.Controls.Add(b)
}
}

推荐阅读


上一篇：铭鑫巨无霸显卡怎么样，铭鑫显卡这个牌子怎么样

下一篇：显卡数字签名怎么看配置，显卡驱动 数字签名