如題，要實作的功能是，如果送贈品，，在對應的表格上 插入一張圖片，，要求全代碼哦，，，謝謝大俠了，，，納悶很久了。
如下圖：
uj5u.com熱心網友回復：
插入圖片首先必須要有需要插入的圖片，一般用的是圖示，是ICO擴展名的圖示，這些圖示要放在Imagelist控制元件中，需要的時候呼叫Imagelist控制元件中的圖示。稍等，我給你做一個樣子。
uj5u.com熱心網友回復：
大俠，如果在第一列，，插入圖片，我知道怎么做，，但現在我要求在第二列，插入一張ICO圖示，我就弄不出來了，麻煩您幫解決一下，謝謝了。
uj5u.com熱心網友回復：
求助大俠，，，跪求，，，uj5u.com熱心網友回復：
大俠人呢？？？？？？？？uj5u.com熱心網友回復：
ListView 控制元件本身不具有這樣的功能。你得內嵌 Image 控制元件。
平時，利用 Visible 屬性將這些 Image 隱藏。需要時顯示出來。
比較麻煩的是，如果有滾動條，要寫代碼讓這些圖片跟隨同步移動。
uj5u.com熱心網友回復：
'Set mitmX = lvw.ListItems.Add(1, [這一項關鍵字], [顯示的字符], , [圖片關鍵字])其中圖片關鍵字跟imagelist有關
要先在imagelist里面添加圖片（小圖片）
uj5u.com熱心網友回復：
簡單說一下：利用 listview控制元件的 Picture屬性；需要鎖定表頭（禁止用滑鼠調整列寬度）。
效果肯定很理想。
uj5u.com熱心網友回復：
我的方案不需要考慮ListView顯示內容的“滾動”問題，它會自己“同步”。uj5u.com熱心網友回復：
listview 在某行某列中插入圖片，在你的第二行插入，看來比較困難，也可以說僅僅用陳述句估計無法完成，必須采用其他的方法來達到你的目的，我采用了Image1圖片控制元件組，另外再采用了Frame1容器控制元件，達到了你的要求，如下圖：
，設計界面如圖：
，其中帶點的就是Frame1容器控制元件，代碼如下：Private Sub Form_Load()不論如何實作，達到目的就可以了。不知能不能幫到你！
Image1(0).Visible = False
Dim c As ColumnHeader
Dim itmx As ListItem
ListView1.ColumnHeaders.Add , , "微轉/編號", ListView1.Width / 2
ListView1.ColumnHeaders.Add , , "贈品", ListView1.Width / 4, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "狀態", ListView1.Width / 4
ListView1.Checkboxes = True
ListView1.View = lvwReport
ListView1.ForeColor = &HFF
ListView1.Font.Bold = True
For i = 1 To 6
Set itmx = ListView1.ListItems.Add(, , CStr(i + 11072))
LL = 120
WW = 260 * (i - 1)
If i Mod 2 = 0 Then
itmx.SubItems(2) = "購買"
Else
itmx.SubItems(2) = "未定"
End If
If itmx.SubItems(2) = "購買" Then
Load Image1(i): Image1(i).Visible = True: Image1(i).Left = LL: Image1(i).Top = WW
Image1(i).Picture = LoadPicture(App.Path & "\100.ico")
Else
Load Image1(i): Image1(i).Visible = True: Image1(i).Left = LL: Image1(i).Top = WW
Image1(i).Picture = LoadPicture(App.Path & "\101.ico")
End If
Next i
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/76793.html
標籤：控件