Posts by Jx_Man

AC MILAN is the best... :)
I loved KaPaRo (Kaka, Pato, Ronaldo)

your if..else will looks like this in select...case

Private Sub ComboOperan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboOperan.SelectedIndexChanged
        Select Case ComboOperan.SelectedItem
            Case "+"
                MsgBox((Convert.ToInt32(txtNumber1.Text) + Convert.ToInt32(txtNumber2.Text)))
            Case "-"
                MsgBox((Convert.ToInt32(txtNumber1.Text) - Convert.ToInt32(txtNumber2.Text)))
            Case "*"
                MsgBox((Convert.ToInt32(txtNumber1.Text) * Convert.ToInt32(txtNumber2.Text)))
            Case "/"
                MsgBox((Convert.ToInt32(txtNumber1.Text) / Convert.ToInt32(txtNumber2.Text)))
        End Select
    End Sub

You can change Msgbox with your TextboxResult.Text...
OK. Hope This Helps..

Welcome to Daniweb Friend... :)

Hi Sean...
Welcome to Daniweb..
Fell Free to post :)

Hello Patsy,
Welcome to Daniweb!!

hi kamesh.ch,
welcome to daniweb...
as jbennet said... try to write some code before and if you find an effort post here and many people will help u. :)
Ok friend.
All for the best.

Thanks for that code. It worked fine. Sorry to bother again, but if I were to use a Select.. Case function, where would I implement it and how?

this following code modified from my post which it using if..then..else to select...case :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Select Case Microsoft.VisualBasic.Asc(e.KeyChar)
            Case 48 To 57, 8
                'Let these key codes pass through
            Case Else
                e.Handled = True
        End Select
    End Sub

Is it possible to implement it on the Textbox 3, which is the operator where the users type the signs (+, _ ...)?

why you don't use combo box to implement operator, so user just select the operator in combo box that they want to use...

so u want to distribute the application...
you can use "Package and deployment wizard" on your vb tools. follow the wizard.

use this following code, this code will handle string input (include special character). if u type a numeric in textbox it will type but if u type string,char or anything else except numeric it will not type in text box.

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If (Microsoft.VisualBasic.Asc(e.KeyChar) < 48) _
        Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 57) Then
            e.Handled = True
        End If
        If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then
            e.Handled = False
        End If
    End Sub

Ok. all for the best.

yeah, you're welcome and thx to nav33n to nice recovery. :)
don't forget to mark this solved.
All for the best.

maybe the place in your dreams like schools, house, street, bank, mart etc...

nice to hear that.
happy coding friends...:)

ups... i was mistake here. there are code for vb.net.. :P.
this is code for vb 6, the logic is still same :

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57, 8, 32
'Let these key codes pass through
Case 97 To 122, 8, 32
 'Let these key codes pass through
Case Else
'All others get trapped
KeyAscii = 0
End Select
End Sub

48-57 for a upper caption
97-122 for a lower caption
8 for backspace
32 for space
so just upper caption, lower caption, backspace and space will allowed to press, other key will not allow and not type in text box.

u just to handle keychar.
try this following code :

Private Sub text1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles text1.KeyPress
        If (Microsoft.VisualBasic.Asc(e.KeyChar) < 65) _
              Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 90) _
              And (Microsoft.VisualBasic.Asc(e.KeyChar) < 97) _
              Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 122) Then
            'space allowed
            If (Microsoft.VisualBasic.Asc(e.KeyChar) <> 32) Then
                e.Handled = True
            End If
        End If
        If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then
            e.Handled = False
        End If
    End Sub

Ok. Hope this helps..

ah, i'm sorry for this failure. thx for the recovery.:)

SELECT * FROM Customers where EmailAddress like '%" @ "%'"

hi jaasaria,
>>can you give me the exact process??
what of exact process?
are u have visiting the site from ptolchin?
in there you can see the faq about this thread.

hi anant266...
welcome to daniweb

hi slate2006...
so what the problem friend? which part of your program that you want us to help.

posting your question to vb 6 forum, you will get many helps in there...

hi, using crystal report or what?
i guest u using CR. set the printer setup through crystal report

use shockwaveflash in your component to play flash file..

I've got a 2GB iPod Nano and it's enough.

it's not enough?? wow, how many file you want to save in it...

what is test_app.exe>?

its your exe name...
if you want the program copied their self to new pc, you must added function to copy their self in your program...

in vb 6 you can access it directly

i guest u want to save path of the picture.
this way is the easiest. but you must to put the picture on one folder. don't try to move the picture that you was saved it. if you move the picture, you will get an error..

code above just for one combo box with one column you can change as u want.

i used this to load from sqlserver 2000

