see working code for one set of options, how can i enable the commented out options?
Imports Inventor
Imports System.Runtime.InteropServices
Imports Microsoft.Win32
Imports System.Windows.Forms
Dim olist As New ArrayList
SendKeys.SendWait("{ESC}")
AppActivate(ThisApplication.Caption)
On Error Resume Next
Dim selectCmd As ControlDefinition
selectCmd = ThisApplication.CommandManager.ControlDefinitions.Item("AppContextual_CancelCmd")
selectCmd.Execute
olist.Add("kFullGraphicsOptimization")
olist.Add("kDriverGraphicsOptimization")
olist.Add("kRecommendedGraphicsOptimization")
olist.Add("kConservativeGraphicsOptimization")
G = InputListBox("Prompt", olist, G, Title := "Title", ListName := "List")
If G = "Run_Anything" Then
G = InputBox("Prompt", "Run command -(FWxViewCommands)", "AppOpenCommandWindowCmd")
End If
If G = "" Then : Return : Else
'we know what this is so what are all the other options?
'ThisApplication.HardwareOptions.GraphicsSettingType = 'kConservativeGraphicsSetting 'kPerformanceGraphicsSetting 'kQualityGraphicsSetting
'GraphicsLevelsOfDetailEnum
'kCoarseRes
'kFullScreenHighRes
'kMediumRes
'kMereDotRes
'kVeryCoarseRes
'kZoomedInHighRes
'GraphicsDriverTypeEnum
'kConservativeOpenGLGraphicsDriver
'kDirect3D10GraphicsDriver
'kDirect3D11GraphicsDriver
'kDirect3DGraphicsDriver
'kOpenGLGraphicsDriver
'kSoftwareGraphics
ThisApplication.HardwareOptions.GraphicsOptimization = G
End If
InventorVb.DocumentUpdate()
