DaniWeb IT Discussion Community - VB.NET

Assigning an icon to an extension saved by .net application

A.Najafi — Sat, 07 Nov 2009 16:11:44 GMT

Hi All,
Using Visual studio 2008, I have an application that its data can save to a binary file, using *.SDB extension, Moreover users can open this file from my application. I have 2 questions about this.
1- How can I assign an icon to this saved file with SDB extension when my application has been installed in other computer?
2- Similar to *.sln file (for Visual Studio project), How can I assign tow icon to single extension? For example when a solution is saved with visual studio 2005 its icon different from that one saved from visual studio 2008. In first, the solution’s icon contains “5” but in 08 solution’s icon contains “8”.
Thanks Again.

The publisher could not be verified...

JohnDove — Sat, 07 Nov 2009 13:15:45 GMT

When users run my vb2008 executable they get the windows security message "The published could not be published. Are you sure you want to run this software?"

Is there any way to get rid of this message when users run my app? Or do individual users need to change their security settings?

Many thanks

Cannot Open Flash Files From the VB.Net EXE

a_arunsankar — Sat, 07 Nov 2009 05:41:13 GMT

I have created a small application to open the Flash File from my VB.Net Windows Application. To open the Flash file - I have used the Shockwave Flash Object. When I run the application directly from the Solution, the flash files are opening perfectly. But, once I created the EXE and tried to open the same file, I could not. But I can still open other files such as XML, PDF, and Word file from the same directory.

Can Anyone Help me?

Thanks,

ArunSankar

Convert 1-Dim String Array to String

Darkicon — Sat, 07 Nov 2009 04:14:53 GMT

I'm working on a mass text replacer program because I'm sick of all the 10-day trial ones out there that aren't very good.

The entire program is basically finished (All easy stuff), but now I need to code the actual replace/delete stuff, which I'm stuck on because apparently the way I originally intended to do it is not possible.

The way it works is you load a text file (.txt, .cfg, .ini, .doc, etc.) which opens a StreamReader which writes all the data into a listbox. Then you pick whether you want to replace or delete a string. If you select replace, then you enter the string to search for and in another textbox you enter the string to replace it with.

The way I originally intended to do this was like this:

If o1.Text = "Replace" Then 'The option

    Replace(txtfile, str1, a1) 'txtfile is the data, str1 is the string to find and a1 is the replacement

End If

The problem is, I believe this method requires txtfile, str1 and a1 to be strings, but they're all 1-dimensional string arrays, which cannot be converted to strings, or at least I don't know how to convert them.

A friend told me one way I could do this is to open both a StreamReader and StreamWriter and do the replace/delete line by line as they are entered into the memory and write them to a temporary file which is then copied over the original. I can do this kind of, but I still don't know the proper way of doing the actual replace code because the string to find and the string to replace with are still 1-dimensional string arrays rather than strings.

I can't think of any other way to do this, due to I'm not that experienced in VBNet. Any help is greatly appreciated.

Web Browser Help.

Gangstafier — Sat, 07 Nov 2009 03:37:16 GMT

I am currently trying to create a Web Design program, freeware, for use to help with the aid of web design. I want it to be sorta like... "Web-Design-Toy" by ACME, only with more features. To where when you type in the textbox, it comes out in a live view using a web browser. Anybody have any ideas of how to code that with Visual Basic 2008 Express Edition!?! Please and Thank-You!!!

ContextMenuStrip

VIPER5646 — Sat, 07 Nov 2009 02:52:20 GMT

HI

I'm trying to use a menu on a datagridview, I have put a Contextmenutrip on the form. When I right click in a cell
I would like a menu to pop up. but nothing happens.
This is the code I have tried.

   Private Sub CustomerPopMenu_ItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs)



        Select Case e.ClickedItem.ToString()



            Case "Edit"

                MsgBox("Edit")



            Case "Delete"

                MsgBox("Delete")

        End Select



    End Sub

Serial State Change Monitoring

tyesbooks — Fri, 06 Nov 2009 23:16:18 GMT

HI,
What I am trying to do is find a program that will track incoming information through a serial port and log any state changes. If anyone has any ideas on how to solve this problem please let me know.

String length problem

glennt — Fri, 06 Nov 2009 19:28:52 GMT

I understood that a string in VB .Net maximum length was quite large (could be way over 1000 characters) but do not know for sure. I keep having a problem when I concatenate one string to another and the result is the second string.

Example:
Str1 = “this is the first test”
Str1 &= “this is the second test”

Now Str1 = “this is the second test”

The lengths of the strings in the example are not correct (much longer) but are under 1000 characters. Does anyone have a clue?

Code Snippet Keypress event

pardeep3dec — Fri, 06 Nov 2009 14:31:14 GMT

Dear Sir,
I am completely new to VB.NET but i worked in VB6.0 very well. My problem in VB.net is that i need a code through which i can print a message box which will show what key is pressed like control , alt,1,.,2 etc. Please help me.
or other way
i want to deactivate ctrl key when a particular form is loaded.
Please help

Thanks

pardeep

Issue using Like in VB query to Access DB

Loony064 — Fri, 06 Nov 2009 10:09:41 GMT

Hi Everyone

I'm designing a program with a front end vb.net (2007 Express version) app and a back-end Access 2007 database. I've added the following query to the database dataset (SAUJSDataSet). I have a table which contains information of students and there is a search form where the user can input a variety of search parameters depending on how specific they want their search to be. I used the following query

SELECT * FROM Students WHERE (FirstName LIKE '%' + ? + '%') AND (LastName LIKE '%' + ? + '%') AND  (TelNum LIKE '%' + ? + '%') AND (CelNum LIKE '%' + ? + '%') AND (Email LIKE '%' + ? + '%') AND (University LIKE '%' + ? + '%')  AND (Degree LIKE '%' + ? + '%')

The query is called as follows when the search button is pressed, where fname, lname, tel, cell, email, univ and degree are variables storing the relevant search criteria.

Me.StudentsTableAdapter.FillBySearchStudentG(SaujsDataSet.Students, fname, lname, tel, cell, email, univ, degree)

