主题：[推荐]共有窗口边框怎么消除？

横线那个
此主题相关图片如下：qq图片20160118184736.png

请问这样的话虽然WIN7上颜色看到的是一样的 但是到了其他系统颜色就变了，怎么才能确保和FT的风格一样？FT的风格取色是什么颜色？

代码不太完美，并列窗口还是有一条线
此主题相关图片如下：qq图片20160118205856.png

测试并列窗口顶部有一条线，如果是表窗口的话就没有
此主题相关图片如下：qq图片20160118211143.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:共有窗口布局时边框颜色的设置.table

 

共有窗口禁止调整宽度高度 

Dim o As Object = e.Form.Panel.Parent.Parent
o.Parent.Height = 120  ’高度
o.CanAutoHide = False

无效。请问代码怎么写？

 

 

可以了 谢谢！！！！

 

 

并列窗口的tab 页签怎么缩进？

 

此主题相关图片如下：qq图片20160118230154.png

 

 

If Forms("窗口1").Controls.Contains(args(0))=False Then
    Dim cCount As Integer
    For Each c As WinForm.Control In Forms("窗口1").Controls
        If Typeof c Is WinForm.Panel Then
            cCount=cCount+1
        End If
    Next
   
    Dim p As WinForm.Panel
    '= Forms("窗口1").Controls("Panel1")
    p=Forms("窗口1").CreateControl(args(0),ControlTypeEnum.Panel)
    p.Height=30
    p.Width=120
    p.Top=137
    p.Left=3+(cCount*120)+IIf(cCount=0,0,cCount)
    p.basecontrol.Cursor=Windows.Forms.Cursors.Hand
    p.basecontrol.tag=args(1)
    Dim lb As WinForm.Label
    lb=Forms("窗口1").CreateControl("lb" & args(0),ControlTypeEnum.Label)
    lb.Text=args(0)
    lb.Top=5
    lb.left=20
    lb.Height=20
    lb.Width=80
    lb.AutoSize=False
    lb.BackColor=Color.Transparent
    lb.TextAlign=ContentAlignment.MiddleCenter
    lb.basecontrol.BackgroundImageLayout=ImageLayout.Stretch
    lb.basecontrol.tag=args(1)
    Dim lbClose As WinForm.Label
    lbClose=Forms("窗口1").CreateControl("lb" & args(1),ControlTypeEnum.Label)
    lbClose.Height=16
    lbClose.Width=16
    lbClose.AutoSize=False
    lbClose.BackColor=Color.Transparent
    lbClose.basecontrol.BackgroundImageLayout=ImageLayout.Stretch
   
   
    lbClose.basecontrol.tag=args(0)
    If lbClose.basecontrol.tag <> "首页" Then
        lbClose.basecontrol.BackGroundimage=getimage("btn_close.png")
    End If
   
   
   
    ''''-----------------
    Dim lbico As WinForm.Label
    Dim pg As WinForm.TabPage
   
    pg = Forms("窗口1").Controls("TabControl1").TabPages(lb.Text)
    lbico=Forms("窗口1").CreateControl("lb" & args(1),ControlTypeEnum.Label)
    lbico.Height=16
    lbico.Width=16
    lbico.AutoSize=False
    lbico.BackColor=Color.Transparent
    lbico.basecontrol.BackgroundImageLayout=ImageLayout.Stretch
    lbico.basecontrol.BackGroundimage=pg.Image
    '''-------------------
   
    AddHandler lbClose.basecontrol.MouseEnter, AddressOf Label_Enter
    AddHandler lbClose.basecontrol.MouseLeave, AddressOf Label_Lave
    p.AddControl(lb)
    p.AddControl(lbico)
    p.AddControl(lbClose)
   
   
   
    Forms("窗口1").AddControl(p)
    pList.add(p.name)
    AddHandler lb.basecontrol.Click, AddressOf Panel_Click
    lbClose.TopMost=True
    lbClose.Top=2
    lbClose.Left=102
   
    lbico.TopMost=True
    lbico.Top=0
    lbico.Left=0
   
    AddHandler lbClose.basecontrol.Click, AddressOf Label_Click
    AddHandler lbico.basecontrol.Click, AddressOf Label_Click
   
   
    Functions.Execute("SelectIndex",args(1),"lb" & args(0))
