建站
咨詢
售后
建站咨詢
新聞中心
vb.net 動態(tài)控件如何實現(xiàn)拖動功能
VB.NET沒寫過，C#的倒是經(jīng)常用，你看看能不能有所啟發(fā)
專注于為中小企業(yè)提供成都網(wǎng)站制作、成都網(wǎng)站建設(shè)服務(wù),電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)井研免費做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動了近千家企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(wǎng)站建設(shè)實現(xiàn)規(guī)模擴充和轉(zhuǎn)變。
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.....???//位置設(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)按下開始計算
{
br=true;
}
void?btn_mouseleave(object?sender,MouseEventArgs?e)?//鼠標(biāo)移開就結(jié)束
{
br=false;
}
void?btn_mouseup(object?sender,MouseEventArgs?e)?//鼠標(biāo)彈起也會結(jié)束
{
br=false;??//跟移開不重復(fù)，你按下不松手去按另一個發(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的變化
如果是做小游戲，建議弄成類吧，把其中的左（右）移或?qū)瞧渌苿优善浣涌冢员悴僮鳌?/p>
由于涉及內(nèi)容太多，不再詳述。原理都一樣
網(wǎng)站欄目：vb.net的滑動控件 vb實現(xiàn)控件四處移動
新聞來源：http://www.dlmjj.cn/article/dooiece.html
