VB窗体的窗体的事件及说明：

Posted 2023-05-08

在用form2中可以这样用form1中的过程，form1.过程名()

设置边界类型,取值为：

0None(无边界框架)

1FixedSingle(窗口大小固定不变的单线框架)

2Sizable(窗口大小可变的标准双线框架)

3FixedDialog(窗口大小固定的对话框窗体)

4FixedToolWindow(窗口大小固定的工具箱窗体)

5Sizable ToolWindow(窗口大小可变的工具箱窗体)

基本介绍

窗体是计算机应用程序与人进行信息交互的图形界面。VB窗体中包含和设计好的属性和方法，开发人员可以直接使用，或基于窗体类（class Form）定制自己的程序界面，无需从底层去编写每一个细节，大大简化了开发人员的工作量和复杂度，使程序员将更多的精力投入到程序的业务功能的设计和实现。

以上内容参考：百度百科-VB窗体

参考技术A

（1）Click 事件 。在程序运行时单击窗体内的某个位置，Visual Basic将调用窗体的Form_Click事件。如果单击的是窗体内的控件，则只能调用相应控件的Click事件。
示例代码： Private Sub Form_Click()   Caption = 鼠标单击   Print 欢迎使用VB End Sub 代码说明：标题栏显示“鼠标单击”，窗体显示欢迎使用VB。
（2）DblClick 事件。程序运行时双击窗体内的某个位置，就触发了两个事件，第一次按动鼠标时，触发Click事件，第二次产生DblClick事件。
（3）Initialize初始化事件与 Load事件。 在程序运行时，当窗体被装入工作区时开始为Initialize之后才触发它的Load事件。所以该事件通常用来在启动应用程序时,对控件属性和变量初始化。
（4）Unload事件。卸载窗体时触发该事件。
（5）Resize事件。当窗体大小发生改变时，将触发一个Resize事件。
（6）Activate和Deactivate事件。Activate，当一个对象成为活动窗口时发生。Deactivate，当一个对象变为非活动(Deactivate)事件当在程序运行过程中,一个窗体变为非活动窗体时,则产生该事件。
（7）MouseDown事件。按下鼠标任意键时产生
（8）MouseMove事件。按下鼠标任意键，并移动鼠标时产生。
（9）MouseUp事件。放开鼠标任意键时产生。
（10）DragDrop事件。鼠标点住某一对象并拖动，直到放开鼠标键时才发生该事件，在拖放过程中，不发生DragDrop事件。
（11）KeyDown事件和KeyUp事件。按下键盘上的任意一个键，就会引发当前具有焦点的对象的KeyDown事件。释放时，则会引发该对象的KeyUp事件。
（12）KeyPress事件。按下键盘上与ASCII字符对应的键时，触发KeyPress事件。KeyPress事件能识别的ASCII字符包括：字母键、数字键、标点符号键以及Enter键、Tab键和Backspace键。也就是说，在键盘上除了按这些键以外，按其它键不会引发KeyPress事件。 ASCII码值是以按键上的字符为准。同一按键上的字符有大小之分，所以按下同一个键时，ASCII码值是不一样的。例如，“A”和“a”的ASCII码值不一样。
（13）Paint事件。窗体重绘事件，窗体被移动或放大之后，或在一个覆盖该窗体的窗体被移开之后，该对象部分或全部暴露时，此事件发生。如果需要代码中各种图形方法的输出，则 Paint 事件过程就很有用。使用 Paint 过程，可以确保这样的输出在必要时能被重绘。

vb中怎样设置窗体中的控件为透明

半透明也可以

参考技术A 窗体透明
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const HWND_TOPMOST = -1
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Dim lTime As Long
Dim lTime As Long
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1
Private Sub Form_Load()
Dim rtn As Long

Me.BackColor = RGB(255, 255, 255)
BorderStyler = 0
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, RGB(255, 255, 255), 100, LWA_COLORKEY
SetWindowPos Me.hwnd, HWND_TOPMOST, Me.Left / Screen.TwipsPerPixelX _
, Me.Top \ Screen.TwipsPerPixelY, Me.Width \ Screen.TwipsPerPixelX, _
Me.Height \ Screen.TwipsPerPixelY, 0本回答被提问者采纳 参考技术B 只有Label控件可以设置透明，其它都不行。 参考技术C 除了特殊几个控件，其它的没办法直接设置透明或者半透明。。。

如果要实现这些效果，需要调用系统的API来实现，具体你可以百度一下