A1VBCode Forums / Visual Basic .NET / .NET Programming (VB 2010 or earlier)

VB.Net 2008 Save Print Preview DataGridView inside txt file or Excel

remya1000 — Mon, 14 May 2012 23:51:01 GMT

I’m using VB.Net 2008 application program.

I’m using DataGridView. I have a Print Preview option where i need to print the DataGridView.

Using "DataGridView1.Rows.Add" i’m adding rows to datagridview.

I’m using this code for Print Preview.

Dim MyDataGridViewPrinter As DataGridViewPrinter

Private Function SetupThePrinting() As Boolean

Dim MyPrintDialog As PrintDialog = New PrintDialog()

MyPrintDialog.AllowCurrentPage = False

MyPrintDialog.AllowPrintToFile = False

MyPrintDialog.AllowSelection = False

MyPrintDialog.AllowSomePages = True

MyPrintDialog.PrintToFile = False

MyPrintDialog.ShowHelp = False

MyPrintDialog.ShowNetwork = False

PrintDocument1.PrinterSettings = MyPrintDialog.PrinterSettings

PrintDocument1.DefaultPageSettings.Margins = New Margins(10, 10, 10, 10)

MyDataGridViewPrinter = New DataGridViewPrinter(DataGridView1, PrintDocument1, False, True, "Manager", New Font("Tahoma", 18, FontStyle.Bold, GraphicsUnit.Point), Color.Black, True)

Return True

End Function

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

Dim more As Boolean

more = MyDataGridViewPrinter.DrawDataGridView(e.Graphics)

If more Then e.HasMorePages = True

End Sub

' The Print Preview Button

Private Sub btnPrintPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintPreview.Click

If SetupThePrinting() Then

Dim MyPrintPreviewDialog As PrintPreviewDialog = New PrintPreviewDialog()

MyPrintPreviewDialog.Document = PrintDocument1

MyPrintPreviewDialog.ShowDialog()

End If

End Sub

I searched a lot, but I couldn’t find it.

If you know how i can Save Print Preview inside text file or Excel, please help me. If you can provide an example, that will be so helpful.

Thanks in advance.

[Howto?]Form designer

aolko — Sun, 13 May 2012 17:13:59 GMT

How do i make a "simple" form designer, that is capable to save the result and compile it as .exe? (It will use vb.net compiler)

Reading ".xlsx" files from a web browser

vik2121 — Sat, 12 May 2012 00:36:04 GMT

Hi Guys,

I am uploading ".xlsx" files to one of my web page in a calendar. While reading the file i am getting a message "Excel found unreadable content in 'test.xlsx' Do you want to recover the contents of the workbook? If i say YES then the content is loading properly. How to avoid this message while opening the xlsx files. I am able to open xls files normally. Here is my code. Can you guys advice on how to fix this issue? Thanks for your help.

If objDBReader.Read Then

If objDBReader("UploadFileType") = "doc" Then
Response.ContentType = "application/msword"
ElseIf objDBReader("UploadFileType") = "docx" Then
Response.ContentType = "application/vnd.openxmlformats-officedocument.wordprocessingml.document"
ElseIf objDBReader("UploadFileType") = "htm" Then
Response.ContentType = "text/HTML"
ElseIf objDBReader("UploadFileType") = "rtf" Then
Response.ContentType = "application/msword"
ElseIf objDBReader("UploadFileType") = "txt" Then
Response.ContentType = "application/msword"
ElseIf objDBReader("UploadFileType") = "xls" Then
Response.ContentType = "application/vnd.ms-excel"
ElseIf objDBReader("UploadFileType") = "xlsx" Then
Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
ElseIf objDBReader("UploadFileType") = "pdf" Then
Response.ContentType = "application/pdf"
ElseIf objDBReader("UploadFileType") = "ppt" Then
Response.ContentType = "application/vnd.ms-powerpoint"
ElseIf objDBReader("UploadFileType") = "pptm" Then
Response.ContentType = "application/vnd.ms-powerpoint"
Else
Exit Sub
End If

Response.AppendHeader("content-disposition", "attachment;filename=" + objDBReader("FileName"))

Response.Expires = 0
Response.Buffer = True
Response.Clear()

Response.BinaryWrite(objDBReader("UploadFile"))
objConn.Close()
Response.End()
End If

How to create windows service using SHDocVw.dll in vb.net?

jayawant — Thu, 10 May 2012 10:29:49 GMT

Hi All,

I have tried to create windows service using SHDocVw.dll in vb.net, but it generates error

The error is could not load SHDocVw.dll into windows service.

How to fix this issue?

if you have any solution then, please give me the links or urls.

Thanks,

Jayawant

Send Bold Text to Comport

chandi123 — Tue, 08 May 2012 13:06:48 GMT

i had send text to comport and print via a dotmatrix receipt printer with the following code.

com1Port = My.Computer.Ports.OpenSerialPort("COM1")
com1Port.WriteLine(" Invoice Cancelled" + " ")
com1Port.WriteLine("This text")
com1Port.WriteLine(Label1.Text)

com1Port.Close()
'Finally
If (com1Port IsNot Nothing) Then com1Port.Dispose()
com1Port = Nothing

Now i want to send Bold font with this code. If anyone knows how it is Please Help me......

how to hide exe into taskmanager in windows 7 using vb.net windows application?

jayawant — Mon, 05 Mar 2012 04:18:26 GMT

Hi all,

how to hide exe into task-manager in windows 7 using vb.net windows application?

I want exe is hide into task-manager in windows 7 & windows vista machine using vb.net(windows application)
help me!

Thanks,
Jayawant

How to create windows service using windows form controls in vb.net?

jayawant — Thu, 03 May 2012 10:19:52 GMT

Hi all,

It is possible to create windows service using windows form control in vb.net.If yes then please give me the url or links.
The windows forms control such as, Timer control, list-box, notify-icon control etc.

Thanks,
Jayawant

I have a problem drawing dotted path lines, with evenly spaced dots

