有能够实现richtextbox控件的透明效果的源码吗？
[问题点数：0分]
有能够实现richtextbox控件的透明效果的源码吗？
[问题点数：0分]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2007年5月 VB大版内专家分月排行榜第一2007年4月 VB大版内专家分月排行榜第一2005年12月 VB大版内专家分月排行榜第一2004年2月 VB大版内专家分月排行榜第一2004年1月 VB大版内专家分月排行榜第一2003年11月 VB大版内专家分月排行榜第一2003年10月 VB大版内专家分月排行榜第一
2007年6月 VB大版内专家分月排行榜第二2006年3月 VB大版内专家分月排行榜第二2006年2月 VB大版内专家分月排行榜第二2006年1月 VB大版内专家分月排行榜第二2004年9月 VB大版内专家分月排行榜第二2004年8月 VB大版内专家分月排行榜第二2004年3月 VB大版内专家分月排行榜第二2003年12月 VB大版内专家分月排行榜第二2003年9月 VB大版内专家分月排行榜第二2003年7月 VB大版内专家分月排行榜第二2003年6月 VB大版内专家分月排行榜第二2003年5月 VB大版内专家分月排行榜第二
2003年4月 荣获微软MVP称号
2002年12月 VB大版内专家分月排行榜第一2002年11月 VB大版内专家分月排行榜第一2002年10月 VB大版内专家分月排行榜第一2002年9月 VB大版内专家分月排行榜第一2002年8月 VB大版内专家分月排行榜第一2002年7月 VB大版内专家分月排行榜第一2002年6月 VB大版内专家分月排行榜第一2002年5月 VB大版内专家分月排行榜第一
2003年4月 荣获微软MVP称号
2002年12月 VB大版内专家分月排行榜第一2002年11月 VB大版内专家分月排行榜第一2002年10月 VB大版内专家分月排行榜第一2002年9月 VB大版内专家分月排行榜第一2002年8月 VB大版内专家分月排行榜第一2002年7月 VB大版内专家分月排行榜第一2002年6月 VB大版内专家分月排行榜第一2002年5月 VB大版内专家分月排行榜第一
匿名用户不能发表回复！|vb中的RichTextBox控件_百度知道
vb中的RichTextBox控件
vb中用RichTextBox控件怎样和Timer控件联系制作出
文档自动滚屏啊？
我找了点代码但只是点一个按钮向下挫一行，但不能自动向下移动！
Const EM_LINESCROLL = &HB6
Private Declare Function SendMessageBynum Lib &user32& Alias &SendMes...
我有更好的答案
可以参考如下的代码:
WM_VSCROLL
SB_LINELEFT
SB_LINEDOWN
SB_LINERIGHT
SB_PAGELEFT
SB_PAGEDOWN
SB_PAGERIGHT
SB_THUMBPOSITION
SB_THUMBTRACK
SB_ENDSCROLL
[System.Runtime.InteropServices.DllImport(&user32.dll&)]
ScrollWindow(IntPtr
XAmount,int
YAmount,ref
lpRect,ref
lpClipRect);
[System.Runtime.InteropServices.DllImport(&user32.dll&)]
SetScrollPos(IntPtr
[System.Runtime.InteropServices.DllImport(&user32.dll&)]
SetScrollPos(int
[System.Runtime.InteropServices.DllImport(&user32.dll&)]
UpdateWindow(IntPtr
[System.Runtime.InteropServices.DllImport(&user32.dll&)]
SendMessage(IntPtr
SelfSrcoll(IntPtr
SendMessage(handle,
WM_VSCROLL,
SB_LINEDOWN,
//UpdateWindow(handle);
button3_Click(object
System.EventArgs
SelfSrcoll(this.richTextBox1.Handle);
为您推荐：
其他类似问题
richtextbox的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB.NET中的Richtextbox控件_百度知道
VB.NET中的Richtextbox控件
做了个记事本,使用了Richtextbox控件,请问如何设置Richtextbox里的字体颜色,使得在保存之后,字体颜色不会变回黑色,而是在Richtextbox控件设置的颜色,
我有更好的答案
Richtextbox控件使用的字符格式为RTF如果你想存储格式信息的话，那么必须存储Richtextbox控件的RTF而不是Text，如果你不了解RTF的话，那么得具体去研究一下了，相当牛的一种格式，不光可以存储文字，还可以存储图片等信息。至于设置字体颜色和大小，你可以使用.NET提供的字体控件，为选中的文字设置格式，详细代码在MSDN上可以找到。
控件forecolor属性
为您推荐：
其他类似问题
richtextbox的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB：RichTextBox是什么标准控件，在哪里找到_百度知道
VB：RichTextBox是什么标准控件，在哪里找到
我有更好的答案
不是标准控件ctrl+t 调出“部件” 对话框，选择 “Microsoft Rich Textbox Control 6.0 (SP6)” 即可
采纳率：61%
答：打开VB，按下“工程”菜单。选择“部件”，向下拉动滚动条，出现Microsoft rich textbox control6.0复选框，勾选上后.在工具箱里多一个项目，就是它。RichTextBox是显示文档的。
为您推荐：
其他类似问题
您可能关注的内容
richtextbox的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。请教delphi中TRichTextBox控件的用法
60larrykan]
编辑：www.fx114.net
本篇文章主要介绍了"请教delphi中TRichTextBox控件的用法
60larrykan]"，主要涉及到请教delphi中TRichTextBox控件的用法
60larrykan]方面的内容，对于请教delphi中TRichTextBox控件的用法
60larrykan]感兴趣的同学可以参考一下。
我想用TRichTextBox控件做一个聊天程序。但不知道如何使用该控件。请指点：
如何发送和显示文本以及带有图片的信息。
假设RichTextBox1是发送信息的输入框，RichTextBox2是显示聊天记录的区域，当我输入内容，点击发送时，如下语句不起作用
RichTextBox2.TextRTF:=RichTextBox2.TextRTF+RichTextBox1.TextRTF;procedure&TForm1.Button1Click(Sender:&TObject);
&&RichTextBox2.SelStart:=length(RichTextBox2.Text);
&&RichTextBox2.SelText:=RichTextBox1.TextRTF;
&&RichTextBox1.Text:='';
关于显示图片，去百度嗖&‘RichTextBox&显示图片’网上大把大把的源码
搜搜更健康广州大哥，谢谢你的指点，还想多请教一下，我希望在显示聊天信息时，把对方的名字和发送时间也显示出来，并且用的字体和聊天文本的字体不同,就像QQ显示的那样，该如何实现啊？
我用这个&RichTextBox2.SelText:=&friendName+'&'+datetimetostr(now)+':'+#13#10+RichTextBox1.TextRTF;
可是显示的是乱七八糟的东西RichTextBox2.SelText:=RichTextBox1.TextRTF我尝试把聊天内容拆开显示，按照如下代码，结果字体显示统一为8，不知道为什么
&&RichTextBox2.SelStart:=length(RichTextBox2.Text);
&&RichTextBox2.SelFontSize&:=8;
&&RichTextBox2.SelText:=friendName+'&'+datetimetostr(now)+#13#10;
&&RichTextBox2.SelStart:=length(RichTextBox2.Text);
&&RichTextBox2.SelFontSize&:=20;
&&RichTextBox2.SelText:=RichTextBox1.Text+#13#10;
&&RichTextBox1.Text:='';引用&4&楼&larrykan&的回复:...把对方的名字和发送时间也显示出来，并且用的字体和聊天文本的字体不同,就像QQ...
procedure&TForm1.Button1Click(Sender:&TObject);
const&Chatter_A='广州佬()&';
&&&&&&Chatter_B='larrykan(未知)&';
var&s:WideS
&&&&startstr,len:
&&procedure&poststr(str:const&clr:TColor=clH
&&&&const&size:integer=10;&Bold:boolean=&fsItalic:boolean=&Underline:boolean=false);
&&&&len:=length(str);
&&&&startstr:=length(RichTextBox2.Text);
&&&&RichTextBox2.SelStart:=
&&&&RichTextBox2.SelText:=
&&&&RichTextBox2.SelStart:=
&&&&RichTextBox2.SelLength:=len-1;
&&&&RichTextBox2.SelColor:=
&&&&RichTextBox2.SelFontSize:=
&&&&RichTextBox2.SelBold:=B
&&&&RichTextBox2.SelItalic:=fsI
&&&&RichTextBox2.SelUnderline:=U
&&s:=#13#10+#13#10+Chatter_A+&formatdatetime('yy-mm-dd,hh-nn-ss',now);
&&poststr(s);
&&s:=#13#10+'http://topic.csdn.net/u//a0c502c0-7bb9-45fa-8c07-632c547e459e.html';
&&poststr(s,clBlue,8,false,false,true);
&&s:=#13#10+'您真省，40分问了几个问题？';
&&poststr(s,clBlue);
&&s:=#13#10+#13#10+Chatter_B+&formatdatetime('yy-mm-dd,hh-nn-ss',now);
&&poststr(s);
&&s:=#13#10+'放心，下次我开新帖给你分。';
&&poststr(s,clRed,16);
&&s:=#13#10+#13#10+Chatter_A+&formatdatetime('yy-mm-dd,hh-nn-ss',now);
&&poststr(s);
&&s:=#13#10+'那就先谢了~';
&&poststr(s,clBlue,18,true,true);
或改成这样：//如要选字体，请自行在过程及调用中加多这参数
procedure&poststr(RTBox:TRichTextB&str:const&clr:TColor=clH
&&&&const&size:integer=10;&Bold:boolean=&fsItalic:boolean=&Underline:boolean=false);
var&startstr,len:
&&with&RTBox&do&begin
&&&&len:=length(str);
&&&&startstr:=length(Text);
&&&&SelStart:=
&&&&SelText:=
&&&&SelStart:=
&&&&SelLength:=len-1;
&&&&SelColor:=&&&&&//颜色
&&&&SelFontSize:=&//字号
&&&&SelBold:=B&&&&&//加粗
&&&&SelItalic:=fsI&//斜体
&&&&SelUnderline:=U&//下划线
procedure&TForm1.Button1Click(Sender:&TObject);
const&Chatter_A='广州佬()&';
&&&&&&Chatter_B='larrykan(未知)&';
&&s:=#13#10+#13#10+Chatter_A+&formatdatetime('yy-mm-dd,hh-nn-ss',now);
&&poststr(RichTextBox2,s);
&&s:=#13#10+'http://topic.csdn.net/u//a0c502c0-7bb9-45fa-8c07-632c547e459e.html';
&&poststr(RichTextBox2,s,clBlue,8,false,false,true);
&&s:=#13#10+'您真省，40分问了几个问题？';
&&poststr(RichTextBox2,s,clBlue);
&&s:=#13#10+#13#10+Chatter_B+&formatdatetime('yy-mm-dd,hh-nn-ss',now);
&&poststr(RichTextBox2,s);
&&s:=#13#10+'放心，下次我开新帖给你分。';
&&poststr(RichTextBox2,s,clRed,16);
&&s:=#13#10+#13#10+Chatter_A+&formatdatetime('yy-mm-dd,hh-nn-ss',now);
&&poststr(RichTextBox2,s);
&&s:=#13#10+'那就先谢了~';
&&poststr(RichTextBox2,s,clBlue,18,true,true);
多谢广州大哥，幽默与智慧并重，英雄与侠义的化身！下次开个300分的新帖给你哈！哈哈，你当真啊，你都结贴了，我还回你问题，可见...
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播不法有害信息！
二、互相尊重，对自己的言论和行为负责。
本文标题：
本页链接：