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

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

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

void?Creact()??//創(chuàng)建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);//轉換字母鍵函數(shù)略寫

...

//加入鼠標事件

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;??//跟移開不重復，你按下不松手去按另一個發(fā)現(xiàn)他就不會彈起，所以要加這個事件

}

void?btn_mousemove(object?sender,MouseEventArgs?e)?//按下狀態(tài)拖動就有效

{

if(br==true)

{

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

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

}

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

VB.NET WPF里如何通過SLIder控件滑動控制三維圖形移動

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有滾動條控件嗎

有：

HScrollBar ?---- 水平滾動條

VScrollBar ---- 垂直滾動條

vb.net實現(xiàn)控件自由移動

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的變化

如果是做小游戲，建議弄成類吧，把其中的左（右）移或對角其它移動弄成其接口，以便操作。

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

網(wǎng)站標題：vb.net的滑動控件 vb實現(xiàn)控件四處移動
網(wǎng)頁網(wǎng)址：http://chinadenli.net/article24/dooiece.html

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

廣告

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