Public Class Starter
 
    Dim objH As LagerAnfrage
    Public objFrm As frmMain
 
    Public Shared Function GetLokalerPfad() As String
        GetLokalerPfad = My.Application.Info.DirectoryPath & "\"
    End Function
 
    Public Shared Sub Main()
        objFrm = Singleton.GetFormMain
        objFrm = New frmMain()
        objFrm.Visible = True
        objH = Singleton.GetLagerAnfrage
        objH.ConnectList.SQLGruppe_DB_OpenConnection(ModSQL.SQLGruppe_Artikel) _
          = "ODBC;NETWORK=DBMSSOCN;DRIVER=SQL Server;SERVER=(" & _
          "local);DATABASE=XXX;Trusted_Connection=Yes"
        objH.KundenNr = ...
        ...
    End Sub
End Class

Public Sub New()
        MyBase.New()
        'Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()

public Class Irgendwas
{
  public Irgendwas() //Kontruktor
  {
  }
}
public Class Testdriver
{
  public static void main(String[] args)
  {
    public objIrgendwas = new Irgendwas()
  }
}

__________________________________________________________
www.steffen-blogging.de
Ich bin Synoroot und das ist gut so! =D

Beitrag wurde zuletzt am 15.12.09 um 12:39:59 editiert.