以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口设计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171096)

--  作者:aaa1234
--  发布时间:2021/8/18 8:47:00
--  窗口设计
老师你好,我想问一下,如何把窗口界面做到这个效果,我想就是窗口标题放中间居中,那个梯形也不是很会设计
图片点击可在新窗口打开查看此主题相关图片如下:zhou test.jpg
图片点击可在新窗口打开查看

--  作者:aaa1234
--  发布时间:2021/8/18 8:48:00
--  
想请教一下这是应该怎么设计好呢
--  作者:有点蓝
--  发布时间:2021/8/18 9:01:00
--  
参考:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=106606

那个梯形使用背景图设置

--  作者:aaa1234
--  发布时间:2021/8/18 9:08:00
--  
哪里背景图设置
--  作者:aaa1234
--  发布时间:2021/8/18 9:14:00
--  
这个喔老师
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_33133.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2021/8/18 9:43:00
--  
去掉窗口边框,标题行改为panel等排版设置

panel添加背景图参考
Dim p As WinForm.Panel = e.Form.Controls("Panel1")
p.basecontrol.BackgroundImage = getimage("123.jpg")
p.basecontrol.BackgroundImageLayout = 3

工具栏添加背景图参考

Dim tbr As object = e.Form.Strips("工具栏1").BaseControl

tbr.BackgroundImage = GetImage("123.png")

tbr.BackgroundImageLayout = 3


--  作者:aaa1234
--  发布时间:2021/8/18 10:16:00
--  
老师我想问一下菜单项的图标怎么移到合适的位置,还有老师怎么去掉窗口的边框
--  作者:有点蓝
--  发布时间:2021/8/18 10:29:00
--  
看3楼实例
--  作者:aaa1234
--  发布时间:2021/8/18 10:39:00
--  
老师我想问一下菜单项的图标怎么移到合适的位置,然后可不可以增加鼠标位置的动态反馈,例如我点菜单项的图标,被点图标就变成白色的背景,如果我点某一行的单元格,整一行都会有变成蓝色的反馈
--  作者:有点蓝
--  发布时间:2021/8/18 10:54:00
--  
工具栏图标无法随便放。建议改为使用panel+普通按钮