思路:
創(chuàng)新互聯(lián)建站是一家集網(wǎng)站建設(shè),坊子企業(yè)網(wǎng)站建設(shè),坊子品牌網(wǎng)站建設(shè),網(wǎng)站定制,坊子網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷(xiāo),網(wǎng)絡(luò)優(yōu)化,坊子網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè),幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力??沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿,時(shí)刻以成就客戶成長(zhǎng)自我,堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己,讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。
利用幾個(gè)可以作為容器的控件,添加滾動(dòng)條就可以了:
我舉個(gè)例子:(這個(gè)問(wèn)題我記得回答過(guò)的!)
添加1個(gè)PicTureBox1,作為容器
在PicTureBox1里添加PicTureBox2,在窗體上添加一個(gè)垂直滾動(dòng)條。
把你所謂的許多控件放到PicTureBox2里,滾動(dòng)條改變的是PicTureBox2在PicTureBox1里的Top屬性,我想你通過(guò)一定的空間想象力,可以想到效果了吧?
注意:默認(rèn)狀態(tài)設(shè)置PicTureBox2的Top屬性為0,當(dāng)該屬性為負(fù)值的時(shí)候,PicTureBox2顯示的效果是向上移動(dòng),即下面原來(lái)隱藏的內(nèi)容為可見(jiàn)了。
要設(shè)置PicTureBox2的AutoRedraw 屬性為T(mén)rue。
若要左右移動(dòng)效果,那么改變其 Left 屬性,原理不再贅述了。
有:
HScrollBar ?---- 水平滾動(dòng)條
VScrollBar ---- 垂直滾動(dòng)條
建立滾動(dòng)條的方法如下:
(1)將鼠標(biāo)移到ToolBox內(nèi)的WinForm標(biāo)簽頁(yè)的HscrollBar控件上,單擊鼠標(biāo)左鍵。
(2)將指針移至窗體中適當(dāng)?shù)奈恢?,按住鼠?biāo)左鍵并拖動(dòng)鼠標(biāo)將HscrollBar控件調(diào)整到合適的大小放開(kāi)左鍵。
(3)同樣,再在Form上設(shè)置一個(gè)VscrollBar控件。
VB.NET沒(méi)寫(xiě)過(guò),C#的倒是經(jīng)常用,你看看能不能有所啟發(fā)
void?Creact()??//創(chuàng)建4*5格=20個(gè)按鈕的鍵盤(pán)
{
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ù)略寫(xiě)
...
//加入鼠標(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)