Vb编程：picturebox控件的point方法怎么调用？
新学vb，想实现个读取位图各点颜色保存到数据库表的功能，查了很多资料都说把图放到picturebox里，然后用point(x,y)的方法就可以取到用long表示的颜色。看例子也是写objectname.point(x,y)就能返回颜色代码。
但是实际编程时却提示point不是picturebox的成员，这是什么情况？
开发环境是win10系统，用的visual studio 2015 代码如下：
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName <> "" Then
PictureBox1.ImageLocation = OpenFileDialog1.FileName
MessageBox.Show(PictureBox1.Point(100, 100))
End If
End Sub
请使用Bitmap.GetPixel(X, Y)方法
Dim bitmap1 As Bitmap
bitmap1 = new Bitmap("C:\1.bmp")
Dim c As Color = bitmap1.GetPixel(0, 0) '取得图像左上角的颜色
VB怎么取图片指定点的颜色?
VB可使用Point方法来获取图片指定点的颜色。Point 方法 按照长整数，返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色。语法 object.Point(x, y)'窗体判色代码:Private Sub Form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1 = X Te...
VB picturebox中画坐标轴的方法
Picture1.PSet (0, 0), vbRed End Sub
vb 中不显示picturebox的情况下 用point来读取颜色值
初始化时添加这一行，或在属性栏里直接设置 Picture1.AutoRedraw = True
...picturebox 还有picturebox的paint 事件 该怎么使用这个类_百度知 ...
在窗体中调用的方法就是实例化类就行了。因为这个类有NEW所以在实例化的时候要赋参数 代码如下数值是我临时写的。调用的时候你根据实际情况改一下就行。参数PictureBox1是在窗体上添加的PictureBox控件。Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ...
vb picturebox中怎么把一个点画在画上
把Picture1的AutoRedraw属性改为True，这样线就不会消失了 把Command3_Click()里的代码改为：SavePicture Picture1.Image, Text2.Text 这样就行了...
VB中点击按钮PictureBox就变换一张图片
Private Sub Command1_Click()Dim i As Integer i = Int((4 * Rnd()) + 1) '产生1到4的随机数，你可以将4改为其他数 If i = 1 Then Form1.Picture = LoadPicture("D:\\我的文件夹\\1.jpg") '你可以将Then后的Form1改为PictureBox If i = 2 Then Form1.Picture = LoadPicture...
如何在vb中的picturebox 里画图?
Next Radius For I = 0 To 50 Step 2 ' Set up loop.F = I \/ 50 ' 执行中间。f1 = 1 - F: f2 = 1 + F ' 计算。Picture1.Line (CX * f1, CY)-(CX, CY * f1) ' 画左上角。Picture1.Line -(CX * f2, CY) ' 画右上角。Picture1.Line -(CX, CY * ...
vb怎样在控件picturebox获得焦点
Private Sub Picture1_GotFocus()'Picture1.SetFocus '设置焦点 Debug.Print "获得焦点"End Sub
vb.net的picturebox画直线的函数是哪个?vb6.0是picture1.line就可 ...
Private Sub DrawLine()Sub DrawLine(ByVal mPoint1 As Point, ByVal mPoint2 As Point)Pic1.Refresh() '用于刷新Picturebox表面 Pic1.CreateGraphics.DrawLine(Pens.Blue, mPoint1, mPoint2) '绘制两点间的直线 End Sub '绘制多条直线，每两次鼠标点击确定一条线 Private Sub DrawLines...
在VB中怎样用代码打开pictureBox的加载图片的对话框。
简单实例：按钮一个，commondialog控件一个 Private Sub cmdgxbj_Click()CommonDialog1.ShowOpen FileName = CommonDialog1.FileName If Dir(FileName) = "" Then '填写的路径不存在就退出 Exit Sub End If Picture1.Picture = LoadPicture(FileName)End Sub ...
