|
I'm not sure I'm completely following you here. The controls are displayed when the index is 1 right? What else are you expecting to occur?
Also, check that you have at least 2 nodes in the treeview since the index is zero based.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
I tried the aabove code by making a button visable false and on selcting a perticular treenode it will appear but the same code is not working for the group box that consits of some group of buttons.
I want make that group box visable when i click on a perticular treeview node.
|
|
|
|
|
I tried the aabove code by making a button visable false and on selcting a perticular treenode it will appear but the same code is not working for the group box that consits of some group of buttons.
I want make that group box visable when i click on a perticular treeview node.One more thing i have i have 8 child nodes for my tree so thre is no problem of zero index base.
|
|
|
|
|
Your code looks like it should work. Check the visible property (should be true) on the button controls in the group box to see if visible = true. If not, you'll need to change that at design time or during run time looping the groupbox's control collection.
Quick test app you can do.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'add a group box and stuff with button controls
For Each ctl As Control In GroupBox1.Controls
ctl.Visible = True
Next
GroupBox1.Visible = False
End Sub
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
If e.Node.Index = 5 Then
GroupBox1.Visible = True
End If
End Sub
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
Thanks Jon_Boy Your code is working for me. 
|
|
|
|
|
TreeViewEventArgs has all the properties you need. You can use them right away.
Apart from that what exactly is the problem you are facing.
|
|
|
|
|
How does one initiate windows hyperlink dialog selector. By this I do not mean the link label. There is a dialog that is called in C++ with "using (LinkDialog dlg = new LinkDialog())"
With the other dialogs you (color, font, etc) you add them via a control in the toolbox, but I do not find a LinkDialog.
Many thanks
|
|
|
|
|
There is no using statement in C++. Also, if a control exists in MFC, does not mean it exists in .NET. Do you have a link to the control you want, in MSDN ?
Christian Graus
Driven to the arms of OSX by Vista.
"! i don't exactly like or do programming and it only gives me a headache." - spotted in VB forums.
I can do things with my brain that I can't even google. I can flex the front part of my brain instantly anytime I want. It can be exhausting and it even causes me vision problems for some reason. - CaptainSeeSharp
|
|
|
|
|
Hi Christian,
Ok you are correct. I am currently busy converting a project from C++ to VB.NET (why I dunno but here I find myself doing this) I only notice now amongst the millions (ok not quite millions) of classes and forms and other resources that the previous guy made a LinkDialog class which basically has a textbox to indicate what text must be show and a URL textbox for the link and a dropdown to select target. So that is where it comes from.
So basically I just make another one. Thank you
|
|
|
|
|
Program that someone else wrote. (ProgA)
Program that I wrote. (ProgB)
DLL that someone else wrote (i have the cls file) and I have modified. (DLL1)
I have sample code with an attempt to accomplish my goal if needed.
When ProgA sends a message to DLL1, I need ProgB to see the results of the call from ProgA to DLL1.
|
|
|
|
|
A dll can't call your main app. So, you want to load the same dll instance into both programs. I am not sure if that is possible. Your best bet IMO would be for the dll to use WM_COPYDATA or similar to communicate with the other program, or create some sort of shared storage for the dll to use between instances.
Christian Graus
Driven to the arms of OSX by Vista.
"! i don't exactly like or do programming and it only gives me a headache." - spotted in VB forums.
I can do things with my brain that I can't even google. I can flex the front part of my brain instantly anytime I want. It can be exhausting and it even causes me vision problems for some reason. - CaptainSeeSharp
|
|
|
|
|
Agreed in that there should be some way to store the info so that both apps can access it.
Is it possible to relaunch app2? If so, you could restart app2 and pass in command line args to have it process whatever needs to be done.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
My goal is to get the RGB colors of a pixel when I click in a picturebox. Every piece of code I've been able to try or find doesn't work. The bit below uses the GDI GetPixel function and should work but returns an Overflow error. I'm using VB 2008 Express.
Dim p As Point = picbox.PointToClient(MousePosition)
Dim g As Graphics = picbox.CreateGraphics()
Dim pbdc As IntPtr = g.GetHdc()
Dim c As Color = ColorTranslator.FromWin32(GetPixel(pbdc, p.X, p.Y))
g.ReleaseHdc(pbdc)
|
|
|
|
|
You seem to be trying to get a pixel from picBox's display context. Is this what you want? If so, then you can simple use (picBox.Image as Bitmap).GetPixel(p.X, p.Y) instead. However, that's just the basic idea. You'll probably want to split it up into separate lines, and add a null-check from picBox.Image. If that's true, you'd probably just want to return a color with 0 transparency
Between the idea
And the reality
Between the motion
And the act
Falls the Shadow
|
|
|
|
|
Thanks Computafreak, that did the trick. It's always the simplest answer that's the right one.
|
|
|
|
|
Public Function DecryptString128Bit(ByVal vstrStringToBeDecrypted As String, ByVal vstrDecryptionKey As String) As String
Dim bytDataToBeDecrypted() As Byte
Dim bytTemp() As Byte
Dim bytIV() As Byte = {121, 241, 10, 1, 132, 74, 11, 39, 255, 91, 45, 78, 14, 211, 22, 62}
Dim objRijndaelManaged As New RijndaelManaged()
Dim objMemoryStream As MemoryStream
Dim objCryptoStream As CryptoStream
Dim bytDecryptionKey() As Byte
Dim intLength As Integer
Dim intRemaining As Integer
Dim intCtr As Integer
Dim strReturnString As String = String.Empty
Dim achrCharacterArray() As Char
Dim intIndex As Integer
bytDataToBeDecrypted = Convert.FromBase64String(vstrStringToBeD...
intLength = Len(vstrDecryptionKey)
If intLength >= 32 Then
vstrDecryptionKey = Strings.Left(vstrDecryptionKey, 32)
Else
intLength = Len(vstrDecryptionKey)
intRemaining = 32 - intLength
vstrDecryptionKey = vstrDecryptionKey & Strings.StrDup(intRemaining, "X")
End If
bytDecryptionKey = Encoding.ASCII.GetBytes(vstrDecryptionKe...
ReDim bytTemp(bytDataToBeDecrypted.Length)
objMemoryStream = New MemoryStream(bytDataToBeDecrypted)
Try
objCryptoStream = New CryptoStream(objMemoryStream, objRijndaelManaged.CreateDecryptor(bytDe... bytIV), CryptoStreamMode.Read)
objCryptoStream.Read(bytTemp, 0, bytTemp.Length)
objCryptoStream.FlushFinalBlock()
objMemoryStream.Close()
objCryptoStream.Close()
Catch
End Try
Return (Encoding.ASCII.GetString(bytTemp))
End Function
i have got this cod to encrypt a string i want it to be written in perl
Is it possible
can anyone help me out with this please
help me iam shaking my head for about a weak to do tyhis
|
|
|
|
|
1. Where's the formatting?
2. What exactly are you asking? If its encrypting/decrypting a string, what's the problem?
3. Your grammar is horrendous.
Other than that, everything looks fine.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
The question was at the bottom of the code....
harieshkumar.n wrote: i have got this cod to encrypt a string i want it to be written in perl
Is it possible
The answer is probably yes.
However, I suspect you are after someone to write the code in perl for you? 
If not.. show us what you've written so far in perl and we'll see if we can spot what you've done wrong 
|
|
|
|
|
Jon_Boy wrote: Your grammar is horrendous.
Why, what did she do ?
Christian Graus
Driven to the arms of OSX by Vista.
"! i don't exactly like or do programming and it only gives me a headache." - spotted in VB forums.
I can do things with my brain that I can't even google. I can flex the front part of my brain instantly anytime I want. It can be exhausting and it even causes me vision problems for some reason. - CaptainSeeSharp
|
|
|
|
|
Jon_Boy wrote: 3. Your grammar is horrendous.
The grammar seems ok to me. The spelling is not hot but then I am assuming English is not his first language. I was was woundering how many languages (other than English) you can speak and write perfectly, and thus give you the right to be rude to someone else that is making the effort to communicate in a second language?
Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
Duly noted Steve + Christian. I was overly harsh.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
It takes a big man to admit he was wrong.
Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
Noone here is going to write your code for you. Go to www.rentacoder.com[^] if you want someone to do your work for you.
|
|
|
|
|
harieshkumar.n wrote: iam shaking my head for about a weak to do tyhis
And I thought, Perl != HeavyMetal.Rentacoder is what you need.
|
|
|
|
|
hi,i am trying to design a property grid that consisits of multiple drop downs of user defined and move those values selected to a variable in back end vb.net code and perform some matha matical calculations.
But i am not able to create multiple dropdowns in single group can any one help?
My main problem is i am creating multiple drop downs using class for each dropdown.i created one drop down but i can not able to create multiple.
Getting error called base class have multiple definetions. code i am trying for drope down is:
Imports System.ComponentModel
Public Class MotoList1 : Inherits System.ComponentModel.StringConverter
'''
'''
Private _Title As String
Private _Show As Boolean
Private _Number As Short
'''
<CategoryAttribute("Other Inputs"), _
Browsable(True), _
[ReadOnly](False), _
BindableAttribute(False), _
DefaultValueAttribute(""), _
DesignOnly(False), _
DescriptionAttribute("Enter Title for the application")> _
Public Property Title() As String
Get
Return _Title
End Get
Set(ByVal Value As String)
_Title = Value
End Set
End Property
'''
<CategoryAttribute("Other Inputs"), _
Browsable(True), _
[ReadOnly](False), _
BindableAttribute(False), _
DefaultValueAttribute("True"), _
DesignOnly(False), _
DescriptionAttribute("Show option")> _
Public Property Show() As Boolean
Get
Return _Show
End Get
Set(ByVal Value As Boolean)
_Show = Value
End Set
End Property
'''
<CategoryAttribute("Other Inputs"), _
Browsable(True), _
[ReadOnly](False), _
BindableAttribute(False), _
DefaultValueAttribute("0"), _
DesignOnly(False), _
DescriptionAttribute("Enter a number")> _
Public Property Number() As Short
Get
Return _Number
End Get
Set(ByVal Value As Short)
_Number = Value
End Set
End Property
Dim _Motor1in As String() = New String() {"400", "500"}
Public Overloads Overrides Function GetStandardValues(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.ComponentModel.TypeConverter.StandardValuesCollection
Return New StandardValuesCollection(_Motor1in)
End Function
'''
Public Overloads Overrides Function GetStandardValuesSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
Return True
End Function
'''
Public Overloads Overrides Function GetStandardValuesExclusive(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
Return True
End Function
'''
End Class
here while am trying to create another drop down --GetStandardValues-- i got error as function can not be over ride
that is the my problem
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
