Visual Basic

1. Read the question carefully
   
2. Understand that English isn't everyone's first language so be lenient of bad spelling and grammar
   
3. If a question is poorly phrased then either ask for clarification, ignore it, or mark it down. Insults are not welcome
   
4. If the question is inappropriate then click the 'vote to remove message' button
   

1. Choose the correct forum for your message. Posting a VB.NET question in the C++ forum will end in tears.
    
   
2. Be specific! Don't ask "can someone send me the code to create an application that does 'X'. Pinpoint exactly what it is you need help with.
    
   
3. Keep the subject line brief, but descriptive. eg "File Serialization problem"
    
   
4. Keep the question as brief as possible. If you have to include code, include the smallest snippet of code you can.
    
   
5. Be careful when including code that you haven't made a typo. Typing mistakes can become the focal point instead of the actual question you asked.
    
   
6. Do not remove or empty a message if others have replied. Keep the thread intact and available for others to search and read. If your problem was answered then edit your message and add "[Solved]" to the subject line of the original post, and cast an approval vote to the one or several answers that really helped you.
    
   
7. If you are posting source code with your question, place it inside <pre></pre> tags. We advise you also check the "Encode "<" (and other HTML) characters when pasting" checkbox before pasting anything inside the PRE block, and make sure "Use HTML in this post" check box is checked.
    
   
8. Be courteous and DON'T SHOUT. Everyone here helps because they enjoy helping others, not because it's their job.
    
   
9. Please do not post links to your question into an unrelated forum such as the lounge. It will be deleted. Likewise, do not post the same question in more than one forum.
    
   
10. Do not be abusive, offensive, inappropriate or harass anyone on the boards. Doing so will get you kicked off and banned. Play nice.
     
    
11. If you have a school or university assignment, assume that your teacher or lecturer is also reading these forums.
     
    
12. No advertising or soliciting.
     
    
13. We reserve the right to move your posts to a more appropriate forum or to delete anything deemed inappropriate or illegal.

tstText = "111" & Space(11) & Format(now, "hh:mm:ss.fff ")
mFileStreamWriter.Write(tstText)

01:38:13.423 
01:38:13.485 
01:38:13.548 
01:38:13.610 
01:38:13.673 
01:38:13.735 
01:38:13.798 
01:38:13.860 
01:38:13.923 

 mFileStreamWriter.Flush()
 mFileStreamWriter.Close()
 mFileStreamWriter = Nothing

Dim de As New DirectoryEntry("LDAP://DC=us,DC=myCompany,DC=com")
 
ds.Filter = "(&(objectCategory=person))"

Dim de As New DirectoryEntry("LDAP://DC=us,DC=myCompany,DC=com")
 
ds.Filter = String.Format("(SAMAccountName={0})", Me.tboxUserName.Text)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tst As New Bitmap("c:\tst.bmp")
        PictureBox1.Image = tst
        Dim x, y, bcnt As Integer
        Dim c As Color = tst.GetPixel(x, y)
        bcnt = 0
        For y = 0 To tst.Height - 1
            For x = 0 To tst.Width - 1
                If tst.GetPixel(x, y) = Color.Black Then
                    bcnt = bcnt + 1
                End If
 
            Next
        Next
        MsgBox(bcnt)
 
    End Sub

Sub HTTPDownloadFile(ByVal URL As String, ByVal LocalFileName As String)
Dim http As New Inet
Dim Contents() As Byte
 

On Error GoTo HTTPDownloadFile_Error
 
WriteLog "LInk" & URL
WriteLog "Path to save" & LocalFileName
10 ' Set http = New Inet
20 'Set http = CreateObject("InetCtls.Inet")
30 With http
40 .protocol = icHTTP
50 .URL = URL
60 Contents() = .OpenURL(.URL, icByteArray)
70 End With
80 ' Set http = Nothing

