Visual Basic

KaKa` wrote:

How do we make a listbox to respond directly when the user clicks on the items

KaKa` wrote:

The SelectedIndexChange event only seems to work when a button is added.

<br />
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles listStat.SelectedIndexChanged<br />
        If listStat.SelectedIndices.Count > 0 Then<br />
<br />
            Label1.Text = ListBox1.SelectedItems(0).Text<br />
<br />
        End If<br />

coder45 wrote:

Is there a way to hide the console window in a console application?

coder45 wrote:

Or if not, is it possible to open a command window in a Windows application?

Class Foo : Inherits System.Windows.Forms.Form
   <code>Public myCheckBoxes() As CheckBox</code>
   '
   Private Sub Foo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
<code>      myCheckBoxes = New CheckBox() {CheckBox1, CheckBox2, CheckBox3}</code>
      '
      ' Do something...
      '
      <code>For Each chkBox As CheckBox In myCheckBoxes
         If (chkBox.Checked) Then
            ' CheckBox is checked!
         End If
      Next</code>
   End Sub
End Class

<br />
 Dim len As Integer = File1.PostedFile.ContentLength<br />
            Dim fileContents() As Byte = New Byte(len) {}<br />
            File1.PostedFile.InputStream.Read(fileContents, 0, len)<br />
           <br />
 <br />
            SaveFile(IntFormID, FileName, fileContents)<br />
<br />
<br />
<br />
 Public Shared Sub SaveFile(ByVal FormID As Integer, ByVal FileName As String, ByVal File As Byte())<br />
<br />
        Dim conn As New SqlConnection(CStr(Current.Session("ConnectionString")))<br />
        Dim cmd As New SqlCommand()<br />
        cmd.Connection = conn<br />
        cmd.CommandType = CommandType.StoredProcedure<br />
        cmd.CommandText = "dbo.uspSaveFile"<br />
        AddFormIDParameter(cmd, FormID)<br />
<br />
        Dim PrmFileImage As New SqlParameter("@File", SqlDbType.Image)<br />
        PrmFileImage.Direction = ParameterDirection.Input<br />
        cmd.Parameters.Add(PrmFileImage)<br />
        PrmFileImage.Value = File<br />
<br />
        Dim PrmFileName As New SqlParameter("@FileName", SqlDbType.VarChar, 100)<br />
        PrmFileName.Direction = ParameterDirection.Input<br />
        cmd.Parameters.Add(PrmFileName)<br />
        PrmFileName.Value = FileName<br />
<br />
        AddNetIDParameter(cmd)<br />
<br />
        conn.Open()<br />
        cmd.ExecuteNonQuery()<br />
        conn.Close()<br />
<br />
<br />
<br />
<br />
<br />
<br />
    End Sub<br />