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.

Private Sub btnDelete_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnDelete.ItemClick
	If Me.NoteSetBindingSource.Current Is Nothing Then
		Return
	End If
 
	Dim Id As Guid = DirectCast(DirectCast(NoteSetBindingSource.Current, DataRowView)("IdNoteSet"), Guid)
 
	If MessageBox.Show("Delete selected data?", "Message", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.OK Then
		Me.NoteSetAdapter.Delete(DirectCast(DirectCast(Me.NoteSetBindingSource.Current, DataRowView)("IdNoteSet"), Guid))
	End If
 
	Me.LoadData(Id)
End Sub
 
Private Sub btnRefresh_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnRefresh.ItemClick
	Me.LoadData()
End Sub
 
Public Sub LoadData()
	Me.LoadData(Nothing)
End Sub
 
Public Sub LoadData(ByVal Id As System.Nullable(Of Guid))
	Me.Dataset.NoteSet.Rows.Clear()
	Me.NoteSetAdapter.Fill(Me.Dataset.NoteSet)
 
	If Id.HasValue Then
		Me.NoteSetBindingSource.Position = Me.NoteSetBindingSource.Find("IdNoteSet", Id.Value)
	End If
End Sub

   Private Sub frmSetAwards_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'YingexpoDataSet.JR' table. You can move, or remove it, as needed.
        Me.JRTableAdapter.Fill(Me.YingexpoDataSet.JR)
   end sub

Public Class AirportRange
	Private _display As String
	Public Property Display() As String
		Get
			Return _display
		End Get
		Set(ByVal value As String)
			_display = value
		End Set
	End Property
 
	Private _value As Integer
	Public Property Value() As Integer
		Get
			Return _value
		End Get
		Set(ByVal value As Integer)
			_value = value
		End Set
	End Property
End Class

Public Class Item
    Private myValue As Integer
    Private myName As String
 
    Public Sub New(ByVal number As Integer, ByVal name As String)
        myValue = number
        myName = name
    End Sub
 
    Public ReadOnly Property Valu() As Integer
        Get
            Return myValue
        End Get
    End Property
 
    Public ReadOnly Property Name() As String
        Get
            Return myName
        End Get
    End Property
End Class

    Private Items As List(Of Item)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Items = New List(Of Item)
        Items.Add(New Item(1, "one"))
        Items.Add(New Item(2, "two"))
        Items.Add(New Item(3, "three"))
        For Each ctrl As Control In Me.Controls
            If TypeOf (ctrl) Is ComboBox Then
                Dim cmb As ComboBox = CType(ctrl, ComboBox)
                cmb.DataSource = Items
                cmb.DisplayMember = "Name"
                cmb.ValueMember = "Valu"
            End If
        Next
    End Sub
 

Imports System.ComponentModel
Imports System.Configuration.Install
Imports System.ArgumentException
Imports Microsoft.Office.Interop
 
Public Class Installer1
 
    Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)
        MyBase.Install(stateSaver)
 
        Dim targetDir = Me.Context.Parameters.Item("targetdir")
        targetDir = targetDir.Substring(0, targetDir.Length - 1)
        MsgBox(targetDir)
 
        Dim myScript = targetDir + "MySuperAddin.xll"
        MsgBox(myScript)
 
        Dim objAddin As Object
        Dim objEXL As Excel.Application = DirectCast(CreateObject("Excel.Application"), Excel.Application)
 
        objEXL.Workbooks.Add()
        Try
 
            objAddin = objEXL.AddIns.Add(myScript, True)
            objAddin(myScript).Installed = True
 
        Catch ex As Exception
            MsgBox("cannot open addin. /n Error: " + ex.Message)
Err_Handler:
            MsgBox(Err.Description, vbCritical, "Error: " & Err.Number)
        End Try
        objAddin = Nothing
        objEXL.Quit()
        objEXL = Nothing
    End Sub
End Class