您所在位置：主题：小弟跪求!请各位大哥帮我改改程序
hcj1985tc
[专家分：0] 发布于 2008-03-21 13:20:00
程序的目的是利用VB获取bmp格式的曲线图像中非白色的像素的位置数据，并以x,y两个分量分开保存在两个不同的数据文件中
程序中数据的颜色判定及排除和数据的存储还没完成
Private Sub Command1_Click()
Dim x As Single, y As Single, dc As Long, i As Integer, j As Integer
For i = 1 To Picture1.ScaleWidth
For j = 1 To Picture1.ScaleHeight
bc = Picture1.Point(i, j)
?????????????????????????
??????????????
Next j
Next i
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Picture1.AutoSize = True
Command1.Enabled = True
Command2.Enabled = False
Picture1.Scale (0, 15)-(30, 0)
End Sub
Private Sub Text1_Change()
End Sub
Private Sub Text2_Change()
End Sub
程序中数据的颜色判定及排除和数据的存储还没完成
Private Sub Command1_Click()
Dim x As Single, y As Single, dc As Long, i As Integer, j As Integer
For i = 1 To Picture1.ScaleWidth
For j = 1 To Picture1.ScaleHeight
bc = Picture1.Point(i, j)
?????????????????????????
??????????????
Next j
Next i
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Picture1.AutoSize = True
Command1.Enabled = True
Command2.Enabled = False
Picture1.Scale (0, 15)-(30, 0)
End Sub
Private Sub Text1_Change()
End Sub
Private Sub Text2_Change()
End Sub
