Visual Basic

Application.Printer.Orientation = acPRORLandscape
stDocName = "SomeTableName"
DoCmd.OpenTable stDocName, acViewPreview

I are Troll

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