Oi, tenho uma aplicação feita em VB.NET que está usando interfaces! Vou postar algumas partes do código!
Public NotInheritable Class Splash
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles tmSplash.Tick
pgbFusion.Value += 5
If pgbFusion.Value = 5 Then
lblStatus.Text = "Loading..."
ElseIf pgbFusion.Value = 20 Then
lblStatus.Text = "Loading connections..."
ElseIf pgbFusion.Value = 40 Then
lblStatus.Text = "Loading components..."
ElseIf pgbFusion.Value = 60 Then
lblStatus.Text = "Loading main interface..."
ElseIf pgbFusion.Value = 80 Then
lblStatus.Text = "Completed..."
ElseIf pgbFusion.Value = 100 Then
lblStatus.Text = "Starting..."
For counter = 90 To 10 Step -5
Me.Opacity = counter / 100
Me.Refresh()
Threading.Thread.Sleep(100)
Next counter
Me.Hide()
tmSplash.Stop()
'codigo para chamar outro form
End If
End Sub
Código do form login:
Public Class Login
Implements iDal(Of Logon)
Protected _Conexao As iConexao
Public Sub New(Conexao As iConexao)
InitializeComponent()
_Conexao = Conexao
_Conexao.Open()
End Sub
Interface iDal.vb:
Public Interface iDal(Of T)
Inherits iDisposable
Function Insert(Model As T) As T
End Interface
Agora gostaria de saber como chamar o formulário em uma classe com interface implementada