Visual Basic

Private Sub TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt_user_name.KeyPress<br />
      Select Case e.KeyChar<br />
          Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"<br />
              e.Handled = True<br />
      End Select<br />
  End Sub

 Public Function FiltreStringASCII(ByVal var As Integer) As Boolean<br />
<br />
        If var = 8 Or var = 32 Or var > 64 AndAlso var < 91 Then<br />
            Return True<br />
        ElseIf var > 96 AndAlso var < 123 Then<br />
            Return True<br />
        Else<br />
            Return False<br />
        End If<br />
<br />
    End Function<br />
    Public Sub Check(ByVal b As Boolean, ByVal e As System.Windows.Forms.KeyPressEventArgs)<br />
        If b = True Then<br />
            e.Handled = False<br />
        Else<br />
            e.Handled = True<br />
        End If<br />
    End Sub

Private Sub Textbox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Matr_Rec.KeyPress<br />
    Check(FiltreStringASCII(Asc(e.KeyChar)), e)<br />
End Sub

MickYL wrote:

Ive got a button on a form and am trying to get the flashwindow api to
work with the form , however it seems i don't understand it! As i have never done an api call im not too surprised.!!

Declare Function FlashWindow Lib "user32" Alias "FlashWindow" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FlashWindow(1, True)'what are the arguments this call should use?
End Sub

FlashWindow(Me.Handle, True) :~ 

rahul.shendurnikar wrote:

i am creating the databse and table from VB.
Plz help me how to set 'Require' property of column to No.
When i append the column to table and table to databse, the 'Require ' property is by default set to YES, i want to set it to No.