关于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那样，把窗体的滚动条显示出来，并响应滚动条的变化而移动所有控件位置．
楼上的代码看了一下没明白意思，能解释两句吗：）
恩看来没有比较完美的方案啊 按说这个功能应该很常用啊 像平时我们买的软件 很多都可以在不同的机�
相关问答：
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧？
我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
系统在多台电脑上运行，就在其中一台电脑上产生”内存溢出“。
每台电脑操作系统 配置都一样的。。请问是什么原因？
(1)用了设计不完善的控件，控件本身有问题，或者不恰当地使用了api函数。
(2)无限的 ......
