Multiline in TextBox

[SNIPER.PS]

Im desion a textbox (usercontrol) im write many properties for it but I could not write multiline property im try to writ it but without result
I had a problem in ScrollBars Property but I succeeded by using the API

now the Problem in multiline .. Please help me

Note: I use a text box tool in the control


Thanked the author for those who help me

[FireXtol]

The multiline property is read-only at design time.

Perhaps you could use two textboxes. One that's default Multiline=True, and one that's not.

[SNIPER.PS]

tow text box is problem for me
can we do this property by API like ScrollBars

thank you

[Siddharth Rout]

Your usercontrol is based on Textbox control so it is like an "extended" control. There isn't any better solution than what FireXtol suggested since you are basing it on a standard textbox.

I guess you will also face a problem with .Wrap property?

The only solution is to have several textboxes with different styles and one local variable of type TextBox. When loading, decide from the flags what textbox you should use and set local variable to reference that textbox. Once done just operate the textbox through the local variable. It goes unsaid that the rest of them will be hidden....

[FireXtol]

More ways:

Default multiline = true. On Change, find newline characters and remove them for 'single line' mode.

Apparently you can also subclass the WM_CREATE message, and at this crucial moment you can use API to change multiline. But don't take my word for it.

[SNIPER.PS]

thank you very much FireXtol

give me Example or Code .. Please

For the second time I repeat my thanks to you

[FireXtol]

Sure? I'll google that for you.

More than likely, this response will not be the one you use; but I'll post
it in case.<g>

The code below will allow you to set the maximum number of lines that a
TextBox can accept. If you want a non-multiline TextBox, simply set the
MaxLines variable to 1; if you want a multiline TextBox with 10 lines of
text maximum, set the MaxLines variable to 10. If you are showing
ScrollBars, they will "activate" if MaxLines is larger than the maximum
number of visible lines of text the TextBox can display.

So, you are probably asking, why might this not be what you want? Well, if
MaxLines is set to 1, then the maximum amount of text the user can type in
is limited to the width of the TextBox... no sideways scrolling of text for
the single line condition. Also, the ScrollBars that need to be displayed
for the multiline condition will remain visible when MaxLines is set to 1
(although you may be able to play with that using your posted API code).
And, of course, you need to fix the maximum number of lines that can be
typed in when in "multiline" mode. If you can live with these restrictions,
give the example code below a try.

Rick

Start a new project. Add a TextBox to the form and set its MultiLine
property to True and set the ScrollBars to 2-Vertical. Then paste this code
into the form's code window.

Dim MaxLines As Long
 
Private Declare Function SendMessageLong Lib _
    "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     ByVal lParam As Long) As Long
 
Const EM_LINEFROMCHAR = &HC9&
 
Private Sub Text1_Change()
  Static LastText As String
  Static LastCaretPos As Long
  Static SecondTime As Boolean
  Dim CurrentCaretPos As Long
  Static NotFirstTime As Boolean
  If NotFirstTime = False Then
    NotFirstTime = True
    Exit Sub
  End If
  With Text1
    If Not SecondTime Then
      CurrentCaretPos = .SelStart
      .SelStart = Len(.Text)
      If SendMessageLong(.hwnd, EM_LINEFROMCHAR, _
                         -1&, 0&) + 1 > MaxLines Then
        Beep
        SecondTime = True
        .Text = LastText
        .SelStart = LastCaretPos
      Else
        LastText = .Text
        .SelStart = CurrentCaretPos
        LastCaretPos = .SelStart
      End If
    End If
  End With
  SecondTime = False
End Sub
 
Private Sub Form_Load()
  ' Here, I am setting MaxLines to 100 lines just to give
  ' the code something to work with initially. You can set
  ' this initial value to whatever you want and, of course,
  ' reset it to any other value (for example, 1 to make it
  ' a single line entry TextBox
  MaxLines = 100
End Sub

[SNIPER.PS]

in normal text can is set mlutiline = true or false by code in any way

[FireXtol]

in normal text can is set mlutiline = true or false by code in any way

Research subclassing. It's the only way in VB(unless you create the control in another language... but either way you'll be dealing with the same kinds of API).

I've little experience with subclassing, and I honestly don't know how to do it.

[DrUnicode]

See TextBoxEx Control (Free, with sourecode) at:
http://www.vbaccelerator.com/codelib...t/txtboxex.htm

It can set MultiLine at runtime. It does this by saving the Text and recreating the control on the fly.

Requires SsubTmr6.Dll:
http://www.vbaccelerator.com/home/VB...er/article.asp
or download just the binary at:
http://www.vbaccelerator.com/home/VB...Tmr_Binary.asp