|
Your header is the name of the forum, and your question would have made a good header. What do you mean by 'link' ? Do you mean pass information between them ? You can put properties on a child form and access them from the main form, but delegates are the best way to communicate between forms.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
here are my sample of codes i write a program that make an addition if checkbox checked or radio button checked i tried to show all of it with "toplam" but it gives the result 0 where i did something false any ideas???
Public Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
forma = TextBox1.Text / 16
End Sub
Dim baskisayi As Single
Public Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
baskisayi = TextBox2.Text / 500
Call isaretliyi_bul()
End Sub
Private Sub isaretliyi_bul()
If RadioButton1.Checked Then
toplam &= Ayarlar.TextBox1.Text * forma
ElseIf RadioButton2.Checked Then
toplam &= Ayarlar.TextBox2.Text * forma
ElseIf RadioButton3.Checked Then
toplam &= Ayarlar.TextBox3.Text * forma
ElseIf RadioButton4.Checked Then
toplam &= Ayarlar.TextBox4.Text * forma
ElseIf RadioButton5.Checked Then
toplam &= Ayarlar.TextBox18.Text * baskisayi
ElseIf RadioButton6.Checked Then
toplam &= Ayarlar.TextBox17.Text * baskisayi
ElseIf RadioButton7.Checked Then
toplam &= Ayarlar.TextBox15.Text * baskisayi
ElseIf RadioButton8.Checked Then
toplam &= Ayarlar.TextBox19.Text * baskisayi
ElseIf RadioButton9.Checked Then
toplam &= Ayarlar.TextBox20.Text * baskisayi
ElseIf RadioButton10.Checked Then
toplam &= Ayarlar.TextBox21.Text * baskisayi
ElseIf RadioButton11.Checked Then
toplam &= Ayarlar.TextBox16.Text * baskisayi
ElseIf CheckBox1.Checked Then
toplam &= Ayarlar.iccizim.Text
ElseIf RadioButton12.Checked Then
toplam &= Ayarlar.rcilt.Text * forma
ElseIf RadioButton13.Checked Then
toplam &= Ayarlar.cilt.Text * forma
ElseIf CheckBox6.Checked Then
toplam &= Ayarlar.ressam.Text
ElseIf CheckBox2.Checked Then
toplam &= Ayarlar.bandrol.Text * baskisayi
ElseIf CheckBox3.Checked Then
toplam &= Ayarlar.ambalaj.Text * baskisayi
ElseIf CheckBox4.Checked Then
toplam &= Ayarlar.nakliye.Text * baskisayi
ElseIf CheckBox8.Checked Then
toplam &= Ayarlar.dizgi.Text * forma
ElseIf CheckBox9.Checked Then
toplam &= Ayarlar.kapak.Text
ElseIf CheckBox5.Checked Then
toplam &= Ayarlar.ozalit.Text
ElseIf CheckBox10.Checked Then
toplam &= Ayarlar.baski.Text
ElseIf CheckBox7.Checked Then
toplam &= Ayarlar.ctp.Text
End If
|
|
|
|
|
I have no idea what you're asking, but this code is incredibly nasty.
Use a switch instead of all these elseifs, assuming there's no other way. And, for goodness sakes, give your checkbox variables meaningful names. If the code for checkbox9 and checkbox8 are the wrong way around here, how would you tell ?
alpdoruk wrote: forma = TextBox1.Text / 16
If TextBox1 ( there are those variables again ) has a value < 16, the return value will be 0. and so, the result will be 0.
alpdoruk wrote: Ayarlar.TextBox1.Text * forma
It looks to me like you have a form with public variables ( textboxes ). Don't do that. Expose the strings only if you need to.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
ok i am doing know these corrections but is the call funktion correct?
|
|
|
|
|
Like I said, it seems possible that you're multiplying by zero. I also don't see any code that should show the result. I also am not sure if &= is what you want, this does a bitwise AND. At least, it does in C#. What does it do in VB ?
You should set a breakpoint and step through the code, to work out what is wrong.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
no no it's not multiplying with zero i give a more number then 16
|
|
|
|
|
&= concatenates strings, doesn't it ? Have you stepped through the debugger to see what it is doing ?
VB totally sucks, your problem could be to do with the implicit conversions that are going on.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
Briefly looking at the code, and as Christian has eluded to, there are a lot of potential problems that could be eliminated by making the code type safe. To do this include Option Strict as the first line of the code file. You can do this at a project level in the compilation options.
Once you have don this you'll have to cast all those TextBox.Text values to integers, for example:
forma = TextBox1.Text / 16
becomes:
forma = CInt(TextBox1.Text) / 16
Assuming forma is actually an integer.
Once you've done this, if something is wrong you should get a runtime error tring to cast the the text in you textboxes that will point you towards the next step of your debug process.
Hope this helps
Tom
|
|
|
|
|
forma is single and i could't look step by step in VB 2005.i didn't know how to do it and it gives no error
|
|
|
|
|
Put a break point in on the first line of code that you want to step through. To do this put the cursor on the line and press F9.
Then run the code. It will stop at that point, press F11 to step through each line of code and put your cursor over the variables to see what's in their values.
Cheers
Tom
|
|
|
|
|
to convert textbox text to single:
froma = cdec(textbox.text)
Note that if a non-numeric character (a letter or a symbol) is entered into the textbox it will cause an exception error, to get around that use a validation technique such as
if isnumeric(textbox.text) = false then<br />
messagebox.show("you did not enter a number!")<br />
textbox.focus()<br />
end if<br />
what this does is alerts the user to his/her error and forces them to correct it
now as for the step-by-step.
The step-by-step shows you what the complier is actually running, so if it never gets highlighted it never has been called
Example:
if true= true than<br />
'this code will always run<br />
else if x = 10 then<br />
'this code will never run<br />
else<br />
'this code will also never run<br />
end if<br />
Hopes this helps
There are 10 types of people in the world: those who understand binary and those who don't
|
|
|
|
|
Hi, I program a Writing Application now. My Question is: How can I make Object- or Tableproperty's?
|
|
|
|
|
You're going to have to explain this a bit more. Make a what?
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic 2006, 2007
|
|
|
|
|
I mean changing borders or cell background
|
|
|
|
|
TimHot wrote: DHTML Editing
There's a dinosaur from the past. All the documentation on it has been archived it's so old.
Let's see the code you're using to add the table.
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic 2006, 2007
|
|
|
|
|
Here is the code:
Dim doc As Object = Form1.txt.DOM<br />
Dim selection As Object = doc.selection<br />
Dim tr As Object = selection.createrange<br />
Dim c, r As Integer<br />
Dim HtmlCode As New System.Text.StringBuilder<br />
Dim anp As String = ""<br />
Dim sty As String = ""<br />
Select Case anpass<br />
Case Style.fest<br />
anp = breite<br />
Case Style.inahlt<br />
anp = ""<br />
Case Style.Window<br />
anp = "100%"<br />
sty = "table-layout:fixed;" & Chr(34)<br />
End Select<br />
HtmlCode.Append("<table style=" & Chr(34) & sty & " border=""thin"" cellspacing = " & cellspan & " rowspacing = " & rowspan & " width= " & anp & " bordercolor=" & bcolor & ">")<br />
For r = 1 To CInt(rows)<br />
HtmlCode.Append("<tr>")<br />
For c = 1 To CInt(cols)<br />
HtmlCode.Append("<td>")<br />
HtmlCode.Append("</td>")<br />
Next<br />
HtmlCode.Append("</tr>")<br />
Next<br />
HtmlCode.Append("</table>")<br />
tr.pasteHTML(HtmlCode.ToString)
|
|
|
|
|
hey, we are working on a project, "voice command and control" in VB.NET.
we have used SAPI 5.0. till now our project performs for getting input from any user, means everyone's "hello" is same. we are not using or matching input frequencies.
can u give me idea to generate a wave file and read it and convert it to hex which can be helpful to differentiate the input sounds of different user.
waiting for anyone's suggestions!
|
|
|
|
|
sanket h modi wrote: can u give me idea to generate a wave file and read it and convert it to hex which can be helpful to differentiate the input sounds of different user
Basically, you're going to have to do your own research on this. This is "voice print" security technology you're talking about. Just start Googling "voice print security" and you'll come up with a bunch of products, but little in the way of research papers.
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic 2006, 2007
|
|
|
|
|
Hi all...
I'm trying to set a right click function to my app, so that when a user right click anywhere in the application Window (except on controls), it will pop up a msgbox.
I've read some articles about using context menu but I hardly understands it. Can somebody explain?
http://www.datadynamics.com/forums/ShowPost.aspx?PostID=73192
|
|
|
|
|
You're reading about right clicking in the designer. Yuo just want to add a context menu, google for 'context menu VB.NET'
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
Hi there, thanks for replying. I don't actually want context menu. I want a MsgBox to pop up when user right click ok the application. Any idea?
|
|
|
|
|
OK, you plainly want the mouse down message then, the trick is getting it in the non client area. I think you need to use the WndProc for that.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
If you just want the message when you right click the form the following will work (just add it to the form):
<br />
Protected Overrides Sub OnMouseClick(ByVal e As System.Windows.Forms.MouseEventArgs)<br />
MyBase.OnMouseClick(e)<br />
<br />
If e.Button = Windows.Forms.MouseButtons.Right Then<br />
MessageBox.Show("You clicked the form with the right mouse button!", "My Application")<br />
End If<br />
<br />
End Sub<br />
Hope this helps.
Tom
|
|
|
|
|
Hi there, it really works on an empty form. Can you teach me on how to apply this code on other object such as picture box etc?
|
|
|
|
|
Just create an event handler to the same code for the MouseClick event of the control(s) in question:
<br />
Private Sub MyControls_MouseClick(sender As Object, e As MouseEventArgs) _ <br />
Handles MyPictureBox.MouseClick, _<br />
MyLabel.MouseClick, etc, etc<br />
<br />
If e.Button = Windows.Forms.MouseButtons.Right Then<br />
MessageBox.Show("You clicked the form with the right mouse button!", "My Application")<br />
<br />
End If<br />
<br />
End Sub<br />
An easy way to do this is select the control in the desiger, open the property grid for it (F4), click the events button at the top (the one with the lightning bolt on it) and double click the event you want to create the handler for. This will create the code stub for the event handler automatically.
Cheers
Tom
|
|
|
|