VB窗体的窗体的属性及说明

放了寒假呆在家里,我爸比较喜欢周易里的一些东西,于是问我能不能帮助他编写一个小程序来算卦。我想了想发现如果使用c语言直接做出来的页面太简陋,更美观的话需要一些API,而java也好久没有用过很生疏了。最后我想到了用VB来制作,发现用VB编写一些小型程序还是很方便的。

程序样式如下:

在这里我整理了一些关于窗口属性的介绍,如下:

Name 窗体的名称

ActiveControl 返回焦点所在的控件,该属性设计阶段不可用,运行时只读。

Appearance外观效果,取值为:0 平面1 3D(立体)

AutoRedraw是否自动刷新或重画窗体上所有图形[获得或设置从绘图

(graphics)方法到一个持久性位图的输出],取值为:True False

BackColor 背景颜色,可从弹出的调色板选择。

BorderStyle设置边界类型,取值为:0 None(无边界框架)1 FixedSingle(窗口大小固定不变的单线框架)2 Sizable(窗口大小可变的标准双线框架)3 FixedDialog(窗口大小固定的对话框窗体)4 FixedToolWindow(窗口大小固定的工具箱窗体)5 Sizable ToolWindow(窗口大小可变的工具箱窗体)

Caption 窗体的标题

ClipControls决定Paint 事件的graphics 方法是重画整个对象,还是重画新显示的区域。取值为:True 或False

ControlBox是或有控制框, 取值为:True 有False 无

DrawMode设定窗体上绘图(graphics 方法),Shape,Line 等控件的输出外观,有16 种可选:1 黑色2 非或笔,设置值15 的反相3 与非笔,背景色以及画笔反相二者共有颜色的组合4 非复制笔,设置值13 的反相5 与笔非,画笔以及显示色反相二者共有颜色的组合6 反相,显示颜色反相7 异或笔,画笔颜色以及显示颜色的异或8 非与笔,设置值9 的反相9 与笔,画笔以及显示色二者共有颜色的组合10 非异或笔,设置值7 的反相11 无操作,该设置实际上是不画图12 或非笔,显示颜色与画笔颜色反相的组合13 复制笔,用ForeColor 属性指定的颜色,此为默认值14 或笔非,画笔颜色与显示颜色反相的组合15 或笔,画笔颜色与显示颜色的组合16 白色

DrawStyle设定绘图相关方法使用的直线样式, 有7 种可选:0 实线,此为默认值1 虚线2 点线3 单点划线4 双点划线5 无线6 内部实线

DrawWidth 设定绘图相关方法使用的直线宽度Enabled是或把鼠标或键盘事件发送到窗体,取值为:True 可用False 不可用

FillColor 填充颜色, 可从弹出的调色板选择。

FillStyle填充样式, 有8 种可选:0 全部填充1 透明,此为默认值2 水平直线3 竖直直线4 上斜对角线5 下斜对角线十字线7 交叉对角线

Font 字型,可从弹出的对话框选择字体,大小和风格

FontTransparent输出数据是否允许重叠(获得或设置一个值,决定是否显示窗体,打印机或PictureBox 上的背景文本/图形)。取值为:True 或False

ForeColor 前景颜色,可从弹出的调色板选择。

HasDC决定是否为该控件分配了唯一的显示上下文。取值为:True 或False

Height 窗体的高度

HelpContextID 指定一个对象的缺省帮助文件上下文标识符

Icon 为窗体设计图标,该图标位于标题栏的左端

KeyPrevier获得或设置是否在激活对象的上的控件的键盘事件之前,优先激活对象键盘事件。取值为:True 或False

Left 窗体距屏幕左边界的距离

LinkMode获得或设置用于DDE 会话的链接类型并激活连接,取值为:0 None

SourceLinkTopic 获得或设置目标控件的源应用程序和主题

MaxButton窗体右上角最大化按钮是否显示,运行时只读, 取值为:True 显示False 不显示

