中关村在线

首页 排行 新品 问答 下载 论坛 手机 笔记本 数码相机 主板 显卡 平板电脑 更多

C#怎么使winform程序自适应屏幕分辨率显示

举报
讨论回答 (4)
laohuli000
AB654321123
vvast
si3320
刚做了个类似的项目。你做软件用得着做这么大的分辨率吗?你可以做个常规窗口1024*768,让控件跟谁窗体最大化。最大化代码:

Private FormOldWidth As Long
'原始宽度
Private FormOldHeight As Long
'原始高度

'在调用ResizeForm前先调用本函数
Public Sub ResizeInit(FormName As Form)
Dim Obj As Control
FormOldWidth = FormName.ScaleWidth
FormOldHeight = FormName.ScaleHeight
On Error Resume Next
For Each Obj In FormName
Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "
Next Obj
On Error GoTo 0
End Sub

'按比例改变表单内各元件的大小,
'在调用ReSizeForm前先调用ReSizeInit函数
Public Sub ResizeForm(FormName As Form)
Dim Pos(4) As Double
Dim i As Long, TempPos As Long, StartPos As Long
Dim Obj As Control
Dim ScaleX As Double, ScaleY As Double

ScaleX = FormName.ScaleWidth / FormOldWidth
'保存窗体宽度缩放比例
ScaleY = FormName.ScaleHeight / FormOldHeight
'保存窗体高度缩放比例
On Error Resume Next
For Each Obj In FormName
StartPos = 1
For i = 0 To 4
'读取控件的原始位置与大小

TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)
If TempPos > 0 Then
Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
StartPos = TempPos + 1
Else
Pos(i) = 0
End If
'根据控件的原始位置及窗体改变大小
'的比例对控件重新定位与改变大小
Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
Next i
Next Obj
On Error GoTo 0
End Sub
展开查看全部 4 条讨论
精品应用推荐
新浪微博 新浪微博 天气通 天气通 淘宝特价版 淘宝特价版 UC浏览器 UC浏览器
相关问题

家电

1.3万 浏览 1044 回答

手机性能天梯榜讨论

4376 浏览 615 回答

显卡

2.1万 浏览 614 回答

硬盘

1.5万 浏览 601 回答

显示器

8956 浏览 587 回答

扩展阅读

6个问题,帮你快速看懂vivo S20 Pro

评论 8

6个问题,帮你快速看懂vivo S20 Pro

错过双11还有双12 大疆值得入手的五款实惠产品推荐

评论 5

错过双11还有双12 大疆值得入手的五款实惠产品推荐

搭载OriginOS 5的vivo S20:AI加持,流畅好用

评论 3

搭载OriginOS 5的vivo S20:AI加持,流畅好用

独家揭秘!2024年最火的10款新能源车,速来围观

评论 7

独家揭秘!2024年最火的10款新能源车,速来围观

大芯片+第三代激光光源 优派PZ2318影院投影机评测

评论 22

大芯片+第三代激光光源 优派PZ2318影院投影机评测
热门问题

字节跳动旗下12款产品

6811 浏览 5 回答

字节跳动旗下12款产品

256gSSD是否够用?打算买个笔记本,办公为主,查阅文献等。不玩大型游戏,至多玩一些棋牌类游戏和影音娱乐。手里有2T移动硬盘,但也想在笔记本上存少量的电影。平时玩单反,处理图片比较多。

2.3万 浏览 5 回答

256gSSD是否够用?打算买个笔记本,办公为主,查阅文献等。不玩大型游戏,至多玩一些棋牌类游戏和影音娱乐。手里有2T移动硬盘,但也想在笔记本上存少量的电影。平时玩单反,处理图片比较多。

免费韩国漫画在线观看的地址有么?

8053 浏览 5 回答

免费韩国漫画在线观看的地址有么?

求推荐一款笔记本。工科研究生用,便于随身携带。平时做科研,处理数据,查阅文献。不玩网游和单机,至多玩棋牌游戏和影音。喜欢摄影,需要修图。附加:纠结要不要带数字键盘区。预算最多8000。尽量便宜些。

1.2万 浏览 6 回答

求推荐一款笔记本。工科研究生用,便于随身携带。平时做科研,处理数据,查阅文献。不玩网游和单机,至多玩棋牌游戏和影音。喜欢摄影,需要修图。附加:纠结要不要带数字键盘区。预算最多8000。尽量便宜些。

肿么找回QQ浏览器历史记录

7302 浏览 6 回答

肿么找回QQ浏览器历史记录

恒力集团董事长儿子娶了谁

7811 浏览 7 回答

恒力集团董事长儿子娶了谁

小雪和王哥是什么小说

5668 浏览 5 回答

小雪和王哥是什么小说

有一样东西,比雪还白,比黑板还黑,男的一天用三次,女的一辈子用一次,是什么?

6434 浏览 6 回答

有一样东西,比雪还白,比黑板还黑,男的一天用三次,女的一辈子用一次,是什么?

手机在哪里登录192.168.1.1设定页面?

9451 浏览 7 回答

手机在哪里登录192.168.1.1设定页面?

倾城雅安娜是骗子

8777 浏览 6 回答

倾城雅安娜是骗子
最新问答

问一下全新裸机序列号已激活是什么意思?

6321 浏览 6 回答

问一下全新裸机序列号已激活是什么意思?

华为手机设定闹钟关机后可以自动开机吗?

1067 浏览 6 回答

华为手机设定闹钟关机后可以自动开机吗?

上古卷轴5完成全部任务那个代码,在控制台里怎么输入,代码前面要不要输入什么?

1.1万 浏览 4 回答

上古卷轴5完成全部任务那个代码,在控制台里怎么输入,代码前面要不要输入什么?

为何iQOO连不上小米耳机?

5973 浏览 5 回答

为何iQOO连不上小米耳机?

肿么删除来自windows10安装更新失败的windows工绍更新

7577 浏览 5 回答

肿么删除来自windows10安装更新失败的windows工绍更新
举报
举报成功

经过核实后将会做出处理,感谢您为社区和谐做出贡献。

请选择删除原因
删除成功
确定推荐该回答?
推荐成功

更多频道

频道导航
辅助工具