日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間:8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
全面分析VB.NET窗體指針

本文向大家介紹VB.NET窗體指針,可能好多人還不了解VB.NET窗體指針,沒有關(guān)系,看完本文你肯定有不少收獲,希望本文能教會(huì)你更多東西。

創(chuàng)新互聯(lián)建站-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比路橋網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式路橋網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們,業(yè)務(wù)覆蓋路橋地區(qū)。費(fèi)用合理售后完善,十余年實(shí)體公司更值得信賴。

VB.NET窗體指針在項(xiàng)目中的傳遞

除了把窗體實(shí)例全局化以外,你還可以把VB.NET窗體指針保存在變量中傳遞給需要訪問該窗體的例程。假設(shè)你有一個(gè)窗體 Form1,并希望在點(diǎn)擊 Form1 中某個(gè)按鈕 (Button1) 時(shí)打開另第二窗體 Form2 ,然后在點(diǎn)擊第二窗體 Form2 中的另一個(gè)按鈕 (Button2) 時(shí)進(jìn)行某項(xiàng)計(jì)算。你可以把整個(gè)代碼都寫在 Form1 中,即:

 
 
 
  1. Public Class Form1  
  2. Inherits System.Windows.Forms.Form  
  3. Dim myForm2 As Form2  
  4.  
  5. Private Sub Button1_Click(ByVal sender As System.Object, _  
  6. ByVal e As System.EventArgs) Handles Button1.Click  
  7. myForm2 = New Form2()  
  8. myForm2.Show()  
  9. End Sub  
  10.  
  11. Private Sub Button2_Click(ByVal sender As System.Object, _  
  12. ByVal e As System.EventArgs) Handles Button2.Click  
  13. Calculations.CompoundInterestCalc(myForm2)  
  14. End Sub  
  15. End Class  

無論是把VB.NET窗體指針全局化,還是把它以參數(shù)的形式傳遞,都是可行的。然而,你必須根據(jù)項(xiàng)目的需要選擇***方案。當(dāng) .NET 項(xiàng)目中只有少數(shù)幾個(gè)過程需要訪問特定窗體時(shí),我建議你給這些過程增加一個(gè)參數(shù),以在必要時(shí)接受VB.NET窗體指針。當(dāng)你的項(xiàng)目有太多過程需要訪問該窗體時(shí),你就應(yīng)該考慮設(shè)置一個(gè)全局VB.NET窗體指針變量。當(dāng)然了,你***還是考慮調(diào)整項(xiàng)目代碼結(jié)構(gòu),使得真正訪問該窗體的類或者過程只有一個(gè)。如果你希望用窗體來顯示登錄信息,則你可以先創(chuàng)建一個(gè)類,把窗體實(shí)例保存為它的 Shared 類成員,然后添加一個(gè) Shared 方法 WriteToLogWindow 來完成實(shí)際的窗體訪問。于是,項(xiàng)目中的任何代碼只需調(diào)用此 WriteToLogWindow 方法就能間接訪問顯示登錄信息的窗體了:

 
 
 
  1. Public Class Log  
  2. Private Shared m_LogForm As Form2  
  3. Public Shared Property LogForm() As Form2  
  4. Get  
  5. Return m_LogForm  
  6. End Get  
  7. Set(ByVal Value As Form2)  
  8. m_LogForm = Value 
  9. End Set  
  10. End Property  
  11.  
  12. Public Shared Sub WriteToLogWindow(ByVal Message As String)  
  13. Dim sb As New _  
  14. StringBuilder(m_LogForm.txtLogInfo.Text)  
  15. sb.Append(Environment.NewLine)  
  16. sb.Append(Message)  
  17. m_LogForm.txtLogInfo.Text = sb.ToString()  
  18. End Sub  
  19. End Class  

分享標(biāo)題:全面分析VB.NET窗體指針
網(wǎng)頁鏈接:http://www.5511xx.com/article/cdiisho.html