在 Visual Basic 2008 中如何将标签（Label）背景色设置成透明？

Posted 2023-05-07

请给出具体实施办法，我将Label的BackColor属性设置成Transparent，却没作用。我的Label下是PictureBox,并设置了图片，这样如果Label有底色，效果将不好.以前用Delphi时设置一下标签成透明属性就行，但VB2008怎么不行？

VB.net要在Picture中Label显示透明色，如下示例：

Dim Label_1 As New Label()

With Label_1

            .Height = 20

            .Width = 100

            .Text = "动态添加Label控件."

            .Left = 9

            .Top = 9

            .BackColor = Color.Transparent

End With

Me.PictureBox1.Controls.Add(Label_1)

如图你可以看到效果.

参考技术A VB中要想设置LABEL控件背景色为透明，应该是BackStyle属性，而不是你说的BackColor属性。你在试一试，不行我在给你说。QQ：568502724

如何在 Visual Basic 6 中解码字符串

【中文标题】如何在 Visual Basic 6 中解码字符串

【英文标题】：How to decode a string in Visual Basic 6

【发布时间】：2016-02-11 23:11:27

【问题描述】：

我正在尝试在我的Visual Basic 6 中读取 .DB (Paradox 5) 文件。 除了编码/字符集，一切都很好。它显示为 Iieiei 75a 而不是西里尔字符串。

这是我的 ODBC 连接字符串：

Driver=Microsoft Paradox Driver (*.db );DriverID=538;Fil=Paradox 4.X;DataCodePage=ANSI;BDE=2;CollatingSequence=ASCII;AutoTranslate=No;DBQ=C:\Database;DefaultDir=C:\Database

请注意，Borland Database Desktop 之类的软件可以毫无问题地显示此字符串。在另一台 PC 上也一切正常。

我通过 regedit 设置了以下设置，但没有帮助：

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Xbase] 
"DataCodePage"="ANSI" 
"BDE"=dword:00000002 

我也试过用CharToOem/Oem2Char Win API函数，没用。

有什么想法吗？

【问题讨论】：

当您告诉它使用ANSI 时，它可能使用当前会话的代码页？也许插入您的数据编码的确切代码页以使其普遍工作？

【参考方案1】：

好的，我已经通过更改以下注册表值解决了这个问题：

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Xbase] 
"DataCodePage"="ANSI" 
"BDE"=dword:00000002 

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1252"="1251.nls"

上次设置已解决问题。