
属性说明:

OCX文件属性:

运行时截图:

完美菜单事件:

2.标题文字,能自定义颜色,位置.
3.为了去掉VB6IDE环境下关闭出错的BUG,现在改为禁用IDE调试控件,请生成EXE再调试程序
4.运行时自由控制窗体大小功能,初步支持最大化,
5.修改最小化还原时的窗体乱位BUG.
7.优化接口,不用一句代码就能做一个VISTA窗体,当然要完美做出来,代码是必不可少的.
8.加入一个属性窗体,控件整体更美观.
VB
属性对应的中文
A
Action
返回或设置被显示的对话框
(CommandDialog)
的类型
,
在设计时无效。
ActiveControl
活动控件
ActiveForm
活动窗体
Alignment
文本对齐类型
Align
指定图形在图片框中的位置
Archive
文本列表框是否含有文档属性
AutoRedraw
控制对象自动重画
AutoSize
控制对象自动调整大小
B
BackColor
背景颜色
BackStyle
指定线型与背景的结合方式
BorderColor
边框颜色
BorderStyle
边框类型
BorderWidth
边框宽度
C
Cancel
命令按钮是否为
Cancel
Caption
标题
Checked
菜单项加标记
ClipControls
设置
Paint
事件是否重画整个控件
Columns
指定列表框水平方向显示的列数
ControlBox
窗体是否有控制框
Count
对象的数量
CurrentX
当前
X
坐标
CurrentY
当前
Y
坐标
D
Default
指定默认按钮
DragIcon
控件拖动过程作为图标显示
DragMode
拖动方式
DrawMode
绘图方式
DrawStyle
设置线型
DrawWidth
设置线宽
Drive
指定驱动器(驱动器列表框)
E
Enabled
对象是否可用
EXEName
活动文本名称
F
FileName
文件名
FileNumber
文件号
FillColor
填充颜色
FillStyle
填充方式
FontBold
字体加粗
FontCount
字体种类计数
FontItalic
字体斜体
FontName
字体名称
Fonts
按序号返回可用字体名称
FontSize
字体大小
FontStrikethru
加中划线
FontTransparent
字体与背景叠加
FontUnderline
加下划线
ForeColor
前景颜色
H
Height
设置或返回对象的高度
HelpContextID
对象与
Help
文件连接的
ID
号
HelpFile
在应用程序中调用
Help
文件
Hidden
指定文件列表框内显示的文件是否隐含文
件
I
Icon
窗体最小化后显示的图标
Image
窗体或图片框的图形句柄
Index
设置或返回控件数组中控件的下标
Interval
设置或返回计时器时间间隔的毫秒数
ItemData
用于列表框或组合框,与
List
属性相同
K
KeyPreview
窗体先收到键盘事件还是控件先收到
键盘事件
L
LargeChange
滚动框在滚动条内变化的最大值
Left
控件与窗体左边界的距离
ListCount
列表框计数
List
字符串数组
ListIndex
指定控件当前选项的序号
M
Max,Min
指定滚动条的最大值和最小值
MaxButton
最大化按钮
MaxLength
指定文本框所接收的最大字符串
MDIChild
指定一个窗体为
MDI
子窗体
MinButton
最小化按钮
在开发中,往往开发人员需要控制控件大小适应窗口的大小,使得软件在不同的分辨率下也显得比例协调.那么,怎么才能让窗体中控件自动随窗体变化大小呢?有三种方法供选择:
1.用代码控制特定的控件随着窗体最大化展现出自己所希望的结果。
第一步:窗体LOAD事件时记下每一个控件的位置属性和大小,并取得窗口大小的属性值。
第二步:计算缩放比,就是用控件的LEFT和WIDTH属性分别除以窗口的WIDTH属性值得到两个比值X1,X2。再用控件的TOP和HEIGHT属性值分别除以窗口的HEIGHT属性值得到两个比值Y1,Y2。
第三步:在窗体的Resize的事件中,控件的位置和大小=窗体的大小*比值。总结:这样各个控件的位置和大小由窗体的大小决定。
这个问题还可以延伸:A;窗体大小改变时,控件位置改变但大小不改变。B;窗体大小改变时,控件大小改变但位置不改变。
这两个问题还可以细化窗体的WIDTH属性和height属性值分别变化对控件的大小和位的影响。总共有六个情况。你可以打开酷狗,当你改变它的窗体大小时,你仔细观察它里面的控件的大小和位置的变化情况,细细的品味这种变化。相信你能自己写出代码,这个并不太难。
2.使用第三方软件,但是效果很差,而且需要安装第三方软件,非常没有必要。
3.比较推荐的一种方法:
'窗体最大化定义
Private FormOldWidth As Long
'原始宽度
Private FormOldHeight As Long
'原始高度
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
Private Sub Form_Resize()
ResizeForm Me '控件随之改变
End Sub
Private Sub Form_Load()
Call ResizeInit(Me) '确保窗体改变时控件随之改变
End Sub
**注意:1.声明语句“Private FormOldWidth As Long”和“Private FormOldHeight As Long”不可以放到“End sub”后
2.如果出现除数为零的情况,需要调整控件的大小。**
VISTA控件在窗体时
属性说明:
OCX文件属性:
运行时截图:
完美菜单事件:欢迎使用.更新说明:Vistaform Control V1.401.自定义图标,图标大至24*24.
2.标题文字,能自定义颜色,位置.
3.为了去掉VB6IDE环境下关闭出错的BUG,现在改为禁用IDE调试控件,请生成EXE再调试程序
4.运行时自由控制窗体大小功能,初步支持最大化,
5.修改最小化还原时的窗体乱位BUG.6.系统菜单事件更完美,支持所有菜单事件,支持ALT+F4关闭窗体.
7.优化接口,不用一句代码就能做一个VISTA窗体,当然要完美做出来,代码是必不可少的.
8.加入一个属性窗体,控件整体更美观.转载于:https://www.cnblogs.com/starwork/archive/2007/05/13/744607.html