Xamarin.Forms中Entry设为只读后无法选中复制文本问题咨询

问题描述 #

在基于VB.NET开发的Xamarin.Forms项目中，为Entry控件配置IsReadOnly="True"后，控件内容无法被编辑，但同时长按控件无法选中文本执行复制操作，需要实现内容不可编辑、但支持文本选择复制的交互效果。

可用实现方案 #

方案1：自定义渲染器（推荐，跨平台行为一致） #

Entry的IsReadOnly属性默认平台渲染逻辑会同时禁用文本选择交互，通过自定义渲染器重写平台原生控件属性，可以保留长按选择、复制能力，同时完全禁止内容编辑：

• 首先在共享VB.NET项目中定义自定义Entry子类：

  Public Class SelectableReadOnlyEntry
      Inherits Entry
  End Class
  

• 为Android项目添加对应渲染器：

  <assembly: ExportRenderer(GetType(SelectableReadOnlyEntry), GetType(SelectableReadOnlyEntryDroidRenderer))>
  Namespace YourProject.Droid.Renderers
      Public Class SelectableReadOnlyEntryDroidRenderer
          Inherits EntryRenderer
          Protected Overrides Sub OnElementChanged(e As ElementChangedEventArgs(Of Entry))
              MyBase.OnElementChanged(e)
              If Control Is Nothing Then Return
              ' 开启文本选择、长按响应能力
              Control.Focusable = True
              Control.FocusableInTouchMode = True
              Control.LongClickable = True
              Control.SetTextIsSelectable(True)
              ' 禁止输入编辑
              Control.InputType = Android.Text.InputTypes.Null
          End Sub
      End Class
  End Namespace
  

• 为iOS项目添加对应渲染器：

  <assembly: ExportRenderer(GetType(SelectableReadOnlyEntry), GetType(SelectableReadOnlyEntryiOSRenderer))>
  Namespace YourProject.iOS.Renderers
      Public Class SelectableReadOnlyEntryiOSRenderer
          Inherits EntryRenderer
          Protected Overrides Sub OnElementChanged(e As ElementChangedEventArgs(Of Entry))
              MyBase.OnElementChanged(e)
              If Control Is Nothing Then Return
              ' 开启文本选择、交互响应能力
              Control.Selectable = True
              Control.UserInteractionEnabled = True
              ' 禁止编辑输入
              Control.Editable = False
          End Sub
      End Class
  End Namespace
  

  在XAML中直接引入该自定义控件即可使用，无需额外配置IsReadOnly属性，默认即可实现「不可编辑、长按可选中复制文本」的效果。

方案2：轻量场景替代方案 #

如果不需要支持部分文本选中，只需要支持复制全部内容，可以直接使用Label控件替代Entry，绑定点击手势实现一键复制：

• XAML配置示例：

  <Label x:Name="ContentLabel" Text="需要展示的可复制文本">
      <Label.GestureRecognizers>
          <TapGestureRecognizer Tapped="CopyAllText_Tapped" NumberOfTapsRequired="1"/>
      </Label.GestureRecognizers>
  </Label>
  

• 后台VB.NET代码：

  Private Async Sub CopyAllText_Tapped(sender As Object, e As EventArgs)
      Await Clipboard.SetTextAsync(ContentLabel.Text)
      ' 可选：添加复制成功的轻提示
  End Sub
  

  该方案无需实现自定义渲染器，逻辑更轻量，适合只需要全量复制内容的场景。

内容的提问来源于stack exchange，提问作者Ashish