Question

在vb.net的窗体应用台程序中我想添加数据，结果老是出错，各位帮帮忙看一看，代码如下

Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
Dim conn As New OleDb.OleDbConnection
Dim dap As New OleDb.OleDbDataAdapter
Dim comm As New OleDb.OleDbCommand
Dim da As New DataSet
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\db1.mdb"
comm.CommandText = "insert into stu(stu-xh,stu-xm,stu-jtzz,stu-sex) value('" + Me.TextBox1.Text.Trim + "','" + Me.TextBox2.Text.Trim + "','" + Me.TextBox3.Text.Trim + "','" + Me.TextBox4.Text.Trim + "')"
MsgBox(comm.CommandText)
comm.Connection = conn
dap.InsertCommand = comm
conn.Open()
dap.InsertCommand.ExecuteNonQuery()
conn.Close()
MsgBox("成功")

Answer 1

修改窗体的Region属性就可以该表窗体的显示和响应区域
剩下的简单了吧

这个你懒了……

Public Class Form1
Private WithEvents T As Timer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
T = New Timer()
T.Interval = 100
T.Start()
End Sub

Private Sub T_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles T.Tick
Static s As Size = Me.Size
Static l As Double = 1
If l <= 0 Then End
l -= 0.1
Me.Region = New Region(New Rectangle(New Point(s.Width * (1 - l) / 2, s.Height * (1 - l) / 2), New Size(s.Width * l, s.Height * l)))
End Sub
End Class