vb.net?怎么實(shí)現(xiàn)多個(gè)控件共同使用一個(gè)變量

把變量定義時(shí)增加Shared關(guān)鍵字即可.如:

創(chuàng)新互聯(lián)公司主營(yíng)蒲江縣網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,成都App制作,蒲江縣h5小程序開發(fā)搭建,蒲江縣網(wǎng)站營(yíng)銷推廣歡迎蒲江縣等地區(qū)企業(yè)咨詢

Private

Shared

AAA

As

String

Public

Shared

AAA

As

String

......

這樣AAA在一個(gè)應(yīng)用程序里就是公用的.

------------------------------------------------------

補(bǔ)充:

不可能沒(méi)用,我都是這樣做的.

該控件使用中,自己看吧:

Public

Class

CMB_MemoryTextBox

Inherits

TextBox

#Region

"

變量定義

"

Private

Shared

p_HisData

As

STRU_DATA

'用數(shù)據(jù)表保存所有控件的歷史記錄

Private

Shared

p_FileName

As

String

'保存歷史記錄的文件名

......

VB.net中窗體上控件太多，運(yùn)行時(shí)在桌面上顯示不全，怎樣用滾動(dòng)條來(lái)解決？請(qǐng)?jiān)敿?xì)說(shuō)明，最好給個(gè)小例子。

思路：

利用幾個(gè)可以作為容器的控件，添加滾動(dòng)條就可以了：

我舉個(gè)例子：（這個(gè)問(wèn)題我記得回答過(guò)的?。?/p>

添加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)容為可見了。

要設(shè)置PicTureBox2的AutoRedraw 屬性為True。

若要左右移動(dòng)效果，那么改變其 Left 屬性，原理不再贅述了。

VB多頁(yè)控件問(wèn)題

正確的：

Dim i As Integer

Dim j As Integer

Private Sub CommandButton2_Click()

For i = 0 To MultiPage1.Count - 1 '遍及數(shù)組

MsgBox "MultiPage1.Pages(i).Caption = " MyTextBox1.Text

Next i

End Sub

Private Sub UserForm_Initialize()

j = 1

Me.MultiPage1.Pages.Add.Caption = 1

Call tianjia

End Sub

Private Sub CommandButton1_Click()

i = i + 1

j = j + 1

Me.MultiPage1.Pages.Add.Caption = j

Call tianjia

End Sub

Public Sub tianjia()

Set MyTextBox1 = MultiPage1.Pag44(i).Controls.Add("Forms.TextBox.1", "TextBox1")

MyTertBox1.Left = 40

MyTextBox1.Top = 17

MyTextBox1.Width = 148

MyTextBox1.Height = 18

End Sub

VB怎樣調(diào)出"多頁(yè)控件"？

在控件欄點(diǎn)右鍵,點(diǎn)"添加選項(xiàng)卡",輸入個(gè)名稱,確定,然后就增加了一個(gè)頁(yè),將你要用的控件按住不放,拖動(dòng)到新建的選項(xiàng)卡里就OK了.

新聞名稱：vb.net多頁(yè)控件,vb多窗體設(shè)計(jì)實(shí)例
文章轉(zhuǎn)載：http://chinadenli.net/article14/heehge.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)頁(yè)設(shè)計(jì)公司、App設(shè)計(jì)、軟件開發(fā)、商城網(wǎng)站、云服務(wù)器、靜態(tài)網(wǎng)站

廣告

聲明：本網(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í)需注明來(lái)源： 創(chuàng)新互聯(lián)