RuntimeTypeHandle F# snippet (#7824)

Author: albert-du

snippets/fsharp/System/RuntimeTypeHandle/Overview/fs.fsproj

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

snippets/fsharp/System/RuntimeTypeHandle/Overview/type_gettypehandle.fs

@@ -0,0 +1,40 @@
+// <Snippet1>
+open System
+
+type MyClass1() =
+    let x = 0
+    member _.MyMethod() =
+        x
+
+let myClass1 = MyClass1()
+
+// Get the RuntimeTypeHandle from an object.
+let myRTHFromObject = Type.GetTypeHandle myClass1
+// Get the RuntimeTypeHandle from a type.
+let myRTHFromType = typeof<MyClass1>.TypeHandle
+
+printfn $"\nmyRTHFromObject.Value:  {myRTHFromObject.Value}"
+printfn $"myRTHFromObject.GetType():  {myRTHFromObject.GetType()}"
+printfn "Get the type back from the handle..."
+printfn $"Type.GetTypeFromHandle(myRTHFromObject):  {Type.GetTypeFromHandle myRTHFromObject}"
+
+printfn $"\nmyRTHFromObject.Equals(myRTHFromType):  {myRTHFromObject.Equals myRTHFromType}"
+
+printfn $"\nmyRTHFromType.Value:  {myRTHFromType.Value}"
+printfn $"myRTHFromType.GetType():  {myRTHFromType.GetType()}"
+printfn "Get the type back from the handle..."
+printfn $"Type.GetTypeFromHandle(myRTHFromType):  {Type.GetTypeFromHandle myRTHFromType}"
+
+// This code example produces output similar to the following:
+//     myRTHFromObject.Value:  799464
+//     myRTHFromObject.GetType():  System.RuntimeTypeHandle
+//     Get the type back from the handle...
+//     Type.GetTypeFromHandle(myRTHFromObject):  MyClass1
+//    
+//     myRTHFromObject.Equals(myRTHFromType):  True
+//    
+//     myRTHFromType.Value:  799464
+//     myRTHFromType.GetType():  System.RuntimeTypeHandle
+//     Get the type back from the handle...
+//     Type.GetTypeFromHandle(myRTHFromType):  MyClass1
+// </Snippet1>

xml/System/RuntimeTypeHandle.xml

@@ -77,6 +77,7 @@
   
  :::code language="cpp" source="~/snippets/cpp/VS_Snippets_CLR/Type_GetTypeHandle/CPP/Type_GetTypeHandle.cpp" id="Snippet1":::
  :::code language="csharp" source="~/snippets/csharp/System/RuntimeTypeHandle/Overview/type_gettypehandle.cs" id="Snippet1":::
+ :::code language="fsharp" source="~/snippets/fsharp/System/RuntimeTypeHandle/Overview/type_gettypehandle.fs" id="Snippet1":::
  :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR/Type_GetTypeHandle/VB/type_gettypehandle.vb" id="Snippet1":::  
   
  ]]></format>