VB程序中出现了好多的BUG,请大神们指点指点我。
我是新手,很多都不太懂,希望大神们可以帮帮忙 拜托拜托了
Private Sub Command1_Click()
Dim i As Integer, J As Integer, t As Long
Dim r As Long, g As Long, b As Long
CDialog1.Filter = " 图片文件 (*.bmp;*.JPG;*.GIF)|*.bmp;*.JPG;*.GIF"
CDialog1.ShowOpen
If CDialog1.FileName <> "" Then
Picture1.PictureBox = LoadPicture(CDialog1.FileName)
ImagetoArray Picture1, ImageArray
End If
Picture2.Top = Picture1.Top + Picture1.Height + 10
Picture3.Top = Picture2.Top + Picture2.Height + 10
Picture2.Left = Picture1.Left
Picture2.Width = Picture1.Width
Picture3.Left = Picture1.Left
Picture3.Width = Picture1.Width
End Sub
提示在 Picture1.PictureBox = LoadPicture(CDialog1.FileName中的PictureBox未找到方法或数据成员
Private Sub Command2_Click()
Dim i As Integer, J As Integer
Dim h As Integer, w As Integer
Dim VS() As Long
Dim gray As Integer
Dim r As Integer, g As Integer, b As Integer
h = UBound(ImageArray, 1) + 1
w = UBound(ImageArray, 2) + 1
提示 h = UBound(ImageArray, 1) + 1类型不匹配
Private Sub Command3_Click()
Dim max As Double, min As Double
Dim i As Integer
Dim h As Integer, w As Integer
Dim h1 As Integer, h2 As Integer, h0 As Integer
Dim VS() As Long
h = UBound(ImageArray, 1) + 1
w = UBound(ImageArray, 2) + 1
max = VS(0)
min = VS(0)
For i = 0 To w - 1
If max < VS(i) Then max = VS(i)
If max < VS(i) Then max = VS(i)
Next i
h1 = h0 - (VS(0) - min) / (max - min) * h0
For i = 0 To w - 1
h2 = h0 - (VS(i) - min) / (max - min) * h0
Picture2.Line (i - 1, h1)-(i, h2)
提示Picture2.Line (i - 1, h1)-(i, h2)未找到方法或数据成员