Visual Basic

drexler_kk wrote:

I have select all the client company into dt1 from the database,and now how could I check if the user is typing each character into combobox2 will display the similar company name on the combobox?

Dim hti As DataGridView.HitTestInfo = DataGridView1.HitTest(e.X, e.Y)

      

        column1 = hti.ColumnIndex
        If e.Button = Windows.Forms.MouseButtons.Right Then
            If hti.ColumnIndex = 1 Then

                DataGridView1.ContextMenuStrip = ContextMenuStrip1
                DataGridView1.ContextMenuStrip.Enabled = False
                DataGridView1.ContextMenuStrip.Visible = False
                


            Else
                DataGridView1.ContextMenuStrip = ContextMenuStrip1
End If
End If

this.dataGridView1.ContextMenuStrip = oContextMnuStrip;
this.dataGridView1.Columns[1].ContextMenuStrip = new ContextMenuStrip();

Sohaib_A wrote:

Ok..that sounds a little complicated for me,is there any other simpler way or do you have any code samples for it.

Sohaib_A wrote:

Also after i select a cell and click on the context menu,the cell at 0,0 gets selected by default.I dont want any cell to get highlighted unless i click on it.How can this be done?

Dim myReport As New SomeReport
myReport.DataDefinition.FormulaFields["UnboundFieldName"].Text = DateTime.Now.ToString()

Private Sub UnRGB(ByVal color As System.Drawing.Color, ByRef r As Byte, ByRef g As Byte, ByRef b As Byte)
    r = color And &HFF
    g = (color And &HFF00) \ &H100
    b = (color And &HFF0000) \ &H10000
End Sub

Dim pixelColor As Color = MyBitmap.GetPixel(x, y)
Dim R As Byte = pixelColor.R
Dim G As Byte = pixelColor.G
Dim B As Byte = pixelColor.B

Private Sub UnRGB(ByVal color As OLE_COLOR, ByRef r As Byte, ByRef g As Byte, ByRef b As Byte)
    r = color And &HFF&
    g = (color And &HFF00&) \ &H100&
    b = (color And &HFF0000) \ &H10000
End Sub

sarfarazaliqureshi wrote:

but dear what about this code...

Dim R As Byte = pixelColor.R
Dim G As Byte = pixelColor.G
Dim B As Byte = pixelColor.B

r = color And &HFF
g = (color And &HFF00) \ &H100
b = (color And &HFF0000) \ &H10000

UnRGB picImage.Point(r, c), clrr, clrg, clrb

Private Sub UnRGB(ByVal color As OLE_COLOR, ByRef r As Byte, ByRef g As Byte, ByRef b As Byte)
    r = color And &HFF&
    g = (color And &HFF00&) \ &H100&
    b = (color And &HFF0000) \ &H10000
End Sub

Dim R As Byte = pixelColor.R
Dim G As Byte = pixelColor.G
Dim B As Byte = pixelColor.B