VB.NET WinForm中DataGridView中如何显示带有路径的图片？

2011-06-10 03:26:39 335 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB开发者浏览器自动化指南：SeleniumBasic环境搭建与实战应用浏览器自动化是现代软件开发和测试中的关键技术，它通过模拟用户操作实现网页交互的自动化。其核心原理是WebDriver协议，它作为浏览器与自动化脚本之间的桥梁，允许程序化控制浏览器行为。这项技术的价值在于能够显著提升重复性Web操作的效率，确保测试的一致性和准确性，广泛应用于数据抓取、自动化测试和业务流程自动化等场景。对于VB开发者而言，SeleniumBasic是一个关键的COM库，它将WebDriver的强大能力无缝集成到VB6和VB.NET开发环境中。通过SeleniumBasic，开发者无需切换技术栈阅读详情

VB.NET WinForm中DataGridView中如何显示带有路径的图片？

我是在datagridview中添加了一个 DataGridViewImageColumn 的栏位，这个要如何来对其显示有路径的图片呢？请指教，谢谢！

...全文

手把手教你用OpenClaw+飞书打造论文写作AI助手（附踩坑实录）面对几十篇文献，逐一阅读摘要都费时。我：“请提取桌面‘论文参考文献’文件夹中所有PDF的摘要，整理成表格，包含：论文标题、作者、发表年份、核心方法、主要结论。AI助手：“正在处理...已提取18篇论文摘要，汇总表格已保存到桌面‘文献摘要汇总.xlsx’。这比我自己一个个打开PDF复制粘贴快了不止100倍。OpenClaw+飞书的组合，让AI真正成为了我的“数字员工”。虽然配置过程有些曲折，但看到它在飞书里回应指令、帮我处理繁琐工作时，那种成就感无可替代。如果你也在准备论文，不妨试试这套方案。记住，阅读详情

于之

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

于之 2011-07-01

打赏
举报

非常谢谢！已经OK了

Friday 2011-06-15

打赏
举报

图片那列的值是 rowProductImage = Image.FromFile(Common.productImgPath & myReader("productImage"))

而不是 'D:\Photo\A001.jpg' as cpath 路径，你试着把对应的那列数据路径转成图片就行了

于之 2011-06-14

打赏
举报

我是代码是一个查找按钮，要求查到值后，才在datagridview中显示出记录与图片。我的查找代码如下：

[code=vb.net]
DataGridView1.DataSource = Nothing
DataGridView1.DataBindings.Clear()

mydataset.Clear()

Dim strcon As String = My.Settings.Book2011ConnString
Dim conn As SqlConnection
conn = New SqlConnection(strcon)
Dim nitemid As String = Trim(TextBox1.Text)

Dim nstrsql As String = " 1=1 "

If TextBox1.Text <> "" Then
nstrsql += " and namealias like '" & nitemid & "%' "
Else
MsgBox("对不起！请一定要输入条件!", MsgBoxStyle.Information)
conn.Close()
Return
End If

Dim str_cmd As String = "select 'D:\Photo\A001.jpg' as cpath,bookid,bookname,uprice,qty" '-- 其实本来只是 cpath字段的，为了方便测试，换了一具体路径.
str_cmd += " from Booktable "
str_cmd += " where " & nstrsql

Dim da As New SqlClient.SqlDataAdapter
da.SelectCommand = New SqlClient.SqlCommand(str_cmd, conn)
da.SelectCommand.CommandTimeout = 0

mydataset.Dispose()
da.Fill(mydataset, "temp1")
DataGridView1.DataSource = mydataset.Tables(0)
DataGridView1.AutoGenerateColumns = False
da.Dispose()
conn.Close()
conn.Dispose()
[/code]

那我要如何改呢？好象跟你的做法相差挺大啊！请再指点，谢谢！

于之 2011-06-14

打赏
举报

于之 2011-06-14

打赏
举报

Friday 2011-06-13

打赏
举报

\\192.168.0.1\public\image\A001.jpg
你试下换下路径看看，放在你程序下面某个文件夹里，用相对路径看看

于之 2011-06-13

打赏
举报

请有做过的人出来帮一下忙，谢谢！

Friday 2011-06-13

打赏
举报

DataGridView 中加的DataGridViewImageColumn 栏位
这点和你相同，也是一开始就没设好DataGridView 的列

Friday 2011-06-13

打赏
举报



