vb.net拖动控件 vb拖动框的时候闪动

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

VB.net怎么实现控件拖动的时候显示里面的内容？

在控件的MouseDown事件中，记录控件的当前位置和鼠标坐标，并设置一个标志变量表示进入拖动状态;在MouseMove事件中，判断如果当前是拖动状态，则根据鼠标的当前坐标和MouseDown时的坐标计算出移动量，更改控件位置;在MouseUp事件中清除标志变量。

相关问答

Q1: 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)

}

public int Bealoon br=false; //判断是否按下全局变量

void btn_mousedown(object sender,MouseEventArgs e) //鼠标按下开始计算

{

br=true;

}

void btn_mouseleave(object sender,MouseEventArgs e) //鼠标移开就结束

{

br=false;

}

void btn_mouseup(object sender,MouseEventArgs e) //鼠标弹起也会结束

{

br=false; //跟移开不重复，你按下不松手去按另一个发现他就不会弹起，所以要加这个事件

}

void btn_mousemove(object sender,MouseEventArgs e) //按下状态拖动就有效

{

if(br==true)

{

((Button)sender).Left+=e.X;

((Button)sender).Top+=e.Y;

}

}这样我I就给一组按钮加了拖动状态

Q2: vb.net实现控件自由移动

Dim i As Integer

For i = 0 To Me.Width - Button1.Width 'me为容器，典型的是form1

Button1.Left += 1

Windows.Forms.Application.DoEvents()

原理:不断地变化button1的X轴，使其向右移，同样，只要控制好其x,y轴，就可以变化button的变化

如果是做小游戏，建议弄成类吧，把其中的左（右）移或对角其它移动弄成其接口，以便操作。

由于涉及内容太多，不再详述。原理都一样

Q3: VB.net怎么实现运行时鼠标拖动改变控件的大小啊

控件是可以显示在里面的，你只要加个label，把label的属性设为visualble=fause就行。设置鼠标经过头像的mouseHover和mouseLeave事件，当mouseHover时label的属性visualble=true，当mouseLeave时label的属性visualble=fause即可。窗体的鼠标事件可以设置控件的cursor属性，里面可以选择许多种鼠标图形。只要是正常的Form都可以改变窗体大小，但是无边框的窗体只能用函数改变或者设置属性，在debug后是不能改变的。拖动窗体需要在窗体的load时间里面写入当鼠标单击不放时的事件即可，不难。

Q4: VB下如何使用iPlotLibrary控件

VB.NET的iPlotLibrary控件是VB.NET最常用也最简单的一种控件。下面介绍一下如何使用iPlotLibrary控件。

新建一个VB.NET新程序

左侧工具箱选择‘iPlotLibrary’控件

中间桌布上拖动，放在中间

iPlotLibrary控件最常用的两个属性vb.net拖动控件：name。一般使用简写的Btn来代表iPlotLibrary按钮，IT业内的规定。

另一个常用的属性，Text。用来显示我们当前的按钮文字，默认是iPlotLibrary1。

双击iPlotLibrary控件属性，自动进入click事件。click事件的意思是只要单击iPlotLibrary控件，就会触发事件，这个事件就是代码中所写的要弹出的对话框hello worldvb.net拖动控件！

使用按键F5，调试运行。结果如下，这样便是成功了。

Q5: VB.NET如何实现无边框窗体拖动？如果能指定控件拖动更好希望能有一点分析使用VS2015

VB6.0写的，代码很简单，无意中写成的。应该可以参考。不需要任何api函数。在无边框窗体顶部中放入一个label标签。然后用label的 mouse down 和mouse move事件实现

Dim a, b As Single