|
Sadly for the OP, this won't work for him because he's using VB6, not VB.NET.
|
|
|
|
|
I cannot help him with his dinosaur problem then.
------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
CCC League Table Link
CCC Link[ ^]
|
|
|
|
|
try {
answer VB question
} catch(UnExpectedDinosaurException ude) {
WTF
}
|
|
|
|
|
|
I would never write any code that lacks proper indentation.
|
|
|
|
|
sorry Luc I meant that because your code in c# but in vb forum so I was...
thatraja |Chennai|India|
Brainbench certifications Univotes are like kid's kisses don't reject it Do what you want quickly because the Doomsday on 2012 My childhood story
|
|
|
|
|
No problem.
|
|
|
|
|
cheers.
BTW I'm happy at 109 by total reputation in your CP Vanity ver 2.0. At least you have put option for 5 reputation pages which displaying me. Thank you. I'll publish my article next month which is in my draft for long time.
thatraja |Chennai|India|
Brainbench certifications Univotes are like kid's kisses don't reject it Do what you want quickly because the Doomsday on 2012 My childhood story
|
|
|
|
|
|
Dave Kreskowiak wrote: he's using VB6
Didn't the support for that run out 2/3 years ago?
|
|
|
|
|
At least... I'm actually praising Microsoft for dropping VB6 runtime support in Windows 8! WooHoo!! Finally, the bitch is dead!!
|
|
|
|
|
Does exist the possibility set color transparent within Vb.Image?
Any Method.
FreeImage, MS WIA, GDIPlus, CopyMemory, ...
By sample: I have VB.Image1 with zone of transparency. One Vb.Image1 On Form. Can be change this Image directly by change Alpha bytes of pixels of this Image1 ? How use CopyMemory in this case?
Or How use for this case the function Image1.Picture.Render ?
For VB6.
Thanks.
|
|
|
|
|
not vb6...but maybe it can help. Here is how I set transparency on an image it in VS2005:
Dim x As System.Drawing.Bitmap = imgMain.Image
x.MakeTransparent(dlgColor.Color)
imgMain.Image = x
|
|
|
|
|
Thank you, Kschuler. I will try do it. One time similar VS2005 code made a BMP Image transparent. All was Ok. But for VB6 this BMP Image had bad format. Do you know it?
|
|
|
|
|
Sorry. I don't use VB6, so I really don't have a compatible answer for you. Good Luck.
|
|
|
|
|
Hello,everyone! I tried to use Sub like below to caculate. But when the project run, the two textboxes which I wanted to get their "Text" value could not find.Could anyone give me some suggestions or help? Thank you!
Public Function TotalSub(ByVal j As Integer, ByVal diameter As String, ByVal thickness As String, ByVal material As String)
Dim txtGG, txtYL As TextBox
Dim b As String = ""
Dim sum As Single = 0
For Each ctrl As Control In frmQia.Controls
If Not TypeOf ctrl Is TextBox Then Continue For
For i = 1 To j
If ctrl.Name = "txtTJGG" & i Then
txtGG = ctrl
ElseIf ctrl.Name = "txtTJYL" & i Then
txtYL = ctrl
End If
b = Caculate.Weight_Sub(diameter, txtGG.Text, thickness, material, txtYL.Text)
sum += CSng(b)
Next
Next
Return sum
End Function
(I have try to find textboxes like these code in another project with only one form, it could find them. So I don't know why it didn't work when it in a project with some forms )
|
|
|
|
|
because your TextBoxes have names you are not looking for?
because they aren't part of your Form, but are part of another container (Panel, GroupBox, ...)?
because they aren't exactly TextBoxes? (maybe MaskedTextBox)
because your input parameters are wrong? (such as j=0)
because you are calling the SUB when the Form isn't holding anything yet/any more?
your guess could be even better as mine...
|
|
|
|
|
Hi
It might be handy to emit the name and types of the controls that you encounter to the debugger. Something similar to the code below would reveal the names of the components on your form that get looped;
Public Function TotalSub(ByVal j As Integer, ByVal diameter As String, ByVal thickness As String, ByVal material As String)
Dim txtGG, txtYL As TextBox
Dim b As String = ""
Dim sum As Single = 0
For Each ctrl As Control In frmQia.Controls
System.Diagnostics.Debugger.WriteLine ("Type {0}, named {1}", ctrl.GetType().FullName, ctrl.Name)
If Not TypeOf ctrl Is TextBox Then Continue For
For i = 1 To j
If ctrl.Name = "txtTJGG" & i Then
txtGG = ctrl
I'm guessing that the TextBox is contained inside another control. That means that you'd have to loop the Controls -collection of the Control that you've put the textbox in.
I are Troll
|
|
|
|
|
Did you put these TextBoxs in another container on the Form such as a Panel?? If they are inside another container, you won't find them because they are not in the Forms Controls collection.
|
|
|
|
|
Hi,everyone!The Textboxes were in a Tabpage which was in the Form I wrote in code to find. So I should find textboxes I need in frmQia.Tabcontrol1?
|
|
|
|
|
Yes you would go through the controls on the tab page
e.g. where 0 is the tab page you want to check for controls
For Each ctrl As Control In TabControl1.TabPages(0).Controls
.... do checks and other stuff here
Next
As barmey as a sack of badgers
Dude, if I knew what I was doing in life, I'd be rich, retired, dating a supermodel and laughing at the rest of you from the sidelines.
|
|
|
|
|
Thank you, I will try it now!
|
|
|
|
|
Hi,Simon! I have tried what like you said,but it didn't find the textboxes.In this project, the Form "frmQia" was Inited after I clicked a button and after I inputed some textes in it, I would leave it. The sub that I wrote will be called in another Button_Click event after I leave the form.I think the form "frmQia" has hold the textboxes and their name were right.So...What happened to me...
|
|
|
|
|
It sounds as if you are trying to get values from one form by clicking a button on a different form.
If so, Passing Values between Forms in .NET 1.x with C# and VB.NET examples[^] might be useful to you.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
Hello,Henry! Thanks for your suggestion and the artcile.I've read it.It also give me some help!I have solved this quesiton with all you suggest.Finally I found the textboexes were in a form's tabpage's pannel.
Thanks all of you!
|
|
|
|