project name record_organizer
This commit is contained in:
JenneJ
263
app/DD-Record-Organiser/ModuleHelperMethods.vb
Normal file
263
app/DD-Record-Organiser/ModuleHelperMethods.vb
Normal file
@@ -0,0 +1,263 @@
|
||||
Module ModuleHelperMethods
|
||||
|
||||
Public Enum EnumFormat
|
||||
[String] = 0
|
||||
Currency = 1
|
||||
[Decimal] = 2
|
||||
End Enum
|
||||
|
||||
Public Function BoolToInt(bool As Boolean) As Integer
|
||||
' Wandelt einen Boolean Wert in einen Int um
|
||||
Return IIf(bool, 1, 0)
|
||||
End Function
|
||||
|
||||
Public Function IntToBool(int As Integer) As Boolean
|
||||
If int = 0 Then
|
||||
Return False
|
||||
ElseIf int = 1 Then
|
||||
Return True
|
||||
Else
|
||||
Throw New Exception("IntToBool expects an Integer value that is either 0 or 1")
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function ColorToInt(color As Color) As Integer
|
||||
Return System.Drawing.ColorTranslator.ToWin32(color)
|
||||
End Function
|
||||
|
||||
Public Function IntToColor(int As Integer) As Color
|
||||
Return System.Drawing.ColorTranslator.FromWin32(int)
|
||||
End Function
|
||||
|
||||
Public Function StrToBool(str As Object) As Boolean
|
||||
Dim result As Boolean = False
|
||||
|
||||
str = TryCast(str, String)
|
||||
|
||||
Try
|
||||
result = Convert.ToBoolean(str)
|
||||
Catch ex As Exception
|
||||
result = False
|
||||
End Try
|
||||
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Public Function ByteArrayToBitmap(bytearray() As Byte) As Bitmap
|
||||
Return New Bitmap(New System.IO.MemoryStream(bytearray))
|
||||
End Function
|
||||
|
||||
Public Function StringToByteArray(ByVal hex As String) As Byte()
|
||||
Dim NumberChars As Integer = hex.Length
|
||||
|
||||
Dim bytes(NumberChars / 2) As Byte
|
||||
|
||||
For i As Integer = 0 To NumberChars - 1 Step 2
|
||||
bytes(i / 2) = Convert.ToByte(hex.Substring(i, 2), 16)
|
||||
Next
|
||||
|
||||
Return bytes
|
||||
End Function
|
||||
|
||||
Public Function BitmapToByteArray(bitmap As Bitmap) As Byte()
|
||||
Dim bytearray As Byte()
|
||||
|
||||
Using stream As New System.IO.MemoryStream
|
||||
bitmap.Save(stream, bitmap.RawFormat)
|
||||
bytearray = stream.ToArray()
|
||||
End Using
|
||||
|
||||
Return bytearray
|
||||
End Function
|
||||
|
||||
Public Function IsGroupBox(c As Control)
|
||||
Return c.GetType().Name = "GroupBox"
|
||||
End Function
|
||||
|
||||
Public Function ParentIsGroupBox(c As Control)
|
||||
Return c.Parent.GetType().Name = "GroupBox"
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Checks if a property exists on an object
|
||||
''' </summary>
|
||||
''' <param name="obj">The Object to check</param>
|
||||
''' <param name="prop">The Property to check for</param>
|
||||
''' <returns>True, if prop exists</returns>
|
||||
Public Function propExists(ByVal obj As Object, ByVal prop As String) As Boolean
|
||||
Dim type As Type = obj.GetType
|
||||
Return type.GetProperty(prop) IsNot Nothing
|
||||
End Function
|
||||
|
||||
Public Function propExistsWithType(ByVal obj As Object, ByVal prop As String, returnType As System.Type)
|
||||
Dim type As Type = obj.GetType
|
||||
Return type.GetProperty(prop, returnType) IsNot Nothing
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Gets a ControlID from Control Name
|
||||
''' </summary>
|
||||
''' <param name="name">Control Name</param>
|
||||
''' <param name="formid">Current Form ID</param>
|
||||
''' <returns>Control ID</returns>
|
||||
Public Function GetControlID_for_Name(name As String, formid As Integer) As Integer
|
||||
Try
|
||||
Dim SQL = "SELECT GUID FROM TBPMO_CONTROL WHERE FORM_ID = " & formid & " and NAME = '" & name & "'"
|
||||
Dim ID As Integer = ClassDatabase.Execute_Scalar(SQL)
|
||||
If ID > 0 Then
|
||||
Return ID
|
||||
Else
|
||||
Return -1
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in GetControlID_for_Name:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function GetControlID_for_RecordID(name As String, recID As Integer) As Integer
|
||||
Try
|
||||
Dim SQL = "SELECT CONTROL_ID FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_NAME = '" & name & "'"
|
||||
Dim ID As Integer = ClassDatabase.Execute_Scalar(SQL)
|
||||
If ID > 0 Then
|
||||
Return ID
|
||||
Else
|
||||
Return -1
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in GetControlID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Gets a Control Name from ControlID
|
||||
''' </summary>
|
||||
''' <param name="Id">ControlID</param>
|
||||
''' <param name="formid">Current Form ID</param>
|
||||
''' <returns>Control Name</returns>
|
||||
Public Function GetName_for_ControlID(Id As Integer, formid As Integer) As String
|
||||
Try
|
||||
Dim SQL = "SELECT NAME FROM TBPMO_CONTROL WHERE FORM_ID = " & formid & " AND GUID = " & Id
|
||||
Dim Name = ClassDatabase.Execute_Scalar(SQL)
|
||||
|
||||
Return Name
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in GetName_for_ControlID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Sub OpenFormInputFor(FormID As Integer, ScreenID As Integer)
|
||||
CURRENT_FORM_ID = FormID
|
||||
CURRENT_SCREEN_ID = ScreenID
|
||||
|
||||
Dim frm As New frmFormInput
|
||||
frm.MdiParent = frmMain
|
||||
'frmMain.tscMain.ContentPanel.Controls.Add(frm)
|
||||
frm.Show()
|
||||
frm.BringToFront()
|
||||
End Sub
|
||||
|
||||
Public Sub OpenFormCalendar()
|
||||
Dim frm As New frmCalendar
|
||||
frm = frmCalendar.Instance()
|
||||
If My.Settings.User_Calendar_isChild = True Then
|
||||
frm.MdiParent = frmMain
|
||||
End If
|
||||
|
||||
'frmMain.tscMain.ContentPanel.Controls.Add(frm)
|
||||
frm.Show()
|
||||
End Sub
|
||||
|
||||
Public Sub OpenFormOverview()
|
||||
Dim frm As New frmForm_Overview
|
||||
frm = frmForm_Overview.Instance()
|
||||
frm.MdiParent = frmMain
|
||||
'frmMain.tscMain.ContentPanel.Controls.Add(frm)
|
||||
frm.Show()
|
||||
End Sub
|
||||
|
||||
Public Sub OpenFormLevelDesigner()
|
||||
Dim frm As New frmLevel_Designer
|
||||
frm = frmLevel_Designer.Instance
|
||||
frm.MdiParent = frmMain
|
||||
'frmMain.tscMain.ContentPanel.Controls.Add(frm)
|
||||
frm.Show()
|
||||
|
||||
Dim frm2 As New frmTool_ControlDesigner
|
||||
frm2 = frmTool_ControlDesigner.Instance
|
||||
If My.Settings.User_DesignPanels_areChild = True Then
|
||||
frm2.MdiParent = frmMain
|
||||
End If
|
||||
|
||||
'frmMain.tscMain.ContentPanel.Controls.Add(frm2)
|
||||
frm2.Show()
|
||||
|
||||
Dim frm3 As New frmTool_ControlProperties
|
||||
frm3 = frmTool_ControlProperties.Instance
|
||||
If My.Settings.User_DesignPanels_areChild = True Then
|
||||
frm3.MdiParent = frmMain
|
||||
End If
|
||||
'frmMain.tscMain.ContentPanel.Controls.Add(frm3)
|
||||
frm3.Show()
|
||||
End Sub
|
||||
Public Sub OpenFormConstructor(id As Integer)
|
||||
CURRENT_CONSTRUCTOR_ID = id
|
||||
Dim frm As New frmForm_Constructor_OLD
|
||||
' frm = frmForm_Constructor.Instance()
|
||||
frm.MdiParent = frmMain
|
||||
frm.Show()
|
||||
End Sub
|
||||
Public Sub OpenTaskmanagement()
|
||||
Dim frm As New frmTaskmanagement
|
||||
frm = frmTaskmanagement.Instance()
|
||||
frm.MdiParent = frmMain
|
||||
'frmMain.tscMain.ContentPanel.Controls.Add(frm)
|
||||
frm.Show()
|
||||
End Sub
|
||||
Public Sub OpenDokumentartt()
|
||||
Dim frm As New frmDokumentart_Konfig
|
||||
frm = frmDokumentart_Konfig.Instance()
|
||||
frm.MdiParent = frmMain
|
||||
'frmMain.tscMain.ContentPanel.Controls.Add(frm)
|
||||
frm.Show()
|
||||
End Sub
|
||||
Public Sub OpenMenuDesigner()
|
||||
Dim frm As New frmMenuDesigner
|
||||
frm.MdiParent = frmMain
|
||||
'frmMain.tscMain.ContentPanel.Controls.Add(frm)
|
||||
frm.Show()
|
||||
End Sub
|
||||
Public Sub OpenUserKonfig()
|
||||
Dim frm As New frmUserKonfig
|
||||
frm = frmUserKonfig.Instance()
|
||||
frm.MdiParent = frmMain
|
||||
'frmMain.tscMain.ContentPanel.Controls.Add(frm)
|
||||
frm.Show()
|
||||
End Sub
|
||||
|
||||
Public Sub OpenImageManager()
|
||||
Dim frm As New frmQuickAccessManager
|
||||
'frm = frmImageManager.Instance()
|
||||
frm.MdiParent = frmMain
|
||||
'frmMain.tscMain.ContentPanel.Controls.Add(frm)
|
||||
frm.Show()
|
||||
End Sub
|
||||
Public Sub OpenObjecttypeConfig()
|
||||
Dim frm As New frmObjecttypeConfig
|
||||
frm = frmObjecttypeConfig.Instance()
|
||||
frm.MdiParent = frmMain
|
||||
'frmMain.tscMain.ContentPanel.Controls.Add(frm)
|
||||
frm.Show()
|
||||
End Sub
|
||||
Public Sub OpenWiedervorlage()
|
||||
Dim frm As New frmWiedervorlage
|
||||
frm.MdiParent = frmMain
|
||||
frm.Show()
|
||||
End Sub
|
||||
Public Sub OpenLogRecord()
|
||||
Dim frm As New frmLogRecord
|
||||
frm = frmLogRecord.Instance()
|
||||
frm.MdiParent = frmMain
|
||||
frm.Show()
|
||||
End Sub
|
||||
End Module
|
||||
Reference in New Issue
Block a user