It works fine if all the fields in the table that are searched have a value in it (i.e, so long as each record has a first name, last name, telnum, celnum, email, university and degree) but the moment one of those fields is blank in the database (e.g. the person doesn't have an email address) it won't include that record in the results even if no email address is entered in the search parameters and the record matches all other search criteria.

How can i modify my code so that it will return records with no data in specific fields so long as there is nothing specified in that field in the search criteria (e.g. search for FirstName = "Sar", LastName = "Sm", telnum, celnum, email, university and degree are left blank, should return the record with FirstName = "Sarah", LastName = "Smith", telnum ="1234567890", celnum = "0987654321", email = "", ... and so on

I hope i've made some sense with what I'm trying to ask. I'd appreciate any help with this.

Thanks
Laura

vb.net, database manipulation

Brian2sos — Fri, 06 Nov 2009 05:59:21 GMT

Hello all you geniuses out there... Long time reader first time poster,

So, here is what I'm trying to do.

The program I am trying to construct is for tracking when a person has entered a location. Each person has an RFID card. When a person passes a point, the RFID tag is read and the reader outputs virtual keystrokes. The reader keyboard wedge will output a 6 digit integer.

The program will be left on the run screen, each time a card is read it is placed into a multi-line text box. Every 15 mins or so, the program must read each of the 6 digit numbers, locate them in the database, and change the number of times the card has been read and the time it was read.

What I have so far

So I have no problem creating a data set and filtering that data set and also I have no problem creating user info and writing that to the database. The problem I have is searching for a specific record in my database and then having the program change certain data and update the database.

Here is a sample program I made to test my search method

Public Class Main



    Private Sub ListingBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListingBindingNavigatorSaveItem.Click

        Me.Validate()

        Me.ListingBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.CarTrackerDataSet)



    End Sub



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

        'TODO: This line of code loads data into the 'CarTrackerDataSet.CarType' table. You can move, or remove it, as needed.

        Me.CarTypeTableAdapter.Fill(Me.CarTrackerDataSet.CarType)

        'TODO: This line of code loads data into the 'CarTrackerDataSet.Make' table. You can move, or remove it, as needed.

        Me.MakeTableAdapter.Fill(Me.CarTrackerDataSet.Make)

        'TODO: This line of code loads data into the 'CarTrackerDataSet.Color' table. You can move, or remove it, as needed.

        Me.ColorTableAdapter.Fill(Me.CarTrackerDataSet.Color)

        'TODO: This line of code loads data into the 'CarTrackerDataSet.Listing' table. You can move, or remove it, as needed.

        Me.ListingTableAdapter.Fill(Me.CarTrackerDataSet.Listing)



    End Sub





    Private Sub FillByColorNameToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillByColorNameToolStripButton.Click

        Try

            Me.ListingTableAdapter.FillByColorName(Me.CarTrackerDataSet.Listing, ColorNameToolStripTextBox.Text)

        Catch ex As System.Exception

            System.Windows.Forms.MessageBox.Show(ex.Message)

        End Try



    End Sub





    Private Sub tsbFilterByMake_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbFilterByMake.Click

        Dim filteredByMake = From Listing In Me.CarTrackerDataSet.Listing _

                             Join Make In Me.CarTrackerDataSet.Make _

                             On Listing.MakeID Equals Make.MakeID _

                             Where Make.MakeName.ToLower() Like _

                             "*" & Me.tstbFilterByMake.Text.ToLower() & "*" _

                             Select Listing



        Try

            Me.ListingBindingSource.DataSource = filteredByMake.CopyToDataTable

        Catch ex As System.InvalidOperationException

            MessageBox.Show("No matching data")

        End Try



    End Sub



    Private Sub tsbFilterByCarType_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbFilterByCarType.Click

        Dim filteredByCarType = From Listing In Me.CarTrackerDataSet.Listing _

                                Join CarType In Me.CarTrackerDataSet.CarType _

                                On Listing.CarTypeID Equals CarType.CarTypeID _

                                Where CarType.CarTypeName.ToLower() Like _

                                "*" & Me.tstbFilterByCarType.Text.ToLower() & "*" _

                                Select Listing



        Try

            Me.ListingBindingSource.DataSource = filteredByCarType.CopyToDataTable

        Catch ex As System.InvalidOperationException

            MessageBox.Show("No matching data")

        End Try



    End Sub

End Class

Any ideas??

Help with Reverse Problem

RgCz — Thu, 05 Nov 2009 22:59:01 GMT

In Visual Basic 2008 Express edition: Create a new string replacing the order of the words, from last one to the first one and show it in a text box
Example:
Input: “This is an example”
Output: “example an is This”

I know theres a function to reverse the letters (StrReverse), but the order of the words? Please someone help me out.

Hotel Occupancy formHelp

hhh0505 — Thu, 05 Nov 2009 22:05:52 GMT

i'm new to visual basic and I managed to make somewhat of an assignment I need. now it's not perfect but, I am terrible when it comes to calculations... what am I doing wrong? ;-;

' This procedure calculates and displays each floors
' occupancy rate.

Dim intCount As Integer ' Loop counter
Dim decoccupancy As Decimal ' occupancy rate

' Calculate the occupancy rate for each floor, the total
' of all occupancy rates , and the total rooms occupied.

For intCount = 0 To intMAX_floor = 250
decoccupancy = introoms(intCount) * decroom_occupancy_RATE
decoccupancyrate(intCount) = decoccupancy
decTotaloccupancyrate /= decoccupancy
intTotalrooms &= Int(intCount)

it's telling me to divie the number of rooms by the occupied rooms... 18/30 = .6 or 60%
and the hotel has 240 rooms

Not sure wat direction to go in now.... Thanks

Can I have a message box pop up in a form that is called via ShowDialog?

rciprogrammer — Thu, 05 Nov 2009 21:11:24 GMT

I have a form that is called w/ ShowDialog. Inside that form, I want to pop a message box to ask the user a question, but it doesn't show.

Form:

Dim someFrame as myFrame = new myFrame

someFrame.ShowDialog()

Then, inside that form:

Dim ans As MsgBoxResult

ans = MsgBox(transarr(16), MsgBoxStyle.YesNo + MsgBoxStyle.SystemModal, "WARNING!")



If ans = MsgBoxResult.Yes Then

  'do something

Else

 'do something else

End If

Is this possible to get working?

Voice Recognition System

gagansharma — Thu, 05 Nov 2009 19:02:42 GMT

Hello,Frndz i am new in vb.net.I hav done all of its basics.Can somebody help me to make a Voice Recognition System in vb.net .
Actually i want user to give voice commands through microphone and his computer do the same.I don't need pet code or full Project I want guidance and ideas on those i can float to my aim.Thanx................

Help with class

songweaver — Thu, 05 Nov 2009 18:19:46 GMT

Hey guys, I am having trouble building this class, my teacher is not very helpful. Here is the code I have been working on, I am still confused on methods, constuctors, properties, etc. He gave me a wierd example to try to follow. Here are the requirements my teacher wants as well as the code:

. Design a class named Rectangle to represent a rectangle. The class contains:
• Two double data fields named dblwidth and dblheight that specify the width and height of the rectangle. The default values are 1 for both dblwidth and dblheight.
• A string data field named strcolor that specifies the color of a rectangle. Hypothetically, assume that all rectangles have the same color. The default color is white.
• A no parameter constructor will be created which represents the default rectangle.
• A three parameter (width, length, color) will be created.
• Three properties (width, length, and color) will be created.
• A method named getArea() will be created to find the area (area = width * length).
• A method named getPerimeter() will be created to find the perimeter (perimeter = 2 * width + 2 * length).
Write a test program in Windows that asks for the width, length and color of a rectangle and find the area and perimeter.

Public Class Rectangle



    Private dblWidth As Double

    Private dblHeight As Double

    Private strColor As String

    Public Sub New(ByVal vwidth As Integer, _

                    ByVal vlength As Integer, _

                    ByVal vcolor As String)

        width = vwidth

        length = vlength

        color = vcolor

    End Sub

    Public Property width() As Integer

        Get

            Return dblWidth()

        End Get

        Set(ByVal value As Integer)

            dblWidth = value

        End Set

    End Property



    Public Property length() As Integer

        Get

            Return

        End Get

        Set(ByVal value As Integer)



        End Set

    End Property



    Public Property color() As String

        Get



        End Get

        Set(ByVal value As Integer)



        End Set

    End Property



    Public Sub getArea()

        Dim area As Integer = width * length



    End Sub



    Public Sub getPerimeter()

        Dim perimeter As Integer = (2 * width) + (2 + length)



    End Sub

End Class

Printing in VB.NET

adonweb — Thu, 05 Nov 2009 13:46:20 GMT

I am creating cheque printing application using VB.Net and MS Access.

Which is the best way to print a cheque in VB.NET where the data stored in access.

I am newbie to windows developement.. Using VB 2005 express edition.

Thanks

Help with array

songweaver — Thu, 05 Nov 2009 05:08:56 GMT

Hey guys need help with this problem that is suppose to read an unspecified number of scores and determines how many scores are above or equal to the average and how many scores are below the average. Enter a negative number to signify the end of the input. Assume that the maximum number of scores is 100. Anyway here is what I have so far. I know I'll need an array for the add button and a calculate that will need to access the array. My teacher is not very helpful. Here is what I have so far. I am completely lost.

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

        Dim getAverage() As Integer = txtAddScore.Text{getAverage1, getAverage2}

        Do While getAverage(99) > 0

        Loop

    End Sub

Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click



    End Sub

End Class

How to print data from vb form?

michelle2025 — Thu, 05 Nov 2009 02:54:46 GMT

Hi all,

I want to print out the searched data from vb form, what command should I put it?
I had add the "Print" button, but do not know where to start to programme.
Thanks.

Changing time in datetimepicker

lolwtf — Wed, 04 Nov 2009 22:06:01 GMT

I have 2 datetimepickers on my form, and I use them to pass parameters to my sql queries for reporting purposes. You would use them to pick a date range and display clock in times for employees. Anyway, I need an option so users can see information from a single day(24 hour timespan) My first Idea was to let the user change the date on the first datetimepicker then changing the time to 12:00 AM then the second datetimepicker to 11:59 PM. I want to be able to do this programmatically, but I couldnt figure out how to change the time. I feel so stupid please give me some advice.

Problem with form

songweaver — Wed, 04 Nov 2009 21:37:06 GMT

Hey guys I am a newbie to VB and need help with this form,
The idea is that people enter there age and if they over 65 and are a member its one price, if they are under 65 its one price and if they are not a member it is one price. Age is entered into a textbox, memberahip is indicated by a checkbox and the price is then displayed in a textbox. Anyway I a confused about why it is not calculating. Here is what I have so far. Again I am very new to VB.

Public Class Form1



    Private Sub btnPrice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrice.Click

        Dim getAge As Integer = txtAge.Text

        Dim isChecked As Integer = chkMemeber.Checked

        Dim showPrice As Integer = txtPrice.Text

        If getAge > 65 And isChecked = True Then

            txtPrice.Text = 5

        ElseIf getAge < 65 And isChecked = True Then

            txtPrice.Text = 10

        ElseIf isChecked = False Then

            txtPrice.Text = 20

        End If





    End Sub

End Class

Visual Basic.Net Data types

oluscoa — Wed, 04 Nov 2009 20:24:12 GMT

Using Visual Basic .Net, explain what each variable type listed below holds, how big it is (i.e. the number of bytes it uses) and give an example of how it might be used.

Data Type Explanation space occupied Example
Text
Integer
Floating point
Date
Boolean
Bytes

saving pictures to Access using ADO

Leodumbi — Wed, 04 Nov 2009 14:54:38 GMT

Hi Guys

please I need your help.

I'm creating this small application that will control some equipments based on its bar code and the owner picture.

everything is working fine, except the picture.

is there a way to save image to access database using ADO Connections and\or recordsets?
I've head its possible to store the path and the retrieve. does any body have a step by step tutorial?

I would really appreciate your quickest answer

Thank you

my app example

/code
With rs

.AddNew()
.Fields("Nome").Value = txtName.Text
.Fields("CAI").Value = txtCAI.Text
.Fields("Empresa").Value = cbCompany.Text
.Fields("Departamento").Value = txtDepartment.Text
.Fields("Extensao").Value = txtPhone.Text
.Fields("Passe").Value = txtPass.Text
.Fields("Tipo").Value = cbTipo.Text
.Fields("Marca").Value = txtMarca.Text
.Fields("Modelo").Value = txtModelo.Text
.Fields("Serie").Value = txtNSerie.Text
.Fields("Data").Value = Date.Today

.Update()
.Requery()
clear()
rs.Close()
Call Imagem()

End With
'Else
With rs
.Fields("Nome").Value = txtName.Text
.Fields("CAi").Value = txtCAI.Text
.Fields("Empresa").Value = cbCompany.Text
.Fields("Departamento").Value = txtDepartment.Text
.Fields("Extensao").Value = txtPhone.Text
.Fields("Passe").Value = txtPass.Text
.Fields("Tipo").Value = cbTipo.Text
.Fields("Marca").Value = txtMarca.Text
.Fields("Modelo").Value = txtModelo.Text
.Fields("Serie").Value = txtNSerie.Text
.Update()
End With
'End If
End Sub
\code

Visual Basic Databases

ghost-virus — Wed, 04 Nov 2009 14:31:34 GMT

I am an IT student and working on a project. Since we have not yet been taught
about databases, can anyone show me basically how you design and create
an access database in Visual Basic 6?

DLL debugging

WillC9999 — Wed, 04 Nov 2009 13:03:26 GMT

Hi, I am having some 'fun' with a VB.Net DLL. I have written and debugged my DLL, built it and copied the .dll file to a separate 'live' folder. Calling applications will reference the DLL in this folder.
Now, when there is an error in my application the DLL code appears on a new tab. Whilst this allows the developer to run through the code which is nice for debugging the application it scares me - will any 'accidental' edits to the DLL code be saved? This would be bad.
I thought this behavious only happened when you used the 'debug' output of building the DLL - I am (I think) using the 'release' version.
All suggestions appreciated!

CPU Usage

raghavpraveen — Wed, 04 Nov 2009 09:54:54 GMT

Hi friends,

Can you please help how to find cpu usage information through net-snmp using .net application.

Thanks

is this right in asp.net also

mshravs — Wed, 04 Nov 2009 07:53:25 GMT

this is the code in vb.net for searching when a serial number is given from the sqldatabase.....................

Private Sub s2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s2.Click

        Dim a As Integer

        Dim b As Boolean

        Dim connection As OleDb.OleDbConnection

        Dim command As OleDb.OleDbCommand

        Dim dr As OleDb.OleDbDataReader

        connection = New OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;data source='e:\amit kumar\nic hyd\nichyd.mdb'")

        connection.Open()

        command = New OleDb.OleDbCommand("select *from gate_pass", connection)

        dr = command.ExecuteReader

        b = False

        If (sno2.Text = "") Then

            b = True

            MessageBox.Show("enter the serial number first")

        Else

            Try

                a = Integer.Parse(sno2.Text)

                While dr.Read()

                    If (a = dr(0)) Then

                        Dim bytImage() As Byte

                        bytImage = CType(dr(9), Byte())

                        Dim ms As New System.IO.MemoryStream(bytImage)

                        Dim bmImage As New Bitmap(ms)

                        Form5.r0.Text = dr(0)

                        Form5.r1.Text = dr(1)

                        Form5.r2.Text = dr(2)

                        Form5.r3.Text = dr(3)

                        Form5.r4.Text = dr(4)

                        Form5.r5.Text = dr(5)

                        Form5.r6.Text = dr(6)

                        Form5.r7.Text = dr(7)

                        Form5.r8.Text = dr(8)

                        Form5.picout.Image = bmImage

                        Form5.picout.Refresh()

                        b = True

                        dr.Close()

                        connection.Close()

                        Me.Hide()

                        Form5.Show()

                        Exit While

                    End If

                End While

            Catch ex As FormatException

                Me.ErrorProvider1.SetError(sno2, "please enter a numeric value")

                MessageBox.Show("please enter a numeric value")

                sno2.Focus()

                b = True

            End Try

        End If

        If (b = False) Then

            MessageBox.Show("No data found matching to this serial number")

        End If

        dr.Dispose()

        connection.Dispose()

        dr.Close()

        connection.Close()

        sno2.Text = ""

        Me.ErrorProvider1.Clear()

        

    End Sub

is this one right in asp.net coding also. if there are any changes plz mention it thanking you

How to add aHow to add Datetimepicker in datagridview column?

jetjash — Wed, 04 Nov 2009 06:08:52 GMT

Using VB.Net

I have the Datagridview control, In Datagridview one of the column I want to use Datetimepicker control Inside of the column.

For Example,

Datagridview Control

Column1 column2 column3 column4

Datetimepicker1 Checkbox
Datetimepicker1 Checkbox
…..,

In whole column2 I want to add the datetimepicker1 control

I gone through the google,

I got this links

http://msdn2.microsoft.com/en-us/library/7tas5c80.aspx

I added the datagridview control in the form, and then I added the above link code in my form. I try to run it showing the error.

Any other helpful and simple way (links or code) is available for adding the Datetimepicker in Datagridview column.

Please need vb.net code Help

VB 2008 & Database Issues

JonnyHawes — Wed, 04 Nov 2009 03:28:06 GMT

Hello everyone!

So as my first post, I would like to say I am in no way unfamiliar with Visual Basic or programming in general, but this Database integration is giving me quite a problem! lol

So basically I have a VB 2008 Project with a single form that displays a list of guitars that I have in a SQL Database. I made the Database inside of VB with the "Add Data Connection" option. It should also be known I know very little about SQL in general. The information in the columns is placed in its own text box to be displayed.

My problem is I can not figure out how to "Add" or "Delete" Records to/from my Database.

My original plan was to have the Binding Source Navigator work all these functions for me. The Add worked fine (as long as you did not leave any necessary boxes blank), and Delete worked to an extent. I added a simple "Double Check" box that asked if they are sure they wanted to delete the entry. But no matter your answer, it deleted it anyways. So I decided it would be easier to just move the Add and Delete functions to command buttons.

Problem there is, I have no clue on how to even start. And all my "Googling" can not provide me with an adequate answer.

I will be happy to get some Code and Pics of the project to simply what I am saying as soon as my VMWare Fusion is updated and working.

Oh Im a Mac user, did I mention that? :) haha

