Visual Basic

Tamimi - Code wrote:

Luay.Essa wrote:
How can you know that it is developed using .NET ??

the question is posted in vb.net forum !!!

Process.Start("C:\folder\filetorun.exe", "-verify")

<br />
Public Sub DiseaseList(ByVal connectionString As String)<br />
        'Disease List<br />
        Dim strSQLDiseaseList As String = "Select DiseaseName, DiseaseCode, SurveillanceFormFlag, TwentyFourHRReportFlag, CausativeOrganismFlag, SerotypeFlag, SiteOfInfectionFlag From Disease"<br />
        Dim daDisease As New OleDbDataAdapter(strSQLDiseaseList, connectionString)<br />
        Dim dtDisease As New DataTable("Disease")<br />
<br />
<br />
        Try<br />
            daDisease.Fill(dtDisease)<br />
        Catch ex As Exception<br />
            MessageBox.Show(ex.Message)<br />
        End Try<br />
<br />
<br />
        With cboDiseaseName<br />
            .DropDownStyle = ComboBoxStyle.DropDownList<br />
            .DataSource = dtDisease<br />
            .DisplayMember = "DiseaseName"<br />
            .ValueMember = "DiseaseCode"<br />
            .SelectedIndex = cboDiseaseName.FindStringExact("")<br />
        End With<br />
        'End Disease List<br />
End Sub<br />

<br />
Private Sub cboDiseaseName_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboDiseaseName.SelectedValueChanged<br />
<br />
        Dim dvFilter As DataView = Nothing<br />
<br />
        dvFilter = dtDisease<br />
<br />
        <br />
End Sub<br />

Public Class MyForm
    Inherits System.Windows.Forms.Form
 
    Private dtDisease As DataTable
 
    Public Sub DiseaseList(ByVal connectionString As String)
        'Disease List
        .
        .
        dtDisease = New DataTable("Disease")
        .
        .
    End Sub
 
    Private Sub cboDiseaseName_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) _
            Handles cboDiseaseName.SelectedValueChanged
        Dim dvFilter As DataView = Nothing
 
        dvFilter = dtDisease...
     End Sub