VB制作记事本菜单的自动换行代码求大神帮助

更新时间：2024-12-23 08:10:24

新建两个TEXTBOX TEXT2.Visible设置为false 自动换行代码如下： Private Sub zidonghuanhang_Click() If zidonghuanhang.Checked = True Then zidonghuanhang.Checked = False '取消选定自动换行 'Text1.ScrollBars = 3 '水平、垂直滚动条 Text2.Visible = True 'text2不可见且不可用 Text2.Text = Text1.Text Else '否则 zidonghuanhang.Checked = True '设定自动换行 'Text1.ScrollBars = 2 '只有垂直滚动条 Text2.Visible = False 'text2可见也可用 End If '结束循环

求采纳

标签： vb制作记事本菜单的自动换行代码求大神帮助