90 Open LocalFileName For Binary Access Write As #1
100 Put #1, , Contents()
110 Close #1
120 Set http = Nothing
WriteLog LocalFileName & "Saved"
On Error GoTo 0
Exit Sub

Private Sub Button_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim m_sConn1 As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                  "Data Source=C:\Temp\Test.xlsx;" & _
                  "Extended Properties=""Excel 12.0 Xml;HDR=No;IMEX=1"""     'IMEX=1 would treat all columns as text

        Dim conn1 As New System.Data.OleDb.OleDbConnection(m_sConn1)
        conn1.Open()
        Dim da As OleDbDataAdapter
        Dim ds As New System.Data.DataSet
        Dim test As String
        test = "[Sheet1b$]"
        Dim teststring As String
        teststring = "Select * FROM" & test & """"
 
        da = New OleDbDataAdapter(teststring, conn1)
        da.Fill(ds, "TestTable")
        da.Dispose()
 
        Dim bindingSource As New BindingSource(ds, "TestTable")
 
        excelDataGrid.ItemsSource = bindingSource
        conn1.Close()
 
    End Sub
 
    Private Sub getList_Click(sender As Object, e As RoutedEventArgs) Handles getList.Click
 
        Dim m_sConn1 As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                  "Data Source=C:\Temp\Test.xlsx;" & _
                  "Extended Properties=""Excel 12.0 Xml;HDR=No;IMEX=1"""     'IMEX=1 would treat all columns as text
        Dim conn1 As New System.Data.OleDb.OleDbConnection(m_sConn1)
        conn1.Open()
        Dim test As New System.Data.DataTable
        test = conn1.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
        If test Is Nothing OrElse test.Rows.Count < 1 Then
            Throw New Exception("Error: Could not determine the name of the first worksheet.")
        End If
        Dim firstSheetName As String
        Dim i As Integer
 
        For i = 0 To test.Rows.Count - 1
            firstSheetName = test.Rows(i)("TABLE_NAME").ToString()
            List1.Items.Add(firstSheetName)
 
        Next
 

 
    End Sub

Dim TestDataTabe As System.Data.DataTable
        TestDataTabe = DirectCast(excelDataGrid.ItemsSource, System.Data.DataView).ToTable