Thanks in advance everyone!

code to clear all textboxes in a form

little marine — Wed, 04 Nov 2009 03:00:44 GMT

I am trying to find a code to clear all text boxes in a form. I am using VB8
Here is the code I found but I get an error telling me I need a comma between two arguments

Private Sub btnclearall_Click

Dim ctl As New Control

For Each ctl In Me.Controls

Next

If Typeof ctl Is textbox Then

Dim txtcontrol As Textbox = Directcast (ctl.Textbox)

Me.text = StringEmpty

Thanks

Swapping values

songweaver — Tue, 03 Nov 2009 22:23:58 GMT

Hey guys here is the problem I have two variables that need their values switched , but only if the value stored in the first is less than the value stored in the second. Tried a couple of things, but am at a brick wall, I am a newbie to VB.

Public Class Form1



    Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click

        Dim getMarySales As Integer

        Dim getJeffSales As Integer

        If getMarySales < getJeffSales Then

            getJeffSales = txtGetMarySales.Text

            getMarySales = txtGetJeffSales.Text

        End If









    End Sub

How to add strings that contain amounts

JRabbit2307 — Tue, 03 Nov 2009 19:15:12 GMT

'Radio Choice Selection

        Console.WriteLine("Please enter the Radio Choice for your vehicle: ")

        Console.WriteLine("Enter 1 for AM/FM Radio")

        Console.WriteLine("Enter 2 for AM/FM/CD/DVD")

        strRadioChoice = Console.ReadLine()

        Select Case strRadioChoice

            Case "1"

                Console.WriteLine("Price : $100")



            Case "2"

                Console.WriteLine("Price : $400")



            Case Else

                Console.WriteLine("Invalid selection")



        End Select



        SellingPrice = BasePrice + strEngineChoice + strInteriorChoice + strRadioChoice + ShippingCharge + DealerCharge

        Console.WriteLine("The total selling price for your vehicle is $" + SellingPrice)

        Console.WriteLine()

        Console.WriteLine("Press Enter to Exit")

        Console.ReadLine()

Need to convert from string to integer

JRabbit2307 — Tue, 03 Nov 2009 18:24:41 GMT

How would I ask the user to input what type of engine they want and getting an output of $150

Console.WriteLine("Enter EngineChoice for your vehicle:")

        Response = Console.ReadLine()

        EngineChoice = Convert.ToString(Response)



        If EngineChoice = Sixcylinder Then

            Convert.ToInt32(Response)

            Console.WriteLine(150)

        ElseIf EngineChoice = Eightcylinder Then

            Console.WriteLine(475)

        ElseIf EngineChoice = Diesel Then

            Console.WriteLine(750)

Keeping spaces when extracting text from HTML

jamesrobb — Tue, 03 Nov 2009 14:59:25 GMT

Hi,

When I extract text from HTML i get 2 words that bleed into each other when the text goes to a new line.
This is the HTML.

Special truck license plates celebrating Virginia's tobacco
heritage. Authorizes the issuance of "tobacco heritage" special
license plates for trucks. This bill was incorporated into HB 2534.

I get the following result when I extract the text.

Special truck license plates celebrating Virginia's tobaccoheritage.¿ Authorizes the issuance of ;tobacco heritage; speciallicense plates for trucks.¿ This bill was incorporated into HB 2534.

Can anyone please offer any suggestions.

Thanks.

My VB app looks blocky when I move to a different OS

JohnDove — Tue, 03 Nov 2009 12:19:15 GMT

