 |
 |
11-28-2003, 07:33 PM
|
 |
Centurion
|
|
Join Date: Nov 2002
Location: NJ
Posts: 176
|
|
Chat style RTB help...
|
How would I go about making the text in an RichTextBox appear at the bottom instead of the top, like most chat programs?
|
__________________
You are just a puppet... you have no heart... and cannot feel any pain...
--Sephiroth
|
11-28-2003, 07:40 PM
|
 |
Political Coder
Retired Moderator
* Guru *
|
|
Join Date: Mar 2001
Location: London, England
Posts: 8,037
|
|
Code:
TextBoxName.SelStart = Len(TextBoxName.Text)
TextBoxName.SelText = "Text to add" & vbCrLf
|
|
11-28-2003, 07:49 PM
|
|
Centurion
|
|
Join Date: Nov 2002
Location: NJ
Posts: 176
|
|
|
No, not like that... I mean for the text to appear at the bottom of the WINDOW. Like you know when you sign on to mirc and join a channel, the text starts at the bottom and goes up as more text is entered? That's what I'm trying to do.
|
__________________
You are just a puppet... you have no heart... and cannot feel any pain...
--Sephiroth
|
11-28-2003, 07:56 PM
|
|
Political Coder
Retired Moderator
* Guru *
|
|
Join Date: Mar 2001
Location: London, England
Posts: 8,037
|
|
|
Well the textbox used in mIRC is a custom control which Khaled created by himself. Without
resorting to that, I think you'll just have to fill the textbox with a lot of blank lines.
|
|
11-28-2003, 07:58 PM
|
|
Centurion
|
|
Join Date: Nov 2002
Location: NJ
Posts: 176
|
|
|
Yeah, I figured that, but isn't there a way to do it with the RTB's paragraph formatting or something? I mean, there are tons of chatting programs that do it that way, do you mean to tell me they ALL have custom controls?
|
__________________
You are just a puppet... you have no heart... and cannot feel any pain...
--Sephiroth
|
11-28-2003, 08:06 PM
|
|
Political Coder
Retired Moderator
* Guru *
|
|
Join Date: Mar 2001
Location: London, England
Posts: 8,037
|
|
Well no, you're right. A quick flick through MSDN reveals the EM_SETPARAFORMAT message, which on a RichEdit 2.0 window, can also specify vertical spacing in the PARAFORMAT2 structure. This struct is not included within the API viewer which comes with VB, so you'll have to translate it from a C struct declaration.
Code:
typedef struct _paraformat {
UINT cbSize; Long
_WPAD _wPad1;
DWORD dwMask; Long
WORD wNumbering; Integer
WORD wReserved; Integer // redefined as wEffects in PARAFORMAT2
LONG dxStartIndent; Long
LONG dxRightIndent; Long
LONG dxOffset; Long
WORD wAlignment; Integer
SHORT cTabCount; Integer
LONG rgxTabs[MAX_TAB_STOPS]; Long(MAX_TAB_STOPS - 1)
LONG dySpaceBefore; Long // vertical spacing before para
LONG dySpaceAfter; Long // vertical spacing after para
LONG dyLineSpacing; Long // line spacing depending on Rule
SHORT sStyle; Integer // style handle
BYTE bLineSpacingRule; Byte // rule for line spacing (see tom.doc)
BYTE bCRC; Byte // reserved for CRC for rapid searching
WORD wShadingWeight; Integer // shading in hundredths of a per cent
WORD wShadingStyle; Integer // nibble 0: style, 1: cfpat, 2: cbpat
WORD wNumberingStart; Integer // starting value for numbering
WORD wNumberingStyle; Integer // alignment, roman/arabic, (), ), ., etc.
WORD wNumberingTab; Integer // space bet 1st indent and 1st-line text
WORD wBorderSpace; Integer // space between border and text (twips)
WORD wBorderWidth; Integer // border pen width (twips)
WORD wBorders; Integer // byte 0: bits specify which borders
// nibble 2: border style, 3: color index
} PARAFORMAT2;
Private Const EM_SETPARAFORMAT = (WM_USER + 71)
Private Const WM_USER = &H400
Private Const MAX_TAB_STOPS = 32
|
|
11-28-2003, 08:10 PM
|
|
Centurion
|
|
Join Date: Nov 2002
Location: NJ
Posts: 176
|
|
|
Okay, um, seeing as I have absolutely zero C experience, would be so kind as to spell it out for this dimwit? ^^ Are you saying it's a SendMessage command?
|
__________________
You are just a puppet... you have no heart... and cannot feel any pain...
--Sephiroth
|
11-28-2003, 08:14 PM
|
|
Political Coder
Retired Moderator
* Guru *
|
|
Join Date: Mar 2001
Location: London, England
Posts: 8,037
|
|
Yes, it would be something akin to:
Code:
Const PFM_SPACEBEFORE = &H40
Dim paraFormat As PARAFORMAT2
paraFormat.cbSize = Len(paraFormat)
paraFormat.dwMask = PFM_SPACEBEFORE
paraFormat.dySpaceBefore = 'Size, in twips, of space
SendMessage theBox.hWnd, EM_SETPARAFORMAT, 0, paraFormat
SendMessage. |
|
11-28-2003, 08:16 PM
|
|
Centurion
|
|
Join Date: Nov 2002
Location: NJ
Posts: 176
|
|
|
Okay, so I need PARAFORMAT2 type, but I have no idea how to translate it from that bunch of C code you pasted @_@
EDIT: thank you so much for the help thus far ^^
|
__________________
You are just a puppet... you have no heart... and cannot feel any pain...
--Sephiroth
|
11-28-2003, 08:18 PM
|
|
Political Coder
Retired Moderator
* Guru *
|
|
Join Date: Mar 2001
Location: London, England
Posts: 8,037
|
|
|
I annotated the VB equivalents in bold next to each member. Ignore the _WPAD member.
|
|
11-28-2003, 08:28 PM
|
|
Centurion
|
|
Join Date: Nov 2002
Location: NJ
Posts: 176
|
|
Okay, so here's what I came out with:
Code:
Private Type PARAFORMAT2
cbSize As Long
dwMask As Long
wNumbering As Integer
wReserved As Integer
dxStartIndent As Long
dxRightIndent As Long
dxOffset As Long
wAlignment As Integer
cTabCount As Integer
rgxTabs As Long
dySpaceBefore As Long
dySpaceAfter As Long
dyLineSpacing As Long
sStyle As Integer
bLineSpacingRule As Byte
bCRC As Byte
wShadingWeight As Integer
wShadingStyle As Integer
wNumberingStart As Integer
wNumberingStyle As Integer
wNumberingTab As Integer
wBorderSpace As Integer
wBorderWidth As Integer
wBorders As Integer
End Type
Private Const WM_USER = &H400
Private Const EM_SETPARAFORMAT = (WM_USER + 71)
Private Const MAX_TAB_STOPS = 32
Private Const PFM_SPACEBEFORE = &H40
Public Sub InitRTB(RTB as RichTextBox)
Dim paraFormat As PARAFORMAT2
paraFormat.cbSize = Len(paraFormat)
paraFormat.dwMask = PFM_SPACEBEFORE
paraFormat.dySpaceBefore = 10
SendMessage RTB.hWnd, EM_SETPARAFORMAT, 0, paraFormat
End Sub
And.... it doesn't work ._.
What'd I do wrong? |
__________________
You are just a puppet... you have no heart... and cannot feel any pain...
--Sephiroth
|
|
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
|
|
|
| Thread Tools |
|
|
| Display Modes |
 Linear Mode
|
Posting Rules
|
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
HTML code is Off
|
|
|
|
|
|
|
|
 |
|