coolpjmartin — Sun, 22 Apr 2012 04:59:30 GMT

I have a problem drawing dotted path lines, with evenly spaced dots:

Can anyone please help with this problem, I want to be able to draw evenly spaced dots along a path line using points in an array, My issue is not with drawing the path line, with dotted lines, this is easy, but with the spacing of the dots at the start and end of the path line.

In the example I have created, I create a square with 4 points and draw a dotted path.

The path starts at the top left corner and finishes back at the top left corner, the dots are evenly placed along the path, except the final dots at the end of the path. (Sometimes the dots are even and other times they are not even).

The shapes I want to draw can be any size and any shape, but I have used a square in this example to show the problem I have.

Can anyone please help me to draw the dots and give the impression that they are even all along the path, for all shapes and sizes.

I have attached an example project or you can download from here:
http://craftysams.co.uk/ItemImages/Website_Craft_Images/dottedline.zip
[url=http://craftysams.co.uk/ItemImages/Website_Craft_Images/dottedline.zip][/url]

I have also attached two pictures showing the dotted path line, 1 with even spaced dots at the start / End and another showing the problem I want to resolve, with not evenly spaced dots at the start / end.

The only difference between the two is the point values.

Good: This picture shows a path line that has dots that look even, this is what I want to achieve on all path lines I draw of any size and shape, if you cannot see picture download from here: http://craftysams.co.uk/ItemImages/Website_Craft_Images/good.jpg

Bad: This picture shows a path line that has dots that clash at the start and end of the path line – THIS IS THE PROBLEM I WANT TO RESOLVE, if you cannot see picture download from here: http://craftysams.co.uk/ItemImages/Website_Craft_Images/bad.jpg

Any help much appreciated

I have written the example in vb.net, but I am happy for a resolution in either vb.net or c#.

Thanks

Confused by program

KatlynnGrace — Wed, 18 Apr 2012 16:57:41 GMT

I am trying to write a program that with a CheckedListBox that includes a list of requirements to check out of the dorm after the school year. It should run through the list and add items to either a "Completed" or "Pending" ListBox. Once all the items have been completed, the program should add an "Approved" message box for the user. I attached a file of what the form looks like.

I got started on the code but got completely turned around. This is what I have:

'This program sorts a list of requirements to check out of the dorm after the school year into approved "Completed" or "Pending" lists.

Public Class frmCheckOut

Dim mchkCleaningInspection As CheckBox

Dim mchkDamageRepaired As CheckBox

Dim mchkEquipmentReturned As CheckBox

Dim mchkChargesPaid As CheckBox

Dim mchkFeesPaid As CheckBox

Dim mchkPersonalPropertyRemoved As CheckBox

Dim mchkLinensReturned As CheckBox

Dim mchkKeyReturned As CheckBox

Dim mshoCount As Short

Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click

End

End Sub

Private Sub frmCheckOut_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

'Loads defaults

mchkCleaningInspection.Checked = False

mchkDamageRepaired.Checked = False

mchkEquipmentReturned.Checked = False

mchkChargesPaid.Checked = False

mchkFeesPaid.Checked = False

mchkPersonalPropertyRemoved.Checked = False

mchkLinensReturned.Checked = False

mchkKeyReturned.Checked = False

End Sub

Private Sub btnClear_Click(sender As System.Object, e As System.EventArgs) Handles btnClear.Click

'Clears the check boxes

mchkCleaningInspection.Checked = False

mchkDamageRepaired.Checked = False

mchkEquipmentReturned.Checked = False

mchkChargesPaid.Checked = False

mchkFeesPaid.Checked = False

mchkPersonalPropertyRemoved.Checked = False

mchkLinensReturned.Checked = False

mchkKeyReturned.Checked = False

'Or should the above be erased and the following take its place...?

clbCheckOutList.SelectedIndex = -1

'Clears the list boxes

lstCompleted.Items.Clear()

lstPending.Items.Clear()

End Sub

Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click

Dim i As Integer

'I'm not quite sure what I am trying to accomplish in this part of my code. Confused....

'Unchecks an individual item

clbCheckOutList.SetItemChecked(i, False)

'Determines the number of items in the Checked List Box

mshoCount = clbCheckOutList.Items.Count

'Determines the number of items in the Checked List Box that are checked

mshoCount = clbCheckOutList.CheckedItems.Count

'Determines if an individual item is checked

If clbCheckOutList.GetItemChecked(i) Then

End If

'Adds an item to the List Box (this line is incorrect...)

lstCompleted.Items.Add()

'Adds checked items to Completed list (not sure how to do any of the below code...)

If mchkCleaningInspection.Checked Then

End If

Dim strFlag As String

If strFlag = "True" Then

If mchkCleaningInspection.Checked Then

'Move item to Completed list

Else

'Move item to Pending list

strFlag = "False"

End If

'End Loop

If strFlag = "True" Then

'All items have been approved (didn't go down the false path in the loop above)

End If

End Sub

End Class

Radio Buttons and Check Boxes Program

smsproul11 — Sun, 15 Apr 2012 21:51:24 GMT

Hello!
I have been unsuccessfully working at this program for a couple days and cannot figure out how to write the code. I need to write code for a program that will calculate package delivery charges for a delivery service.

I need to use Radio Buttons to select these types of delivery service:
Ground for $15.00
2nd Day for $17.50
Air for $25.00

I also need to use Check Boxes for these additional features:
Insurance for $5.00
Receipt for $2.00
Packing for $4.00
10:00 am delivery for $8.00
RFID tracking for $12.00

This program also needs to calculate tax at 6%.
The output should display the delivery method, the charges, features and total cost.

There is an attached file "Form" that shows what the program can look like.
There is also another attached file "Code" that is the code I have as of right now.. which is very messed up and complicated and I do not know how to fix it!!!

If anyone can help, I would appreciate it soo much!

Thank you!
-Sarah

Image in database

uzzy — Sat, 14 Apr 2012 13:39:29 GMT

