UIC BSCS '07

Using Select Case in Vb.Net

shyguy — Wed, 28 Apr 2010 20:43:32 +0000

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

shyguy — Wed, 29 Jul 2009 06:21:13 +0000

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

shyguy — Thu, 16 Jul 2009 04:55:05 +0000

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

shyguy — Tue, 14 Jul 2009 12:43:03 +0000

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.

How to add groups on listview

shyguy — Thu, 28 May 2009 20:40:18 +0000

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

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?

shyguy — Thu, 07 May 2009 21:45:33 +0000

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

shyguy — Thu, 07 May 2009 16:40:06 +0000

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

Welcome

shyguy — Sat, 02 May 2009 05:29:06 +0000

Welcome everyone. I hope you enjoy upon visiting this site. Please leave a comment or email the administrator if there is any question regarding to this site. Have a nice day and God Bless!