vb 呼出窗体和隐藏窗体的问题
(完整版)vb窗体属性及方法
Name 窗体的名称ActiveControl 返回焦点所在的控件,该属性设计阶段不可用,运行时只读。
Appearance外观效果,取值为：0 平面1 3D(立体)AutoRedraw是否自动刷新或重画窗体上所有图形[获得或设置从绘图(graphics)方法到一个持久性位图的输出],取值为：True FalseBackColor 背景颜色,可从弹出的调色板选择。
BorderStyle设置边界类型,取值为：0 None(无边界框架)1 FixedSingle(窗口大小固定不变的单线框架)2 Sizable(窗口大小可变的标准双线框架)3 FixedDialog(窗口大小固定的对话框窗体)4 FixedToolWindow(窗口大小固定的工具箱窗体)5 Sizable ToolWindow(窗口大小可变的工具箱窗体)Caption 窗体的标题ClipControls决定Paint 事件的graphics 方法是重画整个对象,还是重画新显示的区域。
取值为：True 或FalseControlBox是或有控制框, 取值为：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 填充颜色, 可从弹出的调色板选择。
VB程序设计多重窗体与环境应用
VB程序设计多重窗体与环境应用10.1建立多重窗体应用程序10.1.1 建立多重窗体的语句和方法多重窗体程序设计中，需要打开、关闭、隐藏或显示指定的窗体，这可以通过相应的语句和方法来实现。
1．Load语句Load语句是把一个窗体装入内存。
其语法格式为Load 窗体名称2．Unload语句UnLoad语句清除内存中指定的窗体。
其语法格式为UnLoad 窗体名称3．Show方法Show方法是用来显示一个窗体，它兼有装入窗体和显示窗体两种功能。
其语法格式为[窗体名称].Show [模式]其中，“窗体名称”是指窗体的Name属性，缺省时指当前窗体；“模式”是指用来确定窗体的状态，它可以取两种值，即为0和14．Hide方法Hide方法是用来将窗体暂时隐藏起来，不在屏幕上显示出来，其语法格式为[窗体名称].Hide10.1.2建立多重窗体应用示例多重窗体程序中，经常要用到关键字Me，它代表的是程序代码所在的窗体。
例如，创建一个工程，由三个窗体组成，Form1用于输入用户名和口令，当输入正确时单击“确定”按钮显示Form2，当输入错误时则显示Form3，单击退出按钮结束程序；Form2中用文本框显示系统信息，单击“返回”按钮回到Form1；Form3为退出窗体，单击窗体则结束程序。
1．创建三个窗体及控件选择“工程”菜单的“添加窗体”命令，添加两个窗体，窗体的名称按添加顺序分别为Form2和Form3，这样工程就由三个窗体组成。
(1) 窗体1：该窗体为主窗体，名称为Form1，是用来供用户确认和调用其他相应的窗体。
该窗体上有三个标签，两个文本框，两个按钮，文本框Text1用于输入用户名称，文本框Text2用于输入口令。
(2) 窗体2：该窗体名称为Form2，该窗体上有一个标签，一个文本框，一个按钮，文本框采用多行显示，具有垂直滚动条，锁定文本框不能编辑。
(3) 窗体3：该窗体名称为Form3，为退出窗体，窗体上有一个图片框，一个标签。
vb程序设计教程(潘蕾)第二章 窗体设计1
[PictureBox方法]：
Move：移动 Print（和窗体的Print方法的使用相同） Cls：清除
7)单选按钮（OptionButton）
[用途]：从一组互斥的选项中选择一个。
[属性]：
Caption:标题属性。 Value:取值属性。当单选按钮被选中时，该属性为“True”，否则为 “False” [方法]：
常数 值 vbComboDropDown 和一个不 0 描述 （缺省值）下拉式组合框。包括一个下 拉式列表和一个文本框。可以从列表选 择或在文本框中输入。 1 简单组合框。包括一个文本框 能下拉的列表。可以从列表中选择或在、 文本框中输入。简单 组合框的大小包括 编辑和列表部分。按缺省规定，简单组 合框的大小调整在没有任何列表显示的 状态。增加 Height 属性值可显示列表 的更多部分。 2 下拉式列表。这种样式仅允许 列表中选择。
vbComboDrop-DownList 从下拉式
6）图象（Image）、图片框（PictureBox）
[用途]：图象控件显示来自位图(.bmp)、图标(.ico)或者元文 件；图片控件可以显示文字、图片以及来自增强的元文件、 JPEG 或 GIF 文件的图形。如果控件不足以显示整幅图象， 则裁剪图象以适应控件的大小，还可创建动画。 [PictureBox属性]： Align:对齐属性，指图片框在窗体上的位置。有无、上、下、 左和右五种选择。 Picture:图片属性，为要显示的图片名（演示）。
常数 vbLeftJustify vbRightJustify vbCenter 设置值 描述 0 （缺省值）文本左对齐。 1 文本右对齐 2 文本居中
•注意Text没有
Caption属性
VB教程——窗体
第四章窗体14.1窗体的构造14.2窗体属性24.2.1窗体根本属性21. 名称〔Name〕22. AutoRedraw〔自动重画〕43. BackColor〔背风光〕与ForeColor〔前风光〕64. BorderStyle 属性95. Height〔高度〕、Width〔宽度〕、Top〔顶部〕与Left〔左边距〕属性106. Caption 标题属性117.字型Font属性组128. Enabled〔允许〕〔逻辑值〕159. Visible〔可见〕属性〔逻辑值〕154.2.2窗体其他常用属性174.3 窗体的主要事件184.3.1 Activate (活动事件)与Deactivate〔非活动事件〕184.3.2 Load〔装入〕与UnLoad〔卸载〕事件194.3.3 Click〔单击〕与DblClick〔双击〕事件204.3.4 Resize 事件244.4窗体控制244.4.1装入或卸载窗体244.4.2显示和隐藏窗体错误!未定义书签。
4.4.3 Cls方法274.4.4 Move方法284.4.5 TextHeight和TextWidth324.4.6位置属性CurrentX和CurrentY32 4.4.7窗体之间的数据存取344.5根本的窗体操作364.5.1添加窗体：364.5.2移除〔去除〕窗体374.5.3 END语句374.5.4多窗体的启动〔显示〕顺序39 4.6多文档程序444.6.1多文档程序的建立454.6.2主窗体与子窗体的标题484.6.3主窗体与子窗体的菜单484.7窗体设计举例49练习创立一个窗体错误!未定义书签。
第四章窗体[学习目标]1.学会在应用程序过编程来调用和卸载工程中的窗体。
2.掌握有关窗体操作的语句和方法。
3.理解区别Unload和Hide方法。
4.了解启动窗体的概念。
[学习重点]有关窗体操作的语句和方法。
在VB中建立一个程序主要包括两局部工作，即：设计窗体和编写代码。
一起学VB——006 窗体
一起学VB——006 窗体窗体的概念在VB6之中，窗体是应用程序的重要组成部分，一个窗体对应一个窗口。
在程序设计阶段，窗体是程序员的“工作台”，程序员在窗体上建立应用程序界面，在运行程序时，窗体是用户与计算机的交互界面。
窗体是VB中一类重要的对象，作为对象，窗体同样具有自己的三要素：属性、事件和方法。
此外，窗体还作为其它控件的容器，用于放置其它控件。
在保存工程时，窗体会与工程文件保存在同一级目录下，窗体的扩展名为.frm格式，而工程的扩展名为.vbp格式。
窗体的常用属性Name(名称)属性Name属性用于设置窗体的名称，在窗体被创建时，默认名称为Form1、Form2等。
Name属性只能在属性窗口修改，所有控件的Name属性都在属性窗口的第一行。
在使用对象属性、事件和方法时，务必确保使用了正确的Name名称。
例如，以下是Form1窗体在修改Name名称前和修改Name名称为frm1后，调用隐藏该窗体的方法语句对比：Form1.hide '修改Name名称前frm1.hide '改Name名称为frm1后Caption属性Caption属性用于设置窗体的标题，默认情况下，窗体Caption属性与Name属性一致。
可以根据需要修改为其它标题，修改方法为：窗体名称.Caption="自定义标题"Caption属性可以修改，也可以读取。
读取Caption属性的方法为：变量名称=对象名称.Caption '将对象名称赋值给变量获取其它可读属性值的方法与此语法一致。
Height和Width属性Height和Width属性用于设置窗体的高度和宽度。
默认单位是twip，1twip=1/567cm。
通常使用twip单位设置即可。
例如：Form1.Height=2000 '设置Form1窗体的高度为2000twipForm1.Width=3000 '设置Form1窗体的宽度为3000twipLeft和Top属性Left和Top属性用于设置窗体在屏幕中的位置，Left是指窗体左上角距离屏幕左边的距离，Top是指窗体左上角距离屏幕上边的距离。
VB教程——窗体
VB教程——窗体在前面的教程中，我们讲到了窗体的主要属性与事件，而本节我们主要讲述窗体的一些窗口运用。
本节知识对于后面“多文档文件”的创建非常重要，所以希望大家好好掌握。
一、添加窗体：在VB 中每创建一个新文件，自动会生成一个新窗体，如果想在本窗体的基础上再添加一个窗体，那么应该如何做呢？1、选择工程/添加窗体命令，弹出如图一的窗口：图一2、选择你需要的窗体，然后点按“打开”就行了，结果可以在“工程”窗口中看到，如图二：图二二、清除窗体：在“工程”窗口中选中欲被清除的窗体，然后鼠标右键，在弹出的菜单中选择“移除……”命令。
如图三：图三三、窗体的显示属性：多窗口文件，往往是启动时打开主窗口，通过一些命令再打开其他窗口，那么，如何对窗口是否显示进行设置呢？1、选择“工程/工程属性”菜单命令，在弹出的窗口中找到“启动对象”，然后从中选择文件打开时的主窗口是哪个，如图四：图四2、其他窗体的载入：我们可以在主窗口中设置菜单或按钮，并在该菜单或按钮的代码区输入如下代码：Form2.Show 1其中，Show 是显示窗体的一种方法，1 是窗体的显示模式即Mode ，当值为0 即非模态窗体时（常态窗口），允许用户在当前程序中切换到其他窗口；当值为1 即模态窗体时，用户不能在各个窗口间切换。
3、窗体在程序中的三种状态：未装入：窗体没进入程序，不占用程序资源，可以通过Unload 方法卸载窗体。
装入但不显示：可以用Load 方法将窗体载入内存，随时准备显示。
显示：用Show 方法可以显示窗体，如果窗体已装入内存，那么直接Show ；如果窗体还没装入内存，Show 可以先用Load 的方法将窗体载入内存，然后再显示出来。
载入窗体：Load FormX卸载窗体：Unload FormX显示窗体：FormX.Show Mode再论窗体除窗体设计原理以外，还需考虑应用程序的开始与结束。
有一些技巧用于决定应用程序启动时的外观。
VB程序设计--菜单对话框及多重窗体
Private Sub BB1_Click(Index As Integer) Text1.FontSize = Val(BB1(Index).Caption) End Sub
“颜色”菜单下的各菜单项为独立的菜单控件，因此应分 别 在其单击事件过程中编写代码，各事件过程如下: Private Sub CC1_Click() Text1.ForeColor = vbRed End Sub Private Sub CC2_Click() Text1.ForeColor = vbGreen End Sub Private Sub CC3_Click() Text1.ForeColor = vbBlue End Sub
于坐标(x,y)处
示为黑体
菜单项事件代码设计如下：
• 保存窗体的初始颜色:
Dim Fcolor As Long Private Sub Form_Load() Fcolor = Form1.BackColor End Sub ‘&H8000000F默认色
• 文本框快捷菜单:
Private Sub EE1_Click() Text1.FontSize = Text1.FontSize + 1 ‘增加1磅 End Sub Private Sub EE2_Click() Text1.FontSize = Text1.FontSize – 1 ‘减少1磅 End Sub Private Sub EE3_Click() ‘锁定 If EE3.Caption = "锁定" Then EE3.Caption = "取消锁定“ : Text1.Locked = True Else EE3.Caption = "锁定" : Text1.Locked = False End If End Sub
VB教程---窗体和简单的输入输出
设置启动窗体
指定启动窗体
多个窗体的应用程序必须指定一个启动窗体。
默认情况下是第一个创建的窗体。 – 在“工程”菜单中，选“工程属性” – 选“通用”选项卡 – 在“启动”列表框中，选中所要窗体
使用Sub Main – 在标准模块(.bas)中定义主过程Main Sub Main() …. End Sub – 在“启动”列表框中，选中“Sub Main”
MsgBox("显示三个按钮，让用户进行选择！",2,"信息提示")
MsgBox("显示两个按钮，让用户进行选择，并出现问号！", 4 + 32, "信息提示")
2021/3/6
MsgBox示例程序
Visual Basic程序设计
23
MsgBox函数的返回值对应七种按钮
返回常量 vbOK vbCancel vbAbort vbRetry vbIgnore vbYes vbNo
Form1_Activate() MsgBox “Activate事件发生!”
End Sub
4. Deactivate事件 窗体处于非活动状态。
课堂示例3-0
2021/3/6
Visual Basic程序设计
8
5. QueryUnload事件
cancel －设置为非零值，可停止窗体的关闭
Unloadmode（选讲） 一个值或一个常数，如返回值中所描述的，它指示引起 QueryUnload 事件的原因。参数返回下列值：ຫໍສະໝຸດ vbRetryCancel
5 显示Retry和Cancel按钮
VbCritical
16 显示停止图标“×”
vb中窗体和常用内部控件介绍
第 六 章 窗 体 和 常 用 内 部 控 件
3. 事件 Click事件—使选项按钮从未选择变成选择状 态时(单击鼠标改变、代码改变 )
例１：设计如下图所示的界面，用选项按钮设置文 本框的文字颜色和背景颜色。 Value为True的两种显示方式
Option1 Option2 Option3
Style为0 Style为1
5
第 六 【例6.14】模拟会员信息登记.在窗口 章 窗 体 和 常 用 内 部 控 件
FormTxtBox中输入相关信息，并做简单的 输入信息合法检查，在窗口FormBack中输 出合法信息．
6
第 六 章 窗 体 和 常 用 内 部 控 件
7
第 六 章 窗 体 和 常 用 内 部 控 件
Private Sub CmdClear_Click() TextID.Text = "" TextPassWord.Text = "" TextName.Text = "" TextMail.Text = "" TextResume.Text = "" End Sub
10
If flag = 1 Then FormBack.TextAll.Text = LblID.Caption & " " & _ 第 TextID.Text &vbNewLine & LblPassWord.Caption _ 六 & " " & TextPassWord.Text &vbNewLine & _ 章 LblName.Caption & " " & TextName.Text & _ 窗 vbNewLine & LblMail.Caption & " " & _ 体 TextMail.Text &vbNewLine & LblResume.Caption _ 和 常 & " " & TextResume.Text 用 Load FormBack 内 FormBack.Show 部 控 FormTxtBox.Visible = False 件 End If End Sub
01 一起学VB教程——vb多窗体应用
VB多窗体应用教程在VB入门教程中，我们所有的案例全部都是通过一个窗体来完成的。
实际上，绝大部分的程序都绝不会只有一个界面的。
因此，本节课程一起来学习多窗体应用吧。
一、窗体的添加方法1：在工程资源界面，鼠标右键单击——添加——添加窗体方法2：在菜单栏，工程——添加窗体以上两种方法，无论使用哪一种后，都会弹出“添加窗体”的对话框。
在“添加窗体”对话框中，可以选择“新建”选项卡（默认），也可以选择“现存”选项卡。
需要注意的是，在多窗体应用中，不能有重复的窗体Name。
二、窗体的移除要移除某个无需使用的窗体时，可以在工程资源界面，选中该窗体后，鼠标右键单击，选择“移除...”命令，即可删除该窗体。
三、窗体的装载语法：Load窗体名举例：Load Form2作用：执行该语句可以把指定的窗体装入内存。
同时，会触发窗体的Load事件，但是窗体不会显示，仍然处于隐藏的状态，但是窗体中的控件、全局变量均可以引用。
四、窗体的卸载语法：Unload窗体名示例：Unload Form2执行该语句，将卸载指定的窗体，释放窗体占用的内存资源，并触发该窗体的Unload事件。
五、窗体的显示语法：[窗体名.]Show [Style]举例：Form2.Show作用：用来显示一个窗体，缺省窗体名时，则为当前窗体。
说明：Style参数是一个整数，用来决定窗体的显示模式。
如果取1则窗体以有模式显示，如果取0则以无模式显示窗体。
有模式：如果以有模式状态显示窗体，则此时用户只能对该窗体进行操作，而无法操作其它窗体。
无模式：以无模式状态显示的窗体，用户可以在多个窗体之间切换操作。
Style参数缺省时，即默认无模式显示。
在使用show语句显示一个窗体时，如果该窗体还没有被装载，则VB将会默认自动装载该窗体，然后在显示该窗体。
因此，对于一个没有被装载过的窗体，使用show语句时，也将会触发Load事件。
但是需要注意的是，如果窗体已经被装载过，那么将不会再次触发Load 事件。
vb窗体及msgbox
7．BackColor属性和ForeColor属性 BackColor属性用于返回或设置对象的背景颜色， ForeColor属性用于返回或设置在对象里显示图片和 文本的前景颜色。它们是十六进制长整型数据 在程序代码中可用Windows 运行环境的红-绿-蓝 (RGB) 颜色方案，使用调色板或在代码中使用 RGB 或 QBColor
3．Icon 控制图标属性：
返回或设置窗体左上角显示或最小化时显示的图标。 注意：此属性必须在ControlBox属性设置为Ture才有效
4．Picture图片属性： 设置窗体中要显示的图片。加载图片操作同Icon 控制 图标属性。 5. BorderStyle：边框风格
通过改变 BorderStyle 属性，可以控制窗体如何调整大小。
6. WindowsState属性 0：Normal：正常窗口状态，有窗口边界； 1：最小化状态，以图标方式运行；
2：最大化状态，无边框，充满整个屏幕。
7. AutoRedraw属性
该属性决定窗体被隐藏或被另一窗口覆盖之后重新显
示，是否重新还原该窗体被隐藏或覆盖以前的画面。即是 否重画如Circle、Line、Pset和Print等方法的输出。
当为True时，重新还原该窗体以前的画面。
当为False时，则不重画AutoRedraw属性。
二、事件
最常用的事件
1. Click / Dbቤተ መጻሕፍቲ ባይዱClick：单击 / 双击窗体触发。
2. Load：窗体被装入时触发的事件。该事件通 常用来在启动应用 程序时对属性和变量进行初始 化。 3. Unload事件 卸载窗体时触发该事件。
VB编程窗体与控件概述
VB编程窗体与控件概述课题⼗四窗体与控件概述教学过程与内容⼀、导⼊在运⾏程序时看到的窗⼝就是窗体，它是VB中最基本的对象，是所有控件的容器，各种控件对象都必须建⽴在窗体上，在实际应⽤中，单⼀的窗体往往不能满⾜需要，需要通过多重窗体来实现程序功能。
教学⽅法：讲授与上机实践相结合。
⼆、新课讲解（⼀）窗体（重点）1.窗体的属性、事件和⽅法（P155-157）（1）窗体的基本属性有：“名称”、Height、Width、Top、Left、Enabled、Visible、Font、ForeColor、BackColor和Picture 等（2）窗体的⼀些特有属性：Caption属性：窗体标题栏中显⽰的⽂本；MaxButton、MinButton和ControlBox属性这三个属性都是逻辑值，⽤来控制窗体左上⾓控制菜单（也称为系统菜单）和右上⾓最⼤化、最⼩化按钮的显⽰。
值为True时显⽰，为False则隐藏。
Moveable属性：该属性决定窗体是否可移动，逻辑值，为True则窗体可移动。
BorderStyle属性：控制窗体是否可调⼤⼩以及边框和标题栏的显⽰⽅式。
该属性有6个取值，其含义如下：0 - None：窗⼝⽆边框。
1 - Fixed Single：窗⼝为单线边框，不可以改变窗⼝⼤⼩。
2 - Sizable：窗⼝为双线边框，可以改变窗⼝⼤⼩。
3 - Fixed Dialog：窗⼝具有双线框架，不可以改变窗⼝⼤⼩。
4 - Fixed ToolWindow：窗⼝标题为⼯具栏样式，不可以改变⼤⼩5 - Sizable ToolWindow：窗⼝标题为⼯具栏样式，可以改变⼤⼩Icon属性：⽤于设置窗体标题栏显⽰的图标WindowState属性：该属性决定窗体的显⽰状态，根据该属性可以把窗体设成在启动时最⼤化、最⼩化或正常⼤⼩。
也可以在程序中⽤代码修改此属性以改变窗⼝状态，该属性三个取值的含义如下：0 - Normal：正常窗⼝状态，有窗⼝边界。
VB窗体的属性设置
VB窗体的属性设置窗体的属性设置一. 代码设置属性对象.属性名=属性值对象.方法名二. 窗体的属性1. 设置窗体的外观（1）Appearance属性该属性有两个可选值：0-Flat表示在窗体运行时不以3D方式显示，1-Flat表示在窗体运行时以3D方式显示。
（2）BackColor和ForeColor属性设置或返回窗体前景颜色和背景颜色。
代码设置如下：Form1. BackColor=vbcolorForm1. ForeColor=vbcolor(3)BorderStyle 属性该属性是设置窗体的边界类型代码设置如下：Form1.BorderStyle=value各个值的含义如下：0- None 窗体无边框。
1- Fixed Single 固定边框，无最大化和最小化按钮，窗体运行时不可变2- Sizeable 默认值，双线边框，有最大化和最小化按钮，窗体运行时可变3- Fixed Dialog 双线边框，无最大化和最小化按钮，窗体运行时不可变4- FixedToolWindow 双线边框，无最大化和最小化按钮，窗体运行时不可变。
左则图标消失，窗体样式为工具窗口。
5- Sizable T oolWindow双线边框，无最大化和最小化按钮，窗体运行时可变，左则图标消失，窗体样式为工具窗口。
（4）Caption属性用来设置窗体标题栏显示的文本框（5）AutoRedraw属性当其值为True时，表示当前窗体被从新激活时进行当前窗体的从画，False时，不从画。
（6）FillColor属性该属性返回或设置填充形状、圆环和方框所使用的颜色.设置方法BackColor和ForeColor。
（7）FillStyle属性返回或设置一个shape控件的填充方法。
代码设置如下：Form. FillStyle=value各值代表的意义如下:属性值VB常数说明0 VbFSSolid 使用实线填充1 VbFSTransparent （默认值）使用透明方式填充2 VbHorizontallLine 使用水平直线填充3 VbVericalLine 使用垂直直线填充4 VbUpwardDiagonal 使用上斜对角线填充5 VbDownwardDiagonal 使用下斜对角线填充6 VbCross 使用十字线填充7 VbDiagonalCross 使用交叉对角线填充（8）FontTransparent属性True/False设置或返回一个值，决定是否显示窗体、打印机或PictureBox上的背景文本或图片.(9)Picture 属性设置或返回窗体中所显示的图形。
vb form 的方法和事件
vb form 的方法和事件在Visual Basic (VB) 中，窗体（Form）是应用程序中用于与用户交互的主要界面元素。
它提供了许多方法和事件，以响应用户的操作和系统的消息。
以下是对VB Form 的方法和事件的详细解析：1.方法(Methods)o Show()：此方法用于显示窗体。
当你想隐藏一个窗体而不卸载它时，可以使用Hide() 方法。
o Hide()：此方法用于隐藏窗体，但不卸载它。
o Close()：此方法用于关闭窗体并结束与该窗体关联的程序。
o Move()：此方法用于移动窗体到指定的位置和大小。
o Resize()：此方法用于改变窗体的大小。
o Print()：此方法用于在窗体上打印文本或图形。
2.事件(Events)o Load Event：当窗体被加载时触发，通常用于初始化窗体的变量或设置。
o Unload Event：当窗体被卸载时触发，通常用于清理资源或关闭与窗体关联的数据库连接。
o Click Event：当用户单击窗体的空白部分时触发。
o MouseMove Event：当用户在窗体上移动鼠标时触发。
o KeyPress Event：当用户在窗体上按下一个键时触发。
o KeyUp Event：当用户释放一个键时触发。
o MouseDown Event：当用户按下鼠标按钮时触发。
o MouseUp Event：当用户释放鼠标按钮时触发。
3.如何使用这些方法和事件当你创建一个新的VB Form 时，Visual Studio 会自动为你生成一些事件处理程序（例如Form 的Load 和Click 事件）。
这些处理程序包含了使用相应事件的方法的代码。
你可以在这些处理程序中编写代码，以便在事件发生时执行特定的操作。
例如，你可以在Load 事件处理程序中初始化变量，或在Click 事件处理程序中编写代码以响应用户的单击操作。
你还可以创建自己的事件处理程序来响应其他事件，如KeyPress 或MouseMove 事件。
转载.VB设置窗体
1、设置窗体2010-11-18 16:42阅读(117)∙赞∙评论(1)∙转载(13)∙分享∙复制地址∙收藏夹按钮收藏∙更多上一篇 | 下一篇：3、程序反向铣_分...1. 如何设置一个From的边界2. 如何建立一个透明的From3. 如何设置窗体在屏幕中的位置4. 如何使最小化和最大化按钮不可用5. 如何使一个窗体不见6. 如何设置使窗体成为非矩形的.7. 如何使一个窗体在屏幕的最顶端.8. 如何显示一个Model和非Model的窗体9. 如何制作一个MDI的窗体10. 如何将你的窗体不显示在任务条上.11. 如何制作一个带启动屏幕的窗体.12. 如何使你的窗体TrayIcon.13. 如何修改控制窗体的尺寸和长宽尺寸.14. 如何建立一个Windows Explorer风格的窗体.15. 如何设置初始的启动窗体16. 如何建立一个有背景图像的窗体==========================================================================================1. 如何设置一个From的边界form总共有七种不同的边界风格让你设置,你可以在设计时刻也可以运行时通过代码动态的来设置它.这七种边none (System.Windows.Forms.FormBorderStyle.None )fixed 3D (System.Windows.Forms.FormBorderStyle.Fixed3D)fixed Dialog (System.Windows.Forms.FormBorderStyle.FixedDialog)fixed Single(System.Windows.Forms.FormBorderStyle.FixedSingle)fixed Tool Window(System.Windows.Forms.FormBorderStyle.FixedToolWindow)sizable(system.windows.forms.formborderstyle.sizable)sizable Tool Window(system.windows.forms.formborderstyle.sizabletoolwindow)在设计方式下在 IDE的 Properties window中设置FormBorderStyle属性就可以了.在运行方式下你可以用代码来完成:dlgbx1.formborderstyle = System.Windows.Forms.FormBorderStyle.FixedDialog这七种边界类型VB6中就有,没有什么大的变化,运行方式下你需要对照不同的枚举变量进行设置.2. 如何建立一个透明的From你可以通过两种方法在设计时刻和运行时刻来做到这一点.设计时刻,你可以在 IDE的 Properties window, 设置Opacity 属性达到这个效果.这个值从0.0到1.0全不透明.运行时刻你可以用下面的编码设置窗体的opactiy属性来做到.具体:frmtransparentform.opacity = 0.76; ( C# )看得出现在很简单了,你已经不用再去了解什么alpha变量了.透明始终只是一种效果,不要滥用它.3. 如何设置窗体在屏幕中的位置你可以设置窗体的startposition属性,一般给你一个保守的选项” WindowsDefaultLocation“ 这样系前的计算机设置来确定一个值,你也可以在设计时将它改成另一个值”Center”.如果你一定要在设计方式下确定窗体在屏幕出现的位置你可以先设置startposition为manual,然后设置locat运行时用代码实现似乎更简洁一些:Form1.Location = new Point (100, 100) ( )当然你也可以分别修改的Location的X和Y值,对应的是窗体的Left和Top属性,比如:form1.left += 200 ( )form1.top -= 100 ( )另外一个属性将也将影响窗体在屏幕的位置:desktoplocation 这个属性主要是在你设置窗体的位置相对于任务在屏幕的顶或左边时,其实相应改动了desktop coordinates (0,0)),你可以这样设置这个不出现在设计属性窗form1.desktoplocation = new Point (100,100)窗体在屏幕中的位置将主要取决于各自用户具体的硬件和设置情况,所以保守的作法是用默认的” WindowsDefa 专业的作法是自己先获取系统的设置然后编码动态计算后进行设置,不然很容易在屏幕上找不到你的窗体.4. 如何使最小化和最大化按钮不可用在设置窗体的form.minimizebox和form.maximizebox 当为True时表示显示,False时表示不可.用编程方式见frmmaxmin.minnimizebox = False ( )frmmaxmin.maxmnimizebox = True ( )5. 如何使一个窗体不见我想最直接的办法是你调用 Hide()方法来做到这一点.不过我想提供另一种方法,看了之后你会获得一些其它的Private Const WS_EX_TOOLWINDOW As Int32 = &H80Private Const WS_POPUP As Int32 = &H80000000Private Const WS_VISIBLE As Int32 = &H10000000Private Const WS_SYSMENU As Int32 = &H80000Private Const WS_MAXIMIZEBOX As Int32 = &H10000Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParamsGetDim cp As System.Windows.Forms.CreateParamscp = MyBase.CreateParamscp.ExStyle = WS_EX_TOOLWINDOWcp.Style = WS_POPUP Or WS_VISIBLE Or WS_SYSMENU Or WS_MAXIMIZEBOXcp.Height = 0cp.Width = 0Return cpEnd GetEnd Property原来是把Height 和Width都设置成0 ，我想这种方式和Hide()调用的底层可能是不同的。
VBA中窗体的设置
VBA中窗体的设置（隐藏关闭按钮）其实在VBA中，我们可以利用API的SetWindowLong函数来进行对VBA中窗体的设置。
以下代码添加到窗体中，可以隐藏窗体的关闭按钮。
'API声明Private Declare Function FindWindow Lib "user32" Alias _"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias _"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long'窗体初始化Private Sub UserForm_Initialize()'将窗体设置为全部按钮都没有，不能改变大小SetWindowLong FindWindow(vbNullString, Me.Caption), -16, &H6C10000End Sub在这个程序中，SetWindowLong的第四个参数其实就是控制窗体格式的，上述代码是初始化窗体的代码，如果要在窗体运行中改变窗体样式，那么第四个参数最前面加一个1。
SetWindowLong FindWindow(vbNullString, Me.Caption), -16, &H16C10000其实通过第四个参数的改变，可以改变窗体的属性。
具体的对应关系如下：&H16C00000 全部按钮都没有、Title消失&H16C10000 全部按钮都没有、无法改变窗口大小&H16C50000 全部按钮都没有、可以改变窗口大小&H16C80000 Max、Min按钮消失、鼠标不能改变Form的大小&H16C90000 Min按钮消失、鼠标不能改变Form的大小&H16CA0000 Max按钮消失、鼠标不能改变Form的大小&H16CB0000 出现Min、Max按钮，鼠标不能改变Form的大小&H16CC0000 Min、Max按钮消失，鼠标仍可改变Form的大小&H16CD0000 Min按钮消失，鼠标仍可改变Form的大小&H16CE0000 Max按钮消失，鼠标仍可改变Form的大小&H16CF0000 所有按钮都有，滑数可改变大小、正常窗口&H16D10000 出现水平滚动条、全部按钮都没有、无法改变窗口大小&H16D50000 出现水平滚动条、全部按钮都没有、可以改变窗口大小&H16D80000 出现水平滚动条、Max、Min按钮消失、鼠标不能改变Form的大小&H16D90000 出现水平滚动条、Min按钮消失、鼠标不能改变Form的大小&H16DA0000 出现水平滚动条、Max按钮消失、鼠标不能改变Form的大小&H16DB0000 出现水平滚动条、鼠标不能改变Form的大小&H16DC0000 出现水平滚动条、Min、Max按钮消失，鼠标仍可改变Form的大小&H16DD0000 出现水平滚动条、Min按钮消失，鼠标仍可改变Form的大小&H16DE0000 出现水平滚动条、Max按钮消失，鼠标仍可改变Form的大小&H16DF0000 出现水平滚动条、所有按钮都有，滑数可改变大小、正常窗口&H16E10000 出现垂直滚动条、全部按钮都没有、无法改变窗口大小&H16E50000 出现垂直滚动条、全部按钮都没有、可以改变窗口大小&H16E80000 出现垂直滚动条、Max、Min按钮消失、鼠标不能改变Form的大小&H16E90000 出现垂直滚动条、Min按钮消失、鼠标不能改变Form的大小&H16EA0000 出现垂直滚动条、Max按钮消失、鼠标不能改变Form的大小&H16EB0000 出现垂直滚动条、鼠标不能改变Form的大小&H16EC0000 出现垂直滚动条、Min、Max按钮消失，鼠标仍可改变Form的大小&H16ED0000 出现垂直滚动条、Min按钮消失，鼠标仍可改变Form的大小&H16EE0000 出现垂直滚动条、Max按钮消失，鼠标仍可改变Form的大小&H16EF0000 出现垂直滚动条、所有按钮都有，滑数可改变大小、正常窗口&H16F10000 出现水平滚动条、垂直滚动条、全部按钮都没有、无法改变窗口大小&H16F50000 出现水平滚动条、垂直滚动条、全部按钮都没有、可以改变窗口大小&H16F80000 出现水平滚动条、垂直滚动条、Max、Min按钮消失、鼠标不能改变Form的大小&H16F90000 出现水平滚动条、垂直滚动条、Min按钮消失、鼠标不能改变Form 的大小&H16FA0000 出现水平滚动条、垂直滚动条、Max按钮消失、鼠标不能改变Form 的大小&H16FB0000 出现水平滚动条、垂直滚动条、鼠标不能改变Form的大小&H16FC0000 出现水平滚动条、垂直滚动条、Min、Max按钮消失，鼠标仍可改变Form的大小&H16FD0000 出现水平滚动条、垂直滚动条、Min按钮消失，鼠标仍可改变Form 的大小&H16FE0000 出现水平滚动条、垂直滚动条、Max按钮消失，鼠标仍可改变Form 的大小。
2016新编VB窗体显示小结
VB窗体显示小结1、将窗体移动到屏幕的中间Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 'Me指当前窗体2、最大化显示窗体有个属性WindowState：当值为0时表示窗体Normal；当值为1时表示最小化；当值为2时表示最大化。
窗体支持RESIZE 事件，程序如下：Private Sub Form_Resize()Me.WindowState = 2'最大化显示End SubPrivate此时，最大化右上角存在最大化、最小化、关闭按钮。
3、全屏显示BorderStyle设置成了0-None，WindowState = 2进行最大化, 全屏显示窗体。
4、最大化显示（程序实现）（1）设计时，可以正常窗口呈现，并屏蔽窗体的最大化按钮，自己做个替代的“最大化”按钮，实现窗体放大。
当点击“最大化”时，触发Form的ReSize 事件，在Form的ReSize事件中，写入：Private Sub Form_Resize()Form1.Left = 0Form1.Top = 0Form1.Width = Screen.WidthForm1.Height = Screen.Height - GetTaskbarHeightEnd Sub（当程序启动时，也会同时触发Form_ReSize的）其中，GetTaskbarHeight的获取要写进模块文件中：Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As LongPublic Const SPI_GETWORKAREA = 48Public Type RECTLeft As LongTop As LongRight As LongBottom As LongEnd TypePublic Function GetTaskbarHeight() As IntegerDim lRes As LongDim rectVal As RECTlRes = SystemParametersInfo(SPI_GETWORKAREA, 0, rectVal, 0) GetTaskbarHeight = ((Screen.Height / Screen.TwipsPerPixelX) -rectVal.Bottom) * Screen.TwipsPerPixelXEnd Function（2）设置FORM的属性StartUpPosition为0Private Sub Command1_Click()Dim h As LongDim w As LongMe.WindowState = 2h = Me.Heightw = Me.WidthMe.WindowState = 0Me.Width = wMe.Height = h - 300End SubPrivate Sub Command2_Click()'结束EndEnd Sub如属性选择默认则点击该控件为最大化显示，且可显示出任务栏与2情况相同。
VB关闭弹框解决方案（优选.）
VB关闭弹框解决方案（优选.）
精品word.仅供参考
1 / 1 wo
最新文件---------------- 仅供参考--------------------已改成-----------word 文本 --------------------- 方便更改 rd
学习总结
1. VB6.0未关闭总是弹出提示框，提示框内容：“VB6.EXE -应用程序
错误
"0x0043f08f"指令引用的"0x608af85c"内存。
该内存不能为"read". 要终止程序，请单击"确定".
要调试程序，请单击"取消".
解决方案：打开VB6.0,然后菜单栏的"外接程序"-->"外接程序管理器"-->选择
source code control 项,然后下面的多选去掉"在启动加载"和"加载/卸载"的勾勾.重新启动VB 就OK 了。
最新文件---------------- 仅供参考--------------------已改成-----------word 文本
--------------------- 方便更改
赠人玫瑰，手留余香。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Form1.Visible = False
End Sub
Private Sub Timer1_Timer()
Static SF As Boolean '记录是否释放F12，以免窗体闪烁
If GetAsyncKeyState(vbKeyF12) Then
不管屏幕当前显示的是什么页面，按F12都会好使！
代码越少越好，能实现这个功能就 Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long
Private Sub Form_Load()
Form1.Visible = True '检查键盘 F12 是否被按下
s = 2
Else
Form1.Visible = False
s = 1
End If
End Sub
为什么按F12窗体显示一下后立即又隐藏了！
我就想弄成，按一下F12隐藏窗体，然后再按一次F12显示窗体！
Dim s
Private Sub Form_Load()
s = 1
Timer1.Interval = 100
Timer1.Enabled = True
Form1.Visible = False
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF12) And s = "1" Then
************************************************************************
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long '键盘检测API函数
If SF = True Then
SF = False
Form1.Visible = Not Form1.Visible
End If
Else
SF = True
End If
End Sub
丁丁：这个好用
********************************************************************************
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long '键盘检测API函数 Dim s Private Sub Form_Load() s = 1 Timer1.Interval = 100 Timer1.Enabled = True Form1.Visible = False End Sub Private Sub Timer1_Timer() If GetAsyncKeyState(vbKeyF12) And s = "1" Then Form1.Visible = True '检查键盘 F12 是否被按下 s = 2 Else Form1.Visible = False s = 1 End If End Sub 为什么按F12窗体显示一下后立即又隐藏了！ 我就想弄成，按一下F12隐藏窗体，然后再按一次F12显示窗体！ 不管屏幕当前显示的是什么页面，按F12都会好使！ 代码越少越好，能实现这个功能就可以，其他的不需要！ Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long Private Sub Form_Load() Timer1.Interval = 100 Form1.Visible = False End Sub Private Sub Timer1_Timer() Static SF A... 最佳答案: /z/q282927672.htm