System.AttributeTargets F# snippet (#7525)

* System.AttributeTargets F# snippets

* Update AttributeTargets.xml

Author: albert-du

samples/snippets/fsharp/VS_Snippets_CLR/AttrTargs/FS/attrtargs.fs

@@ -0,0 +1,54 @@
+//<Snippet1>
+open System
+
+// This attribute is only valid on a class.
+[<AttributeUsage(AttributeTargets.Class)>]
+type ClassTargetAttribute() =
+    inherit Attribute()
+
+// This attribute is only valid on a method.
+[<AttributeUsage(AttributeTargets.Method)>]
+type MethodTargetAttribute() =
+    inherit Attribute()
+
+// This attribute is only valid on a constructor.
+[<AttributeUsage(AttributeTargets.Constructor)>]
+type ConstructorTargetAttribute() =
+    inherit Attribute()
+
+// This attribute is only valid on a field.
+[<AttributeUsage(AttributeTargets.Field)>]
+type FieldTargetAttribute() =
+    inherit Attribute()
+
+// This attribute is valid on a class or a method.
+[<AttributeUsage(AttributeTargets.Class ||| AttributeTargets.Method)>]
+type ClassMethodTargetAttribute() =
+    inherit Attribute()
+
+// This attribute is valid on a generic type parameter.
+[<AttributeUsage(AttributeTargets.GenericParameter)>]
+type GenericParameterTargetAttribute() =
+    inherit Attribute()
+
+// This attribute is valid on any target.
+[<AttributeUsage(AttributeTargets.All)>]
+type AllTargetsAttribute() =
+    inherit Attribute()
+
+[<ClassTarget>]
+[<ClassMethodTarget>]
+[<AllTargets>]
+type TestClassAttribute [<ConstructorTarget>] [<AllTargets>] () =
+    [<FieldTarget>]
+    [<AllTargets>]
+    let myInt = 0
+
+    [<MethodTarget>]
+    [<ClassMethodTarget>]
+    [<AllTargets>]
+    member _.Method1() = ()
+
+    member _.GenericMethod<[<GenericParameterTarget; AllTargets>] 'T>(x: 'T) = ()
+
+//</Snippet1>

samples/snippets/fsharp/VS_Snippets_CLR/AttrTargs/FS/fs.fsproj

@@ -0,0 +1,9 @@
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+  <ItemGroup>
+    <Compile Include="attrtargs.fs" />
+  </ItemGroup>
+</Project>

xml/System/AttributeTargets.xml

@@ -72,6 +72,7 @@
   
  :::code language="cpp" source="~/samples/snippets/cpp/VS_Snippets_CLR/AttrTargs/CPP/attrtargs.cpp" id="Snippet1":::
  :::code language="csharp" source="~/samples/snippets/csharp/VS_Snippets_CLR/AttrTargs/CS/attrtargs.cs" id="Snippet1":::
+ :::code language="fsharp" source="~/samples/snippets/fsharp/VS_Snippets_CLR/AttrTargs/FS/attrtargs.fs" id="Snippet1":::
  :::code language="vb" source="~/samples/snippets/visualbasic/VS_Snippets_CLR/AttrTargs/VB/AttrTargs.vb" id="Snippet1":::  
   
  ]]></format>