Initial commit
This commit is contained in:
212
EDOKA/Backup1/Messages/frmhinweismeldung2.vb
Normal file
212
EDOKA/Backup1/Messages/frmhinweismeldung2.vb
Normal file
@@ -0,0 +1,212 @@
|
||||
Public Class frmHinweismeldung2
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button3 As System.Windows.Forms.Button
|
||||
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents Button4 As System.Windows.Forms.Button
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmHinweismeldung2))
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
|
||||
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Location = New System.Drawing.Point(64, 8)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(512, 168)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "Label1"
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(64, 176)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(208, 24)
|
||||
Me.CheckBox1.TabIndex = 1
|
||||
Me.CheckBox1.Text = "Diese Meldung nicht mehr anzeigen"
|
||||
Me.CheckBox1.Visible = False
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(496, 176)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.TabIndex = 2
|
||||
Me.Button1.Text = "&OK"
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Bitmap)
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(0, 104)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
|
||||
Me.PictureBox1.TabIndex = 3
|
||||
Me.PictureBox1.TabStop = False
|
||||
Me.PictureBox1.Visible = False
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Location = New System.Drawing.Point(416, 176)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.TabIndex = 4
|
||||
Me.Button2.Text = "&Abbruch"
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.Location = New System.Drawing.Point(496, 176)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.TabIndex = 5
|
||||
Me.Button3.Text = "&Weiter"
|
||||
'
|
||||
'PictureBox2
|
||||
'
|
||||
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Bitmap)
|
||||
Me.PictureBox2.Location = New System.Drawing.Point(16, 136)
|
||||
Me.PictureBox2.Name = "PictureBox2"
|
||||
Me.PictureBox2.Size = New System.Drawing.Size(40, 50)
|
||||
Me.PictureBox2.TabIndex = 6
|
||||
Me.PictureBox2.TabStop = False
|
||||
Me.PictureBox2.Visible = False
|
||||
'
|
||||
'PictureBox3
|
||||
'
|
||||
Me.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Bitmap)
|
||||
Me.PictureBox3.Location = New System.Drawing.Point(8, 8)
|
||||
Me.PictureBox3.Name = "PictureBox3"
|
||||
Me.PictureBox3.Size = New System.Drawing.Size(48, 56)
|
||||
Me.PictureBox3.TabIndex = 7
|
||||
Me.PictureBox3.TabStop = False
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.Location = New System.Drawing.Point(368, 176)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(120, 23)
|
||||
Me.Button4.TabIndex = 8
|
||||
Me.Button4.Text = "Dokument anzeigen"
|
||||
'
|
||||
'frmHinweismeldung2
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(578, 208)
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button4, Me.PictureBox3, Me.PictureBox2, Me.Button3, Me.Button2, Me.PictureBox1, Me.Button1, Me.CheckBox1, Me.Label1})
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmHinweismeldung2"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Hinweismeldung"
|
||||
Me.TopMost = True
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
Dim m_style As Integer
|
||||
Property MsgBoxStyle() As Integer
|
||||
Get
|
||||
Return m_style
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_style = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_dokumentid As String
|
||||
Property dokumentid() As String
|
||||
Get
|
||||
Return m_dokumentid
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_dokumentid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Sub frmHinweismeldung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.PictureBox1.Visible = False
|
||||
Me.PictureBox2.Visible = False
|
||||
Me.Button1.Visible = False
|
||||
Me.Button2.Visible = False
|
||||
Me.Button3.Visible = False
|
||||
Select Case Me.MsgBoxStyle
|
||||
Case 1
|
||||
Me.Button1.Visible = True
|
||||
' Me.PictureBox1.Visible = True
|
||||
Case 2
|
||||
Me.Button2.Visible = True
|
||||
Me.Button3.Visible = True
|
||||
' Me.PictureBox2.Visible = True
|
||||
Case Else
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
Me.DialogResult = DialogResult.OK
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
||||
Me.DialogResult = DialogResult.Abort
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
|
||||
Me.DialogResult = DialogResult.OK
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
|
||||
Try
|
||||
Dim f As New frmSearchDoc()
|
||||
f.txtbcknr.Text = Me.dokumentid
|
||||
f.Visible = False
|
||||
f.Show()
|
||||
f.MdiParent = Me.MdiParent
|
||||
f.Show_Doc()
|
||||
f.Hide()
|
||||
Me.Close()
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user