Posts by Jx_Man

show the effort and many people will help you :)

Dim button As DialogResult

        button = MessageBox.Show _
        ("Are you sure you want to exit this application?", _
        "Message", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)

        If button = Windows.Forms.DialogResult.Yes Then
            Me.Close()
        Else
            'Do Nothing
        End If

Hi John...Welcome to Daniweb Friend :)

post the code, it will help much

this is not at all related to either visual basic or vb.net . this is a system issue regarding your operating system. post this question in
Microsoft Windows Software Forum (Tech Talk->Microsoft Windows)

yeah, there are more compatible on tech talk.

hmm... i was saw this problem in another thread but with different problem. same task.

i already installed ruby and in ruby directory contain fxri and Scite.
well, i m do small ex in fxri...
what is Scite for? what different about fxri and Scite? why i can't compile code in Scite?
i find compile in tools of Scite but it was disable.
example i write code in Scite :

5.times { print "Odelay!" }

when i tried to compiled i can't do this perform. there are compile, Build,Go etc in tools option that i cannot perform to click, it was disable. i m confused.
But this code running great in fxri. so why i can't do compiled in Scite?
please help

Thank you.

well great, i want to answer but you have done it.

post in vb.net section, this for vb 4/5/6

what did you want to do?

you must install .net runtime in destination computer. none exe file can run without .net platform.

convert it to month with number as a key.

With lstReorder
    .AddItem (ITEM_NUMBER.Text)
    .AddItem (ITEM_DESCRIPTION_1.Text)
End With

i have 2 textboxes (txtDisplay, and txtDisplay2) to store the 2 different numbers and then another textbox (txtSign) which stores the value of the operator. I can store the first number from txtDisplay and I can store the operator from txtSign but the problem is that I cant store the second number from txtDisplay2........

Why you can store second number??you can store in variable.

sorry, i didnt understand what you meant........

what i means is not related with mycode, but your code in your previous post.
- Use Code tags to make your code more neat in sight
- then post your original code not generated codes by vb.net.

-Exe files already in your folder project.
YourProjectFolder\Bin\ExeFileName.exe

HI Alex, Welcome to Daniweb Friend :)

Hi All...
i m newbie with ruby. a couple weeks ago i was reading book about oracle 10G XE then i found a new language that i never heard before named Ruby on Rails. i was exited and want lo learn many about this language. so, please help me to learn ruby.
My first question :
i have installed ruby on my pc and try it then i want to save my file but when i tried to save it, there are none file type in files type. so it was save without file type. how i can save file with file type? what a file type of ruby?

jerry code should have been perform you to delete image. provide your code...

visit this site

this using Flex grid
MSFlexGrid1.AddItem (Text1.Text)
add as much u need.

see this :

Private Sub Command1_Click()
Dim FirstValue As Integer, SecondValue As Integer
FirstValue = Rnd * Val(Trim(Text1.Text)) + 1
SecondValue = Rnd * Val(Trim(Text1.Text)) + 1
Text2.Text = FirstValue
Text3.Text = SecondValue
Text4.Text = FirstValue + SecondValue
End Sub

Hi Okie Welcome to Daniweb Friend :)

what kind of database?

Please post your thread on current section. This Post for vb.net section.

so, how far you do this??show us your effort friend, cause We only give homework help to those who show effort.
Use Randomize() to get random number.

if val(txtQty) >= 0 then
lblVal.caption = val(txtPrice.text)
Else
lblVal.caption = val(txtPrice.text) * val(txtQty.text)
end if

hmm i m confused friend...
what exactly the condition.
1. if Qty >= 0, display price on label val
* what Qty is? quantity??
2. Else
lblVal.caption = val(txtPrice.text) * val(txtQty.text)
* this code means Qty < 0!!, so why you get multiply it with price. absolutely the value of multiplication is zero(0).

Hi jiten...Welcome to Daniweb friend :)

Hi...Welcome to Daniweb Friend :)

why u put box behind another control?
you want to show first textbox after user select yes on first combo box.right?
set first textbox visible = false when form load then after user select yes u can set visible to true. so u don't have to put box behind combox.
See this example :

Private Sub Tes2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Visible = False
        With ComboBox1.Items
            .Add("yes")
            .Add("no")
        End With
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedItem = "yes" Then
            TextBox1.Visible = True
        Else
            TextBox1.Visible = False
        End If
    End Sub

post a screenshot

your data type of column not have a compatibility with your input in textbox.

explain more clearly please...
what the exactly problem?

you can post all vb question in this section(vb6) but just for vb.net question like this thread please post on vb.net section.
and don't forget to mark this thread solved.
Happy coding friend :)

wrong code :
>>Case 65 To 90, 90 - 122, 0 - 47, 58 - 64, 91 - 96, 123 - 127
modified :

Case 65 To 90, 91 To 122, 0 To 47, 58 To 64, 91 To 96, 123 To 127

i was modified your code.
your messagebox parameter is not completed, that why errors coming out.

Private Sub xExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xExitButton.Click

        Dim button As DialogResult

        button = MessageBox.Show _
        ("Are you sure you want to exit this application?", _
        "Message", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)

        If button = Windows.Forms.DialogResult.Yes Then
            Me.Close()
        Else
        End If
    End Sub

btw this thread for vb.net question not for vb6...

connect with database?what it is?
if used database binding in datagrid try with LIKE operator to searching more thorough.

window still opened (i mean your program is not currently closed), so when you try to delete it error came out cause picture box still opened it. thats my guesting.

Hi Laura...Welcome to Daniweb Friend :)

handle it with keydown event :

private void TextBox1_KeyDown(object sender, System.Windows.Forms.KeyEventArgs e)
{
	if (e.KeyCode == Keys.Delete)
	{
		MessageBox.Show("you pressed delete key");
	}
}

Welcome to Daniweb Rumaan :)

Welcome to Daniweb Carlos...:)

Hi Kay...Welcome to Daniweb Friend :)

i guess you need a lot of know how to help me.

???

what u mean 'adding a photo to a form'?
just showing into picture box or using dialog window to find and showing it?

what you mean with this??

TELL ME One THING 48-57 IF FOR 0-9

32 for space

Right Click on toolbar control (on form) -> select for properties -> Properties Pages will shown -> select for Buttons tab -> insert and remove button for toolbar there.
if steps right, this window on attachment will shown. (see an attachment for right click and Properties Pages Window)

it was handle it. the keys on keyboard has ascii code. it will trap when key pressed.
capitals alphabet start from 65 to 90 in ascii code. so when ascii code of key not in that range (65 - 90) will not allowed to input (set ascci = 0).
to trap this, add code in keypress event of textbox.

see on my previous post. i was handle that.
for capital and non capital alphabet.

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 65 To 90, 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

so u cannot input numbers in textbox just string will allow there.
If u want to input capitals only just remove case for key 97 to 122 (this line code -> Case 97 To 122, 8, 32)
so it will be :

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

yeah..you're welcome :)