童鞋,我是不是看到你的數(shù)據(jù)庫(kù)sa賬號(hào)密碼了,希望你已經(jīng)改了密碼。。。

創(chuàng)新互聯(lián)專注于企業(yè)營(yíng)銷型網(wǎng)站建設(shè)、網(wǎng)站重做改版、海鹽網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、H5技術(shù)、電子商務(wù)商城網(wǎng)站建設(shè)、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)營(yíng)銷網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁(yè)設(shè)計(jì)等建站業(yè)務(wù),價(jià)格優(yōu)惠性價(jià)比高,為海鹽等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
重啟一下vs,看是否會(huì)恢復(fù)正常
控件(包括字體)隨窗體按比例縮放
Public?Class?frmDl'根據(jù)自己窗體名變更
Dim?x?As?Single?=?0
Dim?y?As?Single?=?0
Private?Sub?frmDl_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
x?=?Me.Width
y?=?Me.Height
setTag(Me)
End?Sub
'遞歸取控件的原始大小和位置,用tag來紀(jì)錄
Private?Sub?setTag(ByVal?obj?As?Object)
For?Each?con?As?Control?In?obj.Controls
con.Tag?=?con.Width??":"??con.Height??":"??con.Left??":"??con.Top??":"??con.Font.Size
'如果是容器控件,則遞歸繼續(xù)紀(jì)錄
If?con.Controls.Count??0?Then
setTag(con)
End?If
Next
End?Sub
'遞歸重新設(shè)定控件的大小和位置
Private?Sub?setControls(ByVal?newx?As?Single,?ByVal?newy?As?Single,?ByVal?obj?As?Object)
For?Each?con?As?Control?In?obj.Controls
con.AutoSize?=?False
Dim?mytag()?As?String?=?con.Tag.ToString.Split(":")
con.Width?=?mytag(0)?*?newx
con.Height?=?mytag(1)?*?newy
con.Left?=?mytag(2)?*?newx
con.Top?=?mytag(3)?*?newy
'計(jì)算字體縮放比例,縮放字體
Dim?currentSize?As?Single?=?(mytag(1)?*?newy?*?mytag(4))?/?mytag(1)
con.Font?=?New?Font(con.Font.Name,?currentSize,?_
con.Font.Style,?con.Font.Unit)
'如果是容器控件,則遞歸繼續(xù)縮放
If?con.Controls.Count??0?Then
setControls(newx,?newy,?con)
End?If
Next
End?Sub
Private?Sub?frmDl_Resize(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Me.Resize
'得到現(xiàn)在窗體的大小,然后根據(jù)原始大小計(jì)算縮放比例
Dim?newx?As?Single?=?Me.Width?/?x
Dim?newy?As?Single?=?Me.Height?/?y
setControls(newx,?newy,?Me)
End?Sub
End?Class
沒有環(huán)境無法準(zhǔn)確幫你找,只能大概說下類似的軟件。如果有視圖(view)之類菜單下,一般都會(huì)有狀態(tài)欄信息欄等,勾選出來就能出現(xiàn)快捷菜單了。
表示剛才親自測(cè)試,建立以個(gè)Form,拖了一個(gè)Panel,在Panel里面放了3個(gè)RadioButton(默認(rèn)Checked就是False),然后啟動(dòng),發(fā)現(xiàn)第一個(gè)被選中了,
然后雙擊了一下它,跳到代碼頁(yè)面,在啟動(dòng),第二個(gè)被選中,雙擊第二個(gè)和第三個(gè),此時(shí)再代碼一面出現(xiàn)了3個(gè)按鈕的事件,在三個(gè)事件都設(shè)好斷點(diǎn),啟動(dòng)程序,發(fā)現(xiàn)3個(gè)都沒有被選中了,而且也沒執(zhí)行任何一個(gè)事件。
有tabControl 控件啊,如果你的“工具箱里沒有的話,”自己去工具箱的選項(xiàng)里把它勾選出來。
updown 可以自己寫一個(gè)控件出來,用一個(gè)文本框加一個(gè)滾動(dòng)條或兩個(gè)按鈕就好。
不能實(shí)現(xiàn),listbox沒必要有此功能。
因?yàn)閘istbox被視為一個(gè)整體,其每一項(xiàng)背景顏色都根據(jù)鼠標(biāo)移上去而改變。
分享題目:vb.net控件恢復(fù),怎么使vb窗口恢復(fù)默認(rèn)
網(wǎng)站地址:http://chinadenli.net/article23/dsghdjs.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供服務(wù)器托管、品牌網(wǎng)站設(shè)計(jì)、定制網(wǎng)站、網(wǎng)站策劃、企業(yè)網(wǎng)站制作、網(wǎng)站設(shè)計(jì)公司
聲明:本網(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í)需注明來源: 創(chuàng)新互聯(lián)