建站
咨詢
售后
建站咨詢
新聞中心
VB.net怎么實現(xiàn)運行時鼠標拖動改變控件的大小啊
控件是可以顯示在里面的，你只要加個label，把label的屬性設(shè)為visualble=fause就行。設(shè)置鼠標經(jīng)過頭像的mouseHover和mouseLeave事件，當mouseHover時label的屬性visualble=true，當mouseLeave時label的屬性visualble=fause即可。窗體的鼠標事件可以設(shè)置控件的cursor屬性，里面可以選擇許多種鼠標圖形。 只要是正常的Form都可以改變窗體大小，但是無邊框的窗體只能用函數(shù)改變或者設(shè)置屬性，在debug后是不能改變的。拖動窗體需要在窗體的load時間里面寫入當鼠標單擊不放時的事件即可，不難。
創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),安州企業(yè)網(wǎng)站建設(shè),安州品牌網(wǎng)站建設(shè),網(wǎng)站定制,安州網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,安州網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。
vb.net 動態(tài)控件如何實現(xiàn)拖動功能
VB.NET沒寫過，C#的倒是經(jīng)常用，你看看能不能有所啟發(fā)
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ù)略寫
...
//加入鼠標事件
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)?//鼠標移開就結(jié)束
{
br=false;
}
void?btn_mouseup(object?sender,MouseEventArgs?e)?//鼠標彈起也會結(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 控件拖動指定范圍內(nèi)？
你做好拖動了嗎？會拖動就好辦，控制邊界就好了，設(shè)定label能移動到的最大坐標和最小坐標。
我不太明白你要做什么，如果沒有特殊要求，重寫trackbar的部分功能即可
vb.net textbox1選中的文本，拖放到textbox2？
很久沒有上這里了，今天看到了這個問題，嘗試做了一個；
本例以源文本框TextBox1全部文字作為拖放文字為例，實現(xiàn)拖放
1、向一個窗體中添加兩個文本框，分別名為TextBox1，TextBox2。注意：把TextBox2控件的AllowDrop屬性設(shè)置成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
'設(shè)置一個標志以顯示鼠標已按下。
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的文本內(nèi)容作為拖放內(nèi)容）。
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
'檢查正在被拖放的數(shù)據(jù)的格式。
If (e.Data.GetDataPresent(DataFormats.Text)) Then
'顯示復(fù)制光標（表示是拖放行為）。
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
'粘貼文本（將拖放內(nèi)容作為TextBox2的文本內(nèi)容）。
TextBox2.Text = e.Data.GetData(DataFormats.Text)
End Sub
End Class
VB.net怎么實現(xiàn)控件拖動的時候顯示里面的內(nèi)容？
在控件的MouseDown事件中，記錄控件的當前位置和鼠標坐標，并設(shè)置一個標志變量表示進入拖動狀態(tài);在MouseMove事件中，判斷如果當前是拖動狀態(tài)，則根據(jù)鼠標的當前坐標和MouseDown時的坐標計算出移動量，更改控件位置;在MouseUp事件中清除標志變量。
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)容太多，不再詳述。原理都一樣
本文題目：vb.net控件拖動 c# 拖動控件
文章源于：http://www.dlmjj.cn/article/hhgohi.html
