Wie aus Main() Formular starten?

13/10/2009 - 09:09 von Ahmed Martens | Report spam
Hallo Leute,

ich möchte jetzt über eine Main-Prozedur mein frmCopy aufrufen, und zwar
nur dann, wenn auch das Laufwerk existiert.

Mein Formular wird zwar gestartet, aber nicht angezeigt.
Was mache ich denn falsch?

<Code>

Public Sub Main()
Dim StartForm As Form

For Each Drive As IO.DriveInfo In IO.DriveInfo.GetDrives
If Drive.DriveType = IO.DriveType.Removable Then
If Drive.IsReady Then
' wenn Geràt bereit, Laufwekrsbuchstabe und
' VolumeLabel anzeigen
If Drive.VolumeLabel = "TREKSTOR" Then
sVolume = Drive.Name

StartForm = New frmCopy()
StartForm.Show()

Exit Sub
End If
End If
End If
Next

MsgBox("TREKSTOR-Laufwerk wurde nicht gefunden." & _
vbNewLine & "Bitte verbinden Sie den MP3-Player über Kabel mit dem Computer.", _
MsgBoxStyle.Information, "MP3-Player nicht gefunden")

Exit Sub

End Sub

<\Code>

Danke schon einmal im voraus.

Gruß Ahmed

Antworten bitte nur in der Newsgroup
 

Lesen sie die antworten

#1 Ahmed Martens
13/10/2009 - 09:23 | Warnen spam
Am Tue, 13 Oct 2009 09:09:22 +0200 schrieb Ahmed Martens:

Hallo Leute,

ich möchte jetzt über eine Main-Prozedur mein frmCopy aufrufen, und zwar
nur dann, wenn auch das Laufwerk existiert.

Mein Formular wird zwar gestartet, aber nicht angezeigt.
Was mache ich denn falsch?

<Code>

Public Sub Main()
Dim StartForm As Form

For Each Drive As IO.DriveInfo In IO.DriveInfo.GetDrives
If Drive.DriveType = IO.DriveType.Removable Then
If Drive.IsReady Then
' wenn Geràt bereit, Laufwekrsbuchstabe und
' VolumeLabel anzeigen
If Drive.VolumeLabel = "TREKSTOR" Then
sVolume = Drive.Name

StartForm = New frmCopy()
StartForm.Show()

Exit Sub
End If
End If
End If
Next

MsgBox("TREKSTOR-Laufwerk wurde nicht gefunden." & _
vbNewLine & "Bitte verbinden Sie den MP3-Player über Kabel mit dem Computer.", _
MsgBoxStyle.Information, "MP3-Player nicht gefunden")

Exit Sub

End Sub

<\Code>

Danke schon einmal im voraus.

Gruß Ahmed



Ich glaube es liegt daran, dass ich mein Programm als Windows-Dienst
deklariert habe.

Aber wie kann ich denn in einer normalen Anwendung erst eine
Main-Prozedur starten, um ggf. beim Fehlen von Voraussetzungen das
Programm zu beenden?

Unter VB6 konnte ich einfach sagen, starte mit Main. Jetzt wird mir nur
ein Formular angezeigt.

Gruß Ahmed

Antworten bitte nur in der Newsgroup

Ähnliche fragen