Letzte Kommentare

    Archive

    Kategorien

    Auflisten von Ressourcen in einer DLL

    Public Class ResourceEnumerator Shared _currentList As List(Of String) Public Shared Function GetHTMLFileName(dllPath As String) As String Dim handle = LoadLibrary(dllPath) _currentList = New List(Of String) If handle = IntPtr.Zero Then Throw New Win32Exception End If If Not EnumResourceTypes(handle, AddressOf EnumTypesCallback, IntPtr.Zero) Then Throw New Win32Exception End If Dim file = (From f In _currentList […]

    Setzen der IE-Version für WebBrowser-Control

    Private Enum BrowserRenderEngine IE7 = 7000 IE9 = 9000 End Enum Private Sub SetRenderingEngine(Value As BrowserRenderEngine) ‚ http://www.west-wind.com/weblog/posts/2011/May/21/Web-Browser-Control-Specifying-the-IE-Version My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION", IO.Path.GetFileName(Application.ExecutablePath), Value, Microsoft.Win32.RegistryValueKind.DWord) My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION", IO.Path.GetFileName(Application.ExecutablePath), Value, Microsoft.Win32.RegistryValueKind.DWord) End Sub

    Konvertierung von SPSS-SAV-Dateien nach Excel mithilfe von R

    install.packages(„xlsx“) install.packages(„foreign“) library(„xlsx“) library(„foreign“) db = file.choose() dataset = read.spss(db, to.data.frame=TRUE) write.xlsx2(dataset, „D:\\downloads\\converted.xlsx“, sheetName=“Sheet1″, col.names=TRUE, row.names=TRUE, append=FALSE)