社区
C#
帖子详情
怎么做透明的label?在VB中设置backStyle为transparent就行了,在C#中呢?谢谢
yuaiwu
2003-08-26 10:28:58
谢谢
...全文
297
7
打赏
收藏
怎么做透明的label?在VB中设置backStyle为transparent就行了,在C#中呢?谢谢
谢谢
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
帅帅123321
2003-08-26
打赏
举报
回复
cellpadding=0
cellspacing=0
border=0
设置着3个就可以了。。。很简单呀。。为什么就没人回呢~我晕
okok999
2003-08-26
打赏
举报
回复
废话是哪个属性啊?
newlytech
2003-08-26
打赏
举报
回复
c#中也有一属性设置控件透明度,看看属性栏就行了,每个控件都有
李洪喜
2003-08-26
打赏
举报
回复
我也没有找到在哪里可以设置。
lobu
2003-08-26
打赏
举报
回复
label1.color 这样不行啊!
20030514
2003-08-26
打赏
举报
回复
label1.parent=parent;
label1.color=color.transparent;
yuaiwu
2003-08-26
打赏
举报
回复
我是winForm下,没有你说的东西吧
sql+
vb
。点餐系统
点餐系统,sql+
vb
。大家交流 VERSION 5.00 Begin
VB
.Form 主食 BackColor = &H80000009& Caption = "主食" ClientHeight = 9165 ClientLeft = 450 ClientTop = 1425 ClientWidth = 14400 LinkTopic = "Form7" ScaleHeight = 9165 ScaleWidth = 14400 Begin
VB
.Timer Timer1 Interval = 800 Left = 4920 Top = 8400 End Begin
VB
.CommandButton Command1 BackColor = &H00FF00FF& Caption = "返回" DownPicture = "曹道耘3.frx":0000 BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 8280 Picture = "曹道耘3.frx":41FA TabIndex = 5 Top = 8400 Visible = 0 'False Width = 1215 End Begin
VB
.Image Image5 Height = 4410 Left = 4920 Picture = "曹道耘3.frx":8707 Top = 2760 Width = 4455 End Begin
VB
.Image Image4 Height = 4395 Left = 9840 Picture = "曹道耘3.frx":D393 Top = 4680 Width = 4470 End Begin
VB
.Image Image3 Height = 4380 Left = 9840 Picture = "曹道耘3.frx":12B42 Top = 120 Width = 4470 End Begin
VB
.Image Image2 Height = 4380 Left = 120 Picture = "曹道耘3.frx":17B18 Top = 4680 Width = 4455 End Begin
VB
.Image Image1 Height = 4410 Left = 12
自绘
VB
列表OCX控件
纯代码编写的一款
VB
列表OCX控件,它与
VB
自带的ListBox列表类似,作者只是在外观上添加了一些功能,比如,背景可
设置
纯颜色,双色渐变(多选),斑马,图片,透视,网格线。鼠标经过和选
中
的行背景颜色,改变滚动条样式和颜色,添加项目可加载图标图片,单独一行的序列号和备注显示,界面有平面和立体选项等。 对追求外观界面控件的
VB
爱好者,以及小白,对数组编写有很好的学习价值,该实例还有很有扩展的地方,可以自行编写,更多
VB
源码就在https://blog.csdn.net/ty5858?type=blog 控件属性说明: hwnd: 控件的句柄。 ListCount: 列表数组数据的总数量。 List: 返回/
设置
控件的列表部分
中
包含的项。 ListIndex: 返回/
设置
该控件
中
当前选定项目的索引。 Text: 返回/
设置
控件
中
包含的文本。 BackColor: 返回/
设置
列表对象的背景颜色。 BackIndex: 返回/
设置
编辑列表对象背景颜色索引号。 Back
Style
: 返回/
设置
背景显示的样式。 BackzShade: 返回/
设置
对象背景渐变的样式(当前 BackS
河南科技大学08级函授计算机应用专业 第三学期
VB
作业
P12、 1.1 简述Visual Basic 的特点。 答:(l)可视化的设计平台;(2)面向对象的程序设计;(3)事件驱动的编程机制;(4)结构化的设计语言;(5)充分利用Windows资源;(6)开放的数据库功能与网络支持 P30、 2.1 什么是对象的属性、事件和方法? 答:对象的属性是指对象所具有的性质,不同的对象具有不同的属性。事件泛指能被对象识别的用户操作动作或对象状态的变化发出的信息,也即对象的响应。方法是指对象本身所具有的、反映该对象功能的内部函数或过程,也即对象的动作。 2.4 简述
VB
可视化编程的一般步骤。 答:1、新建一个工程2、添加控件3、
设置
属性4、编写代码5、运行工程6、修改工程7、保存工程 P47、 3.2 下列哪个符号不能作为
VB
中
的变量名? (1)ABCabc (2)b1234 (3)28wed (4)cmd 答:(3)28wed 不能作为
VB
中
的变量,在
VB
中
变量名第一个字符必须是英文字母。 3.3 下列符号哪一个是
VB
中
的合法变量名? (1)x23 (2)8xy (3)END (4)X8[B] 答:(1)x23 为合法变量名。 3.8 表达式2*3^2+2*8/4+3^2的值为: (1)64 (2)31 (3)49 (4)22 答:(2)31 P48、 3.14 函数Int(Rnd(0)*100)是在下列哪个范围内的整数? (1)(0,10) (2)(1,100) (3)(0,99) (4)(1,99) 答:(3)(0,99) 3.16 数学式子 sin30° 写成
VB
表达式是: (1)Sin30° (2)Sin(30) (3)SIN(30°) (4)Sin(30*3.14/180) 答:(2)Sin(30) P67、 4.1 利用标签控件制作阴影文字,文字内容设为“缤纷世界”。提示:利用标签控件的Top、Left与Back
Style
属性。 解: Private Sub Command1_Click()
Label
1.Caption = "缤纷世界"
Label
2.Caption = "缤纷世界"
Label
1.Top =
Label
1.Top - 0
Label
1.Left =
Label
1.Left - 0
Label
1.Back
Style
= 0
Label
2.Top =
Label
1.Top + 50
Label
2.Left =
Label
1.Left + 50
Label
2.Back
Style
= 0
Label
2.ForeColor = &HFFFF& End Sub
发廊管理系统 ,sql+
vb
VERSION 5.00 Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "Msadodc.OCX" Begin
VB
.Form FrmLogin BackColor = &H00FFFFFF& Border
Style
= 0 'None Caption = "学生信息管理系统" ClientHeight = 10005 ClientLeft = 1575 ClientTop = 1290 ClientWidth = 12045 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False Picture = "login.frx":0000 ScaleHeight = 10005 ScaleWidth = 12045 ShowInTaskbar = 0 'False Begin
VB
.CommandButton Command3 BackColor = &H00C0FFFF& Caption = "新会员注册" BeginProperty Font Name = "隶书" Size = 15.75 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 855 Left = 2040 MaskColor = &H00FFFFFF&
Style
= 1 'Graphical TabIndex = 9 Top = 6120 Width = 1215 End Begin MSAdodcLib.Adodc Adodc1 Height = 735 Left = 1200 Top = 7680 Visible = 0 'False Width = 3255 _ExtentX = 5741 _ExtentY = 1296 ConnectMode = 0 CursorLocation = 3 IsolationLevel = -1 ConnectionTimeout= 15 CommandTimeout = 30 CursorType = 2 LockType = 3 CommandType = 2 CursorOptions = 0 CacheSize = 50 MaxRecords = 0 BOFAction = 0 EOFAction = 0 ConnectStringType= 1 Appearance = 1 BackColor = -2147483643 ForeColor = -2147483640 Orientation = 0 Enabled = -1 Connect = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=发廊会员表;Data Source=." OLEDBString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=发廊会员表;Data Source=." OLEDBFile = "" DataSourceName = "" OtherAttributes = "" UserName = "" Password = "" RecordSource = "发廊会员表" Caption = "Adodc1" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "宋体" Size = 9 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty _Version = 393216 End Begin
VB
.Timer Timer1 Interval = 100 Left = 6240 Top = 4800 End Begin
VB
.Frame Frame1 BackColor = &H00C0FFFF& Caption = "用户信息" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 1695 Left = 480 TabIndex = 3 Top = 2760 Width = 4575 Begin
VB
.TextBox Text1 BackColor = &H0080FFFF& DataSource = "Adodc1" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF8080& Height = 495 Left = 1920 TabIndex = 5 Top = 360 Width = 1815 End Begin
VB
.TextBox Text2 BackColor = &H0080FFFF& DataSource = "Adodc1" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF8080& Height = 495 IMEMode = 3 'DISABLE Left = 1920 PasswordChar = "*" TabIndex = 4 Top = 960 Width = 1815 End Begin
VB
.
Label
Label
2 AutoSize = -1 'True Back
Style
= 0 '
Transparent
Caption = "用户名" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF00FF& Height = 285 Left = 840 TabIndex = 7 Top = 480 Width = 855 End Begin
VB
.
Label
Label
3 AutoSize = -1 'True Back
Style
= 0 '
Transparent
Caption = "密 码" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF00FF& Height = 285 Left = 840 TabIndex = 6 Top = 960 Width = 870 End End Begin
VB
.CommandButton Command2 BackColor = &H00C0FFFF& Caption = "退出" BeginProperty Font Name = "隶书" Size = 15.75 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 3000
Style
= 1 'Graphical TabIndex = 2 Top = 5280 Width = 1215 End Begin
VB
.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "登录" BeginProperty Font Name = "隶书" Size = 15.75 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 1080
Style
= 1 'Graphical TabIndex = 1 Top = 5280 Width = 1215 End Begin
VB
.
Label
Label
4 AutoSize = -1 'True Back
Style
= 0 '
Transparent
Caption = "欢迎使用唯美发廊系统" BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF00FF& Height = 210 Left = 7200 TabIndex = 8 Top = 240 Width = 2100 End Begin
VB
.
Label
Label
1 AutoSize = -1 'True Back
Style
= 0 '
Transparent
Caption = "发廊系统" BeginProperty Font Name = "宋体" Size = 36 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 720 Left = 1200 TabIndex = 0 Top = 1320 Width = 2880 End End Attribute
VB
_Name = "FrmLogin" Attribute
VB
_GlobalNameSpace = False Attribute
VB
_Creatable = False Attribute
VB
_PredeclaredId = True Attribute
VB
_Exposed = False Public a As String Private Sub Command1_Click() Adodc1.Recordset.MoveFirst Do Until Adodc1.Recordset.EOF If Text1.Text <> Adodc1.Recordset.Fields(0) Then Adodc1.Recordset.MoveNext ElseIf Text2.Text <> Adodc1.Recordset.Fields(5) Then MsgBox "密码错误" Text2.Text = "" Text2.SetFocus Exit Sub Else: a = Text1.Text Unload Me Form2.Show Exit Sub End If Loop MsgBox "用户名错误",
vb
OKOnly, "消息" Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Adodc1.Recordset.Update Adodc1.Refresh Unload Me Form6.Show End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" End Sub Private Sub Timer1_Timer()
Label
4.Left =
Label
4.Left - 50 If
Label
4.Left +
Label
4.Width <= 0 Then
Label
4.Left = FrmLogin.Width End Sub
基于
VB
客票
中
心售票系统
VERSION 5.00 Begin
VB
.Form FrmBackUp BackColor = &H00E7DFE7& Border
Style
= 1 'Fixed Single Caption = "备份数据库" ClientHeight = 1695 ClientLeft = 45 ClientTop = 330 ClientWidth = 4680 Icon = "FrmBackUp.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 1695 ScaleWidth = 4680 Begin
VB
.CommandButton cmdExit Caption = "退出" Height = 495 Left = 2640 TabIndex = 3 Top = 840 Width = 1455 End Begin
VB
.CommandButton cmdBackUp Caption = "备份" Height = 495 Left = 600 TabIndex = 2 Top = 840 Width = 1455 End Begin
VB
.
Label
lbTime AutoSize = -1 'True Back
Style
= 0 '
Transparent
Height = 180 Left = 240 TabIndex = 1 Top = 720 Visible = 0 'False Width = 90 End Begin
VB
.
Label
Label
1 AutoSize = -1 'True Back
Style
= 0 '
Transparent
Caption = "单击“备份”按钮,开始备份数据库。" Height = 180 Left = 240 TabIndex = 0 Top = 240 Width = 3060 End End Attribute
VB
_Name = "FrmBackUp" Attribute
VB
_GlobalNameSpace = False Attribute
VB
_Creatable = False Attribute
VB
_PredeclaredId = True Attribute
VB
_Exposed = False 'Dim fso As New FileSystemObject, fldr As Folder Dim cn As ADODB.Connection Dim success As Long Private Sub cmdBackUp_Click() Dim backFile As String Dim NowTime As String Dim sql As String Dim buff As String If fso.FolderExists(App.Path & "\BackUp") = False Then Set fldr = fso.CreateFolder(App
C#
110,569
社区成员
642,568
社区内容
发帖
与我相关
我的任务
C#
.NET技术 C#
复制链接
扫一扫
分享
社区描述
.NET技术 C#
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
让您成为最强悍的C#开发者
试试用AI创作助手写篇文章吧
+ 用AI写文章