I created a database last week and now I have some images I want to add. I already included the image column and set the data type to image when I made it.

How do I add the image into the database?

All I want it to do is show the image in a gridview with many other details which are already showing in the gridview at the moment. I am not wanting other user's to upload images.

It is an SQL Database which I created within Visual Studio.

Thanks

Matching card game program VB 2010

jackandjones120 — Fri, 13 Apr 2012 19:34:54 GMT

Basically i need to create a card matching game which two players who take turn to play.

Each time they match a pair this adds 1 point to their score.

The cards start off showing a red picture card from file C:\Users\Programming\Pairs_Ass2\Cards\Red.png

In this folder there are 52 cards and a red and blue one.

i need to create a 2 dimensional array which randomises the cards from folder into picture boxes.

the code which i have so far is:

[code]
Public Class Frm_Pairs

Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
Frm_About.Show()
End Sub

Private Sub NewGameToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewGameToolStripMenuItem.Click
Dim Player1 As String
Dim Player2 As String
If Txt_Player1Name.Text = "" And Txt_Player2Name.Text = "" Then
Player1 = InputBox("What is your name Player 1?")
Txt_Player1Name.Text = Player1
Player2 = InputBox("What is your name Player 2?")
Txt_Player2Name.Text = Player2
ElseIf Txt_Player1Name.Text = "" Then
Player1 = InputBox("What is your name Player 1?")
Txt_Player1Name.Text = Player1
ElseIf Txt_Player2Name.Text = "" Then
Player2 = InputBox("What is your name Player 2?")
Txt_Player2Name.Text = Player2
Else
MessageBox.Show("Well done")
End If
End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
End Class

[/code]

at the line: MessageBox.Show("Well done") my code should put create a 2 dimensional array which randomises the cards from folder into picture boxes as i explained.

Please help, i am really stuck!

if you need any more information please ask

Thanks

Help required drawing dotted path lines, with even dots along the path line

coolpjmartin — Thu, 12 Apr 2012 17:14:25 GMT

Help required drawing dotted path lines, with even dots along the path line.

I want to draw a path line that can be any shape (square, round, outline etc), and along this path line I want even dots to appear.

I also want to be able to resize the shape (as in the example attached)

This is very easy to do using “DrawPath” and defining points for the path and using a pen defined as dots.

The problem I have is I want the dots to be evenly placed along the path, on any shape or size I draw.

In the example I have created, I create a square with 4 points and draw a dotted path.

There are 2 buttons that allows me to resize the square (larger or smaller) this helps show the problem more clearly.

The path starts at the top left corner and finishes back at the top left corner, the dots are evenly placed along the path, except the final dots at the end of the path. (Sometimes the dots are even and other times they are not even).

The shapes I want to draw can be any size and any shape, but I have used a square in this example to show the problem I have.

Can anyone please help point me in the direction I need to go that allows me to draw the dots and give the impression that they are even all along the path, for all shapes and sizes.

In the pictures below if you change the size of the shape, one will have even looking dots, the other will not.

Good:
The picture shows a path line that has dots that look even.

Bad:
The picture shows a path line that has dots that clash at the start and end of the path line – NOT GOOD

Any help much appreciated

Thanks

Setting up the project:

Create a new project and add a form, add a panel to the form that fills the bottom part of the form, add at the top of the form a label and 2 buttons.

Add the code below to the form:

