Visual Basic

Re: Link dialog (Hyperlink)

24-Jun-09 16:20

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

jinxster24-Jun-09 19:05

jinxster

24-Jun-09 19:05

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

Use same DLL instance accross separate applications

jwhite638824-Jun-09 11:42

jwhite6388

24-Jun-09 11:42

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.

Re: Use same DLL instance accross separate applications

Christian Graus24-Jun-09 15:12

Re: Use same DLL instance accross separate applications

24-Jun-09 15:12

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.

Jon_Boy25-Jun-09 1:29

Getting pixel colors in VB.NET

25-Jun-09 1:29

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

vidguy24-Jun-09 5:23

vidguy

24-Jun-09 5:23

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)

Re: Getting pixel colors in VB.NET

0x3c024-Jun-09 5:38

0x3c0

24-Jun-09 5:38

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

Re: Getting pixel colors in VB.NET

vidguy24-Jun-09 6:03

vidguy

24-Jun-09 6:03

Thanks Computafreak, that did the trick. It's always the simplest answer that's the right one.

i want code please someone help

harieshkumar.n24-Jun-09 2:28

harieshkumar.n

24-Jun-09 2:28

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

Jon_Boy24-Jun-09 2:38

24-Jun-09 2:38

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

Sk9324-Jun-09 3:02

Sk93

24-Jun-09 3:02

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? Suspicious | :suss:

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 Smile | :)

Christian Graus24-Jun-09 10:39

24-Jun-09 10:39

Jon_Boy wrote:
Your grammar is horrendous.

Why, what did she do ?

Steven J Jowett25-Jun-09 0:38

Steven J Jowett

25-Jun-09 0:38

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.

Jon_Boy25-Jun-09 1:31

25-Jun-09 1:31

Duly noted Steve + Christian. I was overly harsh.

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison

Steven J Jowett25-Jun-09 2:39

Steven J Jowett

25-Jun-09 2:39

It takes a big man to admit he was wrong. Thumbs Up | :thumbsup:

Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.

Dave Kreskowiak24-Jun-09 4:07

Dave Kreskowiak

24-Jun-09 4:07

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.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

dan!sh 24-Jun-09 7:39

dan!sh

24-Jun-09 7:39

harieshkumar.n wrote:
iam shaking my head for about a weak to do tyhis

And I thought, Perl != HeavyMetal.Rentacoder is what you need.

property grid

bhargava240923-Jun-09 23:42

bhargava2409

23-Jun-09 23:42

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

Christian Graus23-Jun-09 23:45

23-Jun-09 23:45

You've posted a whole lot of crap here, I'm not even going to wade through it.

bhargava2409 wrote:
i got error as function can not be over ride

Sounds like your problem is a lack of programming knowledge in general. It's hard to say in all of this if it's clear why you get this error, but it's obvious you're doing something wrong, on a very basic level.

bhargava2409 wrote:
Getting error called base class have multiple definetions

A .NET class can only have on base class. Again, it's hard to see what you're doing based on what you posted, but you posted a lot of boiler plate stuff. Perhaps if you distill this down to the code that matters and post the actual error message. If you can't work out what code relates to the message, that's another indicator that you're out of your depth.

bhargava240924-Jun-09 0:11

bhargava2409

24-Jun-09 0:11

Yesturday you asked me to post the whole detailes of the question with program in detailed then i posted this one to u.

Jon_Boy24-Jun-09 1:30

24-Jun-09 1:30

Your code looks fairly standard as far as property grids go.

My suggestion:
Create a new project with a property grid that contains just one combobox setting. Get that to work and then expand the other settings from there. Start small and get a working grid, then go crazy.

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison