Question

vb label 的问题

是否可以让label 当textbox 使用， 或者有什么办法使text透明 再者我vb里找不到Microsoft Forms 2.0 Object Library有这个控件也就解决了。求帮助
有没有办法能下载到这个Microsoft Forms 2.0 Object Library控件啊？还是我的VB版本问题啊？求解

Answer 1

1、网上有关让textbox控件透明的方法是存在的，我就下载过。的确很漂亮的。如果你找不到，我再发给你吧。
2、应该是你版本的问题，这个控件一安装就有的。你下载一个企业版的吧。现在VB完整版的遍地都是。如果你也找不到的话，我就告诉你一个地址。

追问

本来是我安装了一个精简版本的 安装包就5.9MB 里面就有那个透明控件，后来我又安装了一个大小190MB左右大小企业版（也不知道属不属于你说的完整版） 结果 多了好多控件，但就是没那个透明的控件。 随后我又卸载企业版的，再安装精简版的，里面的控件还是那个企业版的全部控件。所以就没办法找到那个透明控件了。。。

追答

呖，你知道原因吗？我来告诉你吧！

在默认的情况下，vb安装时会把一些文件拷贝到系统文件夹中去，但仅仅拷贝了还不行，必须得注册，就是在注册表中留下一些信息，告诉系统这个文件在。你所说的控件其实是放在一个文件里面的。
vb在重装后，会首先询问系统，此文件在不在？版本如何？如果现在安装的版本比以前的新，就会覆盖，如果旧，则不安装。也就是说，企业版的肯定是最新的，除非你手动或是去注册表里面删除，这个注册文件会一直保留在你的系统里面，直到你重装系统。

Answer 2

也可以考虑在label上放一个对应的textbox，visable设为false，当点击label时使textbox变为可见，并获得焦点，在textbox失去焦点时变为隐藏，同时把里面的值赋予lable，这样就可以了
代码也不多，就在这发给你吧
Private Sub Label1_Click()
Text1.Text = Label1.Caption
Label1.Visible = False
Text1.Visible = True
Text1.SetFocus
Text1.SelStart = Len(Text1.Text)
End Sub

Private Sub Text1_LostFocus()
Label1.Caption = Text1.Text
Label1.Visible = True
Text1.Visible = False
End Sub

Answer 3

BackStyle属性为0时，label背景就为透明

Answer 4

TEXTBOX本身边框设为NONE 边框颜色再跟背景一样 应该就差不多了

Answer 5

sdafasfd