Ссылка RichTextBox1 на не общий объект требует ссылки на объект - PullRequest
Новая
       6

Ссылка RichTextBox1 на не общий объект требует ссылки на объект

0 голосов
/ 23 ноября 2018 
Class DragDropRichTextBox
    Inherits RichTextBox

    Public Sub DragDropRichTextBox()
        Me.AllowDrop = True
        AddHandler Me.DragDrop, AddressOf richTextBox1_DragDrop
    End Sub

    Public Sub richTextBox1_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs)

        Dim filename As Object = e.Data.GetData("FileDrop")
        If filename IsNot Nothing Then
            Dim list = TryCast(filename, String())

            If list IsNot Nothing AndAlso Not String.IsNullOrWhiteSpace(list(0)) Then
                RichTextBox1.Clear()
                RichTextBox1.LoadFile(list(0), RichTextBoxStreamType.PlainText)
            End If
        End If
    End Sub
End Class

Ошибка при RichTextBox1.clear() и RichTextBox1.LoadFile(list(0), RichTextBoxStreamType.PlainText)

Ошибка:

Ссылка на элемент без общего доступа требует ссылки на объект

...