Visual Basic

programmervb.netc++ wrote:

Can I raise my own compilation error.

#warning "You've been warned!"
#error "about a warning and an error"

<Obsolete("Danger, Will Robinson!", True)> _
Sub Test()

End Sub

I are Troll

me.toolTip1.SetToolTip(me.PictureBox1, "Whatever")

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