level 10
要做无边框窗体,窗口四边有黑色直线、可拖动、不遮挡任务栏,这怎么做的出来?
2013年04月30日 14点04分
1
level 11
两种方法可做到
1、xaml+vb.net
2、winform+vb.net
具体代码拼写忘的差不多了,到家给你找找
2013年05月02日 04点05分
2
level 11
先说第一种方法,建立一个WPF窗体,将window1的属性中添加
Windowstyle="None" AllowsTransparency="True" Background="Transparent"
这三个属性,置于边框可以用PS做一个效果底图,将Background设置为底图就可以了
第二种方法是使用WinForm窗体,将form1的FormBorderStyle属性设置为none,窗体拖动是用如下代码:
Private oOriginalRegion As Region = Nothing
' 用于窗体移动
Private bFormDragging As Boolean = False
Private oPointClicked As Point
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
Me.bFormDragging = True
Me.oPointClicked = New Point(e.X, e.Y)
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
Me.bFormDragging = False
End Sub
rivate Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If Me.bFormDragging Then
Dim oMoveToPoint As Point
' 以当前鼠标位置为基础,找出目标位置
oMoveToPoint = Me.PointToScreen(New Point(e.X, e.Y))
' 根据开始位置作出调整
oMoveToPoint.Offset(Me.oPointClicked.X * -1, (Me.oPointClicked.Y + SystemInformation.CaptionHeight + SystemInformation.BorderSize.Height) * -1)
' 移动窗体
Me.Location = oMoveToPoint
End If
End Sub
WinForm的边框也是要自己做的,PS就可以了
2013年05月02日 11点05分
4
我用FormBorderStyle=Sizable;Text=""做成的无标题栏窗口,请问怎么能让其在任务栏按钮上显示文字呢?
2013年05月04日 14点05分
属性中有一个属性决定了窗体在任务栏中有图标
2013年05月04日 14点05分
具体是哪个忘记了,你一个一个的找,肯定能找到
2013年05月04日 14点05分
回复 yu_jizhou :是有一个ShowInTaskBar吧,可是显示了按钮是没有文字的。。。
2013年05月04日 15点05分
level 13
wpf拖动非常简单。直接在previewmousedown用dragmove
2013年05月05日 08点05分
6