VB单击标签, 文字居中对齐,双击标签时背景透明,这个程序怎么做
窗体上设计一个标签,VB单击标签,文字居中对齐,双击标签时背景透明,这个程序怎么做?哪位大神可以把制作步骤告诉小弟啊。。。。不胜感激,急用...
窗体上设计一个标签,VB单击标签, 文字居中对齐,双击标签时背景透明,这个程序怎么做?哪位大神可以把制作步骤告诉小弟啊。。。。不胜感激,急用
展开
3个回答
展开全部
窗体上一标签label1,代码如下:
Private Sub Label1_Click()'单击
If Label1.Alignment = 0 Then
Label1.Alignment = 2
Else
Label1.Alignment = 0
End If
End Sub
Private Sub Label1_DblClick()'双击
If Label1.BackStyle = 0 Then
Label1.BackStyle = 1
Else
Label1.BackStyle = 0
End If
End Sub
Private Sub Label1_Click()'单击
If Label1.Alignment = 0 Then
Label1.Alignment = 2
Else
Label1.Alignment = 0
End If
End Sub
Private Sub Label1_DblClick()'双击
If Label1.BackStyle = 0 Then
Label1.BackStyle = 1
Else
Label1.BackStyle = 0
End If
End Sub
展开全部
自己学习标签的属性即可。
追问
就是自学不了所以才求助
追答
呵呵,这个都学不了基本可以不学了,建议您放弃吧。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
引用寒信HK的回答:
窗体上一标签label1,代码如下:
Private Sub Label1_Click()'单击
If Label1.Alignment = 0 Then
Label1.Alignment = 2
Else
Label1.Alignment = 0
End If
End Sub
Private Sub Label1_DblClick()'双击
If Label1.BackStyle = 0 Then
Label1.BackStyle = 1
Else
Label1.BackStyle = 0
End If
End Sub
窗体上一标签label1,代码如下:
Private Sub Label1_Click()'单击
If Label1.Alignment = 0 Then
Label1.Alignment = 2
Else
Label1.Alignment = 0
End If
End Sub
Private Sub Label1_DblClick()'双击
If Label1.BackStyle = 0 Then
Label1.BackStyle = 1
Else
Label1.BackStyle = 0
End If
End Sub
展开全部
我试过了。那个最佳答案做不出来啊
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询