Visual Basic 2005 ( vb .net 2.0) Introduces “My Object”

My object which is introduced by vb net 2005.

This is very useful for the software developers who are trying to learn visual basic in vb .Net 2.0 environment.

It is very helpful for the visual basic programmers to get various information about the computer where the application is running, previously each process were to be coded manually but now this new feature has just made it too simple to use.

The functionality previously available by calling COM libraries or the Win32 API, are now easily accessible through My Object.

Visual Basic 2005 now provides a “speed dial” called The My Object.

By using The My Object, you have the ability to easily access computer, application, and user information, as well as obtain access to Web services and forms.

It is important to understand that The My Object is accessible to you only when writing Visual Basic .NET applications and is not directly available to you when using C#.

Some common questions answered by My objects are listed below:

1. How can I get the user name of the windows user from visual basic net?

My.User.Name

2. How can I check if the windows user is an Admin from visual basic net?

My.User.IsInRole("BUILTIN\Administrators")

3. What is name of the computer where the application is running (vb net)?

My.Computer.Name

4. What is the local or GMT time in the computer where the application is running (vb net)?

My.Computer.Clock.LocalTime
My.Computer.Clock.GmtTime

5. What is the resolution of the computer where the application is running (vb net)?

My.Computer.Screen.Bounds.Width & _
"x" & My.Computer.Screen.Bounds.Height

6. Check if the network of the computer is available where the application is running from vb net application?

My.Computer.Network.IsAvailable

7. What is the operating system of the application where the application is running from vb net?

My.Computer.Info.OSFullName


8. What is the directory path of the application from vb net?

My.Application.Info.DirectoryPath

9. How to get collection of open Ports in the computer from vb net?

My.Computer.Ports.SerialPortNames.Item(1).ToString

10. How to play an Audio (.wav) file stored in the computer from vb net?

Here strFile is the path of the file located
Dim strFile As String
strFile = "C:\Program Files\Messenger\online.wav"
Me.lblDisplay.Text =my.Computer.Audio.Play(strFile)

11. How can I get Access to System’s Clipboard from vb net?

If My.Computer.Clipboard.ContainsText = True Then

Me.lblDisplay.Text = My.Computer.Clipboard.GetText.ToString()
ElseIf My.Computer.Clipboard.ContainsImage = True Then
‘ code for getting image
ElseIf My.Computer.Clipboard.ContainsAudio = True Then
‘ code for getting Audio file
ElseIf My.Computer.Clipboard.ContainsData("dd") = True Then
‘ code for getting data “dd”
End If


12. How can I read or write registry from vb net?

my.Computer.Registry.


13. How can I issue ping command and find out if the host is reachable or not from vb net?

Dim pingResult As Boolean
PingResult= my.Computer.Network.Ping(txtPing.Text)
If pingResult = True Then
MessageBox.Show("Ping of IP:" & txtPing.Text & " succeeded")
Else
MessageBox.Show("Ping of IP:" & txtPing.Text & " was not Successful")
End If

14. How can I read all the text in a file from vb net?

filePath is the path of the file
my.Computer.FileSystem.ReadAllText(filePath)

15. How to copy or move folders from vb net?

My.Computer.FileSystem.CopyDirectory(sourcePath, targetPath, True, True)

The preceding True will overwrite the directory or a file if it already exists in the target path.

16. How to determine the location of My Documents folder with one line of code from vb net application?

MessageBox.Show(My.Computer.FileSystem.SpecialDirectories.MyDocuments)

Reference:

Introducing Microsoft Visual Basic 2005 for Developers

Microsoft Press

Read more!

Top 10 Must Have SEO Tools

A compiled list of best free SEO tools from around the web. The list includes keyword research tools, keyword discovery tools, Link analysis Tools, alternate keyword ideas, Rank Checker Tools, Link Finder Tool, keyword trends Tool and more. A must have list for a SEO beginner or Pro.

read more | digg story

Read more!

How to open a crystal reports from VB Application?

Instead of using crystal reports viewer we can directly open a crystal reports.

Sometimes we have to print the reports directly to the printers for the items
like printing the receipt.

In those cases we don't need to view the receipt on the screen.
Also some businesses require just to print the report, so that user can't
reprint the receipt again and put the transaction on cancelled transaction.

