Visual Basic

ejaz_pk wrote:

1. Is there any property to add image on the button control?
2. Is there any property to draw grid lines in the listview?

ejaz_pk wrote:

3. How can I create a multilingual application?

ejaz_pk wrote:

4. How can I transfer data from my desktop pc to my pocket pc through FTP,HTTP etc...

I are Troll

Shared Sub Connect(server As [String], message As [String])
   Try
      ' Create a TcpClient.
      ' Note, for this client to work you need to have a TcpServer 
      ' connected to the same address as specified by the server, port
      ' combination.
      Dim port As Int32 = 13000
      Dim client As New TcpClient(server, port)

      ' Translate the passed message into ASCII and store it as a Byte array.
      Dim data As [Byte]() = System.Text.Encoding.ASCII.GetBytes(message)

      ' Get a client stream for reading and writing.
      '  Stream stream = client.GetStream();
      Dim stream As NetworkStream = client.GetStream()

      ' Send the message to the connected TcpServer. 
      stream.Write(data, 0, data.Length)

      Console.WriteLine("Sent: {0}", message)

      ' Receive the TcpServer.response.
      ' Buffer to store the response bytes.
      data = New [Byte](256) {}

      ' String to store the response ASCII representation.
      Dim responseData As [String] = [String].Empty

      ' Read the first batch of the TcpServer response bytes.
      Dim bytes As Int32 = stream.Read(data, 0, data.Length)
      responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes)
      Console.WriteLine("Received: {0}", responseData)

      ' Close everything.
      stream.Close()
      client.Close()
   Catch e As ArgumentNullException
      Console.WriteLine("ArgumentNullException: {0}", e)
   Catch e As SocketException
      Console.WriteLine("SocketException: {0}", e)
   End Try

   Console.WriteLine(ControlChars.Cr + " Press Enter to continue...")
   Console.Read()
End Sub 'Connect

Dim udpClient As New UdpClient(11000)
  Try
     udpClient.Connect("www.contoso.com", 11000)

     ' Sends a message to the host to which you have connected.
     Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("Is anybody there?")

     udpClient.Send(sendBytes, sendBytes.Length)

     ' Sends message to a different host using optional hostname and port parameters.
     Dim udpClientB As New UdpClient()
     udpClientB.Send(sendBytes, sendBytes.Length, "AlternateHostMachineName", 11000)

     ' IPEndPoint object will allow us to read datagrams sent from any source.
     Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)

     ' UdpClient.Receive blocks until a message is received from a remote host.
     Dim receiveBytes As [Byte]() = udpClient.Receive(RemoteIpEndPoint)
     Dim returnData As String = Encoding.ASCII.GetString(receiveBytes)

     ' Which one of these two hosts responded?
     Console.WriteLine(("This is the message you received " + _
                                   returnData.ToString()))
      Console.WriteLine(("This message was sent from " + _
                                   RemoteIpEndPoint.Address.ToString() + _
                                   " on their port number " + _
                                   RemoteIpEndPoint.Port.ToString()))
     udpClient.Close()
     udpClientB.Close()

  Catch e As Exception
     Console.WriteLine(e.ToString())
  End Try

Simon_Whale wrote:

Runs with no errors but the text doesn't show up. Any ideas?

buttonColumn.HeaderText = "Hello World"

I are Troll

' Add a button column. 
Dim buttonColumn As New DataGridViewButtonColumn()
buttonColumn.HeaderText = ""
buttonColumn.Name = "Status Request"
buttonColumn.Text = "TestText"
buttonColumn.UseColumnTextForButtonValue = True

I are Troll

