@@ -120,6 +120,32 @@ let main argv =
120120 | :? Parsed<options> as parsed -> run parsed.Value
121121 | :? NotParsed<options> as notParsed -> fail notParsed.Errors
122122```
123+ ** VB.NET:**
124+ ``` VB.NET
125+ Class Options
126+ <CommandLine.Option( 'r', "read", Required := true,
127+ HelpText:= "Input files to be processed." )>
128+ Public Property InputFiles As IEnumerable( Of String )
129+ 130+ ' Omitting long name, default --verbose
131+ <CommandLine.Option(
132+ HelpText:= "Prints all messages to standard output." )>
133+ Public Property Verbose As Boolean
134+ 135+ <CommandLine.Option( Default := "中文" ,
136+ HelpText:= "Content language." )>
137+ Public Property Language As String
138+ 139+ <CommandLine.Value( 0 , MetaName:= "offset" ,
140+ HelpText:= "File offset." )>
141+ Public Property Offset As Long ?
142+ End Class
143+ ```
144+ Consume them:
145+ ``` VB.NET
146+ TODO
147+ ```
148+ 123149
124150For verbs:
125151
@@ -176,6 +202,25 @@ let main args =
176202 | :? CloneOptions as opts -> RunCloneAndReturnExitCode opts
177203 | :? CommandLine.NotParsed<obj> -> 1
178204```
205+ ** VB.NET:**
206+ ``` VB.NET
207+ <CommandLine.Verb( "add" , HelpText:= "Add file contents to the index." )>
208+ Public Class AddOptions
209+ 'Normal options here
210+ End Class
211+ <CommandLine.Verb( "commit" , HelpText:= "Record changes to the repository." )>
212+ Public Class AddOptions
213+ 'Normal options here
214+ End Class
215+ <CommandLine.Verb( "clone" , HelpText:= "Clone a repository into a new directory." )>
216+ Public Class AddOptions
217+ 'Normal options here
218+ End Class
219+ 220+ Public Shared Sub Main()
221+ 'TODO
222+ End Sub
223+ ```
179224
180225Acknowledgements:
181226---
0 commit comments