definedsymbols.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 144 行

VB
144 行
字号 
Imports SystemClass DefinedSymbols    Shared Sub Main(ByVal args As String())        MYTYPE()        MyApplicationType()        MYCOMPUTERTYPE()        MYFORMS()        MYUSERTYPE()        MYWEBSERVICES()    End Sub    Shared Sub MyApplicationType()#If _MyApplicationType = "Console" Then        Console.WriteLine ("_MYAPPLICATIONTYPE=Console")#End If#If _MyApplicationType = "CONSOLE" Then        Console.WriteLine ("_MYAPPLICATIONTYPE=CONSOLE")#End If#If _MyApplicationType = "Windows" Then        Console.WriteLine ("_MYAPPLICATIONTYPE=Windows")#End If#If _MyApplicationType = "WINDOWS" Then        Console.WriteLine ("_MYAPPLICATIONTYPE=WINDOWS")#End If#If _MyApplicationType = "WindowsForms" Then        Console.WriteLine ("_MYAPPLICATIONTYPE=WindowsForms")#End If#If _MyApplicationType = "WINDOWSFORMS" Then        Console.WriteLine ("_MYAPPLICATIONTYPE=WINDOWSFORMS")#End If#If _MyApplicationType = "" Then        Console.WriteLine("_MYAPPLICATIONTYPE=")#End If    End Sub    Shared Sub MYCOMPUTERTYPE()#If _MYCOMPUTERTYPE = "Web" Then        Console.WriteLine ("_MYCOMPUTERTYPE=Web")#End If#If _MYCOMPUTERTYPE = "WEB" Then        Console.WriteLine ("_MYCOMPUTERTYPE=WEB")#End If#If _MYCOMPUTERTYPE = "Windows" Then        Console.WriteLine ("_MYCOMPUTERTYPE=Windows")#End If#If _MYCOMPUTERTYPE = "WINDOWS" Then        Console.WriteLine ("_MYCOMPUTERTYPE=WINDOWS")#End If#If _MYCOMPUTERTYPE = "" Then        Console.WriteLine("_MYCOMPUTERTYPE=")#End If    End Sub    Shared Sub MYFORMS()#If _MYFORMS = True Then        Console.WriteLine ("_MYFORMS=True")#End If#If _MYFORMS = False Then        Console.WriteLine("_MYFORMS=False")#End If#If _MYFORMS = "" Then        Console.WriteLine("_MYFORMS=")#End If    End Sub    Shared Sub MYUSERTYPE()#If _MYUSERTYPE = "Web" Then        Console.WriteLine ("_MYUSERTYPE=Web")   #End If#If _MYUSERTYPE = "WEB" Then        Console.WriteLine ("_MYUSERTYPE=WEB")#End If#If _MYUSERTYPE = "Windows" Then        Console.WriteLine ("_MYUSERTYPE=Windows")#End If#If _MYUSERTYPE = "WINDOWS" Then        Console.WriteLine ("_MYUSERTYPE=WINDOWS")#End If#If _MYUSERTYPE = "" Then        Console.WriteLine("_MYUSERTYPE=")#End If    End Sub    Shared Sub MYWEBSERVICES()#If _MYWEBSERVICES = True Then        Console.WriteLine ("_MYWEBSERVICES=True")#End If#If _MYWEBSERVICES = False Then        Console.WriteLine("_MYWEBSERVICES=False")#End If#If _MYWEBSERVICES = "" Then        Console.WriteLine("_MYWEBSERVICES=")#End If    End Sub    Shared Sub MYTYPE()#If _MYTYPE = "Console" Then        Console.WriteLine ("_MYTYPE=Console")   #End If#If _MYTYPE = "CONSOLE" Then        Console.WriteLine ("_MYTYPE=CONSOLE")#End If#If _MYTYPE = "Windows" Then        Console.WriteLine ("_MYTYPE=Windows")   #End If#If _MYTYPE = "WINDOWS" Then        Console.WriteLine ("_MYTYPE=WINDOWS")#End If#If _MYTYPE = "Custom" Then        Console.WriteLine ("_MYTYPE=Custom")   #End If#If _MYTYPE = "CUSTOM" Then        Console.WriteLine ("_MYTYPE=CUSTOM")#End If#If _MYTYPE = "Web" Then        Console.WriteLine ("_MYTYPE=Web")   #End If#If _MYTYPE = "WEB" Then        Console.WriteLine ("_MYTYPE=WEB")#End If#If _MYTYPE = "Empty" Then        Console.WriteLine ("_MYTYPE=Empty")#End If#If _MYTYPE = "EMPTY" Then        Console.WriteLine ("_MYTYPE=EMPTY")#End If#If _MYTYPE = "WebControl" Then        Console.WriteLine ("_MYTYPE=WebControl")#End If#If _MYTYPE = "WEBCONTROL" Then        Console.WriteLine ("_MYTYPE=WEBCONTROL")#End If#If _MYTYPE = "WindowsForms" Then        Console.WriteLine("_MYTYPE=WindowsForms")#End If#If _MYTYPE = "WINDOWSFORMS" Then        Console.WriteLine ("_MYTYPE=WINDOWSFORMS")#End If#If _MYTYPE = "WindowsFormsWithSubMain" Then        Console.WriteLine ("_MYTYPE=WindowsFormsWithSubMain")#End If#If _MYTYPE = "WINDOWSFORMSWITHSUBMAIN" Then        Console.WriteLine ("_MYTYPE=WINDOWSFORMSWITHSUBMAIN")#End If#If _MYTYPE = "" Then        Console.WriteLine ("_MYTYPE=")#End If    End SubEnd Class

definedsymbols.vb - 源码说明

本页面展示了「大名鼎鼎的mono是.NET平台的跨平台（支持linux」中的 definedsymbols.vb 源码文件，采用 VB 编程语言编写，共 144 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与linux相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?