Full project also available for download:
[url=http://www.craftysams.com/ItemImages/Website_Craft_Images/dottedline.zip][/url]

Imports System.Drawing.Drawing2D
Imports System.Math

Public Class Form1

Public pathLinesStart As GraphicsPath = New GraphicsPath

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

Dim TPoint(5) As PointF
Dim Npoint As PointF = Nothing
'For x1 As Integer = 0 To 4
'Npoint = New PointF(30, 30)
'TPoint(0) = Npoint
'Npoint = New PointF(300, 30)
'TPoint(1) = Npoint
'Npoint = New PointF(300, 300)
'TPoint(2) = Npoint
'Npoint = New PointF(30, 300)
'TPoint(3) = Npoint
'Npoint = New PointF(30, 30)
'TPoint(4) = Npoint
'Npoint = New PointF(30, 30)
'TPoint(5) = Npoint

Npoint = New PointF(126, 126)
TPoint(0) = Npoint
Npoint = New PointF(205, 126)
TPoint(1) = Npoint
Npoint = New PointF(205, 205)
TPoint(2) = Npoint
Npoint = New PointF(126, 205)
TPoint(3) = Npoint
Npoint = New PointF(126, 126)
TPoint(4) = Npoint
Npoint = New PointF(126, 126)
TPoint(5) = Npoint

'Next
pathLinesStart.AddLines(TPoint)

CalculateNewPoints(True, 0)
Me.Refresh()

End Sub

Private Sub Panel1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

Dim p As Pen = New Pen(Color.Black, 5)
p.LineJoin = LineJoin.Round
p.EndCap = LineCap.Round
p.StartCap = LineCap.Round

Dim g As Graphics = e.Graphics

p.DashStyle = DashStyle.Dot
p.DashCap = DashCap.Round

g.InterpolationMode = InterpolationMode.HighQualityBicubic
g.SmoothingMode = SmoothingMode.HighQuality
p.Color = Color.Red
g.DrawPath(p, pathLinesStart)

End Sub

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

' Increase change point size
CalculateNewPoints(True, 10)
Me.Refresh()

End Sub

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

' Decrease change point size
CalculateNewPoints(False, 10)
Me.Refresh()

End Sub

Public Sub CalculateNewPoints(ByRef Increase As Boolean, ByVal PercentageChange As Double)

Dim RotatePerc As Single = 0

Dim pathLines As GraphicsPath = pathLinesStart

Dim xmin As Single = 0
Dim xmax As Single = 0
Dim ymin As Single = 0
Dim ymax As Single = 0
Dim xmin2 As Single = 0
Dim xmax2 As Single = 0
Dim ymin2 As Single = 0
Dim ymax2 As Single = 0

Dim CPoint As PointF = New Point(0, 0)
Dim CPoint2 As PointF = New Point(0, 0)
Dim OldPoint As PointF = New Point(0, 0)

xmin = pathLines.PathPoints(0).X
xmax = pathLines.PathPoints(0).X
ymin = pathLines.PathPoints(0).Y
ymax = pathLines.PathPoints(0).Y

For x1 As Integer = 0 To UBound(pathLines.PathPoints)
If pathLines.PathPoints(x1).X < xmin Then
xmin = pathLines.PathPoints(x1).X

End If
If pathLines.PathPoints(x1).X > xmax Then
xmax = pathLines.PathPoints(x1).X

End If
If pathLines.PathPoints(x1).Y < ymin Then
ymin = pathLines.PathPoints(x1).Y

End If
If pathLines.PathPoints(x1).Y > ymax Then
ymax = pathLines.PathPoints(x1).Y

End If

Next

Dim xwidth As Single = ((xmax - xmin))
Dim ywidth As Single = ((ymax - ymin))

' Find the centre point of the annotation
CPoint = New PointF(((xwidth / 2)) + xmin, ((ywidth / 2)) + ymin)

Dim aAngle As Single = 0
Dim nChngY As Single = 0
Dim nChngX As Single = 0
Dim nChng As Single = 0

Dim nPercChng As Double = (PercentageChange / 100)
Dim xPoint As Single = 0
Dim yPoint As Single = 0

Dim TPoint(UBound(pathLines.PathPoints)) As PointF
Dim Npoint As PointF = Nothing

Label1.Text = ""

For x1 As Integer = 0 To UBound(pathLines.PathPoints)

OldPoint = New PointF((pathLines.PathPoints(x1).X), (pathLines.PathPoints(x1).Y))

aAngle = CSng(Math.Atan2((OldPoint.Y - CPoint.Y), (OldPoint.X - CPoint.X)))

' get length of Hypotenuse
nChngX = CSng(Math.Pow((CPoint.X - OldPoint.X), 2))
nChngY = CSng(Math.Pow((CPoint.Y - OldPoint.Y), 2))
nChng = CSng((Math.Sqrt((nChngX + nChngY))))

' get percentage changed based on length of Hypotenuse
Dim nChngPc As Double = nChng * nPercChng
xPoint = CSng((Math.Cos(aAngle) * nChngPc))
yPoint = CSng(CSng((Math.Sin(aAngle) * nChngPc)))

If OldPoint.X > (CPoint.X) Then
' add
xPoint = Math.Abs(xPoint)
Else
' sub
xPoint = Math.Abs(xPoint)
xPoint = 0 - xPoint
End If

If OldPoint.Y > (CPoint.Y) Then
' add
yPoint = Math.Abs(yPoint)
Else
' sub
yPoint = Math.Abs(yPoint)
yPoint = 0 - yPoint
End If

Dim X1a As Single, Y1a As Single, X2a As Single, Y2a As Single

If Increase = True Then
'larger
X1a = ((OldPoint.X + (xPoint)))
Y1a = (OldPoint.Y + (yPoint))
Else
'smaller
X1a = ((OldPoint.X - (xPoint)))
Y1a = (OldPoint.Y - (yPoint))
End If

Dim r As Double = Math.Atan(Y1a / X1a)

' get length of Hypotenuse
nChngX = CSng(Math.Pow((CPoint.X - X1a), 2))
nChngY = CSng(Math.Pow((CPoint.Y - Y1a), 2))
nChng = CSng((Math.Sqrt((nChngX + nChngY))))

r = ((Math.PI / 180) * (nChng))
Dim ROT As Single = CSng(((Math.PI / 180) * RotatePerc))
r = nChng

X2a = CSng((r * Cos(ROT) * Cos(aAngle)) - (r * Sin(ROT) * Sin(aAngle)))
Y2a = CSng((r * Sin(ROT) * Cos(aAngle)) + (r * Cos(ROT) * Sin(aAngle)))

X2a = X2a + CPoint.X
Y2a = Y2a + CPoint.Y

Npoint = New PointF(CInt((X2a)), CInt((Y2a)))
TPoint(x1) = Npoint
Label1.Text = Label1.Text + "(" + Npoint.X.ToString + "," + Npoint.Y.ToString + ") - "

Next

pathLinesStart = New GraphicsPath
pathLinesStart.AddLines(TPoint)

End Sub

End Class

how can i change image in dll file windows 7 help in visual basic 2010

elfenliedtopfan5 — Thu, 12 Apr 2012 14:42:43 GMT

ok i have asked on so many forums and i finally found a forum that might be able to help me out right what i want to do is this
but what i want to do is make a program where i can get a file dialog box when i button is pushed change windows logo and it will edit it like this here
now i know it can be done because i changed this with windows 7 activator even know i don't need to activate it i just wanted to change the image how can i reach doing this thanks in advance
elfenliedtopfan5

linking forms

Cathrn — Mon, 19 Mar 2012 08:49:37 GMT

i tried to link the forms in such a way that when u open the other one and click submit it opens the one i have linked with, so they all opened but i do not want that.

VB 10 Binary search & how to display all occurrences of string from a listbox

luke jackson — Wed, 04 Apr 2012 18:17:49 GMT

This program splits a list in half, then in half again etc., until it finds the state that matches the first two letters of the input box.
Everything works, but how do I modify it so that the output displays all the states that begin with the letters asked for. As it is if you enter NE for example it returns New Mexico because that's the first "NE" string that the program finds. It doesn't display New york, Nebraska, etc. because obviously that's not specified in the code. Hence the question. I'm not sure what to add or where to add it. I am thinking I would take out the flag = true line after the first case, since once flag is true the loop ends. I would need the program to check the items above and below it to see if they also begin with those letters. Keep in mind the whole point of the program is not to do an exhaustive search but a Binary search. I think I need to incorporate a For ....loop somehow but I'm not sure. Here's the code

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

Dim letters As String = " "
Dim first As Integer = 0
Dim last As Integer = lstStates.Items.Count - 1
Dim flag As Boolean = False
Dim middle As Integer
Dim state As String = " "
Do Until (flag) Or first > last
middle = CInt((first + last) / 2)
state = CStr(lstStates.Items(middle)).ToUpper
state = state.Substring(0, 2)
letters = mtbFirstTwoLetters.Text.ToUpper
Select Case state
Case Is = letters
flag = True
Case Is > letters
last = middle - 1
Case Is < letters
first = middle + 1
End Select
Loop

If flag Then
txtOutput.Text = CStr(lstStates.Items(middle)) & " begins with " & letters
Else
txtOutput.Text = "No state begins with " & letters
End If
End Sub

.net framework issues

godofwarcreed — Tue, 03 Apr 2012 18:55:40 GMT

how to i create my own installer without using a setup creator or publishing wizard in visual studio. how do other software groups make their setups such as vlc, vuze and any other software

hi every one

godofwarcreed — Fri, 30 Mar 2012 21:12:00 GMT

am writing a software in vb that contains quizes on engineering mathematics . the label control cannot represent my equations well such as limit equations how do i solve this problem guys

VB6 - Weather Data Analysis, In need of assistance.

Posthuman — Wed, 28 Mar 2012 16:27:23 GMT

Hi I'm doing a VB6 project for my course, one of the forms is "Weather Data Analysis"

And the finished product is meant to display results in this format:

Weather Report
Day no Day Temperature (Centigrade)
1 Monday 10
2 Tuesday 11
3 Wednesday 13
4 Thursday 13
5 Friday 15
6 Saturday 10
7 Sunday 09
Average Temperature 11.57 C
Warmest Day Friday
Warmest Temp 15 C

In my current code I am missing "Warmest day: Friday" and "Day" (Monday-Sunday)

Here is my current code for this form, I was wondering if anyone can give me feedback on this so I can complete my project, any help would be appreciated, thanks in advance.

Current code:

Private Sub cmddisplay_Click()
' Print Blank Lines
Print
Print
' Print main heading ten characters from the left
Print Tab(10); "Temperature Data "
'This Loop prints out data for each of seven days
Print
Print Tab(10); "Day "; Tab(30); "Midday Temp (+)"
For i = 1 To 7
Print Tab(10); i; Tab(30); Temp(i)

Next i
Print
Print Tab(10); "Average Temperature "; Tab(35); avgtemp
Print Tab(10); "Highest Temperature "; Tab(35); High

End Sub

Private Sub cmdenter_Click()
Let High = 0
' Keep going even when user keys in incorrect data
On Error Resume Next
Cls
For i = 1 To 7
' The Input Box is used to enter positive temperature data
' The format is Let variable name = InputBox(Propmt to user , Title)
Let Temp(i) = InputBox("Key in Midday Temperature (C) " & i, "Temperature Processing")

Let Tottemp = Tottemp + Temp(i)
If High < Temp(i) Then
Let High = Temp(i)
End If

Next i
Let avgtemp = Tottemp / 7

End Sub

Private Sub CMDreturn_Click()
On Error Resume Next
'Return to menu
Me.Hide
FRMmenu.Show
End Sub

VB help

janu123 — Sun, 25 Mar 2012 07:33:13 GMT

I am doing a project for m y class...its a workshop selector...when u select a workshop ..the state it adds them onto a list box and calculates the total....i did about 98% of the coding...the only thing i need help is when the user does not select a state an error message shud pop up..i tried but i dont get it...my code is as follows

Public Class Form1

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

'define the variables'
Dim decnumofdays As Decimal 'store the num of days'
Dim decregfee As Decimal 'store the regfee'
Dim deccostperday As Decimal 'store the cost perday'
Dim dectotal As Decimal ' store the total'

Select Case lstWorkshop.SelectedIndex()
'Assigned values to workshop list box from items 1-5'
Case 0
decnumofdays = 3
decregfee = 595
Case 1
decnumofdays = 3
decregfee = 695
Case 2
decnumofdays = 3
decregfee = 995
Case 3
decnumofdays = 5
decregfee = 1295
Case 4
decnumofdays = 1
decregfee = 395

Case Else
MessageBox.Show("Please select a workshop")
'Assigned values to location list box from items 1-5'
Select Case lstLocation.SelectedIndex()
Case 0
deccostperday = 95
Case 1
deccostperday = 125
Case 2
deccostperday = 100
Case 3
deccostperday = 95
Case 4
deccostperday = 92
Case 5
deccostperday = 90
Case -1
MessageBox.Show("Please select a state")

End Select

End Select
'calculate the cost when a workshop and a location is chosen '
dectotal = (decnumofdays * deccostperday) + decregfee
'Pass the cost to the cost list box'
lstCost.Items.Add(dectotal.ToString("c"))

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
'define variables'
Dim decgrandtotal As Decimal ' store the rand total'

Dim inx As Integer 'counter'

'Add all the values in the cost list box'
For inx = 0 To lstCost.Items.Count - 1

decgrandtotal = decgrandtotal + CInt(lstCost.Items(inx))
'Display the total cost'
Next
lblTotal.Text = CStr(decgrandtotal)
End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
lstWorkshop.SetSelected(0, False)
lstLocation.SetSelected(0, False) ' clear all listboxes and Total label
lstCost.Items.Clear()
lblTotal.Text = ""
End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()

End Sub

End Class

Can an event be put in another event?

Aeon20 — Sun, 18 Mar 2012 06:32:50 GMT

I'm fairly new to visual basic, i'm trying to make a "program" for selecting 3 different promotion that the store is offering.

It goes as follows:

1.The user must select a special in order to display a special's product picture, regular price and special price.
2.The user cannot add a product to the shopping cart until a special is selected.
3.When a special is selected, only that special's picture and prices should be displayed in the window. No other special should be displayed.
4.After the user selects a special and adds it to the shopping cart, the only allowable user action is to exit the window.
5.A user should be able to exit the window at any time.

I already have an idea how to do it, and I've already did half of the work. The only problem is that after I select the special, I will have the "add cart" button. When I click on the add cart button, the price will be shown next to the cart pic which means it has been added to the cart. Then, the only option will be to exit the window.

But the problem is, how can I make the "add cart" button differentiate between the three different specials and when I choose each of the following specials, when I click the "add car", it will display the chosen special's price.

The only solution I've found is that i put another event in each of the special's event for the "add cart" button so as it can differentiate between each different specials but I don't know how to do it or if it's possible to be done.

I'll be attaching what I've done till now so that you could have a better idea of what i'm trying to say.

And sorry if my english is so good, it's not my native language.

Thanks in advance for your help

Mismatch between Dataset and database

OsOs — Fri, 16 Mar 2012 09:12:46 GMT

I Have problem

the problem is there are Mismatch between the data in Dataset and the data in database

When I add data from my program the data added in the database but is not added in dataset

Pls help me

2d Array help!!

gussy81 — Wed, 14 Mar 2012 18:07:17 GMT

hi guys,

im a newbie!!!
ive created a simple array and have looped through it and printed all the contents of my single array to a list box.

I want to create a 2d array for 3 continents and 5 sample countries from each continent. Again I wan to loop through this 2d array.

does anyone have a sample code snippet similar to what i want to do?

thanks guys
G

how to set database name vb.net oracle db connection string

nadeekadn — Mon, 12 Mar 2012 23:56:07 GMT

how to set database name vb.net oracle db connection string?? i create connection string like this ConnectionString As String = "Data Source=testdb; Persist Security Info=True;User ID=user;password=123;Unicode=True ;" how to mention database name here. plz help......................!!!

Confusing VB Code

smsproul11 — Mon, 12 Mar 2012 14:21:52 GMT

Hello,
I have been frustrated for a week about a code I have been trying to write.
The program is supposed to convert a user entered three-digit number into the number of hundreds, tens and ones in the number they entered. I'm supposed to use integer division and mod in the calculations. The input is any three digit number and the output should be the number of hundreds, the number of tens, and the number of ones.
How do you get the code to return the digits in a user entered number?

This is the code I have written, but it is completely wrong in the processing part because I have no idea what to do:

'This program converts a user-entered three-digit number into the number of hundreds, tens, and ones in the number the user entered.

Public Class frm3DigitSplitter

Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
End
End Sub

Private Sub btnSplit_Click(sender As System.Object, e As System.EventArgs) Handles btnSplit.Click
'Declarations
Dim mintThreeDigitNumber As Integer
Dim intHundreds As Integer
Dim intTens As Integer
Dim intOnes As Integer

'Input
mintThreeDigitNumber = txt3DigitNumber.Text

'Processing
If mintThreeDigitNumber <= 999 Then

intHundreds = (111)
intTens = (11)
intOnes = (1)
End If

'Output
lblHundreds.Text = intHundreds.ToString
lblTens.Text = intTens.ToString
lblOnes.Text = intOnes.ToString

End Sub
End Class

VB.Net DataGridView Cell Editable

remya1000 — Fri, 09 Mar 2012 14:59:53 GMT

I’m using VB.Net.

I’m using DataGridView with ColumnType = DataGridViewTextBoxColumn.

I have 3 columns. Column1, Column2, Column3.

For example:

Column1 Column2 Column3

1 AA AAA

2 BB EDIT

3 CC CCC

If column3’s value = “EDIT”, then I need to edit only that cell.

Here for example: i need to make the Column3’s second cell to be readonly=false.

So i cannot make any changes to (1, AA, AAA), (3, CC, CCC) and (2, BB). Need to make changes only EDIT cell.

I tried this code. CountR is the row in which EDIT values is there.


DataGridView1.Item(2, CountR).ReadOnly = False


DataGridView1.Rows(CountR).Cells(2).ReadOnly = False

But this makes every cell in column editable.

Is there a way i can make some cells editable in column?

If you know how to do it, please help me. if you can provide an example, then that will be so helpful.

Thanks in Advance.

Stuck on calculate assignment to display payment amount? Please help THANKS.

Edikted — Thu, 08 Mar 2012 12:32:06 GMT

Hello community im required to calculate the payment amount for three mortgage loans:

7years at 5.35%

15years at 5.5%

30years at 5.75%

I need to use an array for the different loan amounts. Then display the mortgage amount for each loan.

Here is what I have so far:

Dim LADouble, MPADouble As Double

Const SEVEN_YEARS_INTEGER As Integer = 84

Const INTEREST_RATE_SEVEN_YEARS_DECIMAL As Decimal = 0.0535D

'Convert input values to numeric values.

LADouble = CDbl(LATextBox.Text)

'Calculate values.

MPADouble = (LADouble + INTEREST_RATE_SEVEN_YEARS_DECIMAL) / SEVEN_YEARS_INTEGER

'Format and display answers.

LATextBox.Text = LADouble.ToString("C")

MPATextBox.Text = MPADouble.ToString("C")

My form has two labels & text boxes that say "Enter Loan Amt" & "Mortgage Payment Amt"

I used a combobox with the drop down arrow for the user to select one of the three different terms and years?

Im I on the right track? If anyone can help it would be greatly appreciated. As you can tell this is my first assignment and im kinda lost. Thank you again =)

