我在标准模块中添加了一个窗体上命令按钮的click事件,请问在程序运行的时候如何触发这个事件? 20
我想做一个用vb进行图像处理的程序,在picturebox里面装入一幅图像,然后进行柔化、反转、浮雕、灰度等等的处理,在处理之前先对所装入图像进行图像扫描,将每位像素的值...
我想做一个用vb进行图像处理的程序,在picturebox里面装入一幅图像,然后进行柔化、反转、浮雕、灰度等等的处理,在处理之前先对所装入图像进行图像扫描,将每位像素的值装入一个三维数组中,因为对图像所作的柔化、反转等操作都要用到这个图像的像素值阵列,所以我想把对图像进行扫描的click事件放到一个标准模块中,但不知道在程序实际运行的时候怎么调用或者说触发这个click事件。
我在添加的标准模块中的程序代码如下:
Public imagep(2, 200, 200) As Integer '定义一个imagep全局数组
Private Sub cmdscan_Click()
'扫描图形,对装入Picture1的原图扫描读取每个像素,存放在imagep数组中
Dim i, j As Integer
Dim red, green, blue As Integer
Dim pixel As Long
Form1.MousePointer = 11
Picture1.ScaleHeight = 800
Picture1.ScaleWidth = 800
Picture1.AutoRedraw = True
Form1.Refresh
For i = 0 To Picture1.Height - 1
For j = 0 To Picture1.Width - 1
pixel = Form1.Picture1.Point(j, i)
red = pixel& Mod 256
green = ((pixel And &HFF00) / 256&) Mod 256&
blue = (pixel And &HFF00) / 65535
imagep(0, i, j) = red
imagep(1, i, j) = green
imagep(2, i, j) = blue
Next
Next
Form1.MousePointer = 0
End Sub
窗体上有一个扫描的命令按钮cmdscan,如何在程序运行的时候,单击这个按钮,来让它执行到这个模块里的代码呢,各位大虾请多多指教! 展开
我在添加的标准模块中的程序代码如下:
Public imagep(2, 200, 200) As Integer '定义一个imagep全局数组
Private Sub cmdscan_Click()
'扫描图形,对装入Picture1的原图扫描读取每个像素,存放在imagep数组中
Dim i, j As Integer
Dim red, green, blue As Integer
Dim pixel As Long
Form1.MousePointer = 11
Picture1.ScaleHeight = 800
Picture1.ScaleWidth = 800
Picture1.AutoRedraw = True
Form1.Refresh
For i = 0 To Picture1.Height - 1
For j = 0 To Picture1.Width - 1
pixel = Form1.Picture1.Point(j, i)
red = pixel& Mod 256
green = ((pixel And &HFF00) / 256&) Mod 256&
blue = (pixel And &HFF00) / 65535
imagep(0, i, j) = red
imagep(1, i, j) = green
imagep(2, i, j) = blue
Next
Next
Form1.MousePointer = 0
End Sub
窗体上有一个扫描的命令按钮cmdscan,如何在程序运行的时候,单击这个按钮,来让它执行到这个模块里的代码呢,各位大虾请多多指教! 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询