Pinoy Tutorials, Tips and Tricks: dotNet

VB.Net Print PDF Document

Portable Document Format (PDF) is a file format used to present documents in a manner independent of application software, hardware, and operating systems. Each PDF file encapsulates a complete description of a fixed-layout flat document, including the text, fonts, graphics, and other information needed to display it. 
 
In some applications, web or desktop there are several options where you can convert or Print a PDF version of a form or document you're reading. So, the question is how is it done and is it possible to create your own PDF document from scratch? We'll you're still lucky as I am. 
 
In this tutorial you'll be able to learn on how can VB.Net Print PDF Documents. 
 
<h2>
Requirements</h2>
1.) CodePlex.com provides a freely downloadable version of the <a href="http://pdfsharp.codeplex.com/downloads/get/96263" rel="nofollow" target="_blank">PDFSharp-MigraDocFoundation-Assemblies</a>. 
2.) Extract the downloaded .zip file to your project folder. The file name if not updated is PDFsharp-MigraDocFoundation-Assemblies-1_31.zip. 
 
 
<h2>
Creating the Project</h2>
1.) Start you Microsoft Visual Basic 2010 Express. 
2.) Create a new Windows Application Project. 
3.) In the Solution Explorer Panel, Right Click on your Project's Name. Then choose Add Reference. 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmmMnzOnPFvb8SwsKVl5B1O9P3sH10ePE5K59gysKPX0OYfETOGCbs9QarI6yWw17cRFzIheaxL2aCMQQR6RLWFL12UpuF8ij4IiW6QGPpB-K-_p7Zr6kalewBf9PZ_RrAGsyOcY-mM_VJ/s1600/Vb.Net+Print+PDF+Document+-+Solution+Explorer.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="228" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmmMnzOnPFvb8SwsKVl5B1O9P3sH10ePE5K59gysKPX0OYfETOGCbs9QarI6yWw17cRFzIheaxL2aCMQQR6RLWFL12UpuF8ij4IiW6QGPpB-K-_p7Zr6kalewBf9PZ_RrAGsyOcY-mM_VJ/s1600/Vb.Net+Print+PDF+Document+-+Solution+Explorer.png" width="320" /></a></div>
 
4.) In the Add Reference dialog window, Click the Browse Tab. Locate the folder where you extracted the PDFSharp Assemblies. 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgdpVRT32eMomr-l23_UZlxo-MNZITxL0ZEtTxv3yA57FnN0www_rrOwJQpu5RmZiZLTi3i6MhM-FC_cisOEczIkQz6tG3EM3ZeWJygrGk8a6DQj7UOFMKIeuO1rLxL_II1m6PDfYcuTBGq/s1600/VB.Net+Print+PDF+Document+-+Add+Reference.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="269" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgdpVRT32eMomr-l23_UZlxo-MNZITxL0ZEtTxv3yA57FnN0www_rrOwJQpu5RmZiZLTi3i6MhM-FC_cisOEczIkQz6tG3EM3ZeWJygrGk8a6DQj7UOFMKIeuO1rLxL_II1m6PDfYcuTBGq/s1600/VB.Net+Print+PDF+Document+-+Add+Reference.png" width="320" /></a></div>
5.)Select All of the .dll files then Click OK. 
 
Once the done, Click the small arrow to expand the references in Solution Explorer Panel and it will most likely look as the image below. 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiPY-3RgBdlt2WSy4HAcGGrSYoZB8ypEHG_xepOkTUHlbAAD3UUgOhkgvcYsy9YGyQXxhB8FSd3l3rjiYUxTRO8h19IZVZ1XgQc1o7mLW0aYZo1YPT5vsilGL4XK34cXVConGZtZMI8B50H/s1600/Vb.Net+Print+PDF+Document+-+References+Added.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiPY-3RgBdlt2WSy4HAcGGrSYoZB8ypEHG_xepOkTUHlbAAD3UUgOhkgvcYsy9YGyQXxhB8FSd3l3rjiYUxTRO8h19IZVZ1XgQc1o7mLW0aYZo1YPT5vsilGL4XK34cXVConGZtZMI8B50H/s1600/Vb.Net+Print+PDF+Document+-+References+Added.png" width="276" /></a></div>
 
 
<h2>
Design Mode</h2>
Add a Button Control on the form. 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh4EWSY0U5nQqsnGium6y_2hjnPNoLO0L_u1a_-EIPPVuXssMGcM7EsK044VMGPY-0lQk6yGCfZQ2m2FpRpGPAE544j3vKE_5T9Y8wH9zqwfzLgykG9037x6dlESbbtc-7DR5pZ9RLjjvsU/s1600/Vb.Net+Print+PDF+Document+-+Add+Button.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh4EWSY0U5nQqsnGium6y_2hjnPNoLO0L_u1a_-EIPPVuXssMGcM7EsK044VMGPY-0lQk6yGCfZQ2m2FpRpGPAE544j3vKE_5T9Y8wH9zqwfzLgykG9037x6dlESbbtc-7DR5pZ9RLjjvsU/s1600/Vb.Net+Print+PDF+Document+-+Add+Button.png" /></a></div>
<h2>
Coding your Project</h2>
Double Click the button control then Copy and paste the following codes in your Code Editor. 
<pre class="brush: vb">Imports PdfSharp
Imports PdfSharp.Drawing
Imports PdfSharp.Pdf

