Visual Basic

<br />
Private Function SetDataSource _ <br />
(ByVal conn As String, ByVal query As String, _<br />
ByVal dataSet As DataSet)<br />
<br />
   ' create a new connection & data adapter object <br />
   Dim oleConn As New OleDbConnection(conn)<br />
   Dim oleAdapter As New OleDbDataAdapter()<br />
   'pass your query to the data adapter<br />
   oleAdapter.SelectCommand = New OleDbCommand(query, oleConn)<br />
<br />
   ' Connect to the data source, fetch the data, and disconnect <br />
   ' from the database.<br />
   Try<br />
     oleAdapter.Fill(dataSet, "Books")<br />
   Catch ex as Exception<br />
     Messagebox.Show(ex.InnerException.ToString)<br />
   End Try<br />
<br />
   ' Pass the populated data set to the report.<br />
   Report.SetDataSource(dataSet)<br />
   <br />
   ' Set the report viewer to show the report (if you have<br />
   ' multiple reports for the same viewer and haven't set<br />
   ' the ReportSource property of the viewer)<br />
   Form1.CrystalReportViewer1.ReportSource = Report<br />
<br />
End Function<br />
<br />

SendMessage(    // returns LRESULT in lResult<br />
         (HWND) hWndControl,       // handle to destination control<br />
         (UINT) LVM_SETTEXTCOLOR,  // message ID<br />
         (WPARAM) wParam,          // = 0; not used, must be zero<br />
         (LPARAM) lParam           // = (LPARAM) (COLORREF) clrText;<br />
         <br />
         );

Private Const LVM_REDRAWITEMS = (LVM_FIRST + 21)
.
.
.
SendMessage hwnd, LVM_REDRAWITEMS, firstItemIndex, lastItemIndex

method007 wrote:

is working perfectly and is selecing the zero position item for me and highlighting it corectly.
Some people suggest i need to send a refresh using LVM_REDRAWITEMS to listview after setting a color for it. But i do not know how to use LVM_REDRAWITEMS. I be happy if an expert help me fix there problems.Thanks

void CColor1Dlg::OnButton1() <br />
{<br />
  HWND hPalWnd = ::FindWindow("my window class", NULL);<br />
        HWND spilterwindow = FindWindowEx(hPalWnd, 0, "WTL_SplitterWindow", 0);<br />
        spilterwindow = FindWindowEx(spilterwindow, 0, "WTL_SplitterWindow", 0);<br />
        HWND ATL = FindWindowEx(spilterwindow, 0, "WTL_SplitterWindow", 0);<br />
        HWND ATLWIN = FindWindowEx(ATL, 0, "atl:0053c8d0", 0);<br />
        HWND Dialog = FindWindowEx(ATLWIN, 0, "SysListView32", 0);<br />
        HWND Rich = FindWindowEx(Dialog, 0, "SysHeader32", 0);<br />
<br />
<br />
<br />
            CButton *pButton1 = (CButton*)GetDlgItem(IDC_BUTTON1);<br />
            COLORREF GetBkColor(IDC_BUTTON1);<br />
<br />
            //COLORREF color = m_color.GetColor();<br />
			COLORREF color = 33023;<br />
            TRACE("Color of the selected font = %8x\n", color);<br />
<br />
            //CButton *pButton = (CButton*)GetDlgItem(IDC_BUTTON2);<br />
            //pButton->SetWindowText("Shoot");<br />
        ::SendMessage(Dialog, LVM_SETTEXTCOLOR, 0, color);<br />
	<br />
}