Visual Basic

Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
    If (e.KeyCode = Keys.F4 And e.Shift) Then
        MessageBox.Show("Hit it, Sam!")
    End If
End Sub

I are troll

' This program capture CTRL+SHIFT, it can be changed to capture any combination
' Add Timer ,Command button to the form
' In the declaration
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer)
Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer
Const VK_SHIFT = &H10
Const VK_CONTROL = &H11

'Button1_Click
Me.Timer1.Interval = 1
Me.Timer1.Enabled = True
' After clicking, try to press CTRL+SHIFT or SHIFT+CTRL


' Timer1_Tick
Dim nKeySHIFT, nKeyCTRL
nKeySHIFT = GetKeyState(VK_SHIFT)
nKeyCTRL = GetKeyState(VK_CONTROL)
If nKeySHIFT <> 0 And nKeySHIFT <> 1 And nKeyCTRL <> 0 And nKeyCTRL <> 1 Then
    MessageBox.Show("SHIFT + CTRL is pressed")
    Timer1.Enabled = False
End If

jan212r wrote:

I think I have to update some DB on the server side also

cnNwind.Open()

Sub deleteRecords(ByVal cbo As ComboBox, ByVal table As String)
      Dim cnNwind As New OleDb.OleDbConnection   (Me.FilmTableAdapter.Connection.ConnectionString)
      Dim cmOrder As OleDb.OleDbCommand = Nothing
      Dim strSQL As String = "DELETE FROM " + table + " WHERE ID = " + cbo.SelectedValue.ToString
        cmOrder = New OleDb.OleDbCommand(strSQL, cnNwind)
        'cmOrder.Parameters.AddWithValue("@Original_ID", cbo.SelectedValue.ToString)

        cnNwind.Open()
        cmOrder.ExecuteNonQuery()
        cnNwind.Close()
End Sub

 Sub deleteRecords(ByVal cbo As ComboBox, ByVal table As String)
        Dim cnNwind As New OleDb.OleDbConnection(Me.FilmTableAdapter.Connection.ConnectionString)
        Dim cmOrder As OleDb.OleDbCommand = Nothing

        cnNwind.Open()
        Me.FilmTableAdapter.Delete(cbo.SelectedValue.ToString)
        Me.FilmTableAdapter.Update(Me.FilmerDataSet)
        cnNwind.Close()
End Sub

fiaolle wrote:

Doesn't it have to be if I'm using dataadapter, dataset controls and bound conrols?

fiaolle wrote:

Because when I delete an item in the comboBox I want the item to be removed from the comboBox.

Sub deleteRecords(ByVal cbo As ComboBox, ByVal table As String)
   Me.FilmTableAdapter.DeleteQuery(cbo.SelectedValue.ToString)
   Me.FilmTableAdapter.Update(Me.FilmerDataSet)
   cbo.Refresh()
End Sub

Sub deleteRecords(ByVal cbo As ComboBox, ByVal table As String)
   Dim cnNwind As New OleDb.OleDbConnection (Me.FilmTableAdapter.Connection.ConnectionString)
   Dim cmOrder As OleDb.OleDbCommand = Nothing
   Dim strSQL As String = "DELETE FROM " + table + " WHERE ID = " + cbo.SelectedValue.ToString
   cmOrder = New OleDb.OleDbCommand(strSQL, cnNwind)
   'cmOrder.Parameters.AddWithValue("@Original_ID",cbo.SelectedValue.ToString)
   cnNwind.Open()
   cmOrder.ExecuteNonQuery()
   Me.FilmTableAdapter.Update(Me.FilmerDataSet)
   cnNwind.Close()
   cbo.Refresh()
End Sub

JayMar8 wrote:

I tried using InputBox but am really looking for a way to have like two buttons to click or a drop down with no typing. Is it possible?