Public Class Form1
 Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Dim pdf As PdfDocument = New PdfDocument
 pdf.Info.Title = "My First PDF Document"
 Dim pdfPage As PdfPage = pdf.AddPage
 Dim graph As XGraphics = XGraphics.FromPdfPage(pdfPage)
 Dim font As XFont = New XFont("Verdana", 20, XFontStyle.Bold)
 graph.DrawString("You've just created your first PDF document.", font, XBrushes.Black, _
 New XRect(0, 0, pdfPage.Width.Point, pdfPage.Height.Point), XStringFormats.Center)
 Dim pdfFileName as String = "C:\MyFirstPdfDocument.pdf"
 pdf.Save(pdfFileName)
 Process.Start(pdfFileName)
 End Sub
End Class</pre>
 
<h2>
Explaining each Line of Codes</h2>
Import the required namespaces. 
<pre class="brush: vb"> Imports PdfSharp
 Imports PdfSharp.Drawing
 Imports PdfSharp.Pdf</pre>
Create a PDF document object. 
<pre class="brush: vb"> Dim pdf As PdfDocument = New PdfDocument</pre>
Create a new page. 
<pre class="brush: vb"> Dim pdfPage As PdfPage = pdf.AddPage</pre>
Set the title of the PDF document. 
<pre class="brush: vb"> pdf.Info.Title = "My First PDF Document"</pre>
Create a Graphics Object. 
<pre class="brush: vb"> Dim graph As XGraphics = XGraphics.FromPdfPage(pdfPage)</pre>
Create and Set a font style from XFont. 
<pre class="brush: vb"> Dim font As XFont = New XFont("Tahoma", 24, XFontStyle.Bold)</pre>
Adding content to PDF document and Add it to Center. 
<pre class="brush: vb"> graph.DrawString("Congratulations! You've just created your first PDF document.", font, XBrushes.Black, _
 New XRect(0, 0, pdfPage.Width.Point, pdfPage.Height.Point), XStringFormats.Center)</pre>
Save the PDF Document at your most preferred location. 
<pre class="brush: vb"> Dim pdfFileName as String = "C:\MyFirstPdfDocument.pdf"
 pdf.Save(pdfFileName)</pre>
Launch the newly create PDF document. 
<pre class="brush: vb"> Process.Start(pdfFileName)</pre>
 
<h2>
PDF Output</h2>
When you click the button, it will create the pdf page and open the pdf file. As you can see below. 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiBr6m_Ksqs0_X4V4g3Q8rN2Vttn61IEb6Fs-AcT5U7ZRg66VKmghsXbCj5IgBM3w7C3enfbxZaeJOaS7fXtwdmkwZVxjzM0z_xaLrCXU8_9FxRQyKHvFMELMTkrZD9nYrvSeg1dkKi6BH8/s1600/Vb.Net+Print+PDF+Document+-+My+First+PDF+Document.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiBr6m_Ksqs0_X4V4g3Q8rN2Vttn61IEb6Fs-AcT5U7ZRg66VKmghsXbCj5IgBM3w7C3enfbxZaeJOaS7fXtwdmkwZVxjzM0z_xaLrCXU8_9FxRQyKHvFMELMTkrZD9nYrvSeg1dkKi6BH8/s320/Vb.Net+Print+PDF+Document+-+My+First+PDF+Document.png" /></a></div>
 
Now, you've just learned how to create your first pdf document. Download the <a href="https://www.dropbox.com/s/kec5b338bid6p5z/Print%20a%20PDF%20Document.rar?dl=0" rel="nofollow" target="_blank">VB.Net Print PDF Project</a>.

Portable Document Format ( PDF ) is a file format used to present documents in a manner independent of application software, hardware, and ...

Formatting Date and Time VB.NET

10:07 PM OmelSoft 1