I've written an app in VB2008 using a Windows Vista laptop. My problem is that when I run the app on my XP desktop, the fonts look a little blurry/blocky. I've attached 2 screenshots (which don't really capture the issue too well unfortunately).

The 'Vista' screenshot is the one I am happy with - it looks fine on screen. The 'XP' screenshot looks blocky. (If you look at the 'O' in 'OK' you can really see the difference.)

The font used is Verdana, which I believe is a very common font.

Any ideas as to what might be causing this?

Attached Images

	xp.jpg (9.0 KB)
	vista.jpg (9.3 KB)

How to select a value in the database

jetjash — Tue, 03 Nov 2009 08:29:50 GMT

Using VB.NET

I am using Combobox, when i select the value in combobox, the date value should display in datetimepicker where date = combobox id

vb6 code

cmd.CommandText = "select distinct Name from T_Person where personid = '" & txtno & "'"

Set rs = cmd.Execute

While Not rs.EOF

   If Not IsNull(rs("Name")) Then

txtName.Text = rs("Name")

       rs.MoveNext

    End If

Wend

txtno - combobox, txtname = datetimepicker1

The above code is working in vb6, But am new to vb.net

How to modify my code in vb.net

Need vb.net code help

How to enter a value in datagridview

jetjash — Tue, 03 Nov 2009 08:27:09 GMT

An new to data grid view, I am having column header like ID Date Intime Outtime

When I open the software Data grid view should display the column header – ID, Date, Intime, Outtime and display blank rows then I want to enter the values in Data grid view itself, the entered values automatically saved in the table. Suppose I modified the entered values in Data grid view that values also should change in table.

How to make a code in VB.NET for the above condition?

And also I am entering the Date and Time value in Data grid view, If entered date and time values is wrong, data grid view cell should not allow wrong date and time values.

How to make a code for this condition also.

Need VB.NET code Help

FTP url in address bar??

jrosh — Tue, 03 Nov 2009 03:40:57 GMT

I want to run a FTP url in explorer. (Not in IE)
What i want is some how when the button clicked the URL should appear in the address bar of the windows explorer.

This is because the ftp I access should be accessed in that way (By typing the url in the address bar of..lets say ..mycomputer window.)

I don't knw whether both do the same thing. But when I do I manually I could access the FTP by typing the URL in address bar in mycomputer(I think it is windows explorer) but not by typing it in the address bar of IE.

Please let me knw the way to put an address in the address bar in windows explorer

thank u.

help with windows form applications

pinkladyxo — Tue, 03 Nov 2009 03:12:24 GMT

I need to assign code to a button, that when clicked on, validates an ISBN code, and displays a message that it is either Valid or Invalid. I basically need help transforming code used in a console application that will now be used in a windows form application, so no more writeline stuff, now message boxes.
Here is the code I need help with:

Select Case ISBN.Length

                Case 10

                    Dim x As Integer = 0

                    noCheck = ISBN.Substring(0, ISBN.Length - 1)

                    x = checkISBN10(ISBN, noCheck)

                    If x = 11 Then

                        noCheck += "0"

                    ElseIf x = 10 Then

                        noCheck += "X"

                    Else

                        noCheck += x.ToString

                    End If

                    If (ISBN <> noCheck) Then

                        System.Console.WriteLine("Invalid ISBN - Check digit is " & x)

                    End If

                Case Else

                    System.Console.WriteLine("Invalid ISBN length")

            End Select



Private Function checkISBN10( _

ByVal ISBN As String, ByVal noCheck As String) As Integer

        Dim x As Integer = 0

        If ISBN.Length = 10 Then

            x = 10 * Integer.Parse(noCheck.Chars(0))

            x += 9 * Integer.Parse(noCheck.Chars(1))

            x += 8 * Integer.Parse(noCheck.Chars(2))

            x += 7 * Integer.Parse(noCheck.Chars(3))

            x += 6 * Integer.Parse(noCheck.Chars(4))

            x += 5 * Integer.Parse(noCheck.Chars(5))

            x += 4 * Integer.Parse(noCheck.Chars(6))

            x += 3 * Integer.Parse(noCheck.Chars(7))

            x += 2 * Integer.Parse(noCheck.Chars(8))

            x = 11 - (x Mod 11)

        End If

        Return x

    End Function

Also, how do I make a connection between a button and textbox. In other words, if a button is clicked on, how do I assign it to read that certain textbox where the information was entered?

Passing a value to Crystal Reports fields

Peric — Mon, 02 Nov 2009 21:14:24 GMT

I've asked few similar questions 'til now but here's one more.

Well, I have example of Crystal Report document, in that document I have 3 fields from 2 tables (loaded from my database). What I'm trying to do is to access one of those fields (year field) programmaticly and pass only one value...let's say I only want to show year "2006."
I've tried different things but nothing works 'til now. Last thing I've tried is this code:

Dim report As New Report123



rep03.Section3.ReportObjects.Item("Field1").Name.ToString

So, with this, I can access to the field i want...but I don't know how to set or get any of his value...this code above only gets name of that field, I just put that for an example.
I just want to do next: give user a chance to print different reports for different years, and I want to have some combobox menu...hope someone could help me. thanks

help with the listbox :(

lovely ari — Mon, 02 Nov 2009 17:30:19 GMT

hey there

i'm new in programing and there is a lot of hard things on me

:(

i want to make a program that take a value of text box and add it to the list box and one button to delete the selected item

i make that and this is my code



Public Class Form1



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

        ListBox1.Items.Add(TextBox1.Text)

    End Sub



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



        ListBox1.SelectedItem.Clear()





    End Sub



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



    End Sub

End Class

the problem that if the user didn't select an item and press the delete button the program will crush how can i make the button disable until user select item ?

i try this code but there is error :

       If ListBox1.SelectedItem = True Then delbut.Enabled = True

        else

        delbut.Enabled = False

        ListBox1.SelectedItem.Clear()

end if

can you plz help ari ??

printing documents in vb.net

zinu — Mon, 02 Nov 2009 11:37:55 GMT

hi to all,

i want to print the vb.net into a specified printer ,my code is as following

pdKbill.AllowPrintToFile = True
pdKbill.PrinterSettings = New PrinterSettings
pdKbill.PrinterSettings.PrinterName = "printername"
Me.printKbill = New PrintDocument
printKbill.PrintController = New StandardPrintController
Me.printKbill.Print()

but it always prints in to the system default printer, how can i do this?,anybody can help me..

playbook application

herms14 — Mon, 02 Nov 2009 10:14:04 GMT

hi guys!

could i please ask for some ideas on my project. I'm trying to do a basketball playbook manager. The application should allow users to create plays for basketball and generate a animation on how the play works. I just would like to ask how could I generate animations in vb.net? Thanks guys..Any ideas would be of great help

A lot of subs into only one

fulcrum9 — Mon, 02 Nov 2009 09:55:47 GMT

Hello,

I'm a beginner in Visual Basic and I was wondering if it is possible to shorten twenty subs into only 1 sub.

example:

Private Sub box1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kist1.Click

        Dim box1Click As Boolean = True

    End Sub



Private Sub box2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kist1.Click

        Dim box2Click As Boolean = True

    End Sub



...



Private Sub box20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kist1.Click

        Dim box20Click As Boolean = True

    End Sub

Thank you

How do i deploy my vb program to a cd?

blackknight469 — Mon, 02 Nov 2009 07:01:29 GMT

hey every1:)
my question is how do i go about publishing my program so that it can run right from the cd? do i just publish it to my pc then install it to a blank cd?? a quick run down of the steps or a link to a good tutorial would be much appreciated... thanks in advance for the help.

two times Comparison

snip — Sun, 01 Nov 2009 17:42:23 GMT

Hi, i have three textboxs, system time is in texbox1 , "09:00:00" is in textbox2 and i want to two times Comparison in vb.net, textbox3=textbox2 - textbox2, is any solution?

How to save ?

xVent — Sun, 01 Nov 2009 11:00:26 GMT

Hi guys , how can i save some texts from textboxes into a word in a listbox so when i will reopen the program i will continue having the save?

Regards,
xVent.

Setup project, add project output group

dre-logics — Sun, 01 Nov 2009 08:18:53 GMT

I use Visual Studio 8.0 Enterpice
I create setup project
Then I do the following:
Right mouse click on application folder
select Add -> Project Output
"add project output group" shows up empty (see Annex)
Pull Down by project and configuration option is empty !!!
what's is wrong or what have I forgotten?

Attached Images

error add project output group.bmp (497.6 KB)

WPF UserControls reference from VB

hardindp — Sat, 31 Oct 2009 19:58:44 GMT

Help please...
I have a WPF window that contains several WPF user controls.
I am using VB express.
How can I reference the controls in a UserControl from the main window?
Thanks

printing document

zinu — Sat, 31 Oct 2009 15:11:17 GMT

hi,

i have 2 documents to print from the same vb.net form.
i want to print it using 2 printers.how can i set the printer for each one
without selecting the printer at run time. i want to set it printer1,printer2 and for document1 i want to select printer1, and for document 2 i want to select printer2.

pls help me its an urgent.

VB.Net 2005 PrintPreviewDialog Limitations

rgerman — Fri, 30 Oct 2009 19:34:18 GMT

Hello,
I am working with VB.net 2005. The PrintPreviewDialog I am working with allows users to preview a document but the Page numbers in the top right had corner limits the user to 999 pages. I have found a way to change the start page for that control but can't seem to find a way to up that 999 to 9999. Is this a limitation of this dialog? When the user goes directly to print, all pages (1,231 of them) print just fine. Thanks very much

visual studio 2008 vb

tatetg — Fri, 30 Oct 2009 16:30:50 GMT

open and close serial port and making variables, dim statement help. i written the code that show me my serial port 3 is on pc. don't know how to make my variable"theComPort work and declare as string to use in/out of lstbox. can anyone get me on the right track? thanks

Visual Studio 2008 Collaboration & Management

mnewsome — Fri, 30 Oct 2009 09:36:02 GMT

I write as a systems administrator and own VS Team 2008 Team Suite. I would want to learn about the features within the package that allow developers to collaborate with other developers either real-time or otherwise.

Additionally, I would want to learn about the features that would allow me to assign and monitor the progress of projects. Much thanks for an informed response.

Hidden column in ListBox

Peric — Fri, 30 Oct 2009 08:54:34 GMT

Ok, this is what I need...
I select four columns(those are informations about payed fee for each member...so it could have zero or more rows) from my database (from two different tables), one record as "ID" and other three (i've band them together) as "Rest".
Then, I've put that column "Rest" as a DisplayMember for my first ListBox...because I couldn't find a solution to put that "ID" column in the same ListBox, and make it invisible for user (I need "ID" column for accessing those fields about payed fee) I've made another ListBox and set DisplayMember = "ID". I've put that ListBox on Visible=False and when I select rows from first ListBox "ID" is also changing and on event "SelectedIndexChange" for first ListBox I'm trying to get this "ID", store it into Integer variable and then put it into another select query that will select only selected pay fee from database...everything of this works fine but when I try to put that data from the last select query (something like this: TextBox3.Text = dataTablePodaci.Rows(0).Item(1) ) to a different textboxes (because there are three columns in select) here comes the problem, suddenly. The thing is that I can't see my real records in the main ListBox anymore...and instead of that for all rows I get: "System.Data.DataRowView". Yes, and also...everything in the back works ok...when I select each "System.Data.DataRowView" row, I see that my ID is changing and also my select is working fine and values I select are also changing...so everything works instead that first/main Listbox got himself confused somehow.

Any ideas? Does anyone know if listbox is having some kind of ability to hide column, to put "ID" for each record of something?
I've tried to do this with DataGridView also but I had some problems (with date) so I've tried with ListBox...

automatic year change

mshravs — Fri, 30 Oct 2009 08:31:19 GMT

i have a problem here. I need to change the year automatically...ie i have given year 2009 in the text box, but it should change along with the change of the year................do anyone know the code for this......if so please help me thnks

Create an event handler for a third party library that I use

papageorge — Fri, 30 Oct 2009 02:17:37 GMT

Hello,

I am developing an application and I use a 3rd party library which is basically Native excel. The problem is that this library does not implement an event which is able to notify me when the value of a cell value changes. Can I do it in my program and how?

(I thought that I could posible do sth like this :

while(OLDvalue=NEWvalue)

end while

MsgBox("The value has changed")

but this is a very slow procedure so is there a better way or I will have to stick to this)

How to delete a record from a DB?

Ishaniwp — Fri, 30 Oct 2009 01:44:23 GMT

Hi!
I'm a beginner to VB.NET. I'm working on an application which is created using VB.NET 2005 and the DB is created in SQL server 2005. I'm able to delete a record from a table when it is not used in another table as a Foreign Key.
For eg. If I create a new Customer and saves it in Customer Table, i can delete it with out any problems using the following code..

                If .DeleteCancelbutton.Text = "&Delete" Then

                    deleteDialogResult = MessageBox.Show("Delete this record?", "Confirm Delete", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

                    If deleteDialogResult = Windows.Forms.DialogResult.Yes Then

                        .CustomerBindingSource.RemoveCurrent()

                        .CustomerTableAdapter.Update(.ProjectPrototypeV2DataSet.Customer)

                        .ToolStripStatusLabel1.Text = " Record Deleted"

                    End If

But if i add a SITE to that customer, then try to delete the Customer, It deletes the customer, but does not delete the related SITE.
I tried setting the foreign key constriants to DELETE CASCADE, but then I can't load the tables using the Fill method to the Tableadapters... gives an error saying something about too much forign key constraints. currently i'm only having relational constraints.
is there a method which I use to delete a record from a table and delete all the information in other tables that are related to the deleted record?
I was thinking of using a Stored Procedure, but I don't know how to call a Stored procedure in the forms. I'm using TableAdapters and Bindingsource to get data to the froms...
Can any one please help me....

Ishani

FlatStyle

VIPER5646 — Thu, 29 Oct 2009 22:17:12 GMT

Hi I have been trying to flatten the columns header in a Datagrid, the same way as we do it with buttons using .FlatStyle = FlatStyle.Flat but have been unsuccessful.
If it is possible to do it can someone help me.
Thank you

Filter record using vb net 2003 through textbox on Datagrid

bluerdanblue08 — Thu, 29 Oct 2009 12:01:20 GMT

Hi to everyone!

I am new in programming and I'm making an application that can filter records on datagrid from the user's input in textbox..I tried this code that I also got here.. But I'm getting an error..please help me..thanks in advance..

ERROR MESSAGE:
An unhandled exception of type 'System.InvalidOperationException' occurred in system.data.dll

Additional information: Fill: SelectCommand.Connection property has not been initialized.

_____________________________________________________
Imports System.Data.OleDb
Imports System.Data
Public Class Form1
Inherits System.Windows.Forms.Form

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim keywords As String = TextBox1.Text

Dim con As OleDbConnection = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = C:\addressbook1.mdb")
' Use wildcard
Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM tblcontacts WHERE firstname Like '% " & keywords & " %', con ")
' or Where Filed1='" & keywords & "'
con.Open()

Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
Dim myDataSet As DataSet = New DataSet

myDA.Fill(myDataSet, "MyTable")
DataGridView1.DataSource = myDataSet.Tables("MyTable").DefaultView

End Sub

Query by date

sackymatt — Thu, 29 Oct 2009 10:22:03 GMT

Hi all,
I have a small problem that i cant figure out. i have a program that i want when a user select a date from a datetimepicker, it filters evrything from the datagridview that are for that date..
Hare is the code i have

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oledb As System.Data.OleDb.OleDbConnection
oledb = New System.Data.OleDb.OleDbConnection()

oledb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=CMRS.mdb;Persist Security Info=True"
oledb.Close()
oledb.Open()

Try
Dim da As New OleDb.OleDbDataAdapter("Select * FROM Medical WHERE DateAttended= " & DtDate.Text, oledb)
Dim ds As New DataSet
da.Fill(ds)

'set filter to view only medical records of certain Student
medicalFilter(ds.Tables(0).Rows(0)(0))
oledb.Close()

Catch ex As Exception
MessageBox.Show(ex.Message)

End Try
End Sub

it returns an error. No data at position 0

PLEASE help ASAP

Need a small help in my login system code

lovely ari — Thu, 29 Oct 2009 08:25:16 GMT

hey every one

happy Halloween ^__^

i'm trying to make a log in system but i have a small problem

the problem is i want the user name to be not Sensitive to the capital letter and small letter e.x if the user name is ari and password is IT

i can write ari as any way like : Ari , ARi , ArI but the password must be it

here is my code :

Public Class Form1

    Dim user As String = "ari"









    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub



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

        If TextBox1.Text = user And TextBox2.Text = "IT" Then

            MessageBox.Show("ok")

        Else



            MessageBox.Show("wrong password")

        End If





    End Sub



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



    End Sub



    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged



    End Sub

End Class

thanks ...ari~

code for saving data along with image in sql server

mshravs — Thu, 29 Oct 2009 06:59:32 GMT

hey,
I'm working on a project, where I need to save data along with the image in Sql server, using Vb 2005. i just need the code for the above one.
please post asap need it urgently.

Math concerning Arrays and Ubound.. coding now!

bcohenllc — Thu, 29 Oct 2009 04:19:12 GMT

Alright.. i figured out mostly everything but my math is still screwing me up. I need to accumulate running totals for number of checks and number of deposits ;and total value of checks and total value of deposits. Im supposed to do this by looping through my arrays and this is what I have so far:

Private Sub LoadArrayElements()

strTransDate(UBound(strTransDate)) = dtpTransDate.ToString
objCheckNum(UBound(objCheckNum)) = txtCheck.Text
strPayee(UBound(strPayee)) = txtPayee.Text
strPurpose(UBound(strPurpose)) = txtPurpose.Text
End Sub

Call LoadArrayElements()
'*Redim arrays to add new element
ReDim Preserve strTransDate(UBound(strTransDate) + 1)
ReDim Preserve objCheckNum(UBound(objCheckNum) + 1)
ReDim Preserve strPayee(UBound(strPayee) + 1)
ReDim Preserve strPurpose(UBound(strPurpose) + 1)
ReDim Preserve intAmount(UBound(intAmount) + 1)

sglAmount = Convert.ToSingle(txtAmount.Text)

'* Accumulate transaction count
ReDim Preserve intItemCount(UBound(intItemCount) + 1)
intItemCount(UBound(intItemCount)) = 1

'* Perform calculations
If radDeposit.Checked = True Then '* Transaction is a deposit
'* Accumulate totals
sglBalance += txtAmount.Text

Dim x As Integer = 0, i As Integer = 0
For i = 0 To intDepositAmount.GetUpperBound(0)
sglDepositAmount += intDepositAmount(i)
Next

Else '* Transaction is a check
'* Accumulate totals
sglBalance -= txtAmount.Text

Dim x As Integer = 0, i As Integer = 0
For i = 0 To intDepositAmount.GetUpperBound(0)
sglCheckAmount += intCheckAmount(i)
Next

End If '* End of transaction type test
'*
'* Display accumulated totals
'*
'* Overall totals
lblBalance.Text = FormatNumber(sglBalance, 2)
lblNumOfItems.Text = intItemCount.Length
'* Check totals
lblValueOfChecks.Text = FormatNumber(sglCheckAmount, 2)
lblNumOfChecks.Text = intCheckAmount.Length
'* Deposit totals
lblValueOfDeposits.Text = FormatNumber(sglDepositAmount, 2)
lblNumOfDeposits.Text = intDepositAmount.Length
'* Transfer input values to display labels
If radDeposit.Checked = True Then
lblType.Text = "Deposit"
Else
lblType.Text = "Check"
End If
lblTransDate.Text = dtpTransDate.Text
lblCheckNum.Text = txtCheck.Text
lblPayee.Text = txtPayee.Text
lblPurpose.Text = txtPurpose.Text
lblAmount.Text = FormatNumber(sglAmount, 2)
'* Reset input controls
'* Leaves transaction date at last value
radCheck.Checked = False
radDeposit.Checked = False
txtCheck.Text = ""
txtPayee.Text = ""
txtPurpose.Text = ""
txtAmount.Text = ""
'* Notify user of success
lblHelp.Text = "Transaction processed successfully"
End If '* End of processing for valid entries

My balance always comes out right and so does total number of items.. but my running totals for the checks and deposits come out to zero.. Please someone help! =) Thank you!

About VB.Net ?

HarshaDhanushka — Thu, 29 Oct 2009 01:30:24 GMT

I'm a beginner to IT education.So, I wan't to know major differences between VB.NET and Visual Basic 6. What're the new features? Are they same?

problem, two asp buttons are working as one, don't want that

RC1007 — Wed, 28 Oct 2009 23:50:21 GMT

I've got one form in a masterpage en here i've got one asp:button with a submit function that sends data to my mail for now. And then I made a contactform in a contentpage with a asp:button.Herefore is a second submitbutton. All code behind vb.net(the function)

Problem: when i click on the submitbutton of my contactform, the submitbutton from my masterpage will respond as well. They work as one. I don't want that. They must have there own function. How can i solve this? When I click one of them, the button must only do the things, the validations, it must do for that part. This is my masterpage aspx:









    

        

                   

            

        

    

                

                    NIEUWSBRIEF

here my contactform aspx:

Quote:

Naam

E-mailadres

Boodschap

Dhr.
Mevr.

the code for my submitbutton is written in code behind, like this:
Protected Sub btnSubmit2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit2.Click
'... code
end Sub

PLEASE HELP ME OUT OF THIS

Need help taking numbers from inputbox to textbox

ckenned8 — Wed, 28 Oct 2009 21:30:58 GMT

I am trying to write a program that is a statistical calculator. The way i have it set up is that you press the enter data button and it asks you how many numbers you want entered by inputbox then it proceeds to take the numbers one by one by inputbox. The problem i am having is that i dont know how to take these numbers and then have then printed in the "input" textbox. I have attached a pic of my program to give you some idea of what im talking about.

Dim N As Integer

Dim i As Integer

N = InputBox("How many numbers need entered:")

        For i = 1 To N

            number(i) = InputBox("Enter number" & i & ":")

        Next

i have no idea what to do...

Attached Images

s calculator.jpg (21.8 KB)

Problem in writing to a file using StreamWriter

Learning78 — Wed, 28 Oct 2009 18:39:54 GMT

Quote:

Hi;
I have developed a MCQ based learning game. A user has to play the game repeatedly to improve his learning. For each session of game, player gets score. I want to write the score in a single file for every session. e.g. I want to print user name and his score for first game in first line of file and for 2nd game in second line and so on.
At the moment, every time a new session is played it overrides the earlier line. I need some help with the below code.

Dim fs As New FileStream("file1.doc", FileMode.Create, FileAccess.Write)

            Dim s As New StreamWriter(fs)

             s.BaseStream.Seek(0, SeekOrigin.End)

            s.WriteLine(namebox.Text)

            s.WriteLine(scorebox.Text)

            s.Close()

Insert From One DataSet To Another

RRD — Wed, 28 Oct 2009 15:38:04 GMT

In VS2008 Is there a way to run an insert query against 2 different DataSources. I have a source that I would like to select about 10 fields from and insert into a different source.
Example ..
DS1 select 10 fields of data
DS2 Insert those 10 fields of data from DS1

[HELP] sending n receiving several picture using socket programming

murid — Wed, 28 Oct 2009 15:12:41 GMT

Sending Parts:

For var = i To x

                        Dim PACKET_SIZE As UInt16 = 4096

                        Dim ByteArray() As Byte ' Data buffer

                        filestream = New FileStream(at(z), FileMode.Open, FileAccess.Read)

                        Reader = New BinaryReader(filestream)

                        Writer = New BinaryWriter(clientSocke.GetStream) ' Get socket's stream

                        'send size of file

                        Writer.Write(CInt(filestream.Length))

                        'Send the file data

                        Do

                            'read data from file

                            ByteArray = Reader.ReadBytes(PACKET_SIZE)

                            'write data to Network Stream

                            Writer.Write(ByteArray)

                        Loop While ByteArray.Length = PACKET_SIZE

                        'make sure all data is sent

                        Writer.Flush()

                        z = z + 3

                    Next

NOTE : at(z) ---> arrayteks that's save filepath

Receiving Parts:

For var = i To x

                        Dim PACKET_SIZE As UInt16 = 4096

                        Dim Reader As BinaryReader

                        Dim ReadBuffer(PACKET_SIZE - 1) As Byte

                        Dim NData As Int32

                        Dim MStream As MemoryStream

                        Dim LData As Int32

                        Reader = New BinaryReader(clientSocket.GetStream)

                        ' Read Length of data (Int32)

                        NData = Reader.ReadInt32

                        MsgBox(NData.ToString)

                        ' Now comes the data, save it in a memory stream

                        MStream = New MemoryStream

                        While NData > 0

                            LData = clientSocket.GetStream.Read(ReadBuffer, 0, PACKET_SIZE)

                            MStream.Write(ReadBuffer, 0, LData)

                            NData -= LData

                            probar += 1

                            BackgroundWorker1.ReportProgress(probar)

                            Threading.Thread.Sleep(100)

                        End While

                        probar = 100

                        BackgroundWorker1.ReportProgress(probar)

                        Threading.Thread.Sleep(100)

                        SaveFile(arrayTeks(z), MStream.ToArray, False) 'Then

                        z = z + 3

                        probar = 0

                        BackgroundWorker1.ReportProgress(probar)

                    Next

NOTE: arrayteks(z) ----> file path that I use to save received picture file

problem :
I successfully received the 1st picture file, but, when it comes the 2nd picture mu program start to have an infinite loops...

any Idea ???

thanks before...

Can Somebody Fix my Code ( Filter Listview )

soeppp — Wed, 28 Oct 2009 13:57:55 GMT

I create a filter to search a text from listview
but it show a error message Like this

{"Index and length must refer to a location within the string. Parameter name: length"}

HERE IS MY CODE

Public Class Form1



    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        ListView1.SelectedItems.Clear()



        For ix As Integer = 0 To ListView1.Items.Count - 1

            Dim ls As String = ListView1.Items(ix).Text

            If String.Compare(ls.Substring(0, TextBox1.Text.Length), TextBox1.Text, True) = 0 Then

                ListView1.Items(ix).Selected = True

                ListView1.Items(ix).EnsureVisible()

                Exit For

            End If

        Next ix

    End Sub



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

        With ListView1

            .Columns.Add("Abadaba", 70)

            .View = View.Details

            .HideSelection = False

            .Items.Add("ABC")

            .Items.Add("ABD")

            .Items.Add("ACD")

            .Items.Add("BCD")

            .Items.Add("BDE")

            .Items.Add("TEST01")

            .Items.Add("TEST02")

            .Items.Add("TEST03")

        End With

    End Sub

End Class

How to print the whole form using printform

alan_2k9 — Wed, 28 Oct 2009 06:51:49 GMT

Please help me on this.
Printform of the visual powerpack 3.0 cant print the whole content of the form. I used scrollable form in order to have a content equal to a 8""x11" paper. when i preint using printform with scrollble option, i found out that it can only print the scrollable form equal to the screen resolution. in short you cant print the whole form if your scrollable form is bigger than the screen resolution.

streaming video through modem to modem...

dwiest — Tue, 27 Oct 2009 23:09:21 GMT

Hi...

Can anyone tell me (from scratch as I've not done this before) how I can stream live through modem-to-modem connection. The modem here refers to dial-up modem (PSTN modem), there is no internet/lan involved.

It will be 2 programs, the first is to transmit real-time video from webcam, and the second is to remote video from the first.

Sorry for bad english..i'm from indonesia instead:icon_redface:

Change value in datagridview or datatable

Peric — Tue, 27 Oct 2009 14:36:33 GMT

I'm selecting value from my database, passing it to datatable then giving DataGridView.DataSource value of datatable.
The thing is that in those rows i'm also selecting some dates and problem is that my default date in database is '1900-01-01 00:00:00' because i use "smalldatetime".
And what i want is this...when I find default value in database i want to show it like an empty string, like i said...because date is in smalldatetime format i can't do this in SQL query so i wonder how can I change this in DataTable or even better in DataGridView...of course, in code? Thanks...

trim cells in Excel

juster21 — Tue, 27 Oct 2009 14:35:47 GMT

I have a spreadsheet that I need to trim 3 columns. I have scoured the net but can't find anything that I've been able to use to trim each cell in columns A, H and I. Any help is appreciated.
I am using Excel 2003 and VS2005.

how to do this

samira1993 — Tue, 27 Oct 2009 13:03:49 GMT

. Create an application that will predict the approximate size of a population organisms. The user should select or enter the starting number of organisms in a combo box, enter the average daily population increase (as a percentage) in a text box and select or enter the number of days the organisms will be left to multiply in another combo box. For example, assume the user enters the following values:

Starting number of organisms: 2
Average daily increase: 30%
Number of days to multiply 10

The application should display th following table of data.
Day Approximate Population
1 2
2 2.6
(table should list values up to 10 days)

Be sure to add appropriate ToolTips for each control on the form.
Input validation: Do not accept a number less than 2 for the starting size of the population. Do not accept a negative number for the average daily population increase. Do not accept a number less than 1 for the number of days the organisms will multiply.

Loading user input into parralell arrays, Please help!

bcohenllc — Tue, 27 Oct 2009 13:01:56 GMT

Ive been working on a checkbook application for my visual basic class and I'm a little stumped..

To preface, the values I need to mess with include:

transaction type (checking or deposit)
DTP
check number ("dep" if deposit)
payee (who check is for)
purpose of check/deposit
amount of check/deposit
user defined beginning account balance

Below is the Change I need to make to my program...

"You will create a set of either collections or arrays (your choice but use just one or the other--don't mix them) scoped at the form/module level. These structures will store all of the input data needed for your checkbook transactions except for the running balance which will continue to be stored in a single module-scoped variable. That is, every input that users made in Assignment 3 will be stored in one of these arrays but you will not store any calculated values. You will not store the transaction type but will store "Dep" or a number in the check number array which will also indicate the transaction type. The Record button will add the current sale's data to these structures using either ReDim for the arrays or an appropriate technique for the collections. (You must ReDim your arrays so that the have just enough space for the data that is in them. Declaring the arrays with a large size with no facility to resize them is not allowed. Don't forget to use the ReDim Preserve syntax to retain the existing array contents when you resize them.)"

I don't know if I make a single array for all the values or if I create a separate one for each. If its a separate one for each I don't understand why an array is needed.

Thank you in advance!!!!

Strange Behavior With DataGridview Control...

ashi2 — Tue, 27 Oct 2009 10:02:50 GMT

Hi,

I am having a strange problem in the attached project... I will be very grateful if you people help me.

In the attached project when I load the files in datatable and then try to add images without using the "Dispose" method the datagridview does not showing it correctly and when I load images with "Dispose" method then everything is showing correctly but the files are being lock and i am unable rename them...

Hope i explain the problem correctly...

Thanks in advance for your help.

Attached Files

ImgTest.zip (151.1 KB)

GridView Add row

mansi sharma — Tue, 27 Oct 2009 08:00:36 GMT

I have bind the DataGridview with DB. To add the data from textboxes to DataGrid, I use the foll. code-

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

        Try

            Dim row0 As String() = {TextBox1.Text, TextBox2.Text, TextBox3.Text}

            DataGridView1.Rows.Add(row0)

            row0 = Nothing

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

Error is coming
Rows cannot be programmatically added to the DataGridView's rows collection when the control is data-bound

there is no any way to add data to the Gridview if we bound it to the Database.

Taxable Income

JRabbit2307 — Tue, 27 Oct 2009 06:46:36 GMT

Am I on the right track?

Problem: Compute the income tax due on a taxable income entered by the user, given the data as shown on the following table:

Taxable Income Tax Due
From To
$0 $50,000 $0 + 5% of amount over $0
$50,000 $100,000 $2,500 + 7% of amount over $50,000
$100,000 ... $6,000 + 9% of amount over $100,000

Public Class TaxableIncome1



    Private Sub btnCalculateIncomeTax_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculateIncomeTax.Click

        Dim TaxableIncome As Decimal

        Dim TaxDue As Decimal

        TaxableIncome = Convert.ToDecimal(txtTaxableIncome.Text)

        If (TaxableIncome < 0) Then

            MsgBox("Taxable income must be a positive number")

            txtTaxableIncome.Text = ""

        ElseIf TaxableIncome < 50000 Then

            TaxDue = TaxableIncome * 0.05

        ElseIf TaxableIncome < 100000 Then

            TaxDue = (TaxableIncome - 50000) * 0.07 + 2500

        ElseIf TaxableIncome > 100000 Then

            TaxDue = (TaxableIncome - 100000) * 0.09 + 6000

        End If



        lblTaxDue.Text = "Income Tax Due: " & FormatCurrency(TaxDue.ToString())





    End Sub

End Class

New Car Price Calculator

JRabbit2307 — Tue, 27 Oct 2009 06:37:17 GMT

I'm not sure if I did this right...

Problem: Using VB.NET write a console application to implement the New Car Price Calculator.

Options available for Universal Motor's vehicles:
Engine Purchase Code Price
6 cylinder S $150
8 cylinder E $475
Diesel D $750

Interior Trim Purchase Code Price
Vinyl V $50
Cloth C $225
Leather L $800

Radio Purchase Code Price
AM/FM Radio C $100
AM/FM/CD/DVD P $400

Module Module1

    Dim EngineChoice As String = ""

    Dim Sixcylinder As Integer = 0

    Dim Eightcylinder As Integer = 0

    Dim Diesel As Integer = 0

    Dim InteriorChoice As String = ""

    Dim Vinyl As Integer = 0

    Dim Cloth As Integer = 0

    Dim Leather As Integer = 0

    Dim RadioChoice As String = ""

    Dim C As Integer = 0

    Dim P As Integer = 0

    Dim ShippingCharge As Integer = 0

    Dim DealerCharge As Integer = 0

    Dim BasePrice As Integer = 0

    Dim intSellingPrice As Integer = 0

    Dim Response As String = ""

    Dim MessageBox.Show As String =



    Sub Main()

        MessageBox.Show("Welcome to New Car Payment Calculation!")

        Console.WriteLine("Enter the base price:")

        Response = Console.ReadLine()



        Console.WriteLine("Enter EngineChoice for your vehicle:")

        Response = Console.ReadLine()

        EngineChoice = Convert.ToInt32(Response)



        If EngineChoice = Sixcylinder Then

            Console.WriteLine(150)

        ElseIf EngineChoice = Eightcylinder Then

            Console.WriteLine(475)

        ElseIf EngineChoice = Diesel Then

            Console.WriteLine(750)



            Console.WriteLine("Enter InteriorChoice for your vehicle:")

            Response = Console.ReadLine()

            InteriorChoice = Convert.ToInt32(Response)



            If InteriorChoice = Vinyl Then

                Console.WriteLine(50)

            ElseIf InteriorChoice = Cloth Then

                Console.WriteLine(225)

            ElseIf InteriorChoice = Leather Then

                Console.WriteLine(800)



                Console.WriteLine("Enter the RadioChoice for your vehicle:")

                Response = Console.ReadLine()

                Response = Convert.ToInt32(Response)



                If RadioChoice = C Then

                    Console.WriteLine(100)

                ElseIf RadioChoice = P Then

                    Console.WriteLine(400)



                    BasePrice = 800

                    ShippingCharge = 500

                    DealerCharge = 175

                    intSellingPrice = BasePrice + EngineChoice + InteriorChoice + RadioChoice + ShippingCharge + DealerCharge

                    Console.WriteLine("The total selling price for your vehicle is $" + intSellingPrice)

                End If

            End If

        End If





    End Sub



End Module

Nweb needs help printing...

chuckjessup — Tue, 27 Oct 2009 03:28:13 GMT

ok I have imported a working code from vb 6.0 and it said that the form1.print function couldnt be converted... i am absolutely new at this .net stuff, and desperately need help... the code is below:

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click

        On Error GoTo printer_err

        'On Error Resume Next

        'Printer.RichTextBox1Print

        ' If Form1.Caption = "Drawer Count: Edit Mode" Then

        '     MsgBox "You are still in edit mode, you will not be able to print untill you exit this mode"

        '     Printer.AbortPrint

        ' End If

        Me.PrintPreviewDialog1 = Me.PrintDocument1

        Kill((My.Application.Info.DirectoryPath & "\count.stcc"))

        'Print(Me, PowerPacks.Printing.PrintForm.PrintOption.Scrollable))

        MsgBox("you should be printing now.... but .NET sucks ---")

        Exit Sub

printer_err:

        Dim m, whattodo As String

        m = "A printer error has occured:"

        Select Case Err.Number

            Case 53

                m = m & " The file nessisary to print is missing."

            Case 68

                m = m & " The printer was not ready or couldn't be found, check connections, and make sure that the printer has power."

            Case 76

                m = m & " The file path is incorrect, please reinstall the latest edition or contact us to resolve the issue."

            Case 482

                m = m & " The printer is not found or is off, or the computer that it is shared on is off. Please check that the power is on to these devices."

            Case Else

                m = m & " " & Err.Number & " '" & Err.Description & "' has occured, please contect us for resolution."

        End Select

        m = m & vbCrLf & vbCrLf & "Press yes to contenue, no to attempt an auto fix, and cancel to end the program"

        whattodo = CStr(MsgBox(m, MsgBoxStyle.Critical + MsgBoxStyle.YesNoCancel, "Printer Error Has Occured"))

        If whattodo = CStr(MsgBoxResult.Yes) Then

            Resume

        ElseIf whattodo = CStr(MsgBoxResult.No) Then

            Command2_Click(Command2, New System.EventArgs())

            MsgBox("Autofix complete, Retring to print.")

            Command1_Click(Command1, New System.EventArgs())

        ElseIf whattodo = CStr(MsgBoxResult.Cancel) Then

            Me.Close()

        End If



    End Sub

and then this is the code from the menu button to basically press command 1...

Public Sub Print_Renamed_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Print_Renamed.Click

                Dim Index As Short = Print_Renamed.GetIndex(eventSender)

                If Frame1.Enabled = True Then

                        Command1.Enabled = False

                ElseIf Frame2.Enabled = True Then 

                        Command1.Enabled = False

                End If

                If Frame1.Enabled = False Then

                        If Frame2.Enabled = False Then

                                Command1.Enabled = True

                        End If

                End If

                MsgBox("To properly print the revinue report place the count face up in your printer, then print the revinue report from Atrex following the prompts to select  the correct printer to print.", MsgBoxStyle.Information, "Printing Explination")

                Command1_Click(Command1, New System.EventArgs())

        End Sub

now i have installed the vb power packs 2.0 and 3.0 and neither have worked... its a bit frustrating but hey... what ever...

thanks for any input any one give me...

Jesse Fender

Else Statement

jess99 — Tue, 27 Oct 2009 00:14:29 GMT

Well, I did this program and it works, but my instructor wants me to use this statements instead of the one I used:

My original code was:





        Dim DiscountVal As Double = 1.0       'ByVal  arguments passed as by value (chapter VI)

        Dim BasePrice As Double = 9.95         

        Dim AdditionalPrice As Double = 2.0      

        Dim HoursAllowed As Integer = 10

        Dim HoursUsed As Integer = CInt(Me.TextBox1.Text) ' convert to integer

        Dim HoursOver As Integer = 0



        ' Set discount rate for nonprofit.

        If Me.chkNonProfit.Checked Then

            DiscountVal = 0.8           ' value is passed 

        End If



        ' Start branching structure using If..ElseIf



        If Me.radPackageA.Checked Then

            BasePrice = 9.95

            HoursAllowed = 10

            AdditionalPrice = 2.0

        ElseIf Me.radPackageB.Checked Then

            BasePrice = 14.95

            HoursAllowed = 20

            AdditionalPrice = 1.0

        ElseIf Me.radPackage3.Checked Then

            BasePrice = 19.95

            HoursAllowed = Me.TextBox1.Text

            AdditionalPrice = 0

        End If



        HoursOver = HoursUsed - HoursAllowed

        If HoursOver < 0 Then

            HoursOver = 0

        End If

         ' Calculate total.

                 

        Dim Total As Double = DiscountVal * (BasePrice + (AdditionalPrice * HoursOver))



        Me.txtHours.Text = FormatCurrency(Total)

Instead I have to use:



If Me.radPackageA.Checked Then

If CInt (Me.Textbox1.Text) < = 10 Then

     charge = 9.95

else

       charge = 9.95 +2*(CInt(Me.TextBox1.Text)-10)

EndIf

It works for Package A and Package B, but I am having problems coding PackageC

Thank you

[/CODE]

Help needed with MP3 Player

detoxx — Mon, 26 Oct 2009 22:39:24 GMT

Hi there.

My problem is that when i click play to resume a paused song it starts the song from the beginning.

I added an IF statement to the play button to say basically ...

IF PAUSED THEN PLAY (RESUME)
ELSE
PLAY FROM IMPORT LIST.

The problem with the IF statement, is that it says the pause command has no value.

For the life of me, i cannot figure out the IF statement. Please help

Public Class MP3Form



    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles importDiag.FileOk

        For Each track As String In importDiag.FileNames

            Playlist.Items.Add(track)

        Next



    End Sub



    Private Sub btnimport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnimport.Click

        importDiag.ShowDialog()

    End Sub



    Private Sub btnPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlay.Click



        If AxWindowsMediaPlayer1.Ctlcontrols.pause() = True Then

            AxWindowsMediaPlayer1.Ctlcontrols.play()

        Else

            AxWindowsMediaPlayer1.URL = Playlist.SelectedItem

        End If



    End Sub



    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stopbutton.Click

        AxWindowsMediaPlayer1.Ctlcontrols.stop()

    End Sub



    Private Sub pausebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pausebutton.Click

        AxWindowsMediaPlayer1.Ctlcontrols.pause()

    End Sub

End Class

VB.NET to Crystal Reports

Peric — Mon, 26 Oct 2009 20:41:07 GMT

i want to ask one more thing about crystal reports...let's say i need an report that will show me payed "membership fee" for year that I want to choose. How can I get something like this? I know that I can make separated reports for single year, but I want all in one report document...just to select year that I want to see. Any idea?

*and yes, i have separated tables for "year" and "membership fee"...

One more example..
I have members in my evidence and every member belongs to one "football center", i would also like to have an option to print my members only by "football center" that I select...hope someone can help me

mdi child maximize, form tiling, and alignment of controls

babbu — Mon, 26 Oct 2009 18:33:02 GMT

hello every1,
my project is on the verge of completion and a large part of the credit goes to daniweb.
now m stuck with a very annoying problm. ive googled the whole day but to no avail.
m using visual studion 2005 and access 07.
ive clubbed these three problms together cause i thought they might be related somehow...

1) i want the mdi child screen to be maximized. but on the first attempt only the control box goes to the top rite corner. however on the 2nd attempt it gets sorted out.
ive tried to set the initial state to maximized but with same result. please help

2) whn the form loads it gives this tiling effect.. like the effect a tube light gives whn it is switced on...which is very annoying.
ive search for the result and some recommended to change the resolution of the user screen which is not acceptable to me.
cant i change the resolution of my application depending on the user's resolution. any other solution will be appreciated

3) whn the form is maximized i want its user control or contents to change their alignment accordingly...
anchor property only changes the size however the ideal thing will be to change the controls position w.r.t the container or form...

a quick and easy solution is both required and highly appreciated.

id also request for some sample code along with the solution if possible.

thnx in adavance

Avoiding "Server Busy" Popup

garyinmiami2003 — Mon, 26 Oct 2009 12:36:04 GMT

I have an application that is a COM Class invoked by a large third party app. This com class loads an assembly at the time it is loaded.
and the assembly then calls a server resident windows app with screen. The assembly uses process.WaitForExit() to wait for user to close the windows app and then causes the com class to exit returning the notice to third party app that everything is complete.
Everything works fine except when the user closes the windows app this server busy popup appears and he/she can hit retry and everything continues. How can I stop the popup. What is going on?

For...Next homework problem

Alexwoo — Mon, 26 Oct 2009 11:05:43 GMT

Attempting to do an assignment that has five input boxes, and then uses them to calculate how much money a person would make over the course of their working life.
The problem is, when i run it, it simply gives me how much the person would make after 1 year, with a raise included. The raise is ment to be given every year.

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

        Dim Name As String

        Dim Salary, Total, Raise As Double

        Dim Age, Retire, Count As Integer





        Name = TextBox1.Text

        Age = TextBox2.Text

        Salary = TextBox3.Text

        Raise = TextBox4.Text / 100

        Retire = TextBox5.Text







        For Count = Age To Retire

            Total = Total + Salary

            Salary = Salary * Raise









        Next

        Label6.Text = Name & " will earn " & FormatCurrency(Total) & " before retiring. "

the for loop looks right to me, but i am very new to vb.

Server Name to connect to an online database?

xcorpionxting — Mon, 26 Oct 2009 07:00:46 GMT

I am having a small problem... I can connect to a local MySql Database using:

SQLConn.ConnectionString = "Data Source=servername;" & _

"Initial Catalog=databasename;" & _

"User ID=username;" & _

"Password=userpassword;"

Where servername is "localhost". I need to make a connection to an online database (same data structure). What should I put at the servername in that case? I do have all the info about the database in question (Domain, Ip, etc...). Which part should i use?

Code for printer epson TMU 220D

y3d1j4 — Mon, 26 Oct 2009 04:26:05 GMT

I am tring to write a code using VB .net 2005 for print a text from textbox to epson TMU220D. is there any body can help me ? thanks

SHOW, HIDE, SHOWN Question.

OldQBasicer — Mon, 26 Oct 2009 00:49:03 GMT

I have a project with more than one form and I move between them with a button click that hides the current form and shows the one I want. But what is I want to perform some procedure each time the form is shown? I tried this code on my Form2:

 Private Sub Form2_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown

        MsgBox(testString)



    End Sub

... to put a variable into MsgBox and, when I run the program, it works the first time the form is shown, but not when I go back to it from another form. Is there some other event handler I should be using?

Input Validation...CheckBox and List

jess99 — Sun, 25 Oct 2009 16:08:38 GMT

Hi,

I have to create two forms. In the mainFrm the user enters all his personal data (name, phone, email, address), and a label to display amount due. One of the buttons takes the user to a second form. In the secondFrm , I have two CheckBoxes, one is for the registration fee, and I have a list with the workshop's name and fee.

The secondFrm has to be displayed in a modal form. I have done all of the above and I got no errors. However, I do not know how to do the Input Validation. The user cannot register for the optional workshop without selecting the conference registration.

I know it has to be and IF statement with the And logical operator.

If IsNumeric(Me.chkConfReg.Text) And (Me.lstWorkshops)???

Also, does the input validation has to go in the Public class?

Thank you

URGEN HELP : Digiums Asterisk with visual basic

duliprb — Sun, 25 Oct 2009 15:45:12 GMT

I am asterisk expert. but I have a problem. one of my customer requested to get an incoming call extension to notepad text document. as far as I didn't use Visual Basic .net as visual basic 6.0 and I dont have a budjet to go for a big solution. because I am an employee who work under small company.

I found one module collection called asterisk .net.

http://sourceforge.net/projects/asterisk-dotnet/

my requirement is I want a simple code to connect with digium's asterisk manager interface and the can execute asterisk cli commands to get caller id.If there is a any person can help me I am thanking very very very advance.

Adding Time to Splash Screen Help Please

xfrolox — Sun, 25 Oct 2009 15:01:44 GMT

Ok i add a SplashScreen1 then i put it to show, i go to Application Events and i add this

Partial Friend Class MyApplication

        Protected Overrides Function OnInitialize( _

ByVal commandLineArgs As  _

System.Collections.ObjectModel.ReadOnlyCollection(Of String) _

) As Boolean

            My.Application.MinimumSplashScreenDisplayTime = 4000

            Return MyBase.OnInitialize(commandLineArgs)

        End Function



    End Class



End Namespace

To add 4 Seconds in the DisplayTime but it works when the Opacity of my Form is Full but if the transparency of the form is less The Load appear and the SplashScreen still there

i want it to be like when SplashScreen is over the form1 appear, i dont know how the opacity of the form affect this :S

TCP Windows Mobile 6.1

mrclark — Sun, 25 Oct 2009 00:38:30 GMT

I am trying to make a program for my Windows Mobile 6.1 Professional Device that communicates via TCP/WiFi To my pc, however, on my windows mobile device, when i launch a program with an import [system.net] it keeps giving me an error, and it is unable to launch the program.

Is there an update that i am missing? or am i missing a package in win mobile with the system.net resources? any help is greatly appreciated
Thanks
~Matt

Help Saving Opacity - Trackbar1

xfrolox — Sat, 24 Oct 2009 16:39:41 GMT

Ok i Got the Form1 and the Dialog3

i can save the trackbar1.value but when i save and close and open the application in the dialog3 says the value of the trackbar1 but the form1 opacity dont save :S

----- Button1 to save -----

Button1:

My.Settings.TaxiTransparency = TrackBar1.Value
My.Settings.Save()

Dialog3_Load:

TrackBar1.Value = My.Settings.TaxiTransparency
Label5.Text = My.Settings.TaxiTransparency

TrackBar1:

Form1.Opacity = TrackBar1.Value / TrackBar1.Maximum
AboutBox1.Opacity = TrackBar1.Value / TrackBar1.Maximum
Dialog1.Opacity = TrackBar1.Value / TrackBar1.Maximum
Dialog2.Opacity = TrackBar1.Value / TrackBar1.Maximum
Label5.Text = TrackBar1.Value
TrackBar1.Value = Label5.Text

So can anyone help me how to make it save that when i open again the app is already in the opacity

in Form1 i just put
Me.Opacity = Dialog3.TrackBar1.Value

but didnt work :(

retrieve data from a data table in rows

linxpert — Sat, 24 Oct 2009 11:45:25 GMT

Hi guys,

Please help me here. I want to obtain the individual data in rows and columns from my database. I mean after loading the data in a data table.... I think I need some attributes of the data table, so as to obtain data from the rows and columns

How do I PrintPrintPreview an Excel File?

yorro — Sat, 24 Oct 2009 08:16:02 GMT

How do I Load an excel file to the PrintPreviewDialog?



Imports Excel = Microsoft.Office.Interop.Excel

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

        Dim xlApp As Excel.Application

        Dim xlWorkBook As Excel.Workbook





        xlApp = New Excel.ApplicationClass

        xlWorkBook = xlApp.Workbooks.Open(Application.StartupPath & "report_summary.xlsx")



        MyPrintPreviewDialog.Document = xlWorkBook

        If MyPrintPreviewDialog.ShowDialog() = DialogResult.OK Then

            xlWorkBook.Close()

            xlApp.Quit()

        End If

    End Sub

Error states that excel cannot be converted to .Document.

How to read / write file in PDA (VB.Net)

samuel_1991 — Sat, 24 Oct 2009 05:40:07 GMT

Hi, I need to create a login program where it reads / writes to that file.

It must first detect if the file present or not.

If yes, it should not overwrite this file, else, it will have to create a default configuration file containing Username,Password & User Group.

PS: It is an academic prototype only, where I cant afford to use actual database (Unless can in $0 cost & simple way). I could have just use a list of arraylist to do it, but whenever the program is close, these array values are lost too.

The button "Login"(btnLogin) must verify with this configuration file that if it match every details in the same line, else, it proceed to next line and if nothing matches fully, it shows an "invalid login attempted". Else, it will go to next form for the user to key in data1 and data2 (Both in decimal) which also captures the current date.

These data will write to another file where it will detect if the file exist first or not. If exist, it writes to new line containing data1,data2 and date data else, creates a new file containing data1,data2 and date data.

The reason for doing so is if the logged in is a supervisior group, it can enter the staff name (Username) in order to check their data1 and data2 are within range or not which is sort according to date.

How to use wildcard for attachement file name?

leokuz — Sat, 24 Oct 2009 03:10:04 GMT

How can I use wildcard/s for the attachment filename. Part of the filename changes but the characters 8 and 9 (counting from the left to right) always present and always either LK or KL. Currently files are PDF type, thus with extension PDF but might be different in the future (this is not important now). Please help. Thank you!

Here it is:

            Dim oAttch As Net.Mail.Attachment = New Net.Mail.Attachment("C:\test\102309LKO.pdf")

How to save sent email sent via vb.net to folder

leokuz — Sat, 24 Oct 2009 00:31:41 GMT

I am wondering if there is way to save sent by vb.net email to a specific folder on hard drive as sent email containing exact information as it appears in lets say Outlook Express' "Sent Items" folder. I'd like this saved "sent" email copy to include attachment if any.

This is the code I use to email:

Imports System.Net.Mail

Module Module1



    Sub Main()



        Try

            Dim SmtpServer As New SmtpClient()

            Dim mail As New MailMessage()

            SmtpServer.Credentials = New  _

            Net.NetworkCredential("", "")

            SmtpServer.Port = 25

            SmtpServer.Host = ""

            mail = New MailMessage()

            mail.From = New MailAddress("")

            mail.To.Add("")

            mail.Subject = ""

            mail.Body = ""

            Dim oAttch As Net.Mail.Attachment = New Net.Mail.Attachment("C:\test\testfile.pdf")

            mail.Attachments.Add(oAttch)

            SmtpServer.Send(mail)

            CreateObject("WScript.Shell").Popup("Message Sent", 6)

        Catch ex As Exception

        End Try



    End Sub



End Module