Also if you guys are wondering how to directly print the crystal reports to
the printer without opening the report then this is also solved in the
following example.

First add the crystalreports object named CReport in the form

Private Sub PrintReceipt(ByVal lngtranno As Long, strNewReg As String)
Dim CLName As String

Me.CReport.Connect = "dsn=testDSN;UID=test;PWD=test"
Me.CReport.SelectionFormula = "({Account.TranNo})=" & lngtranno & " AND

({Registration.RegNo})='" & strNewReg & "'"
Me.CReport.Formulas(0) = "OrgName='" & MDIMain.lblOrgName.Caption & "'"
Me.CReport.Formulas(1) = "User='" & MDIMain.lblUser.Caption & "'"

Me.CReport.ReportFileName = App.Path + "\Report\rptReceiptNew.rpt"
Me.CReport.DiscardSavedData = True
' Me.CReport.Destination = crptToPrinter
' Me.CReport.PrintReport

Me.CReport.WindowState = crptMaximized
Me.CReport.Action = 1

End Sub

In the above function PrintReceipt

first the report object is connected.
And the selection formula is provided to filter the data
Passing the values to the report fromulas
Providing the report path where the report is located.
Discard saved data will refresh the report with new data.

Destination provides where the report is to be printed
PrintReport prints the report directly.
( if you just want to show the report on sreen then disable these lines)

Read more!

How to serialize or restore Serialized File in .Net?

What is Serialization?

serialization is process of converting object into stream

Lets learn how to serialize and restore serialized file
In the following lines I will show how we can serialize a class in binary and soap format.


1. First create a class with the tag in front which denotes that class is serializable.

Public Class Serilize

Public Title As String
Public Number As Int16

End Class


2. create a form and add the following imports and code

Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.Serialization.Formatters.soap

' this sub would create the instance of the class and add in the arraylist and then finally save the 'object in Serilize.txt file which can be viewed in notepad

Sub SaveSerializedFile()
Dim lst As New ArrayList
Dim obj As New Serilize

obj.Title = "This is First title"
obj.Number = 1
lst.Add(obj)

obj = New Serilize
obj.Title = "This is Second Title"
obj.Number = 2
lst.Add(obj)

obj = New Serilize
obj.Title = "This is third Title"
obj.Number = 3
lst.Add(obj)

Dim s As New FileStream("Serilize.txt", FileMode.Create)

'Dim f As New BinaryFormatter
' If we want to serilize the object using binary formatter then
' we have to disable the soap formatter and enable Binaryformatter
' declarations.

Dim f As New SoapFormatter
f.Serialize(s, lst)
s.Close()
End Sub


Sub RestoreSerializedFile()
Dim s = New FileStream("Serilize.txt", FileMode.Open)

'Dim f As BinaryFormatter = New BinaryFormatter
' If we want to serilize the object using binary formatter then
' we have to disable the soap formatter and enable Binaryformatter
' declarations.

Dim f As SoapFormatter = New SoapFormatter

Dim RestoredList As ArrayList
RestoredList = CType(f.Deserialize(s), ArrayList)
s.close()
Dim x As Serilize
For Each x In RestoredList
txtDisplay.Text = txtDisplay.Text & x.Title & " Lesson Number " & x.Number

Next


End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SaveSerializedFile()
End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RestoreSerializedFile()
End Sub

Read more!

How to reverse a string in .Net

This simple example explains many different small utilities in .Net that might
take hours to explore on the net.

First lets talk about reversing the string

This can be done in many ways but two simple ways I am explaining is as follows

1. first way

You can use StrReverse(string) function and to use that you have to use
imports Microsoft.visualbasic

This function will simply reverse the string .

2 The next way

Look at the following code for reversing the string

str = txtInput.Text


Dim charArray() As Char = str.ToCharArray
charArray.Reverse(charArray)

Dim alphabet As New String(charArray)


lblDisplay.Text = alphabet


The above piece of code also explains

How to convert string into character array?
Dim charArray() As Char = str.ToCharArray

and

How to reverse an array?

charArray.Reverse(charArray)

and

How to convert character array into string?

Dim alphabet As New String(charArray)

Read more!