The Date literal must be enclosed within number signs (#date#) and specify the date value in the format M/d/yyyy like #09/06/2014#. Else, the way how your code is interpreted may vary depending on the locale in which your application is deployed. 
 
With this requirement the meaning of your code should never change whether if it has a different date and time format settings. For example, you hard-coded a Date literal of #9/6/2014# which means September 6, 2014. That will compile 9/6/2014 as you want mm/dd/yyyy. However, if you deploy application in several locales using dd/mm/yyyy date format, your hard-coded literal would compile to June 9, 2014. For other locales using yyyy/mm/dd, the literal would be invalid causing compilation error. 
 
To convert a Date literal to the format of your locale or to a custom format, use the Format function of String class, specifying either a predefined or user-defined date format. 
 
<h2>
Predefined Date/Time Formats</h2>
The following table identifies the predefined date and time format names. These may be used by name as the style argument for the Format function: 
<table cellpadding="0" cellspacing="0"> <tbody>
<tr> <th>Format Name </th> <th>Description </th> </tr>
<tr> <td>General Date, or G </td> <td>Displays a date and/or time. For example, 3/12/2008 11:07:31 AM. Date display is determined by your application's current culture value. </td> </tr>
<tr> <td>Long Date, Medium Date, or D </td> <td>Displays a date according to your current culture's long date format. For example, Wednesday, March 12, 2008. </td> </tr>
<tr> <td>Short Date, or d </td> <td>Displays a date using your current culture's short date format. For example, 3/12/2008. The d character displays the day in a user-defined date format. </td> </tr>
<tr> <td>Long Time, Medium Time, or T </td> <td>Displays a time using your current culture's long time format; typically includes hours, minutes, seconds. For example, 11:07:31 AM. </td> </tr>
<tr> <td>Short Time or t </td> <td>Displays a time using your current culture's short time format. For example, 11:07 AM. The t character displays AM or PM values for locales that use a 12-hour clock in a user-defined time format. </td> </tr>
<tr> <td>f </td> <td>Displays the long date and short time according to your current culture's format. For example, Wednesday, March 12, 2008 11:07 AM. </td> </tr>
<tr> <td>F </td> <td>Displays the long date and long time according to your current culture's format. For example, Wednesday, March 12, 2008 11:07:31 AM. </td> </tr>
<tr> <td>g </td> <td>Displays the short date and short time according to your current culture's format. For example, 3/12/2008 11:07 AM. </td> </tr>
<tr> <td>M, m </td> <td>Displays the month and the day of a date. For example, March 12. The M character displays the month in a user-defined date format. The m character displays the minutes in a user-defined time format. </td> </tr>
<tr> <td>R, r </td> <td>Formats the date according to the <a href="http://msdn.microsoft.com/en-us/library/system.globalization.datetimeformatinfo.rfc1123pattern.aspx"> RFC1123Pattern</a> property. For example, Wed, 12 Mar 2008 11:07:31 GMT. The formatted date does not adjust the value of the date and time. You must adjust the Date/Time value to GMT before calling the Format function. </td> </tr>
<tr> <td>s </td> <td>Formats the date and time as a sortable index. For example, 2008-03-12T11:07:31. The s character displays the seconds in a user-defined time format. </td> </tr>
<tr> <td>u </td> <td>Formats the date and time as a GMT sortable index. For example, 2008-03-12 11:07:31Z. </td> </tr>
<tr> <td>U </td> <td>Formats the date and time with the long date and long time as GMT. For example, Wednesday, March 12, 2008 6:07:31 PM. </td> </tr>
<tr> <td>Y, y </td> <td>Formats the date as the year and month. For example, March, 2008. The Y and y characters display the year in a user-defined date format. </td> </tr>
</tbody> </table>
 
<h2>
Pre-Defined Format Example</h2>
The following example demonstrates how this can be achived. 
<pre class="brush: vb">
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim SampleDateTime As Date = #9/6/2014 1:14:23 PM#
        Debug.Print("Formatting Date and Time Examples:")
        Debug.Print("Using Format 'D:' " & SampleDateTime.ToString("D"))
        Debug.Print("Using Format 'd:' " & SampleDateTime.ToString("d"))
        Debug.Print("Using Format 'T:' " & SampleDateTime.ToString("T"))
        Debug.Print("Using Format 't:' " & SampleDateTime.ToString("t"))
        Debug.Print("Using Format 'F:' " & SampleDateTime.ToString("F"))
        Debug.Print("Using Format 'f:' " & SampleDateTime.ToString("f"))
        Debug.Print("Using Format 'G:' " & SampleDateTime.ToString("G"))
        Debug.Print("Using Format 'g:' " & SampleDateTime.ToString("g"))
        Debug.Print("Using Format 'M:' " & SampleDateTime.ToString("M"))
        Debug.Print("Using Format 'm:' " & SampleDateTime.ToString("m"))
        Debug.Print("Using Format 'R:' " & SampleDateTime.ToString("R"))
        Debug.Print("Using Format 'r:' " & SampleDateTime.ToString("r"))
        Debug.Print("Using Format 'Y:' " & SampleDateTime.ToString("Y"))
        Debug.Print("Using Format 'y:' " & SampleDateTime.ToString("y"))

End Sub
End Class</pre>
 
<h2>
Pre-Defined Output</h2>
When the project is compiled it will print the following results. 
<pre class="output">
Formatting Date and Time Examples:
Using Format 'D:' Saturday, September 06, 2014
Using Format 'd:' 9/6/2014
Using Format 'T:' 1:14:23 PM
Using Format 't:' 1:14 PM
Using Format 'F:' Saturday, September 06, 2014 1:14:23 PM
Using Format 'f:' Saturday, September 06, 2014 1:14 PM
Using Format 'G:' 9/6/2014 1:14:23 PM
Using Format 'g:' 9/6/2014 1:14 PM
Using Format 'M:' September 06
Using Format 'm:' September 06
Using Format 'R:' Sat, 06 Sep 2014 13:14:23 GMT
Using Format 'r:' Sat, 06 Sep 2014 13:14:23 GMT
Using Format 'Y:' September, 2014
Using Format 'y:' September, 2014</pre>
 
<h2>
User-Defined Date and Time Formats</h2>
The following table shows the characters you can use to create user-defined date/time formats. Unlike in earlier versions of Visual Basic, these format characters are case-sensitive. 
<table cellpadding="0" cellspacing="0"> <tbody>
<tr><th>Character </th> <th>Description </th> </tr>
<tr> <td>(:) </td> <td>Time separator. In some locales, other characters may be used to represent the time separator. The time separator separates hours, minutes, and seconds when time values are formatted. The actual character that is used as the time separator in formatted output is determined by your application's current culture value. </td> </tr>
<tr> <td>(/) </td> <td>Date separator. In some locales, other characters may be used to represent the date separator. The date separator separates the day, month, and year when date values are formatted. The actual character that is used as the date separator in formatted output is determined by your application's current culture. </td> </tr>
<tr> <td>(%) </td> <td>Used to indicate that the following character should be read as a single-letter format without regard to any trailing letters. Also used to indicate that a single-letter format is read as a user-defined format. See what follows for additional details. </td> </tr>
<tr> <td>d </td> <td>Displays the day as a number without a leading zero (for example, 1). Use %d if this is the only character in your user-defined numeric format. </td> </tr>
<tr> <td>dd </td> <td>Displays the day as a number with a leading zero (for example, 01). </td> </tr>
<tr> <td>ddd </td> <td>Displays the day as an abbreviation (for example, Sun). </td> </tr>
<tr> <td>dddd </td> <td>Displays the day as a full name (for example, Sunday). </td> </tr>
<tr> <td>M </td> <td>Displays the month as a number without a leading zero (for example, January is represented as 1). Use %M if this is the only character in your user-defined numeric format. </td> </tr>
<tr> <td>MM </td> <td>Displays the month as a number with a leading zero (for example, 01/12/01). </td> </tr>
<tr> <td>MMM </td> <td>Displays the month as an abbreviation (for example, Jan). </td> </tr>
<tr> <td>MMMM </td> <td>Displays the month as a full month name (for example, January). </td> </tr>
<tr> <td>gg </td> <td>Displays the period/era string (for example, A.D.). </td> </tr>
<tr> <td>h </td> <td>Displays the hour as a number without leading zeros using the 12-hour clock (for example, 1:15:15 PM). Use %h if this is the only character in your user-defined numeric format. </td> </tr>
<tr> <td>hh </td> <td>Displays the hour as a number with leading zeros using the 12-hour clock (for example, 01:15:15 PM). </td> </tr>
<tr> <td>H </td> <td>Displays the hour as a number without leading zeros using the 24-hour clock (for example, 1:15:15). Use %H if this is the only character in your user-defined numeric format. </td> </tr>
<tr> <td>HH </td> <td>Displays the hour as a number with leading zeros using the 24-hour clock (for example, 01:15:15). </td> </tr>
<tr> <td>m </td> <td>Displays the minute as a number without leading zeros (for example, 12:1:15). Use %m if this is the only character in your user-defined numeric format. </td> </tr>
<tr> <td>mm </td> <td>Displays the minute as a number with leading zeros (for example, 12:01:15). </td> </tr>
<tr> <td>s </td> <td>Displays the second as a number without leading zeros (for example, 12:15:5). Use %s if this is the only character in your user-defined numeric format. </td> </tr>
<tr> <td>ss </td> <td>Displays the second as a number with leading zeros (for example, 12:15:05). </td> </tr>
<tr> <td>f </td> <td>Displays fractions of seconds. For example ff displays hundredths of seconds, whereas ffff displays ten-thousandths of seconds. You may use up to seven f symbols in your user-defined format. Use %f if this is the only character in your user-defined numeric format. </td> </tr>
<tr> <td>t </td> <td>Uses the 12-hour clock and displays an uppercase A for any hour before noon; displays an uppercase P for any hour between noon and 11:59 P.M. Use %t if this is the only character in your user-defined numeric format. </td> </tr>
<tr> <td>tt </td> <td>For locales that use a 12-hour clock, displays an uppercase AM with any hour before noon; displays an uppercase PM with any hour between noon and 11:59 P.M. For locales that use a 24-hour clock, displays nothing. </td> </tr>
<tr> <td>y </td> <td>Displays the year number (0-9) without leading zeros. Use %y if this is the only character in your user-defined numeric format. </td> </tr>
<tr> <td>yy </td> <td>Displays the year in two-digit numeric format with a leading zero, if applicable. </td> </tr>
<tr> <td>yyy </td> <td>Displays the year in four-digit numeric format. </td> </tr>
<tr> <td>yyyy </td> <td>Displays the year in four-digit numeric format. </td> </tr>
<tr> <td>z </td> <td>Displays the timezone offset without a leading zero (for example, -8). Use %z if this is the only character in your user-defined numeric format. </td> </tr>
<tr> <td>zz </td> <td>Displays the timezone offset with a leading zero (for example, -08) </td> </tr>
<tr> <td>zzz </td> <td>Displays the full timezone offset (for example, -08:00) </td> </tr>
</tbody> </table>
 
<h2>
User Defined Date and Time Formatting Examples</h2>
Copy and Paste the following codes into your project then compile. 
<pre class="brush: vb">
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim SampleDateTime As Date = #9/6/2014 1:14:23 PM#
        Debug.Print("User-Defined Date and Time Formatting Examples:")
        Debug.Print("Prints '9/6/14': " & Format(SampleDateTime, "M/d/y"))
        Debug.Print("Prints '6-Sep': " & Format(SampleDateTime, "d-MMM"))
        Debug.Print("Prints '6-Sep-14': " & Format(SampleDateTime, "d-MMM-yy"))
        Debug.Print("Prints '6 September': " & Format(SampleDateTime, "d MMMM"))
        Debug.Print("Prints 'September 14': " & Format(SampleDateTime, "MMMM yy"))
        Debug.Print("Prints '2014-09-06': " & Format(SampleDateTime, "yyyy-MM-dd"))
        Debug.Print("Prints '01:14 PM': " & Format(SampleDateTime, "hh:mm tt"))
        Debug.Print("Prints '1:14:23 P': " & Format(SampleDateTime, "h:mm:ss t"))
        Debug.Print("Prints '13:14': " & Format(SampleDateTime, "H:mm"))
        Debug.Print("Prints '13:14:23': " & Format(SampleDateTime, "H:mm:ss"))
        Debug.Print("Prints '9/6/2014 13:14': " & Format(SampleDateTime, "M/d/yyyy H:mm"))

End Sub
End Class</pre>
 
<h2>
User-Defined Output</h2>
When the project is compile it will print the following results. 
<pre class="output">
User-Defined Date and Time Formatting Examples:
Prints '9/6/14': 9/6/14
Prints '6-Sep': 6-Sep
Prints '6-Sep-14': 6-Sep-14
Prints '6 September': 6 September
Prints 'September 14': September 14
Prints '2014-09-06': 2014-09-06
Prints '01:14 PM': 01:14 PM
Prints '1:14:23 P': 1:14:23 P
Prints '13:14': 13:14
Prints '13:14:23': 13:14:23
Prints '9/6/2014 13:14': 9/6/2014 13:14</pre>

date vb.net dotNet VB.NET Formatting Date and Time VB.NET

The Date literal must be enclosed within number signs ( #date# ) and specify the date value in the format M/d/yyyy like #09/06/2014# . Else...

Working with Date and Time VB.Net

7:53 PM OmelSoft 0

VB.NET's DateTime structure represents an instant in time which is commonly expressed as a particular date and time of the day. It's a part of your daily life while creating your applications which makes it easy for you to manipulate system's date and time. In this article I'll be showing you the commonly used properties and methods and example usage of the Date and Time in VB.Net. Use the Date data type to contain date values, time values, or date and time values. The default value of Date is 0:00:00 (midnight) on January 1, 0001. You can get the current date and time from the DateAndTime class. <h2>DateTime Properties</h2>The table below shows some of the commonly used properties of the DateTime Structure: <table cellpadding="0" cellspacing="0"><tbody><th style="width:25%;">Property</th><th>Description</th><tr><td>Date</td><td>Gets the date component of this instance.</td></tr><tr><td>Day</td><td>Gets the day of the month represented by this instance.</td></tr><tr><td>DayOfWeek</td><td>Gets the day of the week represented by this instance.</td></tr><tr><td>DayOfYear</td><td>Gets the day of the year represented by this instance.</td></tr><tr><td>Hour</td><td>Gets the hour component of the date represented by this instance.</td></tr><tr><td>Kind</td><td>Gets a value that indicates whether the time represented by this instance is based on local time, Coordinated Universal Time (UTC), or neither.</td></tr><tr><td>Millisecond</td><td>Gets the milliseconds component of the date represented by this instance.</td></tr><tr><td>Minute</td><td>Gets the minute component of the date represented by this instance.</td></tr><tr><td>Month</td><td>Gets the month component of the date represented by this instance.</td></tr><tr><td>Now</td><td>Gets a DateTime object that is set to the current date and time on this computer, expressed as the local time.</td></tr><tr><td>Second</td><td>Gets the seconds component of the date represented by this instance.</td></tr><tr><td>Ticks</td><td>Gets the number of ticks that represent the date and time of this instance.</td></tr><tr><td>TimeOfDay</td><td>Gets the time of day for this instance.</td></tr><tr><td>Today</td><td>Gets the current date.</td></tr><tr><td>UtcNow</td><td>Gets a DateTime object that is set to the current date and time on this computer, expressed as the Coordinated Universal Time (UTC).</td></tr><tr><td>Year</td><td>Gets the year component of the date represented by this instance.</td></tr></tbody></table> <h2>DateTime Methods</h2>The table below shows the commonly used Methods of the DateTime Structure. <table cellpadding="0" cellspacing="0"><tbody><th>Method Name</th><th>Description</th><tr><td>Public Function Add ( value As TimeSpan ) As DateTime</td><td>Returns a new DateTime that adds the value of the specified TimeSpan to the value of this instance.</td></tr><tr><td>Public Function AddDays ( value As Double ) As DateTime</td><td>Returns a new DateTime that adds the specified number of days to the value of this instance.</td></tr><tr><td>Public Function AddHours ( value As Double ) As DateTime</td><td>Returns a new DateTime that adds the specified number of hours to the value of this instance.</td></tr><tr><td>Public Function AddMinutes ( value As Double ) As DateTime</td><td>Returns a new DateTime that adds the specified number of minutes to the value of this instance.</td></tr><tr><td>Public Function AddMonths ( months As Integer ) As DateTime</td><td>Returns a new DateTime that adds the specified number of months to the value of this instance.</td></tr><tr><td>Public Function AddSeconds ( value As Double ) As DateTime</td><td>Returns a new DateTime that adds the specified number of seconds to the value of this instance.</td></tr><tr><td>Public Function AddYears ( value As Integer ) As DateTime</td><td>Returns a new DateTime that adds the specified number of years to the value of this instance.</td></tr><tr><td>Public Shared Function Compare ( t1 As DateTime, t2 As DateTime ) As Integer</td><td>Compares two instances of DateTime and returns an integer that indicates whether the first instance is earlier than, the same as, or later than the second instance.</td></tr><tr><td>Public Function CompareTo ( value As DateTime ) As Integer</td><td>Compares the value of this instance to a specified DateTime value and returns an integer that indicates whether this instance is earlier than, the same as, or later than the specified DateTime value.</td></tr><tr><td>Public Function Equals ( value As DateTime ) As Boolean</td><td>Returns a value indicating whether the value of this instance is equal to the value of the specified DateTime instance.</td></tr><tr><td>Public Shared Function Equals ( t1 As DateTime, t2 As DateTime ) As Boolean</td><td>Returns a value indicating whether two DateTime instances have the same date and time value.</td></tr><tr><td>Public Overrides Function ToString As String</td><td>Converts the value of the current DateTime object to its equivalent string representation.</td></tr></tbody></table> <h2>DateTime Methods Example</h2>The following snippet shows some of the DateTime Methods used in the DateTime Structure. <pre class="brush: vb"> Public Sub DateTimeMethods() Debug.Print("Today is: " & Now) Debug.Print("Adds 1 Day to Current date: " & Now.AddDays(1)) Debug.Print("Adds 1 Hour to Current Time: " & Now.AddHours(1)) Debug.Print("Adds 1 Minute to Current Time: " & Now.AddMinutes(1)) Debug.Print("Adds 1 Second to Current Time: " & Now.AddSeconds(1)) End Sub </pre> <h2>Output</h2>The above snippet should print the following. <pre class="output"> Today is: 9/6/2014 11:54:31 AM Adds 1 Day to Current date: 9/7/2014 11:54:31 AM Adds 1 Hour to Current Time: 9/6/2014 12:54:31 PM Adds 1 Minute to Current Time: 9/6/2014 11:55:31 AM Adds 1 Second to Current Time: 9/6/2014 11:54:32 AM </pre> <h2>Formatting Date and Time</h2><a href="#" title="Formatting Date and Time Tutorial">See formatting Date and Time tutorial here...</a>

date vb.net dotNet VB.NET Working with Date and Time VB.Net

VB.NET's DateTime structure represents an instant in time which is commonly expressed as a particular date and time of the day. It'...

How to use Do While Loop and a For Loop Counter in VB.Net

7:03 AM OmelSoft 1

<div dir="ltr" style="text-align: left;" trbidi="on">In this tutorial, we'll be working on a real example on how to use Do...While Loop and a For...Loop Counter in VB.Net. Example Description: 1. A customer will be asked to enter the prices of 4 items purchased using an input box (create a counter loop). 2. A tax rate of 7% will be a constant. 3. Subtotal, tax rate, and total will be displayed in labels. 4. An accumulator inside the loop will be used to calculate the subtotal. 5. A pre-test post-test do while loop shall be used to control the limit of entering price. <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgbCNCtrt5jKvMDvalzF1gVtusnCQ2ivYUKkSwDMZaSB_McMB8ezM8DpRqRa0HpSuQm0jqPMSv4yzJa_aWuDbKCYutH0LaiC0HAY0Cg9qQ5eVwfWKSn1YlRVxf8yBzLQ2EiZwCqGWNe0wR7/s1600/Do+While+For+Loop+Counter.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="155" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgbCNCtrt5jKvMDvalzF1gVtusnCQ2ivYUKkSwDMZaSB_McMB8ezM8DpRqRa0HpSuQm0jqPMSv4yzJa_aWuDbKCYutH0LaiC0HAY0Cg9qQ5eVwfWKSn1YlRVxf8yBzLQ2EiZwCqGWNe0wR7/s1600/Do+While+For+Loop+Counter.gif" width="200" /></a></div> CODE: <pre class="brush: vb">Public Class Form1 Private Sub btnEnterPrices_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnterPrices.Click Dim Price As String Dim SubTotal As Double, Tax As Double, Total As Double Dim limit As String, newLimit As String Dim i As Integer, n As Integer, response As Integer 'Prompts the user the input the number of prices to be calculated limit = InputBox("Please enter the number of prices to calculate") 'Check user input for a valid number Do While IsNumeric(limit) = False limit = InputBox("Please enter the number of prices to calculate") Loop 'Start the counter up to the limit For i = 1 To limit 'Prompts for the price Price = InputBox("Please enter Price #" & i & ":", "Price # " & i) 'Check if the Price entered is valid If IsNumeric(Price) = False Then 'Display an error message until the user enters a valid price Do While IsNumeric(Price) = False MsgBox("Please input another a valid Price", vbExclamation, "Invalid Price") Price = InputBox("Please enter Price #" & i & ":", "Price # " & i) Loop Else 'Calculate sub-total SubTotal = SubTotal + Price End If If i = limit Then 'If the limit is reached, 'prompt the user whether to enter additional prices to calculate response = MsgBox("Do you want to enter additional Price?", vbYesNo) 'If the user clicked Yes If response = vbYes Then 'Prompt a new limit newLimit = InputBox("Please enter number of additional Price to Calculate") 'Validate user input Do While IsNumeric(newLimit) = False newLimit = InputBox("Please enter number of additional Price to Calculate") Loop 'Start a new counter for the new limit For n = 1 To newLimit 'Prompt for the Price Price = InputBox("Please enter Price #" & i + n & ":", "Price # " & i + n) 'Validate User Input If IsNumeric(Price) = False Then 'Display a message while the price is not a valid number Do While IsNumeric(Price) = False MsgBox("Please input another a valid Price", vbExclamation, "Invalid Price") Price = InputBox("Please enter Price #" & i + n & ":", "Price # " & i + n) Loop Else 'Calculate Subtotal SubTotal = SubTotal + Price End If Next n End If End If Next i 'Calculate Tax and the Total Price Tax = Format(SubTotal * 0.07, "###.##") Total = Format(SubTotal + Tax, "###.##") 'Display results inside labels lblSubTotal.Text = "$" & SubTotal lblTax.Text = "$" & Tax lblTotal.Text = "$" & Total End Sub Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub End Class </pre></div>

dotNet VB.NET How to use Do While Loop and a For Loop Counter in VB.Net

In this tutorial, we'll be working on a real example on how to use Do...While Loop and a For...Loop Counter in VB.Net. Example Descript...

Populate Data into ListView Control in VB.Net

10:28 AM OmelSoft 0

<div dir="ltr" style="text-align: left;" trbidi="on">The following example Populates Data into ListView Control in VB.Net when the form is loaded. Add a ListView Control on your Visual Basic Project and add the following code snippet on Form Load event. <pre class="brush: vb">Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         With ListView1             .View = View.Details             .FullRowSelect = True             'Setup column headers             .Columns.Add("Product", 100)             .Columns.Add("Type", 100)             .Columns.Add("Price", 50)             For i As Integer = 0 To 10                 Dim lvi = .Items.Add("Product " & i)                 lvi.SubItems.Add("Type " & i)                 lvi.SubItems.Add("Price " & i)             Next         End With End Sub End Class </pre> <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWrBaJvoL3-ikJmGKi2d_47OZoKos_iFKn30AZSg4bD3ie4OBkCX3hKZf4TFojcS6wMcXcCnW8pRKHoIaLZvgnbu5gtAk6xJ-USJ8gvrv6MH04Yx8St5dUOu9qL9aDwFFWP0cg1lYHugod/s1600/Populate+data+to+listview+control.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="162" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWrBaJvoL3-ikJmGKi2d_47OZoKos_iFKn30AZSg4bD3ie4OBkCX3hKZf4TFojcS6wMcXcCnW8pRKHoIaLZvgnbu5gtAk6xJ-USJ8gvrv6MH04Yx8St5dUOu9qL9aDwFFWP0cg1lYHugod/s320/Populate+data+to+listview+control.png" width="200" /></a> </div></div>

dotNet VB.NET Populate Data into ListView Control in VB.Net

The following example Populates Data into ListView Control in VB.Net when the form is loaded. Add a ListView Control on your Visual Basic Pr...

Populate Data into DataGridView Control using For-Loop in VB.Net

9:34 AM OmelSoft 0

The following example shows how to Populate Data to DataGridView Control in VB.Net. <div class="separator" style="clear: both; text-align: center;"></div> <pre class="brush: vb">Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With dgv 'SET COLUMN HEADERS .Columns.Add("Product Code", "Product Code") .Columns.Add("Product", "Product") .Columns.Add("Quantity", "Quantity") .Columns.Add("Price", "Price") 'START POPULATING DATA ROWS IN GRIDVIEW For i As Integer = 0 To 100 .Rows.Add() .RowHeadersVisible = False .Item(0, i).Value = "PC121113 " & i .Item(1, i).Value = "PRODUCT " & i .Item(2, i).Value = 100 - i .Item(3, i).Value = i Next .SelectionMode = DataGridViewSelectionMode.FullRowSelect .BorderStyle = BorderStyle.Fixed3D .BackgroundColor = Color.White .RowsDefaultCellStyle.BackColor = Color.White .AlternatingRowsDefaultCellStyle.BackColor = Color.WhiteSmoke .AllowUserToResizeRows = False End With End Sub End Class </pre> <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEidtukAKr1OAkQ78Xc5_3d0bssKpbyairk5dXWsu_uq3A1n-_O4gUJNgiMatAZg8wF8YonstiWYqLrOBIDYpJB36dD6IoimBqTHtPhXMW6VJo7mTrlRZ7NYrCiqkkMalqkf08gVOJgm0G8V/s1600/Populate+Data+to+DataGridView.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEidtukAKr1OAkQ78Xc5_3d0bssKpbyairk5dXWsu_uq3A1n-_O4gUJNgiMatAZg8wF8YonstiWYqLrOBIDYpJB36dD6IoimBqTHtPhXMW6VJo7mTrlRZ7NYrCiqkkMalqkf08gVOJgm0G8V/s640/Populate+Data+to+DataGridView.gif" width="184" /></a></div>

dotNet VB.NET Populate Data into DataGridView Control using For-Loop in VB.Net

The following example shows how to Populate Data to DataGridView Control in VB.Net. Public Class Form1 Private Sub Form1_Load(ByVal send...

Implement a Graph from ASCII Data to Chart Windows Form Control using VB.NET

8:43 AM OmelSoft 0

The example below is a simple way on how to Plot a Graph in Chart Windows Form Control using VB.Net. <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgftdFl7e0YawGP_TGn4YH6cUzhWKabSYMRQptbIH5mNoQWFXci5VBQQcqmkXtC74w-UWfcfLrwIQjDdw0kPXvPeNGQOIZYBFZBU8jYLt6fxU17JGUGwMvxsosFun_SGp-i6N7zCeAEd6QX/s1600/Graph.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Implement Graph on Chart Windows Form Control" border="1" height="246" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgftdFl7e0YawGP_TGn4YH6cUzhWKabSYMRQptbIH5mNoQWFXci5VBQQcqmkXtC74w-UWfcfLrwIQjDdw0kPXvPeNGQOIZYBFZBU8jYLt6fxU17JGUGwMvxsosFun_SGp-i6N7zCeAEd6QX/s400/Graph.png" title="Implement Graph on Chart Windows Form Control" width="400" /></a></div><div class="separator" style="clear: both; text-align: center;"></div> Requirements: 1. Microsoft Visual Studio (In my case, I'm using Visual Studio 2010 Express Edition). To Begin with: 1. Start your Microsoft Visual Basic 2010 Express. 2. In the New Project window, Choose "Windows Form Application" and name it to whatever you like or something like "Plot Graph" then Click "OK". 3. You must now be able to see the Form. On the toolbox Add the following controls onto the form and update its properties.      a. Form: Name:=frmGraph      b. (1) Chart: Name:=Chart1      c. (1) Textbox: Name:=txtData, Multiline:=True, Text:=30;52;57;57;68;93;129;173;209;232;240;232;217;196;169;141;116;98;86;80;78;76;76;79;81;83;86;91;95;97;95;93;95;99;103;105;106;107;110;116;120;122;123;124;127;132;137;139;137;136;132;126;124;122;117;113;110;105;97      d. (1) Button: Name:=btnPlot, Text:=&Plot *Then arrange and re-size the controls as you can see below. But you can still orient it to whatever you want. <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjUwDAroqj8g0I_u5G6UrSuRKrYzBzibgPB9zmaIdih49-zQON9IBJuIX9lvzVsV3BquePQHxaUnEKdP_GNwLhkCnvotkZMTi4G1l98Zg7z7sCMWwS97nzlX3aZoXFw0gq86_zdZ0Y5uwP_/s1600/Form+Controls.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Form Controls Orientation" border="0" height="288" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjUwDAroqj8g0I_u5G6UrSuRKrYzBzibgPB9zmaIdih49-zQON9IBJuIX9lvzVsV3BquePQHxaUnEKdP_GNwLhkCnvotkZMTi4G1l98Zg7z7sCMWwS97nzlX3aZoXFw0gq86_zdZ0Y5uwP_/s320/Form+Controls.jpg" title="Form Controls Orientation" width="320" /></a></div><input type="hidden" name="IL_IN_TAG" value="1"/> 4. Now Press F7 to view the code editor window. Code Blocks: :namespace - We need to declare the namespace containing the methods and properties of the Chart Windows Form Control in order to use its properties and methods. <pre class="brush: vb">Imports System.Windows.Forms.DataVisualization.Charting </pre> :frmGraph_Load() - When the form is loaded we do not want to see the Gridlines behind the plot so we'll disable it by setting the MajorGrid Property of the ChartAreas X and Y Axis Enabled to False and set it background to transparent. <pre class="brush: vb"> Private Sub frmGraph_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With Chart1.ChartAreas(0) .AxisX.MajorGrid.Enabled = False .AxisY.MajorGrid.Enabled = False .AxisX.MajorGrid.LineColor = Color.Coral .AxisY.MajorGrid.LineColor = Color.Coral .BackColor = Color.Transparent End With End Sub </pre> :btnPlot_Click() - When the Plot button is clicked, we declare an Array and 2 collections of series values.         CD = An array collection that holds the data we split from the data Textbox.                s1 = Is our first series collection         s2 = is our second series collection (Both have the same values since we only need to plot the Points and a Line. <pre class="brush: vb"> Private Sub btnPlot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlot.Click Dim CD As Array Dim s1 As New Series Dim s2 As New Series Dim xLab As Long 'GET data from the textbox CD = Split(txtData.Text, ";", -1) Chart1.Series.Clear() s1.Name = "Series 1" s1.ChartType = SeriesChartType.FastPoint s2.Name = "Series 2" s2.ChartType = SeriesChartType.FastLine xLab = 1 'loop through each array and set series values For Each d In CD s1.Points.AddXY(xLab, d) s2.Points.AddXY(xLab, d) xLab = xLab + 1 Next 'Add update the chart with the series values Chart1.Series.Add(s1) Chart1.Series.Add(s2) End Sub </pre> Full Code: <pre class="brush: vb">Imports System.Windows.Forms.DataVisualization.Charting Public Class frmGraph Private Sub frmGraph_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With Chart1.ChartAreas(0) .AxisX.MajorGrid.Enabled = False .AxisY.MajorGrid.Enabled = False .AxisX.MajorGrid.LineColor = Color.Coral .AxisY.MajorGrid.LineColor = Color.Coral .BackColor = Color.Transparent End With End Sub Private Sub btnPlot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlot.Click Dim CD As Array Dim s1 As New Series Dim s2 As New Series Dim xLab As Long 'GET data from the textbox CD = Split(txtData.Text, ";", -1) Chart1.Series.Clear() s1.Name = "Series 1" s1.ChartType = SeriesChartType.FastPoint s2.Name = "Series 2" s2.ChartType = SeriesChartType.FastLine xLab = 1 'loop through each array and set series values For Each d In CD s1.Points.AddXY(xLab, d) s2.Points.AddXY(xLab, d) xLab = xLab + 1 Next 'Add update the chart with the series values Chart1.Series.Add(s1) Chart1.Series.Add(s2) End Sub End Class </pre> 5. Finally, build and run the project.

dotNet VB.NET Implement a Graph from ASCII Data to Chart Windows Form Control using VB.NET

The example below is a simple way on how to Plot a Graph in Chart Windows Form Control using VB.Net. Requirements: 1. Microsoft Visual Studi...

Pinoy Tutorials, Tips and Tricks