My Developer Memo

001 Namespace My

002 

003     ''' <summary>

004     ''' 現在のプロジェクト情報に簡易にアクセスできる「My」オブジェクト機能のカスタマイズクラス

005     ''' </summary>

006     ''' <remarks>

007     ''' 「My.Application」の配下のメソッドしてIntellisenseに表示させることができる。

008     ''' </remarks>

009     Partial Friend Class myApplication

010 

011         Sub Show()

012             MessageBox.Show("My.Application.Show")

013         End Sub

014 

015     End Class

016 

017     ''' <summary>

018     ''' 「My」オブジェクトの配下にカスタムオブジェクトを追加するクラス

019     ''' </summary>

020     ''' <remarks>

021     ''' 「My」の配下のクラスとして表示させることができる。

022     ''' </remarks>

023     Public Class Demo

024 

025         Shared Sub Show()

026             MessageBox.Show("My.Demo.Show")

027         End Sub

028 

029     End Class

030 

031 End Namespace

001 Public Class Form1

002 

003     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

004         My.Application.Show()

005     End Sub

006 

007     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

008         My.Demo.Show()

009     End Sub

010 

011 End Class