Private Sub ReadData()
        Dim i As Integer
        Dim cmdUser As New SqlCommand
        Dim daUser As New SqlDataAdapter
        Dim dsUser As New DataSet
        Dim dtUser As New DataTable
        Dim conn As SqlConnection

        conn = GetConnect()
        Try

            cmdUser = conn.CreateCommand
            cmdUser.CommandText = "SELECT * FROM User"
            daUser.SelectCommand = cmdUser
            daUser.Fill(dsUser, "User")
            dtUser = dsUser.Tables("User")
            For i = 0 To dtUser.Rows.Count - 1
                cmbUserId.Items.Add(dtUser.Rows(i).Item(0))
            Next

        Catch ex As Exception
            MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OKOnly, "Error conection!!")
        End Try
        conn.Close()
    End Sub

call this procedure when form load (form load event)

for note :
cmbUserId.Items.Add(dtUser.Rows(i).Item(0))
this code will adapted with your database, in mydatabase id user in item(0) / first coloumn

ok.
hope this help

see this link...
http://www.codeproject.com/KB/graphics/ean_13_barcodes.aspx

i don't get it from internet but with read a book. but if you want to get it or want to seek the manifest website you can search in google... :)
http://msdn2.microsoft.com/en-us/library/aa375632.aspx

BBQ in the sun!

what a big size of bbq....

so what you want it like? you want to show both of data in one combo box or each column for one combo box... maybe you can give the result what you it like to be...

actually i never tried make a program with oracle before, but i already do this with sqlserver with vb.net:
maybe you can see the code and take the logic :

Private Sub StudentDataReader()
        Dim i As Integer
        Dim cmdStudent As New SqlCommand
        Dim daStudent As New SqlDataAdapter
        Dim dsStudent As New DataSet
        Dim dtStudent As New DataTable
        Dim conn As SqlConnection

        conn = GetConnect()
        Try

            cmdStudent = conn.CreateCommand
            cmdStudent.CommandText = "SELECT * FROM STUDENT"
            daStudent.SelectCommand = cmdStudent
            daStudent.Fill(dsStudent, "Student")
            dtStudent = dsStudent.Tables("Student")
            For i = 0 To dtStudent.Rows.Count - 1
                cmbNis.Items.Add(dtStudent.Rows(i).Item(0))

            Next

        Catch ex As Exception
            MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OKOnly, "Error Connection!!")
        End Try
        conn.Close()
    End Sub

the point of this code is the loop with for. sorry if this post can help u much but you can take the logic.

convert the fla file to swf file with macromedia flash. and use swf file in vb.

meatballs, fermented soybean cake, rice fries and drink a chocolate milk.

change the manifest file name as your exe name. when you run the exe file, your program will have a skin like your os.

p-man is a banana fries, there are chocolate and cheese inside it. really...really delicious.

this is a sample of manifest file :
put this file in a same folder with your exe file

YourProgramName.exe.zip

You can have erotic dreams if you think hard about certain things before bed. I doubt however, you can plan exactly how it could go.

haha, this is a other way to spur on my enthusiastic to finish my graduated project :)

hmm, this the answer, thx for reply joe.
one question again :)
there are epoch to gain my rep power?ex (6 months or 1 years or etc) or how many post i have to do to increase rep point?

not language needed to make this file just write the some script on notepad and save as .inf extension. there are on your other post (vb 6) someone was giving a sample autorun file.

yes u can, use manifest file to make your program like your os skin. so if the program on xp the skin like xp or if the program on the vista os its like vista skin. but you can use ocx file.

Hi dani, please give a explain for this question... i confused.
this value add by one if someone give me a good one? right or not?
now my Community Reputation Points = 40.
i have this points (40) a few day ago and some people give me a good reputation again but this point doesn't increase, so this points still 40...
why it can be? the good reputation from other is more than two or three but its still 40...
thx..
best regards

if i have the power, i will dream the graduated of me. :)

if u have a power to plan the dream as you want, what a dream you will plan to dream on?

to play u must use shockwave flash.. find it on component.

1. Pray

4. Say "No" to projects that won't fit into your time schedule, or that will compromise your mental health

11. Separate worries from concerns. If a situation is a concern find out what God would have you to do and let go of the anxiety. If you can't do anything about a situation .. forget it.

16. Carry a Bible with you to read while waiting in line.

18. Eat right.

23. Having problems? Talk to God on the spot. Try to nip small problems in the bud. Don't wait until it's time to go to bed to try and pray.

26. Remember that the shortest bridge between despair and hope is often a good "Thank you, Jesus!"

27. Laugh.

29. Take your work seriously, but yourself not at all.

36. Every night before bed, think of one thing you're grateful for that you've never been grateful for before. GOD HAS A WAY OF TURNING THINGS AROUND FOR YOU.

"If God is for us, who can be against us?" (Romans 8:31)

sometimes i got depression to finish my final project for graduate
this post give me a spirit more, so thx for he tips, i'll take some for me...
and this my favorite verse :
"I can do all things through Christ which strengtheneth me" (Philipians 4:13)

Never Tried = Never Know

see this link
http://www.vbdotnetheaven.com/UploadFile/mgold/WordDocument04182005081441AM/WordDocument.aspx

FormName.MenuItemName.enable = false