说明: 部分处理代码: VB.NET code …… Dim ts2 As IThresholder = New GlobalMeanThreshold(inbmp) Dim tsBMP As New Bitmap(PictureBox1.Width, PictureBox1.Height) ts2.RenderToBitmap(tsBMP) PictureBox6.Image = tsBMP PictureBox6.Height = PictureBox1.Height <u010369248> 上传 | 大小:3kb
说明: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' 将C:\db1.mdb 做Compact / Repair If Compact_MDB("C:\db1.mdb") Then MessageBox.Show("OK !") End Sub <u010369248> 上传 | 大小:2kb