how to hide assemblies default icon after running any exe in vb.net(Windows app)?

jayawant — Mon, 05 Mar 2012 04:14:55 GMT

Hi All,

how to hide assemblies default icon after running any exe in vb.net(Windows app)?

in vb.net running any exe then its icon will be show in the taskbar.how to hide running exe icon using vb.net?

help me!

Thanks,
Jayawant

Can't understand memory game

blessmyhonor — Mon, 27 Feb 2012 03:25:47 GMT

Guys, i'm fairly new here but i have a major problem.
My best friend is studying for teacher. She works with little kids like the age of what is is 3-7 or smth.
For her internship those kids should be able to play a game on the computer. She was thinking about a memory game so she asked if i could make her one. I agreed, not knowing how difficult this would be for me. Due to some problems *not code related* I've been really discouraged lately. Even my own school suffers from it :s

Now i don't know if someone has a program that does this thing, where i can just change the pictures and it works.
Or if there's someone who could explain and show me the logic and the basic funtionality of a memory game. I'm having a hard time with all the functions it should have. Like how to make vb check 2 pictureboxes that are selected, how to make em flip back, how to know when the game has ended...

I guess you all noticed that i'm kinda affraid that i won't be able to pull this off. This bothers me allot since I promised this.... And as you all know a promise is a promise.. I hate saying words without meaning.. So i don't want to let her down..

