none
Abstração e interface RRS feed

  • Discussão Geral

  • 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

    sábado, 4 de abril de 2015 18:17