改变窗体的背景颜色 Dim ctl As Control IsMdiContainer = True Loop through controls, looking for controls of MdiClient type. For Each ctl In Me.Controls If TypeOf (ctl) Is MdiClient Then If the control is the correct type, change the...

产生此效果 Public Class Form1 Create a new form. Dim mdiChildForm As New Form Dim mdiChildForm1 As New Form Dim mdiChildForm2 As New Form Private Sub Form1_Load(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles MyBase.Load...

自动生成一个窗体并创建两个按钮 （点击Cancle窗体自动关闭，如果他失去焦点，他不仅会响还会晃） Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click...

.关闭窗体 窗体.Dispose 3. 创建一个透明度为75%的窗体 Private Sub CreateMyOpaqueForm() Create a new form. Dim form2 As New Form() Set the text displayed in the caption. form2.Text = My Form Set the opacity to 75%. form2.Opacit...

.打印文字。 方法一：在窗体上打印文字 Dim g As Graphics = Me.CreateGraphics Dim mBrush As New SolidBrush(Color.Red) Dim mFont As New Font(宋体, 18) g.DrawString(测试, mFont, mBrush, 0, 10) （0 为横坐标，10 为纵坐标...

0. 自动调整窗体 Public xz, yz As Double Public Sub zishiying(ByVal parent As Control) xz = 75 / Form5.Button1.Width yz = 23 / Form5.Button1.Height Dim sFont As Font For Each c As Control In parent.Controls Dim zihao As Integer = c.Fon...

使用数据集 实例说明 在本实例中，我们再利用VB.NET开发一个程序，即使用DataSet数据集来制作一个程序。程序运行结果如图72-1所示。 图72-1 运行结果 技术要点 l 使用DataSet控件 l 添加数...

提示信息 实例说明 在本实例中，我们将介绍使用如何使用ToolTip控件来显示提示信息。程序运行后，可以设置显示提示信息的时间以及是否显示提示信息。程序运行结果如图71-1所示。...

输出（2） 文章来源：vb大世界 很久没有继续VB教程了，也有很多初学VB的朋友来信留言要求继续，说起来惭愧，不是有时候犯懒，就是杂物缠身，今天好不容易做在电脑前想敲几个字，...

输出 文章来源：vb大世界 上一章里，我们讨论的VB的输人机制，这次我们来集中讨论VB中信息的输出。 输入和输出是不可分割的，人们输入的最终目的是希望计算机作出反应，任何一个...