I may be asking much, maybe not i have no idea but i'm really clueless here...

CBC Code

Roni — Sun, 04 Mar 2012 14:31:19 GMT

Hai...
would u like help me...
i need code about cipher block chaining (CBC) in VB,

thanks....

adodc1 to adodc2

softwareEng — Tue, 28 Feb 2012 21:46:37 GMT

hey ! good day .. do help me widd my problem . how can i put my data into another data grid ?

Inventories Project

hanhotmail — Tue, 21 Feb 2012 04:28:34 GMT

Helppppp..... could some one help me ? I need and inventory program....

using the keydown function in a timer

samqweqwe3 — Tue, 14 Feb 2012 18:36:09 GMT

hi, I am making a game that involves using the arrow keys I have been using the keydown function for the form but when i use it now all the timers seem to stop. this was my previous code for the arrow keys using the keydown function:

If e.keydata = keys.up Then
If pbxship.Top <= 77 Then
pbxship.Top += 10
Else
pbxship.Top -= 10
End If
ElseIf e.keydate = keys.down Then
If pbxship.Top >= 800 Then
PbxLazer.Top -= 10
Else
pbxship.Top += 10
End If

now i am trying to use a timer to use the arrow keys and i am using this

Private Declare Function GetKeyState Lib "user32" (ByVal keyCode As Integer) As Short

