|
Rich Text Box Margin (Sdk)
Rich Text Box Margin // Sdk
Jul 1, 2002, 11:47pm
How do i make a margin for the chat messages? I am using spaces now so it's
not very good. It's all a little off. A margin would work a lot better so
the amount of space the characters in the name take up doesn't effect how
well lined up all the chat messages are. LOL, that was confusing.
I am trying to make a Rich Text Box act the way the chatbox in ActiveWorlds
behaves. Everything is pretty simple except for the large space inbetween
the name and the message. I'll show you what I've got and you tell me how to
fix it. How's that? ;-)
Private Sub SDK_EventChat()
AwChat.SelBold = False
AwChat.SelItalic = False
AwChat.SelColor = vbBlack
AwChat.SelText = SDK.AwAvatarName & ":"
For X = 1 To 17 - Len(SDK.AwAvatarName)
AwChat.SelText = " "
Next X
AwChat.SelText = SDK.AwChatMessage & vbCrLf
End Sub
Jul 2, 2002, 2:00am
Well, I don't program VB but I looked at the VB documentation and I guess you might try
AwChat.SelIndent and setting it to something around .5 to 2.0, gotta love documentation :D Keep
in mind with Rich Text controls the indent property can is skipped if you do something like
Name:<tabchr>Message - the tabchr is ASCII code 9, hope this might help, if not my attempting to
make since of the VB docs without knowledge of VB has not been successful :)
- YP
[View Quote]"dion" <Dion at digevo.net> wrote in message news:3d21063e$1 at server1.Activeworlds.com...
How do i make a margin for the chat messages? I am using spaces now so it's
not very good. It's all a little off. A margin would work a lot better so
the amount of space the characters in the name take up doesn't effect how
well lined up all the chat messages are. LOL, that was confusing.
|
I am trying to make a Rich Text Box act the way the chatbox in ActiveWorlds
behaves. Everything is pretty simple except for the large space inbetween
the name and the message. I'll show you what I've got and you tell me how to
fix it. How's that? ;-)
Private Sub SDK_EventChat()
AwChat.SelBold = False
AwChat.SelItalic = False
AwChat.SelColor = vbBlack
AwChat.SelText = SDK.AwAvatarName & ":"
For X = 1 To 17 - Len(SDK.AwAvatarName)
AwChat.SelText = " "
Next X
AwChat.SelText = SDK.AwChatMessage & vbCrLf
End Sub
Jul 2, 2002, 2:35am
Alright, I guess that worked. LOL, I dunno why I didn't think of that :-P
The only thing else I needed to add was to put one tab for names with more
than 10 characters and two for names with less than 10 characters. :-)
Thanks :)
[View Quote]"young phalpha" <RhaneC at msn.com> wrote in message
news:3d212575 at server1.Activeworlds.com...
> Well, I don't program VB but I looked at the VB documentation and I guess
you might try
> AwChat.SelIndent and setting it to something around .5 to 2.0, gotta love
documentation :D Keep
> in mind with Rich Text controls the indent property can is skipped if you
do something like
> Name:<tabchr>Message - the tabchr is ASCII code 9, hope this might help,
if not my attempting to
> make since of the VB docs without knowledge of VB has not been successful
:)
>
> - YP
>
> "dion" <Dion at digevo.net> wrote in message
news:3d21063e$1 at server1.Activeworlds.com...
> How do i make a margin for the chat messages? I am using spaces now so
it's
> not very good. It's all a little off. A margin would work a lot better so
> the amount of space the characters in the name take up doesn't effect how
> well lined up all the chat messages are. LOL, that was confusing.
>
> I am trying to make a Rich Text Box act the way the chatbox in
ActiveWorlds
> behaves. Everything is pretty simple except for the large space inbetween
> the name and the message. I'll show you what I've got and you tell me how
to
> fix it. How's that? ;-)
>
> Private Sub SDK_EventChat()
> AwChat.SelBold = False
> AwChat.SelItalic = False
> AwChat.SelColor = vbBlack
> AwChat.SelText = SDK.AwAvatarName & ":"
> For X = 1 To 17 - Len(SDK.AwAvatarName)
> AwChat.SelText = " "
> Next X
> AwChat.SelText = SDK.AwChatMessage & vbCrLf
> End Sub
>
>
>
|
Jul 2, 2002, 4:02am
the margin specifies how big the tab is
- YP
[View Quote]"dion" <Dion at digevo.net> wrote in message news:3d212d83$1 at server1.Activeworlds.com...
Alright, I guess that worked. LOL, I dunno why I didn't think of that :-P
The only thing else I needed to add was to put one tab for names with more
than 10 characters and two for names with less than 10 characters. :-)
|
Thanks :)
[View Quote]"young phalpha" <RhaneC at msn.com> wrote in message
news:3d212575 at server1.Activeworlds.com...
> Well, I don't program VB but I looked at the VB documentation and I guess
you might try
> AwChat.SelIndent and setting it to something around .5 to 2.0, gotta love
documentation :D Keep
> in mind with Rich Text controls the indent property can is skipped if you
do something like
> Name:<tabchr>Message - the tabchr is ASCII code 9, hope this might help,
if not my attempting to
> make since of the VB docs without knowledge of VB has not been successful
:)
>
> - YP
>
> "dion" <Dion at digevo.net> wrote in message
news:3d21063e$1 at server1.Activeworlds.com...
> How do i make a margin for the chat messages? I am using spaces now so
it's
> not very good. It's all a little off. A margin would work a lot better so
> the amount of space the characters in the name take up doesn't effect how
> well lined up all the chat messages are. LOL, that was confusing.
>
> I am trying to make a Rich Text Box act the way the chatbox in
ActiveWorlds
> behaves. Everything is pretty simple except for the large space inbetween
> the name and the message. I'll show you what I've got and you tell me how
to
> fix it. How's that? ;-)
>
> Private Sub SDK_EventChat()
> AwChat.SelBold = False
> AwChat.SelItalic = False
> AwChat.SelColor = vbBlack
> AwChat.SelText = SDK.AwAvatarName & ":"
> For X = 1 To 17 - Len(SDK.AwAvatarName)
> AwChat.SelText = " "
> Next X
> AwChat.SelText = SDK.AwChatMessage & vbCrLf
> End Sub
>
>
>
|
Jul 2, 2002, 11:05am
Unless you're using a fixed font (e.g. courier new) in the RT box, you
really want to be working out the width of the text in pixels rather than
the number if characters ("WWWWW" is much wider that "IIIII").
You can do this using the TextWidth property of either the form of an
invisible picture box (with the same font settings as the RT Box).
You can find it in the VB local help or (sorry if the link gets split in the
post) at
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vb98/html/v
bmthtextwidth.asp
Grims
[View Quote]"dion" <Dion at digevo.net> wrote in message
news:3d212d83$1 at server1.Activeworlds.com...
> Alright, I guess that worked. LOL, I dunno why I didn't think of that :-P
> The only thing else I needed to add was to put one tab for names with more
> than 10 characters and two for names with less than 10 characters. :-)
>
> Thanks :)
>
> "young phalpha" <RhaneC at msn.com> wrote in message
> news:3d212575 at server1.Activeworlds.com...
guess
> you might try
love
> documentation :D Keep
you
> do something like
> if not my attempting to
successful
> :)
> news:3d21063e$1 at server1.Activeworlds.com...
> it's
so
how
> ActiveWorlds
inbetween
how
> to
>
>
|
Jul 2, 2002, 11:09am
For a chat window, maybe the SelHangingIndent property would be more
suitable (also indents wrapped lines of a "paragraph").
Grims
[View Quote]"young phalpha" <RhaneC at msn.com> wrote in message
news:3d212575 at server1.Activeworlds.com...
> Well, I don't program VB but I looked at the VB documentation and I guess
you might try
> AwChat.SelIndent and setting it to something around .5 to 2.0, gotta love
documentation :D Keep
> in mind with Rich Text controls the indent property can is skipped if you
do something like
> Name:<tabchr>Message - the tabchr is ASCII code 9, hope this might help,
if not my attempting to
> make since of the VB docs without knowledge of VB has not been successful
:)
>
> - YP
>
> "dion" <Dion at digevo.net> wrote in message
news:3d21063e$1 at server1.Activeworlds.com...
> How do i make a margin for the chat messages? I am using spaces now so
it's
> not very good. It's all a little off. A margin would work a lot better so
> the amount of space the characters in the name take up doesn't effect how
> well lined up all the chat messages are. LOL, that was confusing.
>
> I am trying to make a Rich Text Box act the way the chatbox in
ActiveWorlds
> behaves. Everything is pretty simple except for the large space inbetween
> the name and the message. I'll show you what I've got and you tell me how
to
> fix it. How's that? ;-)
>
> Private Sub SDK_EventChat()
> AwChat.SelBold = False
> AwChat.SelItalic = False
> AwChat.SelColor = vbBlack
> AwChat.SelText = SDK.AwAvatarName & ":"
> For X = 1 To 17 - Len(SDK.AwAvatarName)
> AwChat.SelText = " "
> Next X
> AwChat.SelText = SDK.AwChatMessage & vbCrLf
> End Sub
>
>
>
|
|