Private Sub Properties_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'set the screen size according to values in the app.config
        Me.Width = My.Settings.x
        Me.Height = My.Settings.y

        'load in the list of countries they can use
        'Dim cList As New List(Of ClientHome.vb.Countries)

        'Dim x As New ClientHome.vb.Buildings
        'cList = x.Countries
        'cbCountries.DataSource = cList
        'x = Nothing

        'expiry date
        'dtBldExpiry.Value = DateAdd(DateInterval.Day, 365, dtBldStart.Value)
        'dtCntExpiry.Value = DateAdd(DateInterval.Day, 365, dtCntStart.Value)

        'the question textbox in the grid
        Dim xy As New DataGridViewTextBoxColumn
        xy.HeaderText = "Question"
        Me.DataGridView1.Columns.Add(xy)

        'drop down list on grid
        Dim xx As New DataGridViewComboBoxColumn
        xx.Name = "YesNo"
        xx.Items.Add("Yes")
        xx.Items.Add("No")
        Me.DataGridView1.Columns.Add(xx)

        'the Answer Question
        Dim yx As New DataGridViewTextBoxColumn
        yx.HeaderText = "Answer"
        Me.DataGridView1.Columns.Add(yx)

        'the view button
        ' Add a button column. 
        Dim buttonColumn As New DataGridViewButtonColumn()
        buttonColumn.Name = "Requests"
        buttonColumn.Text = "Requests"
        buttonColumn.UseColumnTextForButtonValue = True
        DataGridView1.Columns.Add(buttonColumn)
    End Sub

Simon_Whale wrote:

there is a datagridview control on the form

I are Troll

Simon_Whale wrote:

Thank you, you are a genius worked out the problem from your example.

Simon_Whale wrote:

I then created a simple list of integers and set that to the datasource of the datagridview and the text shows up on the button as expected.

could you assume this is how its suppose to work?

I are Troll

Dim dgBtnCol As New DataGridViewButtonColumn()

dgBtnCol.Name = "SelBtn"
dgBtnCol.Text = "Select"

DataGridView1.Columns.Add(dgBtnCol)
Me.DataGridView1.DataSource = DT       ' The datatable is already populated with data at this point

<br />
dgBtnCol.UseColumnTextForButtonValue = True

Private Sub CreateGrid(ByRef data As DataView)
    'the questionno
    Dim BrokerNo As New DataGridViewTextBoxColumn
    BrokerNo.HeaderText = "Broker Ref"
    BrokerNo.DataPropertyName = "brokerref"
    BrokerNo.AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    Me.DataGridView1.Columns.Add(BrokerNo)


    'the question textbox in the grid
    Dim BrokersName As New DataGridViewTextBoxColumn
    BrokersName.HeaderText = "Broker Name"
    BrokersName.AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    BrokersName.DataPropertyName = "brokername"
    Me.DataGridView1.Columns.Add(BrokersName)


    'drop down list on grid
    Dim BrokerStatus As New DataGridViewTextBoxColumn
    BrokerStatus.DataPropertyName = "status"
    BrokerStatus.HeaderText = "Status"
    BrokerStatus.Name = "Status"
    Me.DataGridView1.Columns.Add(BrokerStatus)


    'the Answer Question
    Dim Address As New DataGridViewTextBoxColumn
    Address.Name = "Address"
    Address.DataPropertyName = "address"
    Address.AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    Me.DataGridView1.Columns.Add(Address)



    Dim TelNo As New DataGridViewTextBoxColumn
    TelNo.HeaderText = "Tel No"
    TelNo.DataPropertyName = "telno"
    TelNo.AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    Me.DataGridView1.Columns.Add(TelNo)


    Dim buttonColumn As New DataGridViewButtonColumn()
    buttonColumn.HeaderText = "View"
    buttonColumn.Text = "View"
    buttonColumn.UseColumnTextForButtonValue = True
    buttonColumn.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
    buttonColumn.FlatStyle = FlatStyle.Standard
    DataGridView1.Columns.Add(buttonColumn)


    DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGreen
    DataGridView1.DataSource = data

  End Sub

<br />
dgBtnCol.UseColumnTextForButtonValue = True

DataGridViewCellStyle8.NullValue = "Some Text"
Me.AddStillstand.DefaultCellStyle = DataGridViewCellStyle8
Me.AddStillstand.HeaderText = ""
Me.AddStillstand.Text = "Some Text"

Private Function ValidatePhoneNumber(ByVal StringToTest As String) As Boolean

    Dim expression As New Regex("(\(\d{3}\)|\d{3})[- ]\s?\d{3}[- ]\d{4}")
    Dim match As Match = expression.Match(StringToTest)
    If match.Success Then
        Return True
    Else
        Return False
    End If

End Function

If TextBox1.Text <> String.Empty Then
       If ValidatePhoneNumber(TextBox1.Text) Then
           MsgBox("Correct phone number.")
       Else
           MsgBox("Not valid phone number")
       End If
   End If