vb.net 動(dòng)態(tài)控件如何實(shí)現(xiàn)拖動(dòng)功能

VB.NET沒(méi)寫過(guò)，C#的倒是經(jīng)常用，你看看能不能有所啟發(fā)

專注于為中小企業(yè)提供成都網(wǎng)站制作、成都網(wǎng)站建設(shè)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)井研免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了近千家企業(yè)的穩(wěn)健成長(zhǎng)，幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。

void?Creact()??//創(chuàng)建4*5格=20個(gè)按鈕的鍵盤

{

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.....???//位置設(shè)置

b.Text=CortoEnglist(i+j+65);//轉(zhuǎn)換字母鍵函數(shù)略寫

...

//加入鼠標(biāo)事件

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)??//鼠標(biāo)按下開(kāi)始計(jì)算

{

br=true;

}

void?btn_mouseleave(object?sender,MouseEventArgs?e)?//鼠標(biāo)移開(kāi)就結(jié)束

{

br=false;

}

void?btn_mouseup(object?sender,MouseEventArgs?e)?//鼠標(biāo)彈起也會(huì)結(jié)束

{

br=false;??//跟移開(kāi)不重復(fù)，你按下不松手去按另一個(gè)發(fā)現(xiàn)他就不會(huì)彈起，所以要加這個(gè)事件

}

void?btn_mousemove(object?sender,MouseEventArgs?e)?//按下?tīng)顟B(tài)拖動(dòng)就有效

{

if(br==true)

{

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

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

}

}這樣我I就給一組按鈕加了拖動(dòng)狀態(tài)

VB.NET WPF里如何通過(guò)SLIder控件滑動(dòng)控制三維圖形移動(dòng)

Canvas Name="LayoutRoot" Background="LightGray"

!-- Create an Ellipse --

Ellipse Name="mcCircle" Width="200" Height="200"

Canvas.Left="60" Canvas.Top="20"

Fill="Gray" Stroke="Black" StrokeThickness="2"

/Ellipse

!-- Create Slider controls --

Slider Name="RedSlider" Width="300" Height="20"

Background="Red" Maximum="255" Minimum="0"

Canvas.Left="30" Canvas.Top="240"

ValueChanged="RedSlider_ValueChanged"/

Slider Name="GreenSlider" Width="300" Height="20"

Background="Green" Maximum="255" Minimum="0"

Canvas.Left="30" Canvas.Top="270"

ValueChanged="GreenSlider_ValueChanged"/

Slider Name="BlueSlider" Width="300" Height="20"

Background="Blue" Maximum="255" Minimum="0"

Canvas.Left="30" Canvas.Top="300"

ValueChanged="BlueSlider_ValueChanged"/

/Canvas

private void RedSlider_ValueChanged(object sender,RoutedPropertyChangedEventArgsdouble e)

{

UpdateCircleWithColors();

}

private void GreenSlider_ValueChanged(object sender,RoutedPropertyChangedEventArgsdouble e)

{

UpdateCircleWithColors();

}

private void BlueSlider_ValueChanged(object sender,RoutedPropertyChangedEventArgsdouble e)

{

UpdateCircleWithColors();

}

private void UpdateCircleWithColors()

{

Color clr = Color.FromArgb(255, Convert.ToByte(RedSlider.Value),

Convert.ToByte(GreenSlider.Value), Convert.ToByte(BlueSlider.Value));

mcCircle.Fill = new SolidColorBrush(clr);

}

VB.NET有滾動(dòng)條控件嗎

有：

HScrollBar ?---- 水平滾動(dòng)條

VScrollBar ---- 垂直滾動(dòng)條

vb.net實(shí)現(xiàn)控件自由移動(dòng)

Dim i As Integer

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

Button1.Left += 1

Windows.Forms.Application.DoEvents()

Next

原理:不斷地變化button1的X軸，使其向右移，同樣，只要控制好其x,y軸，就可以變化button的變化

如果是做小游戲，建議弄成類吧，把其中的左（右）移或?qū)瞧渌苿?dòng)弄成其接口，以便操作。

由于涉及內(nèi)容太多，不再詳述。原理都一樣

網(wǎng)站標(biāo)題：vb.net的滑動(dòng)控件 vb實(shí)現(xiàn)控件四處移動(dòng)
網(wǎng)頁(yè)網(wǎng)址：http://www.ekvhdxd.cn/article24/dooiece.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供關(guān)鍵詞優(yōu)化、服務(wù)器托管、面包屑導(dǎo)航、用戶體驗(yàn)、做網(wǎng)站、靜態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)