' 选种一行订单,刷新订单明细信息，这个方法是从另一个点击事件触发的，你也可以让窗体一加窗就执行也行

    Private Function selectOrderRow(ByVal rowIndex As Integer)

        Dim selectedOrderNumber = (Me.orderGridView.Rows(rowIndex).Cells("orderNumber").Value)



        Dim getMemberDiscountSql = "select memberDiscount from [order] where orderNumber = '{0}'"

        getMemberDiscountSql = String.Format(getMemberDiscountSql, selectedOrderNumber)

        Dim orderMemberDiscount = Common.getDataValue(getMemberDiscountSql, Common.getLocalConn)





        orderDetailGridView.Rows.Clear()





        Dim sql = "select * from orderDetail inner join product on orderDetail.serverProductId = product.serverProductId where orderNumber = '{0}'"

        sql = String.Format(sql, selectedOrderNumber)

        Try

            Dim myReader = Common.getDataReader(sql, Common.getLocalConn)

            While myReader.Read()

                Dim rowProductBarcode = myReader("orderDetail.ProductBarcode")

                Dim rowProductName = myReader("productName")

                Dim rowProductNumber = myReader("productNumber")

                Dim rowProductImage = Nothing

                If (Not (myReader("productImage") Is DBNull.Value)) And File.Exists(Common.productImgPath & myReader("productImage")) Then

                    rowProductImage = Image.FromFile(Common.productImgPath & myReader("productImage"))

                End If



                Dim rowColor = myReader("color")

                Dim rowSize = myReader("size")

                Dim rowUnit = myReader("unit")

                Dim rowSalePrice = Integer.Parse(myReader("orderDetail.salePrice"))

                Dim rowBasicPrice = Integer.Parse(myReader("orderDetail.basicPrice"))

                Dim rowAgentPrice = Integer.Parse(myReader("orderDetail.agentPrice"))

                Dim rowOrderPrice = Integer.Parse(myReader("orderPrice"))

                Dim rowPromotionPrice = Integer.Parse(myReader("orderDetail.promotionPrice"))

                Dim rowOrderCount = Integer.Parse(myReader("orderCount"))

                Dim rowProductDiscount = Integer.Parse(myReader("orderDetail.productDiscount"))

                Dim rowDetailTotal = rowOrderPrice * rowOrderCount

                Dim rowStatus = Integer.Parse(myReader("orderDetail.status"))





                Dim rowStatusInfo = "销售"

                If (rowStatus = 2) Then

                    rowStatusInfo = "退坏货"

                End If

                If (rowStatus = 3) Then

                    rowStatusInfo = "退良品"

                End If

		'说明下，DGV我没有直接用DGV.dataSouce=XX,而是用DGV.Rows.Add（），这样直接查出一行就加上一行，

                Dim addedRowIndex = orderDetailGridView.Rows.Add(rowProductBarcode, rowProductName, rowProductNumber, rowProductImage, rowColor, rowSize, rowUnit, rowAgentPrice, rowSalePrice, rowProductDiscount, orderMemberDiscount, rowPromotionPrice, rowOrderPrice, rowOrderCount, rowDetailTotal, rowStatusInfo)

                orderDetailGridView.Rows(addedRowIndex).Selected = False



                If (rowStatus = 1) Then

                    orderDetailGridView.Rows(addedRowIndex).Cells("status").Style.ForeColor = Drawing.Color.Green

                Else

                    orderDetailGridView.Rows(addedRowIndex).Cells("status").Style.ForeColor = Drawing.Color.Red

                End If





            End While

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Function

于之 2011-06-13

打赏
举报

那段代码要写在哪里呢？我是直接在DataGridView 中加的DataGridViewImageColumn 栏位, 代码要写在哪呢？请指点，谢谢!

Friday 2011-06-13

打赏
举报



   Dim imgFileStream = Nothing

                If (Not (myReader("productImage") Is DBNull.Value)) And File.Exists(Common.productImgPath & myReader("productImage")) Then

                    imgFileStream = New IO.FileStream(Common.productImgPath & myReader("productImage"), IO.FileMode.Open, IO.FileAccess.Read)

                    rowProductImage = Image.FromStream(imgFileStream)

                End If



   Dim addedRowIndex = storageGridView.Rows.Add(rowProductBarcode, rowProductName, rowProductNumber, rowInitStorageCount, rowReceiveCount, rowDeliverCount, rowSaleCount, rowBadCount, rowStorageCount, rowProductImage)

           If Not imgFileStream Is Nothing Then

                    imgFileStream.Close()

                End If

'以上是一部分代码，也是DGV里显示图片，你看看能不能帮助你

于之 2011-06-13

打赏
举报

我试过了 D:\photo\A001.jpg 都一样显示不了！仍然是一个叉叉。

jiambet 2011-06-11

打赏
举报

帮顶下

于之 2011-06-11

打赏
举报

我的图片是一个公用的文件服务器，所以我们的图片都是这样放的

例如：\\192.168.0.1\publice 这样。

我上面的问题是我查出来的记录结果是这样：

编号图片路径
A0001 \\192.168.0.1\public\image\A001.jpg
A0002 \\192.168.0.1\public\image\A002.jpg
EK301 \\192.168.0.1\public\image\EK301.jpg
...

所以，我把它显示在DataGridView中，我加了一个DataGridViewImageColumn 栏位,但就是图片不能正确显示出来。
我设置了新增的 DataGridviewImageColumn栏位的DataPropertyname属性为：Image.FromFile(cpath)
Imagelayout 属性为：Zoom.

但运行时图片显示为叉叉.

始终不得要领！（注：以上那些路径图片是可以访问打开的，有权限，可读可写的）

请高手指点一下，谢谢！

谢幕人生 2011-06-10

打赏
举报

没做过,但帮你顶一下,消失0回复!
我一般都是将图放到SQL中存取.这样至少不会只能单机使用.

VB.NET WinForm中DataGridView中如何显示带有路径的图片？

相关推荐