Else
    Functions.Execute("SelectIndex",args(1),"lb" & args(0))
End If

此主题相关图片如下：qq图片20160119200134.png

要怎么修改啊？

If Forms("窗口1").Controls.Contains(args(0))=False Then
Dim cCount As Integer
For Each c As WinForm.Control In Forms("窗口1").Controls
If Typeof c Is WinForm.Panel Then
cCount=cCount+1
End If
Next

Dim p As WinForm.Panel
'= Forms("窗口1").Controls("Panel1")
p=Forms("窗口1").CreateControl(args(0),ControlTypeEnum.Panel)
p.Height=30
p.Width=120
p.Top=137
p.Left=3+(cCount*120)+IIf(cCount=0,0,cCount)
p.basecontrol.Cursor=Windows.Forms.Cursors.Hand
p.basecontrol.tag=args(1)
Dim lb As WinForm.Label
lb=Forms("窗口1").CreateControl("lb" & args(0),ControlTypeEnum.Label)
lb.Text=args(0)
lb.Top=5
lb.left=20
lb.Height=20
lb.Width=80
lb.AutoSize=False
lb.BackColor=Color.Transparent
lb.TextAlign=ContentAlignment.MiddleCenter
lb.basecontrol.BackgroundImageLayout=ImageLayout.Stretch
lb.basecontrol.tag=args(1)
Dim lbClose As WinForm.Label
lbClose=Forms("窗口1").CreateControl("lb" & args(1),ControlTypeEnum.Label)
lbClose.Height=16
lbClose.Width=16
lbClose.AutoSize=False
lbClose.BackColor=Color.Transparent
lbClose.basecontrol.BackgroundImageLayout=ImageLayout.Stretch


lbClose.basecontrol.tag=args(0)
If lbClose.basecontrol.tag <> "首页" Then
lbClose.basecontrol.BackGroundimage=getimage("btn_close.png")
End If



''''-----------------出错部分
Dim lbico As WinForm.Label
Dim pg As WinForm.TabPage

pg = Forms("窗口1").Controls("TabControl1").TabPages(lb.Text)
lbico=Forms("窗口1").CreateControl("lb" & args(1),ControlTypeEnum.Label)
lbico.Height=16
lbico.Width=16
lbico.AutoSize=False
lbico.BackColor=Color.Transparent
lbico.basecontrol.BackgroundImageLayout=ImageLayout.Stretch
lbico.basecontrol.BackGroundimage=pg.Image      “如果这就直接图片就没有事情   =getimage("btn_close.png")”
'''-------------------出错部分

AddHandler lbClose.basecontrol.MouseEnter, AddressOf Label_Enter
AddHandler lbClose.basecontrol.MouseLeave, AddressOf Label_Lave
p.AddControl(lb)
p.AddControl(lbico)
p.AddControl(lbClose)



Forms("窗口1").AddControl(p)
pList.add(p.name)
AddHandler lb.basecontrol.Click, AddressOf Panel_Click
lbClose.TopMost=True
lbClose.Top=2
lbClose.Left=102

lbico.TopMost=True
lbico.Top=0
lbico.Left=0

AddHandler lbClose.basecontrol.Click, AddressOf Label_Click
AddHandler lbico.basecontrol.Click, AddressOf Label_Click


Functions.Execute("SelectIndex",args(1),"lb" & args(0))
Else
Functions.Execute("SelectIndex",args(1),"lb" & args(0))
End If

 

 

就是红色部分

我已经OPEN 的窗口了，然后是按钮操作 

lbico.basecontrol.BackGroundimage=pg.Image “如果这句换成  =getimage("btn_close.png")” 图片就没有错误