Posts by oussama_1

Mark Question Solved Please

        Dim con = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Resumen Guia\Base.mdb")
        Dim dataadapter1 As New System.Data.OleDb.OleDbDataAdapter()
        dataadapter1 = New System.Data.OleDb.OleDbDataAdapter("select * from Tabla ", con)
        Dim DtSet As System.Data.DataSet
        DtSet = New System.Data.DataSet
        dataadapter1.Fill(DtSet)
        ComboBox1.DataSource = Nothing
        ComboBox1.DataSource = DtSet.Tables(0)
        con.Close()

hi, i need to see your code for adding objects (add button)

Code :

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Dim b1 As New pessoa()
        listaBindingSource.Add(b1)
        dgv.DataSource = listaBindingSource
        For i = 0 To dgv.Rows.Count - 1
            Dim num As Integer = i + 1
            dgv.Rows.Item(i).HeaderCell.Value = "Values" & num
        Next
    End Sub
End Class

Result :

just copying the code won't cut it, check your first application references.
or try to add microsoft.sqlserver reference
good luck

       dgv.DataSource = listaBindingSource
        dgv.Columns(0).HeaderText = "Value"
        dgv.Columns(1).HeaderText = "Date"
        For i = 0 To dgv.Rows.Count - 1
            Dim num As Integer = i + 1
            dgv.Rows.Item(i).HeaderCell.Value = "Vendas" & num
        Next

for your application to work on both operating system (32bit and 64bit) choose X86 platform
Build - Configuration Manager - Active Solution platform - new - new platform select X86

Manually :

Toolbox
drag drop a listview into your form design
set listview view to details
Edit Columns

Programmatically :

        Me.Size = New Size(700, 300)
        Dim list As New ListView
        list.Size = New Size(684, 262)
        list.View = View.Details
        list.Columns.Add("File Directory")
        list.Columns.Add("name")
        list.Columns.Add("email")
        list.Columns.Add(" ip address")
        Me.Controls.Add(list)

try this
Open ss.txt >> File >> Save as >> set Encoding to Unicode and replace file

Public Class Form1
    Dim Seconds As String
    Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CloseButton.MouseDown
        Seconds = 0
        CloseLongTimer.Interval = 1000
        CloseLongTimer.Start()
    End Sub
    Private Sub CloseLongTimer_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles CloseLongTimer.Tick
        Seconds += 1
    End Sub
    Private Sub CloseButton_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CloseButton.MouseUp
        CloseLongTimer.Stop()
        If Seconds < 5 Then
            Me.Close()
        Else
            System.Environment.Exit(1)
        End If
    End Sub
End Class