关于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(& ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
vb WebBrowser 小问题，请教：
WebBrowser里的网址跳转后，怎么取得跳转后的页面的URL地址
顶下顶下
引用
BeforeNavigate2
好像没有这个吧 vb6.0
BeforeNavigate2
这个可以有，呵呵。
......
有两个问题
第一个问题：
网页源码
<td><select name="question" onchange="showcustomquest(this.value)" tabindex="4"><option value="0">无安全问 ......
