Vb.net Code and Snippets

Codes and snippet for vb.net 2005

Using Select Case in Vb.Net

Apr 28th

Posted by shyguy in Vb.net Code and Snippets

No comments

It’s been a long time since I did not update my blog but now I’m here again to discuss all about on how to use Select Case in Vb. Net. I know It is very simple to understand because it is very basic but let me post it here to guide some people that are new in vb.net.  Here is my example below.

In a form, put 1 textbox and 1 button and in a click button event paste the following code…

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

Dim Girl As String
Dim KindOfGirl As String
Girl = TextBox1.Text

Select Case Girl

Case “1″
KindOfGirl = “Fat”
Case “2″
KindOfGirl = “Sexy”
Case Else
KindOfGirl = “Never Mind”

End Select

MsgBox KindOfGirl

End Sub

Run your code to test ad check. Click inside your textbox and enter number “1″. Then click your button to see what happens. Now enter the number “2″ and click your button. next, try the word “3″ or any character and see what happens. Notice that if you put “1″ or “2″ the messagebox will pop up and show what are the designated values that we assign to them.

Loading (.csv) file to listview

Jul 29th

Posted by shyguy in Vb.net Code and Snippets

3 comments

Well, somebody is asking me for a code that will load up a (.csv) format to listview. In response to what he wanted, I decided to put it in here based on how I load a .csv file to listview. This article will be in relation to the previous post that I made. I hope this will help. Enjoy!

Private Sub LoadData()
Dim fileLookUp As New OpenFileDialog
fileLookUp.Title = "Get File"
fileLookUp.Filter = "Files (*.csv)|*.csv|All Files (*.*)|*.*"
If fileLookUp.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.txtFile.Text = fileLookUp.FileName
mFileName = System.IO.Path.GetFileName(Me.txtFile.Text)
mFolder = System.IO.Path.GetDirectoryName(Me.txtFile.Text)
End If

