Visual Basic

Private Overloads Sub RowToObject(ByVal oTable As DataTable)<br />
	If (IsNothing(oTable) OrElse oTable.Rows.Count = 0) Then 'no table not row then empty the object<br />
		mvPFClassID = Nothing<br />
		mvPFClass = Nothing<br />
		mvModified = Nothing<br />
		mvModifiedBy = Nothing<br />
	Else<br />
		Dim oRow As DataRow = oTable.Rows(0)'get the first row from the table<br />
		mvPFClassID = IIf(IsDBNull(oRow("PFClassID")), 0, oRow("PFClassID"))'load the properties via the private vars<br />
		mvPFClass = oRow("PFClass") & ""<br />
		mvModified = IIf(IsDBNull(oRow("Modified")), Nothing, oRow("Modified"))<br />
		mvModifiedBy = oRow("ModifiedBy") & ""<br />
	End If

<br />
Private Sub ListView1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles ListView1.ItemCheck<br />
<br />
        For i As Integer = 0 To Me.ListView1.Items.Count - 1<br />
<br />
            If i <> e.Index Then<br />
<br />
                Me.ListView1.Items(i).Checked = False<br />
<br />
            End If<br />
<br />
        Next<br />
<br />
End Sub<br />
<br />

<br />
If Bloading the exit sub<br />
bLoading = true<br />
For each oItem as Listview item in LVData.items<br />
 oitem.checked = true<br />
next<br />

rammsteinohr wrote:

i can't create my UserControl With opacity.