Gru? asam

Public Interface InterPrgBar
 
    Function anzeigen() As String
 
End Interface

Public Class showPrgBar : Implements InterPrgBar
 
    Public Function anzeigen() As String Implements InterPrgBar.anzeigen
        anzeigen = "hurra"
    End Function
 
End Class

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        Dim test As New showPrgBar
        MsgBox(test.anzeigen())
    End Sub

 Dim testanzeige As String
 
    Sub New(ByVal testanzeige As String)
        InitializeComponent()
 
        ...... wie übernimmt ein Konstruktor ein Interface  ?????
        ...... und wie binde ich den ProgressBar als Objekt mit ein ?????
    End Sub

Gru? asam

Public Interface IProgressAction
    Sub StartProgress(ByVal startValue as Integer, ByVal StopValue as Integer )
    Function Anzeigen(ByVal progressPercentage as Integer, ByVal progressString _
      As String)
End Interface

Public Class MainForm : Implements IProgressAction
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim FormularEins As UfoEins = New UfoEins(Me)
        FormularEins.Show()
 
    End Sub
 
    Public Function Anzeigen(ByVal progressPercentage As Integer, ByVal _
      progressString As String) As Object Implements IProgressAction.Anzeigen
 
        Anzeigen = MsgBox(Anzeigen(50, "TestString"))
 
    End Function
End Class

Imports System.Windows.Forms
 
Public Class UfoEins
 
    Dim formular As Form
 
    Sub New(ByVal frm As Form)
        InitializeComponent()
        formular = frm
    End Sub
 
    Private Sub UfoEins_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        ' geht nicht. Irgend etwas fehlt noch
        formular.anzeigen()
 
    End Sub
 
End Class

Gru? asam

Imports System.Windows.Forms
 
Public Class UfoEins
 
    Dim ProgressAction  As IProgressAction
 
    Sub New(ByVal frm As IProgressAction)
        InitializeComponent()
        ProgressAction = frm
    End Sub
 
    Private Sub UfoEins_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        ' geht nicht. Irgend etwas fehlt noch
        ProgressAction.anzeigen(0, "test")
 
    End Sub
 
End Class

Gru? asam