有没有办法让 richtextbox 背景透明或者显示图片背景？

mingmingde 2007-11-13 12:25:46

我希望 richtextbox 可以用图案做背景，但不知道怎么做。
我想如果richtextbox 背景可以透明的话，背后后放个picturebox显示图片也可以。
但就是不知道怎么做。

请教各位高手啦！

谢谢！

...全文

339 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

jinder 2007-11-19

打赏
举报

窗口半透明容易,控件半透明就挺难的,至少我玩了几个月VB了都没看到过相关的东西.为了这个效果曾经就用过两个窗口叠加来实现目的,实现是实现了,只是心里就是不那么爽,感觉就是不够高明.期待高手...

KevinI668 2007-11-19

打赏
举报

背景圖片！感興趣￣學習中。。

脆皮大雪糕 2007-11-14

打赏
举报

放一个image控件在richedit后面然后用下面的代码让richedit背景透明

Option Explicit

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_TRANSPARENT = &H20&
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Sub Form_Load()
Image1.Top = RichTextBox1.Top
Image1.Left = RichTextBox1.Left
Image1.Width = RichTextBox1.Width
Image1.Height = RichTextBox1.Height
SetWindowLong RichTextBox1.hwnd, GWL_EXSTYLE, GetWindowLong(RichTextBox1.hwnd, GWL_EXSTYLE) Or WS_EX_TRANSPARENT
End Sub

mingmingde 2007-11-14

打赏
举报

昨天夜里终于搞定了透明，用的就是上面的代码。
但也发现一个问题，就是透明后，如果用鼠标滚轮或滚动条移动字幕后常常不显示文字，需要再点一下滚动条才显示文字，郁闷！

所以我想能不能做个半透明的或许可以解决这个问题，而且我也希望背景看起来朦胧的感觉更好。

继续请教各位大侠了！

另外，我是新来的，以前很少用网络，不知道这里“加分”“给分”怎么回事。
发帖时提示有20分，我不知道怎么结贴怎么给分。

真的好惭愧！

mingmingde 2007-11-14