| Вопрос: TextBox, RichTextBox HScrollBar | Добавлено: 31.08.08 22:08 |
Автор вопроса:  BG(Алексей)
|
|
Кто может мне обьяснить почему и как сделать:
В свойствах указанных контролов выставляю Me.RichTextBox1.ScrollBars = RichTextBoxScrollBars.Both
Me.TextBox1.ScrollBars = TextBoxScrollBars.Both
Далее, печатаю(или Paste) длинную строку. В указанных контролах горизонтальный скроллбар не появляется, а длинная строка просто переносится. Как добиться отображения горизонтального скроллбара и запретить перенос длинной строки? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  s12 Вопросов: 24 Ответов: 363 |
Профиль | | #1 | Добавлено: 31.08.08 23:42 |
|
Вот пример из msdn:
[quote]The following code example demonstrates how to use the ScrollBars enumeration.To run the example, paste the following code in a form. Call the SetFourDifferentScrollBars method in the form's constructor or Load event-handling method.
[/quote] ' Declare four textboxes. Friend WithEvents vertical As System.Windows.Forms.TextBox Friend WithEvents horizontal As System.Windows.Forms.TextBox Friend WithEvents both As System.Windows.Forms.TextBox Friend WithEvents none As System.Windows.Forms.TextBox Private Sub SetFourDifferentScrollBars() Me.vertical = New System.Windows.Forms.TextBox Me.horizontal = New System.Windows.Forms.TextBox Me.both = New System.Windows.Forms.TextBox Me.none = New System.Windows.Forms.TextBox ' Create a string for the Text property. Dim startString As String = _ "The scroll bar style for my textbox is: " ' Set the location of the four textboxes. horizontal.Location = New Point(10, 10) vertical.Location = New Point(10, 70) none.Location = New Point(10, 170) both.Location = New Point(10, 110) ' For horizonal scroll bars, the Multiline property must ' be true and the WordWrap property must be false. ' Increase the size of the Height property to ensure the ' scroll bar is visible. horizontal.ScrollBars = ScrollBars.Horizontal horizontal.Multiline = True horizontal.WordWrap = False horizontal.Height = 40 horizontal.Text = startString & ScrollBars.Horizontal.ToString() ' For the vertical scroll bar, Multiline must be true. vertical.ScrollBars = ScrollBars.Vertical vertical.Multiline = True vertical.Text = startString & ScrollBars.Vertical.ToString() ' For both scroll bars, the Multiline property ' must be true, and the WordWrap property must be false. ' Increase the size of the Height property to ensure the ' scroll bar is visible. both.ScrollBars = ScrollBars.Both both.Multiline = True both.WordWrap = False both.Height = 40 both.AcceptsReturn = True both.Text = startString & ScrollBars.Both.ToString() ' The none scroll bar does not require specific ' property settings. none.ScrollBars = ScrollBars.None none.Text = startString & ScrollBars.None.ToString() ' Add the textboxes to the form. Me.Controls.Add(Me.vertical) Me.Controls.Add(Me.horizontal) Me.Controls.Add(Me.both) Me.Controls.Add(Me.none) End Sub |
||
|
Номер ответа: 2 Автор ответа: BG(Алексей)Вопросов: 26 Ответов: 295 |
Профиль | | #2 | Добавлено: 01.09.08 04:33 |
| Спасибо. | ||
Страница: 1 |