关于vb编写的软件在不同分辨率下的显示 - VB / 基础类
我用vb在1680*1050的分辨率下编好了软件。我的软件现在是全屏显示的。假如用户的显示屏不是这个分辨率的话，如何做到都能完整的显示我的软件呢？
希望大家给予指点，会尽快结贴给分。谢谢！
这个比较麻烦，如果你程序界面上的控件比较简单的话，试试这个，我用过，但也不是很好用。你可以在网上baidu一下，但没有很完美的，呵呵，如果你找到了别忘了告诉我一声
VB code:
Private Sub Form_Load()
For Each Control In Controls
Control.Tag = Join(Array(Control.Left, Control.Top, Control.Width, Control.Height))
Next
Tag = Join(Array(Width, Height))
End Sub
Private Sub Form_Resize()
Dim sF, sC
sF = Split(Tag)
For Each Control In Controls
sC = Split(Control.Tag)
Control.Move Width / sF(0) * sC(0), Height / sF(1) * sC(1), Width / sF(0) * sC(2), Height / sF(1) * sC(3)
Next
For Each Control In Controls
Control.Tag = Join(Array(Control.Left, Control.Top, Control.Width, Control.Height))
Next
Tag = Join(Array(Width, Height))
End Sub
VB6中对象窗口里的尺寸都是＂打印尺寸＂，事实上和我们平时考虑的屏幕尺寸是两码事．
楼主说的在较大的＂1680*1050的分辨率＂下摆满控件的窗体，到小分辨率下可能显示不完全．对付这种情况，比较简单的方案是像VCL那样，把窗体的滚动条显示出来，并响应滚动条的变化而移动所有控件位置．
楼上的代码看了一下没明白意思，能解释两句吗：）
恩看来没有比较完美的方案啊 按说这个功能应该很常用啊 像平时我们买的软件 很多都可以在不同的机�
相关问答：
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
挺繁琐，之前发的帖子，分值太低现在重发一个。欢迎各位大侠~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
小弟用VB调EXCEL作图
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......
