Collapse All Expand All Language Filter: Code: All Code: Multiple Code: Visual Basic Code: C# Code: Visual C++ Code: J# Code: JScript

EDKB12WS Reference
ModMain.IDV_makros_bearbeiten Method
See Also

Assembly: EDKB12WS (in EDKB12WS.exe)

# Syntax

Visual Basic
Public Shared Function IDV_makros_bearbeiten() As Boolean
C#
public static bool IDV_makros_bearbeiten()
C++
public: static bool IDV_makros_bearbeiten()
JScript
public static function IDV_makros_bearbeiten() : boolean;

# Source code

Visual Basic | Copy Code
Public Function IDV_makros_bearbeiten() As Boolean If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start IDV_makros_bearbeiten", clsDivFnkt.Enum_InfoTyp.Information) End If Try Dim idvmakros As New edokadb.clsMyDokumentDaten() Dim makros As System.Data.DataTable Dim i As Long idvmakros.cpMainConnectionProvider = conn makros = idvmakros.Select_IDVMakros(DokType.iDokumenttypnr.Value) For i = 0 To makros.Rows.Count - 1 Try If makros.Rows(i).Item("ist_in_dll") = True Then 'SetForegroundWindow(...) Try objword.Activate() Catch Thread.Sleep(100) objword.Activate() End Try 'System.Windows.Forms.Application.DoEvents() ' idvdll = CreateObject("IDVMakros.Application") ' Call idvdll.CallSub(objword, makros.Rows(i).Item("makro")) 'System.Windows.Forms.Application.DoEvents() objword.Visible = True Try ' objWord.Activate() Catch ' Thread.Sleep(100) ' objWord.Activate() End Try Else 'System.Windows.Forms.Application.DoEvents() If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start IDV_makros_bearbeiten:Makro: " & makros.Rows(i).Item("makro"), clsDivFnkt.Enum_InfoTyp.Information) End If objword.Run(makros.Rows(i).Item("makro")) 'System.Windows.Forms.Application.DoEvents() End If Catch ex As Exception If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: IDV_makros_bearbeiten:: Fehler beim Makro-Aufruf::" & makros.Rows(i).Item("makro") & "::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If End Try Next i If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende IDV_makros_bearbeiten (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return True Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: IDV_makros_bearbeiten::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende IDV_makros_bearbeiten (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Return False End Try End Function

# Platforms

Windows 8, Windows Server 2012, Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows XP SP2 x64 Edition, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2 The .NET Framework does not support all versions of every platform. For a list of the supported versions, see System Requirements.

# Version Information

## .NET Framework Supported in: 4.5, 4, 3.5, 3.0, 2.0, 1.1, 1.0 ## .NET Compact Framework Supported in: 3.5, 2.0, 1.0 ## XNA Framework Supported in: 3.0, 2.0, 1.0

# See Also

## Reference ModMain Class ModMain ModMain Members