元ネタ：'祭り'を仕掛けてみるテスト
VBと言われて吊られてみる。
「ツンデレ」と言われて、なぜかFriendキーワードを思い出したので書いてみた。
おんなじモジュール内の恋人だとウザいデレ心を表に、知らないおさーんにはデレ心を直接見せませんｗ
'namespace:切れ長の女
Public Class ツン
Friend Class デレ'ツン女の中に眠るデレな心
Public Sub New()
Console.WriteLine("あなたが好き☆")'無限ループにしてたけれど、やめたｗ
End Sub
End Class
Public Sub New(ByVal sz秘密の言葉 As String) '罵倒して心を開いてみる
If sz秘密の言葉="この「ヲタージョビッチ (エセ) メンヘラチビデブスイーツ(笑)」" Then
Dim someone = New デレ() 'Friendクラスの公開
Else : disrespect() : End If
End Sub
Public Sub New()
disrespect()
End Sub
Private Sub disrespect()
Console.WriteLine("おとといおいで、この豚野郎")
End Sub
End Class
Module 恋人
Sub Main()
Dim honey = New ツン()
Dim honey2 = New ツン.デレ() '同じモジュールにいるFriendだからOK
Dim honey3 = New ツン("この「ヲタージョビッチ (エセ) メンヘラチビデブスイーツ(笑)」")
End Sub
End Module
'namespace:おさーん
Imports 切れ長の目の女
Module おっさん
Sub Main()
Dim lady = New ツン()
'Dim honey1 = New ツン.デレ() 'Friend指定されていて、違う実行ファイルなのでコンパイルエラー
Dim honey2 = New ツン("この「ヲタージョビッチ (エセ) メンヘラチビデブスイーツ(笑)」")
End Sub
End Module