einen fehlerabbruch habe ich ja nicht....ich poste mal den code aus ner sub...
hier der QuitSub
fehlermeldung:
Die Datentypen der Typparameter in der Public Sub QuitSub(Of TForm As Form)(ByRef frm As TForm)-Methode können nicht von diesen Argumenten abgeleitet werden. Sie können diesen Fehler möglicherweise beheben, indem Sie die Datentypen explizit angeben.
VB.NET-Quellcode
- Private Sub butConvertScanSource_Click(sender As Object, e As EventArgs) Handles butConvertScanSource.Click
- Dim lfInfo As New List(Of IO.FileInfo)
- Dim frmPro As New frmProgress
- Dim searchFor As String
- Dim dCount As Integer
- 'encoderEdit
- searchFor = "*.mp3,*.flac,*.wav,*.mp4,*.avi,*.mpg,*.mpeg,*.mkv," &
- "*.ape,*.m4a,*.mpc,*.ogg,*.wma,*.wmv,*.aac,*.ac3,*.aiff," &
- "*.aif,*.aifc,*.mov,*.flv,*.rm,*.vob,*.asf,*.swf,*.3gp"
- Me.Enabled = False
- lvConvert.Items.Clear()
- Scan(cbDir.Text, chkSubDirs.Checked, "", False, False)
- If cancelRead = False Then
- frmPro.Show()
- For Each sDir In dirList
- If cancelRead = True Then
- Exit For
- End If
- dCount += 1
- frmPro.SetInfo("Suche Dateien", sDir.FullName, 1, dirList.Length, dCount,
- "Verzeichnis", True, True, True)
- GetFilesExt(sDir.FullName, searchFor, lfInfo)
- Next
- End If
- CloseForm(frmPro)
- If cancelRead = False Then
- lvConvertAddFiles(lvConvert, lfInfo.ToArray)
- ShowFileResult(Nothing, False, lvConvert)
- End If
- Quit:
- QuitSub(Nothing) <-- hier meckert der compiler....habe jetzt gemerkt ob mit oder ohne strict on.
- End Sub
hier der QuitSub
VB.NET-Quellcode
fehlermeldung:
Die Datentypen der Typparameter in der Public Sub QuitSub(Of TForm As Form)(ByRef frm As TForm)-Methode können nicht von diesen Argumenten abgeleitet werden. Sie können diesen Fehler möglicherweise beheben, indem Sie die Datentypen explizit angeben.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „woeh“ ()