在线高分求RichTextBox透明,要求要代码,
分不够可与再加
分不够可与再加
解决方案 »
- 用VB文本搜索
- 解决空字符没法倒入!!!!!!!!!!!
- addnew后直接update成功,可是修改后再次update就报错,提示没有更新行信息。为何?
- [版务]任命ratcn为VB非技术小版主
- 记录集addnew方法的问题
- 朋友请进!在函数中怎样判断传过来的变量是文件还是文件夹?
- 关于 byte 类型转换为string,并且排序的问题
- 请问:用Access2000建的数据库在Vb6中如何读写?
- 在VB当中如何统计DataGrid的可见行数。
- 请问从一个字符串中(比如"PID QID")这样的中间有空格的用哪个函数一个一个读出!谢谢了!!!
- 怎样预先知道windows扫雷方块下面的数字
- 如何实现MSHFLEXGRID控件部分单元格合并
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 SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2Private Sub Form_Load()
Dim rtn As Long
rtn = GetWindowLong(Form1.hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong Form1.hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes Form1.hwnd, 0, 100, LWA_ALPHA
End Sub
200为透明度,取值范围是0-255
你可以把richtextbox设置和form一样大,不要标题栏
呵呵~~