If GetKeyState(Keys.Up) Then
If pbxship.Top <= 77 Then
pbxship.Top += 10
Else
pbxship.Top -= 10
End If
ElseIf GetKeyState(Keys.Down) Then
If pbxship.Top >= 800 Then
PbxLazer.Top -= 10
Else
pbxship.Top += 10
End If

but this does not do anything like the keys are not pressed, does anyone know how to make it work or a different way to do this in a timer

thanks in advance

VB.Net 2008 Print DataGridView (Text Wrap top header column and lock in width)

remya1000 — Tue, 31 Jan 2012 16:12:59 GMT

I’m using VB.Net 2008 application program.

I’m using DataGridView. I have a Print option where i need to print the DataGridView.

I’m using this code for Printing and for Print Preview.

Dim MyDataGridViewPrinter As DataGridViewPrinter

Private Function SetupThePrinting() As Boolean

Dim MyPrintDialog As PrintDialog = New PrintDialog()

MyPrintDialog.AllowCurrentPage = False

MyPrintDialog.AllowPrintToFile = False

MyPrintDialog.AllowSelection = False

MyPrintDialog.AllowSomePages = True

MyPrintDialog.PrintToFile = False

MyPrintDialog.ShowHelp = False

MyPrintDialog.ShowNetwork = False

PrintDocument1.PrinterSettings = MyPrintDialog.PrinterSettings

PrintDocument1.DefaultPageSettings.Margins = New Margins(10, 10, 10, 10)

MyDataGridViewPrinter = New DataGridViewPrinter(DataGridView1, PrintDocument1, False, True, "Price Manager", New Font("Tahoma", 18, FontStyle.Bold, GraphicsUnit.Point), Color.Black, True)

Return True

End Function

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

Dim more As Boolean

Try

more = MyDataGridViewPrinter.DrawDataGridView(e.Graphics)

If more Then e.HasMorePages = True

Catch Ex As Exception

End Try

End Sub

' The Print Preview Button

Private Sub btnPrintPreview_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrintPreview.Click

If SetupThePrinting() Then

Dim MyPrintPreviewDialog As PrintPreviewDialog = New PrintPreviewDialog()

MyPrintPreviewDialog.Document = PrintDocument1

MyPrintPreviewDialog.ShowDialog()

End If

End Sub

' The Print Button

Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click

If SetupThePrinting() Then PrintDocument1.Print()

End Sub

Attached the class i'm using for print.

I have 10 fields showing in datagridview. As the last 5 columns header is long, the datagridview is not fitting inside 1 page (not showing all 10 fields in one single page). But is there a way i can "Text Wrap" the top header column and lock in the width, then it should print across one page perfectly.

I searched a lot, but I couldn’t find it.

If you know how i can "Text Wrap" the top header column and lock in the width to print across one page, please help me. If you can provide an example, that will be so helpful.

Thanks in advance.

VS2010 DLL Problem?

jamesecox50 — Fri, 10 Feb 2012 15:06:37 GMT

I have VS2010 .dll project that needs to contain a form, I have added a form to the Project called frmFeedback. A VBscript (.vbs) has to create this object then call start_Feedback to open the Form. This worked when the object was created in VB6, now the Form opens and closes immediately.

HELP!

.NET Code

Public Class Info
Dim myForm = New frmFeedback
Public Sub Start_Feedback()
myForm.Show()
MsgBox("1")
End Sub
Public Sub Close_Feedback()
myForm.Close()
End Sub
End Class

VBS Code

Set objFeedback = CreateObject("Script.Info")
objFeedback.Start_Feedback

Crate & Restore Access database in vb.net

haqayyum — Fri, 03 Feb 2012 03:00:31 GMT

i want to do when i click btnBrows button the SaveDailogue box will appear and then i give the custome file name and path where i want to save the backup not replace the existing backup but create the new backup in the distination path

