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

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

新聞中心

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

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

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

VB.NET窗體指針在項目中的傳遞

除了把窗體實例全局化以外,你還可以把VB.NET窗體指針保存在變量中傳遞給需要訪問該窗體的例程。假設(shè)你有一個窗體 Form1,并希望在點擊 Form1 中某個按鈕 (Button1) 時打開另第二窗體 Form2 ,然后在點擊第二窗體 Form2 中的另一個按鈕 (Button2) 時進行某項計算。你可以把整個代碼都寫在 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ù)項目的需要選擇***方案。當 .NET 項目中只有少數(shù)幾個過程需要訪問特定窗體時,我建議你給這些過程增加一個參數(shù),以在必要時接受VB.NET窗體指針。當你的項目有太多過程需要訪問該窗體時,你就應(yīng)該考慮設(shè)置一個全局VB.NET窗體指針變量。當然了,你***還是考慮調(diào)整項目代碼結(jié)構(gòu),使得真正訪問該窗體的類或者過程只有一個。如果你希望用窗體來顯示登錄信息,則你可以先創(chuàng)建一個類,把窗體實例保存為它的 Shared 類成員,然后添加一個 Shared 方法 WriteToLogWindow 來完成實際的窗體訪問。于是,項目中的任何代碼只需調(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  

網(wǎng)頁題目:全面分析VB.NET窗體指針
網(wǎng)站URL:http://m.5511xx.com/article/cdiisho.html