Click here to Skip to main content
15,880,725 members
Articles / Desktop Programming / Windows Forms

Interop Forms Toolkit 2.0 Tutorial

Rate me:
Please Sign up or sign in to vote.
4.84/5 (62 votes)
16 Jun 2007CPOL16 min read 483.3K   13.8K   149  
Interop Forms Toolkit 2.0 is a new bridging tool allowing developers to use .NET Forms and .NET UserControls in VB6. This tutorial demonstrates how to add webservices, multithreading, and XAML to VB6 projects. It also provides custom C# Interop UserControl templates for use with the Toolkit.
<UserControl x:Class="XamlUserControl.UserControl1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
			 Loaded="OnLoaded">

	<UserControl.Resources>

		<Storyboard x:Key="RotateStoryboard">
			<ParallelTimeline RepeatBehavior="Forever"  Storyboard.TargetName="myRotate" Storyboard.TargetProperty="Angle" >
				<DoubleAnimation From="0" To="360" Duration="0:0:30"/>
			</ParallelTimeline>
		</Storyboard>

		<MeshGeometry3D x:Key="PlaneMesh"
            Positions="-1 -1 0  1 -1 0  -1 1 0  1 1 0"
            Normals="0 0 1  0 0 1  0 0 1  0 0 1"
            TextureCoordinates="0 1  1 1  0 0  1 0   "
            TriangleIndices="0 1 2  1 3 2" />


		<MeshGeometry3D x:Key="CubeMesh"
			TriangleIndices="0,1,2 3,4,5 6,7,8 9,10,11 12,13,14 15,16,17 18,19,20 21,22,23 24,25,26 27,28,29 30,31,32 33,34,35 "
			Normals="0,0,-1 0,0,-1 0,0,-1 0,0,-1 0,0,-1 0,0,-1 0,0,1 0,0,1 0,0,1 0,0,1 0,0,1 0,0,1 0,-1,0 0,-1,0 0,-1,0 0,-1,0 0,-1,0 0,-1,0 1,0,0 1,0,0 1,0,0 1,0,0 1,0,0 1,0,0 0,1,0 0,1,0 0,1,0 0,1,0 0,1,0 0,1,0 -1,0,0 -1,0,0 -1,0,0 -1,0,0 -1,0,0 -1,0,0 "
			TextureCoordinates="1,0 1,1 0,1 0,1 0,0 1,0 0,0 1,0 1,1 1,1 0,1 0,0 0,0 1,0 1,1 1,1 0,1 0,0 1,0 1,1 0,1 0,1 0,0 1,0 1,1 0,1 0,0 0,0 1,0 1,1 0,1 0,0 1,0 1,0 1,1 0,1 "
			Positions="-0.5,-0.5,-0.5 -0.5,0.5,-0.5 0.5,0.5,-0.5 0.5,0.5,-0.5 0.5,-0.5,-0.5 -0.5,-0.5,-0.5 -0.5,-0.5,0.5 0.5,-0.5,0.5 0.5,0.5,0.5 0.5,0.5,0.5 -0.5,0.5,0.5 -0.5,-0.5,0.5 -0.5,-0.5,-0.5 0.5,-0.5,-0.5 0.5,-0.5,0.5 0.5,-0.5,0.5 -0.5,-0.5,0.5 -0.5,-0.5,-0.5 0.5,-0.5,-0.5 0.5,0.5,-0.5 0.5,0.5,0.5 0.5,0.5,0.5 0.5,-0.5,0.5 0.5,-0.5,-0.5 0.5,0.5,-0.5 -0.5,0.5,-0.5 -0.5,0.5,0.5 -0.5,0.5,0.5 0.5,0.5,0.5 0.5,0.5,-0.5 -0.5,0.5,-0.5 -0.5,-0.5,-0.5 -0.5,-0.5,0.5 -0.5,-0.5,0.5 -0.5,0.5,0.5 -0.5,0.5,-0.5 "
		/>

		<MeshGeometry3D x:Key="CubeInvertedMesh"
			TriangleIndices="0,1,2 3,4,5 6,7,8 9,10,11 12,13,14 15,16,17 18,19,20 21,22,23 24,25,26 27,28,29 30,31,32 33,34,35 "
			Normals="0,0,1 0,0,1 0,0,1 0,0,1 0,0,1 0,0,1 0,0,-1 0,0,-1 0,0,-1 0,0,-1 0,0,-1 0,0,-1 0,1,0 0,1,0 0,1,0 0,1,0 0,1,0 0,1,0 -1,0,0 -1,0,0 -1,0,0 -1,0,0 -1,0,0 -1,0,0 0,-1,0 0,-1,0 0,-1,0 0,-1,0 0,-1,0 0,-1,0 1,0,0 1,0,0 1,0,0 1,0,0 1,0,0 1,0,0 "
			TextureCoordinates="0,1 1,1 1,0 1,0 0,0 0,1 1,1 1,0 0,0 0,0 0,1 1,1 1,1 1,0 0,0 0,0 0,1 1,1 0,1 1,1 1,0 1,0 0,0 0,1 0,0 0,1 1,1 1,1 1,0 0,0 1,0 0,0 0,1 0,1 1,1 1,0 "
			Positions="0.5,0.5,-0.5 -0.5,0.5,-0.5 -0.5,-0.5,-0.5 -0.5,-0.5,-0.5 0.5,-0.5,-0.5 0.5,0.5,-0.5 0.5,0.5,0.5 0.5,-0.5,0.5 -0.5,-0.5,0.5 -0.5,-0.5,0.5 -0.5,0.5,0.5 0.5,0.5,0.5 0.5,-0.5,0.5 0.5,-0.5,-0.5 -0.5,-0.5,-0.5 -0.5,-0.5,-0.5 -0.5,-0.5,0.5 0.5,-0.5,0.5 0.5,0.5,0.5 0.5,0.5,-0.5 0.5,-0.5,-0.5 0.5,-0.5,-0.5 0.5,-0.5,0.5 0.5,0.5,0.5 -0.5,0.5,0.5 -0.5,0.5,-0.5 0.5,0.5,-0.5 0.5,0.5,-0.5 0.5,0.5,0.5 -0.5,0.5,0.5 -0.5,-0.5,0.5 -0.5,-0.5,-0.5 -0.5,0.5,-0.5 -0.5,0.5,-0.5 -0.5,0.5,0.5 -0.5,-0.5,0.5 "
		/>


		<Transform3DGroup x:Key="CubeMeshTransform">
			<Transform3DGroup.Children>
				<ScaleTransform3D ScaleX="10" ScaleY="10" ScaleZ="10" />
			</Transform3DGroup.Children>
		</Transform3DGroup>

		<Transform3DGroup x:Key="CubeMeshTransform2">
			<Transform3DGroup.Children>
				<ScaleTransform3D ScaleX="12" ScaleY="12" ScaleZ="12" />
			</Transform3DGroup.Children>
		</Transform3DGroup>
	</UserControl.Resources>
	<Grid Background="Maroon">
		<Grid.ColumnDefinitions>
			<ColumnDefinition Width="100"/>
			<ColumnDefinition Width="*" />
		</Grid.ColumnDefinitions>

		<StackPanel>

			<Button Click="OnImage1Animate" Height="50" Grid.Column="0" Grid.Row="0">Image 1 animate</Button>

		</StackPanel>

		<Viewport3D Focusable="true" Name="myViewport3D" ClipToBounds="true" Grid.Column="1" Grid.Row="0" >
			<Viewport3D.Camera>
				<PerspectiveCamera
				Position="0,0,3.0"
				LookDirection="0,0,-1"
				UpDirection="0,1,0"
				NearPlaneDistance="0.25"
				FarPlaneDistance="20"
				FieldOfView="60" />
			</Viewport3D.Camera>


			<ModelVisual3D>

				<ModelVisual3D.Transform>
					<Transform3DGroup>
						<Transform3DGroup.Children>
							<Transform3DCollection >

								<ScaleTransform3D ScaleX="1" ScaleY="1"  ScaleZ="1" />
								<RotateTransform3D>
									<RotateTransform3D.Rotation>
										<AxisAngleRotation3D Axis="0 1 0" Angle="0" />
									</RotateTransform3D.Rotation>
								</RotateTransform3D>
								<TranslateTransform3D OffsetX="0" OffsetY="0" OffsetZ="0" />

							</Transform3DCollection>
						</Transform3DGroup.Children>
					</Transform3DGroup>
				</ModelVisual3D.Transform>

				<ModelVisual3D.Content>

					<Model3DGroup >
						<Model3DGroup.Transform>
							<Transform3DGroup>
								<Transform3DGroup.Children>
									<Transform3DCollection >

										<ScaleTransform3D ScaleX="0.1" ScaleY="0.1"  ScaleZ="0.1" />
										<RotateTransform3D>
											<RotateTransform3D.Rotation>
												<AxisAngleRotation3D Axis="0 1 0" Angle="0" />
											</RotateTransform3D.Rotation>
										</RotateTransform3D>
										<TranslateTransform3D OffsetX="0" OffsetY="0" OffsetZ="0" />

									</Transform3DCollection>
								</Transform3DGroup.Children>
							</Transform3DGroup>
						</Model3DGroup.Transform>

						<Model3DGroup.Children>

							<!-- Group Child 0 -->

							<Model3DGroup >
								<Model3DGroup.Transform>
									<Transform3DGroup>
										<Transform3DGroup.Children>
											<Transform3DCollection >

												<ScaleTransform3D ScaleX="1" ScaleY="1"  ScaleZ="1" />

												<RotateTransform3D >
													<RotateTransform3D.Rotation >
														<AxisAngleRotation3D x:Name="myRotate" Axis="1 0 0" Angle="0" />
													</RotateTransform3D.Rotation>
												</RotateTransform3D>

												<TranslateTransform3D OffsetX="0" OffsetY="0" OffsetZ="0" />

											</Transform3DCollection>
										</Transform3DGroup.Children>
									</Transform3DGroup>
								</Model3DGroup.Transform>

								<Model3DGroup.Children>

									<!-- Child 0 -->

									<GeometryModel3D Transform="{StaticResource CubeMeshTransform}" Geometry="{StaticResource CubeMesh}" >
										<GeometryModel3D.Material>
											<MaterialGroup>
												<MaterialGroup.Children>
													<EmissiveMaterial>
														<EmissiveMaterial.Brush>
															<ImageBrush ImageSource="images\roundcornersheet.png">
																<ImageBrush.Transform>
																	<TransformGroup>
																		<TransformGroup.Children>
																			<RotateTransform CenterX="0.5" CenterY="0.5" Angle="0" />
																		</TransformGroup.Children>
																	</TransformGroup>
																</ImageBrush.Transform>
															</ImageBrush>
														</EmissiveMaterial.Brush>
													</EmissiveMaterial>

												</MaterialGroup.Children>
											</MaterialGroup>
										</GeometryModel3D.Material>

										<GeometryModel3D.BackMaterial>
											<MaterialGroup>
												<MaterialGroup.Children>
													<EmissiveMaterial>
														<EmissiveMaterial.Brush>
															<ImageBrush ImageSource="images\roundcornersheet.png">
																<ImageBrush.Transform>
																	<TransformGroup>
																		<TransformGroup.Children>
																			<RotateTransform CenterX="0.5" CenterY="0.5" Angle="0" />
																		</TransformGroup.Children>
																	</TransformGroup>
																</ImageBrush.Transform>
															</ImageBrush>
														</EmissiveMaterial.Brush>
													</EmissiveMaterial>

												</MaterialGroup.Children>
											</MaterialGroup>
										</GeometryModel3D.BackMaterial>

									</GeometryModel3D>

									<GeometryModel3D Transform="{StaticResource CubeMeshTransform2}" Geometry="{StaticResource CubeMesh}" >
										<GeometryModel3D.Material>
											<MaterialGroup>
												<MaterialGroup.Children>
													<EmissiveMaterial>
														<EmissiveMaterial.Brush>
															<ImageBrush ImageSource="images\roundcornersheet.png">
																<ImageBrush.Transform>
																	<TransformGroup>
																		<TransformGroup.Children>
																			<RotateTransform CenterX="0.5" CenterY="0.5" Angle="0" />
																		</TransformGroup.Children>
																	</TransformGroup>
																</ImageBrush.Transform>
															</ImageBrush>
														</EmissiveMaterial.Brush>
													</EmissiveMaterial>

												</MaterialGroup.Children>
											</MaterialGroup>
										</GeometryModel3D.Material>

										<GeometryModel3D.BackMaterial>
											<MaterialGroup>
												<MaterialGroup.Children>
													<EmissiveMaterial>
														<EmissiveMaterial.Brush>
															<ImageBrush ImageSource="images\roundcornersheet.png">
																<ImageBrush.Transform>
																	<TransformGroup>
																		<TransformGroup.Children>
																			<RotateTransform CenterX="0.5" CenterY="0.5" Angle="0" />
																		</TransformGroup.Children>
																	</TransformGroup>
																</ImageBrush.Transform>
															</ImageBrush>
														</EmissiveMaterial.Brush>
													</EmissiveMaterial>

												</MaterialGroup.Children>
											</MaterialGroup>
										</GeometryModel3D.BackMaterial>

									</GeometryModel3D>

								</Model3DGroup.Children>
							</Model3DGroup>


							<Model3DGroup>
								<Model3DGroup.Children>

									<AmbientLight Color="#ffcccccc"/>
									<DirectionalLight Color="LightGray" Direction="-1,-1,-1" />
								</Model3DGroup.Children>
							</Model3DGroup>


						</Model3DGroup.Children>
					</Model3DGroup>

				</ModelVisual3D.Content>
			</ModelVisual3D>


		</Viewport3D>
	</Grid>
</UserControl>

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


Written By
Software Developer (Senior)
United States United States
James is a program writer for a respectable software company. He is also a Microsoft MVP.

Comments and Discussions