Originally posted by gfoidl
View Post
Das habe ich wohl tatsächlich doch übersehen, denn den Satz "Um dem ein Ende zu setzen" hätte ich wohl nicht vergessen.
Trotzdem klappt's immer noch nicht!
Ich weiß nicht weshalb, aber in Deinem Code ist plötzlich ab "Friend WithEvents" ein Code aufgetaucht, von dem ich nicht weiß, wie er da hin kommt.
Ich habe wohl in "Form1.vb(Entwurf)" ein OpenFileDialog- Steuerelement eingefügt, weil dazu vorher Fehlermeldungen kamen, die danach weg sind.
[highlight=vb.net]
Imports System
Imports System.IO
Imports System.Windows.Forms
Namespace WindowsFormsApplication1
Partial Public Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Dim path As String = OpenFileDialog1.FileName
SetReadOnly(path, False)
End If
End Sub
Public Shared Sub SetReadOnly(ByVal path As String, ByVal yes As Boolean)
Dim fi As New FileInfo(path)
Dim attr As FileAttributes = fi.Attributes
If yes Then
attr = attr Or FileAttributes.[ReadOnly]
Else
attr = attr And Not FileAttributes.[ReadOnly]
End If
fi.Attributes = attr
End Sub
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Private Sub InitializeComponent()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
Me.SuspendLayout()
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'Form1
'
Me.ClientSize = New System.Drawing.Size(292, 268)
Me.Name = "Form1"
Me.ResumeLayout(False)
End Sub
End Class
End Namespace
[/Highlight]
Jetzt steht zwar kein Fehler mehr an, aber mit Betätigen des Buttons passiert auch nichts.
Wenn ich hinter
[highlight=vb.net]
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
[/highlight]
"Handles buttons.Click" einfüge, wie ich das sonst kenne, dann kommt zu diesem button1 die Meldung:
"Die Handles-Klausel erfordert eine With-Events-Variable, die im enthaltenen Typ oder einem seiner Basistypen definiert wird."
Ich nehme an, Dir sagt das was, mir nicht!
Wenn ich das ab "Friend WithEvents" bis End Sub lösche, dann gibts auch wieder Fehlermeldungen zu "OpenFileDialog1"
vG
fredyx
Comment