The following code is replacing the existing database in the default directory and also not showing the saveDialogue box in order to save custome file name and path. my code is an under plz help me according to my above information

Imports System.IO

Public Class Form1

Private Sub btnCreateBackup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateBackup.Click

Try

Dim s As StreamWriter

Dim portfolioPath As String = My.Application.Info.DirectoryPath

If Not Directory.Exists("C:\Backup") Then

Directory.CreateDirectory("C:\Backup")

File.Create("C:\ Backup\PFCDB.Mdb").Close()

File.Create("C: \Backup\Backup log.TXT").Close()

s = New StreamWriter("C:\Backup\Backup log.TXT", True)

s.WriteLine("This backup was initially taken on - " & Date.Now)

s.Flush()

s.Close()

FileCopy(portfolioPath & "\PIS.mdb", "C:\Backup\PFCDB.Mdb")

s = New StreamWriter("C:\Backup\Backup log.TXT", True)

MsgBox("New directory and backup file created")

Else

FileCopy(portfolioPath & "\PFCDB.mdb", "C:\Backup\PFCDB.Mdb")

s = New StreamWriter("C:\Backup\Backup log.TXT", True)

s.WriteLine("This backup was latest updated on - " & Date.Now)

s.Flush()

s.Close()

MsgBox("Back up completed successfully")

End If

Catch ex As Exception

Dim MessageString As String = "Report this error to the system administrator: " & ControlChars.NewLine & ex.Message

Dim TitleString As String = "Employee Master Details Data Load Failed"

MessageBox.Show(MessageString, TitleString, MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

Private Sub btnRestoreBackup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRestoreBackup.Click

Try

Dim portfolioPath As String = My.Application.Info.DirectoryPath

If MessageBox.Show("Restoring the database will erase any changes you have made since you last backup. Are you sure you want to do this?", _

"Confirm Delete", _

MessageBoxButtons.OKCancel, _

MessageBoxIcon.Question, _

MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.OK Then

FileCopy("C:\Backup\PFCDB.Mdb", portfolioPath & "\PFCDB.mdb")

MsgBox("Database Restoration Successful")

End If

Catch ex As Exception

Dim MessageString As String = "Report this error to the system administrator: " & ControlChars.NewLine & ex.Message

Dim TitleString As String = "Employee Master Details Data Load Failed"

MessageBox.Show(MessageString, TitleString, MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

End Class

HOW TO CREATE AND RESTORE AN ACCESS 2003 OR 2007 DATABASE IN VB.NET 2008

haqayyum — Wed, 01 Feb 2012 06:55:54 GMT

Dear fellows

I have been completed a project in vb.net 2008 and access 2003 but there is only a lack in my project that there is no create and restore database option in order to avoid any inconvinience.

plz tell me how to create and restore access db in vb.net 2008 if anyone have source code plz send me it will be greatly appriciated.

thanx

email validation

blueye89 — Mon, 30 Jan 2012 20:33:00 GMT

Hi,I have a question for anyone who knows to resolve.
I making an "sign in" application for checking email address with username and password as input.As output it will show me msgbox with content "Your email and password are correct!" or Not.

There is a code:

[code]
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Declare variables
Dim sSelectedSMTPServer As String = ""
Dim iSelectedSMTPPort As Integer

'Check wich email account is selected and provide correct smtp address / port.
Select Case True
Case CheckBox1.Checked
sSelectedSMTPServer = "smtp.gmail.com"
iSelectedSMTPPort = 587
Case CheckBox2.Checked
sSelectedSMTPServer = "smtp.live.com"
iSelectedSMTPPort = 587
Case CheckBox3.Checked
sSelectedSMTPServer = "smtp.mail.yahoo.com"
iSelectedSMTPPort = 465
Case Else
'If no account is selected you will get a message and the program will not attempt to send the email.
MsgBox("Please choose your email service.", vbInformation)
End Select
'For multiple selection
If CheckBox1.Checked And CheckBox2.Checked Then
MsgBox("You must select only one email service.", vbInformation)
ElseIf CheckBox1.Checked And CheckBox3.Checked Then
MsgBox("You must select only one email service.", vbInformation)
ElseIf CheckBox2.Checked And CheckBox3.Checked Then
MsgBox("You must select only one email service.", vbInformation)
ElseIf CheckBox1.Checked And CheckBox2.Checked And CheckBox3.Checked Then
MsgBox("You must select only one email service.", vbInformation)
End If

Exit Sub

Dim SMTP As New SmtpClient
'SSL enabled for outgoing mail.
SMTP.EnableSsl = True
'Get login credentials.
SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
'SMTP Port that will be used.
SMTP.Port = iSelectedSMTPPort

Try
What???
MsgBox("Successfully logged", MsgBoxStyle.Information, "Report")
Me.Close()
Catch ex As Exception
MsgBox("Unsuccessfully logged", MsgBoxStyle.Exclamation, "Report")
End Try
End Sub
[/code]

HELP! ANYONE! PLS! BADLY NEEDED! URGENT! (((

bugel_0013 — Sun, 29 Jan 2012 09:20:29 GMT

hello guys,maam/sir,

goodday! is there anyone wants to help about my project?? :'(
i need a vb.net 2008 code for the game "tower bloxx"..
this is for the sake of my graduation :'( anybody?? thanks
kindly reply to this post thnaks in advance ...godbless(iknow im not that good in english)

VB.Net 2008 Sort DataGridViewTextBoxColumn Numeric values

remya1000 — Fri, 27 Jan 2012 16:03:48 GMT

I’m using VB.Net 2008 application program.

I’m using DataGridView, where column types DataGridViewTextBoxColumn. I have 3 fields. 1 field values are numeric, 1 field values are string and 1 field values are decimal.

When I try to sort the string value column, it sorts correctly. But when i try to sort the numeric value column, it sorts as if its string value.

I searched a lot to make it sort numerically. But I couldn’t find it.

If you know how i can sort that column, please help me. If you can provide an example, that will be so helpful.

Thanks in advance.