Private Sub Button_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim m_sConn1 As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                  "Data Source=C:\Temp\Test.xlsx;" & _
                  "Extended Properties=""Excel 12.0 Xml;HDR=No;IMEX=1"""     'IMEX=1 would treat all columns as text

        Dim conn1 As New System.Data.OleDb.OleDbConnection(m_sConn1)
        conn1.Open()
        Dim da As OleDbDataAdapter
        'Dim ds As New System.Data.DataSet
        Dim ds As New System.Data.DataTable
        Dim test As String
        test = "[Sheet1b$]"
        Dim teststring As String
        teststring = "Select * FROM" & test & """"
 
        da = New OleDbDataAdapter(teststring, conn1)
        'da.Fill(ds, "TestTable")
        da.Fill(ds)
        da.Dispose()
 
        'Dim bindingSource As New BindingSource(ds, "TestTable")

        ' excelDataGrid.ItemsSource = bindingSource
        excelDataGrid.ItemsSource = ds.DefaultView
 

        'Public DataAdapter As New sqlClient.sqlDataAdapter(sqlCommandstr, sqlConnectStr)

        'Public dbTable As New DataTable

        'First I define the sqlAdapter and a data table object, now,

        'DataAdapter.SelectCommand.CommandText="select * from Company" --> where Company is just a table with few fields

        'DataAdapter.fill(dbTable)
        'DataGrid1.ItemSource=dbTable.DefaultView
     
 

        conn1.Close()
 
    End Sub
 
Private Sub Button_Click_2(sender As Object, e As RoutedEventArgs)
        Dim TestDataTabe As System.Data.DataTable
        TestDataTabe = DirectCast(excelDataGrid.ItemsSource, System.Data.DataView).ToTable
 

        'listItem.Items.Add(TestDataTabe.Rows(3).Item(1))

    End Sub

Option Strict Off
Option Explicit On
'Option Infer Off

Imports VB = Microsoft.VisualBasic
Imports System.Runtime.InteropServices
 

Friend Class Form1
	Inherits System.Windows.Forms.Form
 
  'Private Declare Function FindFirstFileExW Lib "kernel32.dll" Alias "FindFirstFileExW" (ByVal lpFileName As String, ByVal fInfoLevelId As FINDEX_INFO_LEVELS, ByVal lpFindFileData As WIN32_FIND_DATA, ByVal fSearchOp As FINDEX_SEARCH_OPS, ByRef lpSearchFilter As Int32, ByVal dwAdditionalFlags As Integer) As Long
  Private Declare Function FindFirstFileExW Lib "kernel32.dll" Alias "FindFirstFileExW" (ByVal lpFileName_IntPtr As IntPtr, ByVal fInfoLevelId As FINDEX_INFO_LEVELS, ByRef lpFindFileData_IntPtr As IntPtr, ByVal fSearchOp As FINDEX_SEARCH_OPS, ByRef lpSearchFilter As Int32, ByVal dwAdditionalFlags As Integer) As Long
 
  Private Declare Function FindNextFileW Lib "kernel32" Alias "FindNextFileW" (ByVal hFindFile As Long, ByRef lpFindFileData As WIN32_FIND_DATA) As Integer
 
  Private Declare Function GetFileAttributesW Lib "kernel32" Alias "GetFileAttributesW" (ByVal lpFileName As String) As Integer
 
  Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Integer
 
  Private Declare Function GetLastError Lib "kernel32" Alias "GetLastError" () As Integer
 
  Const MAX_PATH As UInt16 = 260
  Const MAXDWORD As UInt64 = 4294967295   '&HFFFFFFFF is not accepted, why?
  Const INVALID_HANDLE_VALUE As Int16 = -1
  Const FILE_ATTRIBUTE_ARCHIVE As UInt16 = &H20
  Const FILE_ATTRIBUTE_DIRECTORY As UInt16 = &H10
  Const FILE_ATTRIBUTE_HIDDEN As UInt16 = &H2
  Const FILE_ATTRIBUTE_NORMAL As UInt16 = &H80
  Const FILE_ATTRIBUTE_READONLY As UInt16 = &H1
  Const FILE_ATTRIBUTE_SYSTEM As UInt16 = &H4
  Const FILE_ATTRIBUTE_TEMPORARY As UInt16 = &H100
 
'------------------------------------------------------------
'------------------------------------------------------------
'------------------------------------------------------------
'These are specifically for the FindFirstFileEx() function:

Public Enum FINDEX_INFO_LEVELS
  FindExInfoStandard = 0
  FindExInfoBasic = 1
  FindExInfoMaxInfoLevel = 2
End Enum
 
 Enum FINDEX_SEARCH_OPS
  FindExSearchNameMatch = 0
  FindExSearchLimitToDirectories = 1
  FindExSearchLimitToDevices = 2
End Enum
'------------------------------------------------------------
'------------------------------------------------------------
'------------------------------------------------------------

  Private Structure FILETIME
    Dim dwLowDateTime As UInt32
    Dim dwHighDateTime As UInt32
  End Structure
 
  Private Structure WIN32_FIND_DATA
    Dim dwFileAttributes As UInt32
    Dim ftCreationTime As FILETIME
    Dim ftLastAccessTime As FILETIME
    Dim ftLastWriteTime As FILETIME
    Dim nFileSizeHigh As UInt32
    Dim nFileSizeLow As UInt32
    Dim dwReserved0 As UInt32
    Dim dwReserved1 As UInt32
 
    <VBFixedString(MAX_PATH), MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MAX_PATH)> Public cFileName As String
 
    <VBFixedString(14), MarshalAs(UnmanagedType.ByValTStr, SizeConst:=14)> Public cAlternate As String
 
  End Structure
 
  Function StripNulls(ByRef OriginalStr As String) As String
    If (InStr(OriginalStr, Chr(0)) > 0) Then
      OriginalStr = VB.Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
    End If
    StripNulls = OriginalStr
  End Function
 
  Function FindFilesAPI(ByRef path As String, ByRef SearchStr As String, ByRef FileCount As Integer, ByRef DirCount As Integer) As Long
    Dim FileName As String ' Walking filename variable...

    Dim DirName As String ' SubDirectory Name
    Dim dirNames() As String ' Buffer for directory name entries
    Dim nDir As Integer = 0 ' Number of directories in this path

    Dim i As Long ' For-loop counter...

    Dim hSearchEx As Long 'Int32 ' Search Handle for FindFirstFileEx().
    Dim WFD As WIN32_FIND_DATA = Nothing 'Memory block
    Static Cont As Boolean 'Long

    FindFilesAPI = 0
 
    If VB.Right(path, 1) = "\" Then path = VB.Left(path, Len(path) - 1)
 
    'Search for subdirectories:
    nDir = 0
    ReDim dirNames(nDir)
    Cont = True
 
    'For the FindFirstFileEx() function:
    'Dim lpFileName As String = ".*"
    Dim fInfoLevelId As FINDEX_INFO_LEVELS = 0
    Dim lpFindFileData As WIN32_FIND_DATA = Nothing
    Dim fSearchOp As FINDEX_SEARCH_OPS = 0
    Dim lpSearchFilter As Int32 = Nothing
    Dim dwAdditionalFlags As Integer = 0    '1 = FIND_FIRST_EX_CASE_SENSITIVE, 2 = FIND_FIRST_EX_LARGE_FETCH (May not be supported in Win7)

    '--------------------------------------------------------------------------------------------------------------------------------------
    'Make pointers for the lpFileName string, and lpFindFileData structure, then execute API function:

    '-------------------------------------------------------------------------------------
    'For the string:

    Dim lpFileName_str As String = "\\?\UNC\" & path & "\*"
 
    'Initialize unmanged memory to hold the lpFileName string: 
    'Dim lpFileName_IntPtr As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(lpFileName_str))
    Dim lpFileName_IntPtr As IntPtr = Marshal.StringToHGlobalAuto(lpFileName_str)
    '-------------------------------------------------------------------------------------
    'For the structure:

    Dim lpFindFileData_Original As WIN32_FIND_DATA = Nothing
 
    'Initialize unmanged memory to hold the struct: 
    Dim lpFindFileData_IntPtr As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(lpFindFileData_Original))
 
    '-------------------------------------------------------------------------------------
    'Do folder/file search:

    Try
      'Copy the struct to unmanaged memory:
      Marshal.StructureToPtr(lpFindFileData_Original, lpFindFileData_IntPtr, False)
      hSearchEx = FindFirstFileExW(lpFileName_IntPtr, fInfoLevelId, lpFindFileData_IntPtr, fSearchOp, lpSearchFilter, dwAdditionalFlags)
      WFD = CType(Marshal.PtrToStructure(lpFindFileData_IntPtr, GetType(WIN32_FIND_DATA)), WIN32_FIND_DATA)
 
    Finally
      'Free the unmanaged memory for the string:
      Marshal.FreeHGlobal(lpFileName_IntPtr)
 
      'Free the unmanaged memory for the structure:
      Marshal.FreeHGlobal(lpFindFileData_IntPtr)
    End Try
 
    '-------------------------------------------------------------------------------------
    'Process folders:

    If hSearchEx <> INVALID_HANDLE_VALUE Then
      Do While Cont
        System.Windows.Forms.Application.DoEvents()
 
        DirName = StripNulls(WFD.cFileName)
 
        'Ignore the current and encompassing directories:
        If (DirName <> ".") And (DirName <> "..") And (DirName <> "") Then
          'Check for directory with bitwise comparison:

          Dim FileAttributes As Integer = GetFileAttributesW("\\?\UNC\" & path & "\" & DirName)
 
          If FileAttributes And FILE_ATTRIBUTE_DIRECTORY Then
            dirNames(nDir) = DirName
            DirCount = DirCount + 1
            nDir = nDir + 1
            ReDim Preserve dirNames(nDir)
            List1.Items.Add(path & "\" & DirName)
          End If
        End If
 
        Cont = FindNextFileW(hSearchEx, WFD) 'Get next subdirectory.

      Loop
 
      Cont = FindClose(hSearchEx)
 
      If Cont = False Then
        MsgBox("Error:  " + Str(GetLastError))
      End If
 
    End If
 
  End Function
 
  Private Sub Go_cmd_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Go_cmd.Click
    Dim SearchPath, FindStr As String
    Dim FileSize As Long
    Dim NumFiles, NumDirs As Long
 
    System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
 
    List1.Items.Clear()
    SearchPath = Text1.Text
    FindStr = Text2.Text
 
    FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)
 
    System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
 
  End Sub
 
  Private Sub Quit_cmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quit_cmd.Click
    End
  End Sub
 

 
End Class

cmd.CommandText = "INSERT INTO EraDms(DocId,Description,Address,NoOfPages, SendOrReceived, SentDate,ReceivedDate,ForwardedWorkingUnit,Attachements,ForwardedDate,ReceivedBy,DocPath) " & _
                           " VALUES(" & Me.RefferencNoTxt.Text.ToString & ",'" & Me.DescriptionTextBox.Text & "','" & Me.AddressTextBox.Text & "','" & Me.NoOfPagesTextBox.Text & "','" & Me.SendOrReceievedComboBox.Text & "','" & _
                           Me.SentDateTextBox.Text & "','" & Me.receivedDate.Text & "','" & Me.ForwardedWorkingUnitTextBox.Text & "','" & Me.AttachementsTextBox.Text & "','" & Me.TextBox6.Text & "','" & Me.ReceivedByTextBox.Text & "','" & Me.DocPathTextBox.Text & "')"
           cmd.ExecuteNonQuery()
           MessageBox.Show("File Upload Successfull", "ERA-DMS-File Uploader", MessageBoxButtons.OK, MessageBoxIcon.Information)
           RefreshData()
 
           '  With ERA_DMS_HOME

           ' End With
           cnn.Close()
       Else
           'update data in table
           cmd.CommandText = "UPDATE Eradms " & _
                       " SET DocId=" & Me.RefferencNoTxt.Text.ToString & _
                       ", Description='" & Me.DescriptionTextBox.Text & "'" & _
                       ", Address='" & Me.AddressTextBox.Text & "'" & _
                       ", NoOfPages='" & Me.NoOfPagesTextBox.Text & "'" & _
                       ", SendOrReceived='" & Me.SendOrReceievedComboBox.Text & "'" & _
                       ", SentDate='" & Me.SentDateTextBox.Text & "'" & _
                        ", ReceivedDate='" & Me.TextBox1.Text & "'" & _
            ", ForwardedWorkingUnit='" & Me.ForwardedWorkingUnitTextBox.Text & "'" & _
             ", Attachements='" & Me.AttachementsTextBox.Text & "'" & _
             ",ForwardedDate ='" & Me.TextBox6.Text & "'" & _
             ",ReceivedBy ='" & Me.ReceivedByTextBox.Text & "'" & _
             ",DocPath='" & Me.DocPathTextBox.Text & "'" &
                       " WHERE DocId=" & Me.RefferencNoTxt.Text.ToString
           cmd.ExecuteNonQuery()
           RefreshData()

 Private Sub RefreshData()
        Try
          
 
            If Not cnn.State = ConnectionState.Open Then
                'open connection
                cnn.Open()
            End If
 
            Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM EraDms", cnn)
            
 

            Dim dt As New DataTable
            'fill data to datatable
            da.Fill(dt)
 
            'offer data in data table into datagridview

 
        Catch ex As OleDb.OleDbException
        End Try
    End Sub

Dim de As New DirectoryEntry("GC://DC=us,DC=myCompany,DC=com", "myDomain\MyAdminUsername", "myPassword")
 
        Dim ds As New DirectorySearcher(de)
        ds.PropertiesToLoad.Add("department")
        ds.SearchScope = SearchScope.Subtree
 
        Dim ue As New DirectoryEntry   
        
        ds.Filter = String.Format("(SAMAccountName={0})", Me.tboxUserName.Text)
 
        Try
            ue = ds.FindOne.GetDirectoryEntry
 
            For Each sproperty As String In ue.Properties.PropertyNames
                debug.print(String.Format("{0}{1} : {2} ", System.Environment.NewLine, sproperty, ue.Properties(sproperty)(0)))
            Next
 
           
            ' test the update here ...

            If (ue.Properties.Contains("department")) Then
                ue.Properties("department").Value = "IT"
            Else
                ue.Properties("department").Add("IT")
            End If
 
            ue.CommitChanges()
            ue.RefreshCache()
            ue.Close()
 
        Catch ex As Exception
           
           debug.print (ex.Message)
 
        End Try

  Imports System.Threading
  Imports System
 
Public Class Form1
  'Form1 controls:
  'Button1:      Starts/Resumes thread execution.
  'Button2:      Suspends thread execution.
  'txtResults:   Textbox for count results.
  'Quit_cmd:     End program.

  'Define a delegate type for the form's DisplayValue method:
  Private Delegate Sub DisplayValueDelegateType(ByVal txt _
                                                As String)
 
  'Declare a delegate variable to point to the form's
  'DisplayValue method:
  Private m_DisplayValueDelegate As DisplayValueDelegateType
 
  Private m_Thread As Thread
 
  'This value is incremented by the thread:
  Public Value As Integer = 0
 
  'Add the text to the results.  The form provides this 
  'service because the thread cannot access the form's 
  'controls directly:
  Public Sub DisplayValue(ByVal txt As String)
    txtResults.Text = txt
    'txtResults.Select(txtResults.Text.Length - 1, 0)

  End Sub
 
  Private Sub Form1_Load(ByVal sender As Object, _
                         ByVal e As System.EventArgs) _
                         Handles MyBase.Load
    'Make a new counter object:
    Dim new_counter As New Counter(Me, my_number:=1)
    '...is the same as:
    'Dim my_number As Integer = 1    'The thread number.
    'Dim new_counter As New Counter(Me, my_number)

    'Make the thread to run the object's Run method:
    m_Thread = New Thread(AddressOf new_counter.Runno)
 
    'Make this a background thread so it automatically
    'ends when the form's thread ends:
    m_Thread.IsBackground = True
    m_Thread.Start()
    Button1.Enabled = False
    Button2.Enabled = True
  End Sub
 
  Private Sub Button1_Click(ByVal sender As Object, _
                            ByVal e As System.EventArgs) _
                            Handles Button1.Click
    If (m_Thread.ThreadState And ThreadState.Unstarted) _
        <> 0 Then
 
       'The thread has never been started. Start it:
      m_Thread.Start()
    Else
      ' The thread is paused. Resume it:
      m_Thread.Resume()    'THIS HAS BEEN DEPRECATED!!!
    End If
 
    Button1.Enabled = False
    Button2.Enabled = True
  End Sub
 
  Private Sub Button2_Click(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) _
                            Handles Button2.Click
    'Suspend the thread:
    Debug.WriteLine("Suspending thread")
    m_Thread.Suspend()    'THIS HAS BEEN DEPRECATED!!!

    Button1.Enabled = True
    Button2.Enabled = False
  End Sub
 
  Public Sub DoSomething(ByVal m_MyForm As Form1, _
                         ByVal m_DisplayValueDelegate _
                         As Object)
 
    For loopo = 1 To 10000000
      'Wait 3 seconds:
      Thread.Sleep(3000)
 
      'Lock the form object. This doesn't do anything to the
      'form, it just means no other thread can lock the form 
      'object until we release the lock.  That means a thread
      'can update m_MyForm.Value and then display its value
      'without interference:

      SyncLock m_MyForm
          'Increment the form's Value:
          'm_MyForm.Value += 1
          m_MyForm.Value = m_MyForm.Value + 1
 
          'Display the value on the form.  The call to 
          'InvokeRequired returns True if this code is not
          'running on the same thread as the object m_MyForm.
          'In this example, we know that is true so the call 
          'isn't necessary, but in other cases it might not
          'be so clear:
          If m_MyForm.InvokeRequired() Then
              'Invoke the delegate:
              m_MyForm.Invoke(m_DisplayValueDelegate, _ 
                              Str(m_MyForm.Value))
          End If
      End SyncLock
 
    Next loopo
 
  End Sub
 
  Private Sub Quit_cmd_Click(ByVal sender As System.Object, _
                             ByVal e As System.EventArgs) _
                             Handles Quit_cmd.Click
    End
  End Sub
 
End Class
 

 

 
'This class's Run method, Runno(), displays a count in the 
'Output window.
Public Class Counter
    'The form that owns the Value variable:
    Private m_MyForm As Form1
 
    'Define a delegate type for the form's DisplayValue 
    'method:
    Private Delegate Sub DisplayValueDelegateType( _
                                        ByVal txt As String)
 
    'Declare a delegate variable to point to the form's 
    'DisplayValue method:
    Private m_DisplayValueDelegate As DisplayValueDelegateType
 
    'This counter's thread number:
    Private m_Number As Integer
 
    Public Sub New(ByVal my_form As Form1, _
                   ByVal my_number As Integer)
        m_MyForm = my_form
        m_Number = my_number    'The thread number.

        'Initialize the delegate variable to point to the
        'form's DisplayValue method:
        m_DisplayValueDelegate = AddressOf _ 
                                 m_MyForm.DisplayValue
 
    End Sub
 
  'This procedure is directly addressed for threading.  This
  'test is to see whether or not a form1 Class's procedure
  'called from here can respond to a thread pause.  In other 
  'words, does a threaded procedure's pause also apply to any 
  'calls it makes, regardless of what class those calls 
  'reside within?  Can the pause immediately go into effect 
  'if it is applied when the program is presently running 
  'that call?

  'The upshot is, yes it can...Kind of.  The call certainly 
  'was paused, but the Thread.Sleep(3000) line was unaffected 
  'and kept counting regardless of everything else being in a 
  'paused state.  So you have to be careful not to assume that
  'certain functions will necessarily respond to a thread 
  'pause, especially timers, stopwatches, etc., unless the 
  'thread pause/resume state can be used to affect those 
  'objects.
  '
  'IMPORTANT:  The thread pause action was able to occur 
  'immediately while the Thread.Sleep(3000) line was still 
  'suspending execution.  So even though it kept counting for 
  '3sec after the pause was initiated, it still allowed the 
  'pause to go into effect:

  'Also, THE CALLED SUB IS NOT IN THE SAME CLASS AS THE 
  'THREADED PROCEDURE.

  Public Sub Runno()
    Try
      Call Form1.DoSomething(m_MyForm, m_DisplayValueDelegate)
    Catch ex As Exception
      'An unexpected error:
      Debug.WriteLine("Unexpected error in thread " & _
                      m_Number & vbCrLf & ex.Message)
    End Try
 
  End Sub
 

 

End Class

<asp:GridView runat="server" ID="gvElMaster" PageSize="5" Width="100%" ItemType="EMS.Ems_ElMaster"
        DataKeyNames="ElMasterID" AllowPaging="True" AllowSorting="True" AutoGenerateColumns="False"
        SelectMethod="GetElMaster" HeaderStyle-VerticalAlign="Middle"
        HeaderStyle-HorizontalAlign="Center" CaptionAlign="Top" CellPadding="4" GridLines="None" ForeColor="#333333"
        OnSelectedIndexChanged="gvElMaster_SelectedIndexChanged">
        <AlternatingRowStyle BackColor="White" />
        <Columns>
            <asp:DynamicField DataField="ElName" />
            <asp:DynamicField DataField="ElStartRegDate" />
            <asp:DynamicField DataField="ElEndRegDate" />
            <asp:DynamicField DataField="ElDate" />
            <asp:CommandField ShowSelectButton="True" SelectText="Select" CausesValidation="False" InsertVisible="False" ShowCancelButton="False"></asp:CommandField>
        </Columns>
    </asp:GridView>

Public Function GetElMaster() As IQueryable(Of Ems_ElMasterClass)
     Return _db.DbSet_ElMasters
End Function
 
Protected Sub gvElMaster_SelectedIndexChanged(sender As Object, e As EventArgs) Handles gvElMaster.SelectedIndexChanged
        MsgBox(gvElMaster.SelectedIndex)
        MsgBox(gvElMaster.SelectedValue.ToString)
        MsgBox(gvElMaster.SelectedRow.Cells(1).Text)
        MsgBox(gvElMaster.SelectedRow.Cells(2).Text)
        MsgBox(gvElMaster.SelectedRow.Cells(3).Text)
End Sub

Dim Show_login As New form2
Show_login.StartPosition = FormStartPosition.CenterParent
Show_login.Parent = Me
Show_login.Show()

'Start the randomization process
Dim RandomClass As New Random() 'Our random number generator

Dim vRoll() As Integer 'User entered variable for the array
ReDim vRoll(nDice) 'dynamic number entered by the user

Dim cntDice As Integer = 0
 
Dim myArray As New List(Of Integer)
Dim temp As Integer
 
myArray.Clear()
 
'Get the number of rolls and the number of dice and then randomize the rolls.
For i As Integer = 1 To rRoll
   For j As Integer = 1 To nDice
      temp = RandomClass.Next(1, dSize + 1)
      LST_Items.Items.Add("Dice " & j & " Roll " & i & " = " & temp.ToString)
      If Not myArray.Contains(temp) Then
        cntDice += 1
        LBL_Same.Text = cntDice
      Else
        LBL_Same.Text = "0"
      End If
  Next
Next

Public Class baseblob
 
    Private _position As PointF
 
    Property position
        Get
            Return _position
        End Get
        Set(value)
            _position = value
        End Set
    End Property
 
    Sub New()
        position = PointF.Empty
    End Sub
 
End Class
 

Public Class blob
 
    Inherits baseblob
 
    Sub moveRight(ByVal Distance As Single)
 
        position = New PointF(position.X + Distance, position.y)
 
    End Sub
 
End Class
 

Public Class Form1
 
    Dim blob As New blob
    Dim blobs As New List(Of baseblob)
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 
        blob.moveRight(10)
        MsgBox(blob.position.x)
 
        blobs.Add(blob)
        MsgBox(blobs(0).position.x)
 
        blobs(0).moveright(10)
        MsgBox(blobs(0).position.x)
 
    End Sub
 
End Class

'moveright' is not a member of 'oopTest.baseblob'

 Dim blobs As New List(Of Object)

Dim Count As Integer
For Count = 0 To international.Length - 1
   international(Count) = Integer.TryParse(InputBox("Keep entering the sales for each month.  If nothing typed, will be interpeted as zero", "New data entry"))
Next Count