Dim ConnectionString, CommandText As String
Dim conn As OleDb.OleDbConnection
Dim Command As OleDbCommand
Dim myString As String = txtFile.Text
Dim myIndex As Integer = myString.LastIndexOf("\") + 1
myString = myString.Substring(myIndex, myString.Length - myIndex)

Try

ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mFolder & "\;Extended Properties='text;HDR=Yes'"

CommandText = "select * from " & myString & ""

conn = New System.Data.OleDb.OleDbConnection(ConnectionString)
Command = New System.Data.OleDb.OleDbCommand(CommandText, conn)

conn.Open()

Dim t As New DataTable
' initializing its column to complement on how many fields I want to return in my query command
t.Columns.Add("v7#3")
t.Columns.Add("F2")
t.Columns.Add("F3")

' a method to access read-only the result set.
Dim reader As OleDbDataReader = Command.ExecuteReader()
While reader.Read()
' create new row
Dim r As DataRow = t.NewRow()
r(0) = reader("v7#3")
r(1) = reader("F2")
r(2) = reader("F3")

' add a row to a datatable
t.Rows.Add(r)
End While

' close reader
reader.Close()
' close the connection

conn.Close()

For i As Integer = 0 To t.Rows.Count - 1
Dim li As ListViewItem = ListView1.Items.Add(t.Rows(i)("v7#3").ToString())
li.SubItems.Add(t.Rows(i)("F2").ToString())
li.SubItems.Add(t.Rows(i)("F3").ToString())

Next

Catch ex As Exception
MsgBox("Invalid Format! Please try another.")
End Try
End Sub

Saving Listview as (.csv) file

Jul 16th

Posted by shyguy in Vb.net Code and Snippets

6 comments

It was easy for me to save a file on the database but saving a file as a (.csv) format is another issue for me before. Until I discover saving as a (.csv) format is just as simple as saving file on a database. All you just need to do on this is that to call the streamwriter to save the data as (.csv) format. I have here a sample codes below where the data the loaded on my listview was saved as (.csv) format. Hope you enjoy.

Private Sub SaveAsFile()

'They want to do a SaveAs, so find out what they want to name the file

Dim saveFileDialog As SaveFileDialog = New SaveFileDialog()

saveFileDialog.Title = "Save File"

saveFileDialog.Filter = "Files (*.csv)|*.csv|All Files (*.*)|*.*"

saveFileDialog.DefaultExt = "csv"

saveFileDialog.AddExtension = True

If saveFileDialog.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then

filename = saveFileDialog.FileName

End If

Try
Dim csvFileContents As New System.Text.StringBuilder
Dim currentLine As String = String.Empty

'Write out the column names as headers for the csv file.
For columnIndex As Int32 = 0 To 0
currentLine &= (String.Format("mycolumn_name"))
Next

'Remove trailing comma

csvFileContents.AppendLine(currentLine.Substring(0, currentLine.Length))
currentLine = String.Empty

'Write out the data.
For Each item As ListViewItem In ListView1.Items

For Each subItem As ListViewItem.ListViewSubItem In item.SubItems

currentLine &= (String.Format("""{0}"",", subItem.Text))

Next
'Remove trailing comma

csvFileContents.AppendLine(currentLine.Substring(0, currentLine.Length - 1))
currentLine = String.Empty

Next

'Create the file.
Dim sw As New System.IO.StreamWriter(filename)
sw.WriteLine(csvFileContents.ToString)
sw.Flush()
sw.Dispose()
Catch ex As Exception

End Try

End Sub

Introducing Ultidev Cassini

Jul 14th

Posted by shyguy in Vb.net Code and Snippets

No comments

It’s been a big confusion on my mind before since I was thinking on how do I make my web application to run on cd. Well, while searching and looking around for a stand alone web server on the google I saw a Ultidev Cassini that really fits to what really I need and now I was using it. It was really a great product and free for everyone. If you want to explore more on how to used it just visit http://ultidev.com and explore how it works.

listview1

How to add groups on listview

May 28th

Posted by shyguy in Vb.net Code and Snippets

No comments

I have here a simple sample on how to group in a listview. I hope this simple code can help to someone needed this.

listview1

Public Class Form1

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

Dim group1 As New ListViewGroup(“Group 123″, HorizontalAlignment.Left)
group1.Name = “Group 123″
ListView1.Groups.Add(group1)

With ListView1.Items
.Add(“123″)
.Item(.Count – 1).SubItems.Add(“ABC”)
.Item(.Count – 1).SubItems.Add(“1/11/05″)
.Item(.Count – 1).SubItems.Add(“1″)
.Item(.Count – 1).SubItems.Add(“TV”)
.Item(.Count – 1).Group = group1
.Add(“123″) .Item(.Count – 1).SubItems.Add(“DEF”)
.Item(.Count – 1).SubItems.Add(“1/11/05″)
.Item(.Count – 1).SubItems.Add(“1″)
.Item(.Count – 1).SubItems.Add(“VCD”)
.Item(.Count – 1).Group = group1
.Add(“123″)
.Item(.Count – 1).SubItems.Add(“GHI”)
.Item(.Count – 1).SubItems.Add(“1/11/05″)
.Item(.Count – 1).SubItems.Add(“1″)
.Item(.Count – 1).SubItems.Add(“TVRACK”)
.Item(.Count – 1).Group = group1

Dim group2 As New ListViewGroup(“Group 234″, HorizontalAlignment.Left)
group2.Name = “Group 234″

ListView1.Groups.Add(group2)
.Add(“234″)
.Item(.Count – 1).SubItems.Add(“KLM”)
.Item(.Count – 1).SubItems.Add(“1/12/06″)
.Item(.Count – 1).SubItems.Add(“1″)
.Item(.Count – 1).SubItems.Add(“MIC”)
.Item(.Count – 1).Group = group2
End With
End Sub

End Class

How to make borderless form draggable?

May 7th

Posted by shyguy in Vb.net Code and Snippets

9 comments

Making a form without a border is nice to see especially when the user don’t want his form to minimize and maximize. I have here the following code that will make a borderless form draggable.

 

‘Declare these 2 variables with class scope
Private Const WM_NCLBUTTONDOWN As Integer = &HA1S
Private Const HTCAPTION As Integer = 2

‘Then handle your form.MouseDown event
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        Me.Capture = False
        Dim msg As Message = Message.Create(Me.Handle, WM_NCLBUTTONDOWN, New IntPtr(HTCAPTION), IntPtr.Zero)
        Me.DefWndProc(msg)
    End Sub

How to send email using SMTP

May 7th

Posted by shyguy in Vb.net Code and Snippets

2 comments

Sending email using vb.net 2.0 framework is quite different from 1.1. The 1.1 framework is using a System.Web.Mail while 2.0 uses System.Net.Mail and it makes really different. There are some codes that are obsolete in 2.0 framework already that exist in 1.1 framework.  In my case, since I am using vb.net 2.0 framework then I will share my code here  that i used in my program that will send emails.  I hope this will help to the people who are seeking codes that will send an email using vb.net 2.0 framework. As a default I am using gmail for my demo but it can be used to any email server as long as you know the configuration.

Set iMsg = CreateObject(“CDO.Message”)
Set iConf = CreateObject(“CDO.Configuration”)
Set Flds = iConf.Fields

schema = “http://schemas.microsoft.com/cdo/configuration/”
Flds.Item(schema & “sendusing”) = 2
Flds.Item(schema & “smtpserver”) = “smtp.gmail.com”
Flds.Item(schema & “smtpserverport”) = 465
Flds.Item(schema & “smtpauthenticate”) = 1
Flds.Item(schema & “sendusername”) = “myemail@gmail.com”
Flds.Item(schema & “sendpassword”) =  “mypassword”
Flds.Item(schema & “smtpusessl”) = 1
Flds.Update

With iMsg
.To = “admin@uiccs07.net”
.From = “admin@uiccs07.net>”
.Sender = “uiccs07.net”
.ReplyTo = “admin@uiccs07.net”
.Subject = “This is a subject”
.HTMLBody = “This is sample html email.”
.Organization = “uiccs07.net”
Set .Configuration = iConf
SendEmailGmail = .Send
End With

set iMsg = nothing
set iConf = nothing
set Flds = nothing