每次使用代码合并EXCEL数据时,程序界面就发生如下图变化,如何解决?
正常界面如下
使用如下代码合并Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "excel" '指定格式
mg.SourceTableName = "已销售明细$" '指定要合并的表的名称,源表
mg.DataTableName = "销售提成统计表_Table2" '指定接收合并数据的数据表的名称
mg.Merge()'开始合并
End If
界面变化后,程序界面缩小了,文字就会显得很大,按钮图标变得很难看。
[此贴子已经被作者于2024/4/8 19:23:33编辑过]
我测试没有这种情况,方便把您的项目,或者做个例子发上来看看
还请蓝老师帮忙看一下什么原因,感谢!
[此贴子已经被作者于2024/4/9 9:58:42编辑过]
没你说的情况啊
此主题相关图片如下:qq截图20240409100048.jpg
那奇怪了,我这边只要一导入EXCEL数据,程序界面就自动变小了,字体也变了。
此主题相关图片如下:5.png
确实没这样的情况,感觉是你界面变了导致的,但是没看到有相关代码啊
[此贴子已经被作者于2024/4/9 10:19:36编辑过]
可能是我电脑的问题,我测试了别的电脑,也没有这个问题。
电脑显示设置里面,看看缩放与布局是不是100%,如不是改为100%后试试