MDIChild是否为MDI 窗体的子窗体, 取值为:True 为MDI 窗体的子窗体False 否MinButton窗体右上角最小化按钮是否显示,运行时只读, 取值为:True 显示False 不显示

MouseIcon MousePointer=99 时,设定一个自定义的鼠标图标

MousePointerMoveable是否可以移动窗体, 取值为:True 可以移动False 不可以移动

NegotiateMenus决定是否将对象的菜单合并到该窗体的菜单栏上。取值为:True 或False

OLEDropMode获得或设置该对象是否能作为一个OLE 放下目标, 取值为:0 None(无)1 Manual(手动)

Palette获得或设置一个图象,包含了当PaletteMode 被设置为Custom 时用于调色板的对象。

PaletteMode获得或设置一个值,决定对于对象的控件使用哪个调色板。取值为:0 Halftone1 UseZOrder2 Custom

Picture 窗体背景图片

RightToLeft文本书写是否自左向右。取值为:TrueFalse 自右向左

ScaleHeight 自定义坐标系的纵坐标轴的高度

ScaleLeft 自定义坐标系的左边界起点的横坐标

ScaleMode获得或设置一个值,指示当使用graphics 方法或可定位的控件时,自定义坐标系的单位, 有8 种可选:0 自定义1 表示单位为twip(缇),每英寸=1440 缇,每厘米=567 缇2 表示单位为point(磅) ,每英寸=72 磅,每磅=20 缇3 表示单位为像素,是监视器或打印机分辨率的最小单位4 表示单位为字符,每个水平单位为120 缇,每个垂直单位为240 缇5 表示单位为in(英寸)6 表示单位为mm(毫米)7 表示单位为cm(厘米)

ScaleTop 自定义坐标系的上边界起点的纵坐标

ScaleWidth 自定义坐标系的横坐标轴的宽度

ShowInTaskbar窗体或MDI 窗体是否出现在Windows95 的任务栏。取值为:True 出现False 不出现

StartUpPosition窗体第一次出现的位置, 有4 种可选:0 没有指定初始位置1 设定在所属项目的中央2 设置在屏幕的中央3 设置在屏幕的左上角Tag 存储程序所需的附加数据Top 窗体距屏幕顶部边界的距离

Visible窗体是否可见, 取值为:True 该对象可见False 该对象不可见

WhatsThisButton获得或设置是否在一个窗体或MDI 窗体的标题上显示这是什么按钮。取值为:True 或False

WhatsThisHelp获得或设置是否在上下文相关帮助中, 使用Windows95 帮助或主帮助窗口提供的这是什么弹出菜单。取值为:True 或False

Width 窗体的宽度

WindowStart获得或设置一个窗体窗口运行时的可见状态, 取值为:0 窗体正常状态1 窗体最小状态2 窗体最大状态

  • 3
    点赞
  • 29
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
内有设计窗体的图片,和运行效果图 该窗体由全图片构造,包括,标题栏,最大化、最小化、关闭按钮,一下为部分代码, Private Sub Form_load() Dim retValue As Long Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体设计2\8.jpg") Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体设计2\8.jpg") Image7.Picture = LoadPicture("D:\vb测试\vb实例\窗体设计2\8.jpg") Image8.Picture = LoadPicture("D:\vb测试\vb实例\窗体设计2\8.jpg") Form1.Top = 0 '设置窗体上边界位置 Form1.Left = Screen.Width - Form1.Width retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW) End Sub Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& End Sub Private Sub Image2_Click() Form1.WindowState = 1 End Sub Private Sub Image4_Click() End End Sub Private Sub Image5_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体设计2\9.jpg") End Sub Private Sub Image5_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体设计2\8.jpg") End Sub Private Sub Image6_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体设计2\9.jpg") End Sub Private Sub Image6_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体设计2\8.jpg") End Sub
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

daijingxin

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值