This documentation is archived and is not being maintained.

DeviceType Enumeration

Specifies a device type.

Namespace:  Microsoft.WindowsMobile.DirectX.Direct3D
Assembly:  Microsoft.WindowsMobile.DirectX (in Microsoft.WindowsMobile.DirectX.dll)

'Declaration
Public Enumeration DeviceType
'Usage
Dim instance As DeviceType

Member nameDescription
Supported by the .NET Compact FrameworkDefaultThe default device type.

The following example creates a device by using the DeviceType enumeration.

Public Class Form1
    Inherits Form
    ' Set global variables for this project. 
    Private device As Device = Nothing 
    Public Sub New()
        ' Set the initial size and caption of the form. 
        Me.ClientSize = New System.Drawing.Size(400, 300)
        Me.Text = "D3D Tutorial 01: CreateDevice" 

    End Sub 'New 


    Public Function InitializeGraphics() As Boolean 
        Try 
            ' Set up presentation parameters and create the Direct3D 
            ' device. 
            Dim presentParams As New PresentParameters()
            presentParams.Windowed = True
            presentParams.SwapEffect = SwapEffect.Discard
            device = New Device(0, DeviceType.Default, Me, CreateFlags.None, presentParams)
            Return True 
        Catch 
            Return False 
        End Try 

    End Function 
    Private Sub Render()
        If device Is Nothing Then 
            Return 
        End If 
        'Clear the backbuffer to a blue color. 
        device.Clear(ClearFlags.Target, System.Drawing.Color.Blue, 1.0F, 0)
        'Begin the scene.
        device.BeginScene()

        'Render scene objects, if desired. 
        'End the scene.
        device.EndScene()
        device.Present()

    End Sub 
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        ' Render on painting. 
        Me.Render()
    End Sub 

    Protected Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
        If Fix(System.Convert.ToByte(e.KeyChar)) = Fix(System.Windows.Forms.Keys.Escape) Then 
            ' Handle the ESC key being pressed. 
            Me.Close()
        End If 

    End Sub 

    Shared Sub Main()

        Dim DeviceForm As New Form1()
        Try 
            If Not DeviceForm.InitializeGraphics() Then 
                ' Initialize Direct3D.
                MsgBox("Could not initialize Direct3D.  This tutorial will exit.")
                Return 
            End If
            DeviceForm.Show()

            'While the form is still valid, render and process messages. 
            'While DeviceForm.Created 
            '    DeviceForm.Render() 
            '    Application.DoEvents() 
            'End While 
        Finally
            DeviceForm.Dispose()
        End Try 

    End Sub 
End Class

Windows CE, Windows Mobile for Smartphone, Windows Mobile for Pocket PC

The .NET Framework and .NET Compact Framework do not support all versions of every platform. For a list of the supported versions, see .NET Framework System Requirements.

.NET Compact Framework

Supported in: 3.5, 2.0
Show: