|
Thanks for the help, but I think both of you are looking at this the wrong way.
Extractoing icons from the exe would work, but if there was more than one icon I wouldn'y know which to use. The application's icon is not alwayse the window icon.
Shell replacements seem to have no problems getting the icon for a running window... The following code is from Soft Shell Logi - a VB6 shell replacement: (Declarations neglected)
<br />
Private Sub DrawIcon(HDC As Long, hwnd As Long, X As Integer, Y As Integer)<br />
ico = GetIcon(hwnd)<br />
DrawIconEx HDC, X, Y, ico, 16, 16, 0, 0, DI_NORMAL<br />
End Sub<br />
<br />
Public Function GetIcon(hwnd As Long) As Long<br />
Call SendMessageTimeout(hwnd, WM_GETICON, 0, 0, 0, 1000, GetIcon)<br />
If Not CBool(GetIcon) Then GetIcon = GetClassLong(hwnd, GCL_HICONSM)<br />
If Not CBool(GetIcon) Then Call SendMessageTimeout(hwnd, WM_GETICON, 1, 0, 0, 1000, GetIcon)<br />
If Not CBool(GetIcon) Then GetIcon = GetClassLong(hwnd, GCL_HICON)<br />
If Not CBool(GetIcon) Then Call SendMessageTimeout(hwnd, WM_QUERYDRAGICON, 0, 0, 0, 1000, GetIcon)<br />
End Function<br />
Is there a way I can use DrawIcon to draw to a bitmap and create the icon for use in the system tray?
|
|
|
|
|
Since you got the handle to the icon, just can try (.NET):
Dim bmpIcon As Bitmap = Bitmap.FromHicon(handle returned by your GetIcon)
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I figured out fully the functions of this call through the use of for loops. This is great but there is a speed issue when handling the functions of this dll through for loops. I am just wandering if annoy one knows how to make this call work in .NET. The declare in vb 6.0 is
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)<br />
This is what i am having to work with. As anyone should know that the datatype
is not supported in .net. So i replaced it with the Object datatype.
a call to this dll function looks like this
<br />
Dim bytearray(3) as Byte<br />
dim bytearray2(3) as Byte<br />
<br />
Copymemory(bytearray(0), bytearray2(0), 4)<br />
This function copys all data starting with bytearray2(0) to bytearray(0) then
bytearray2(1) to bytearray(1) and so on until it copys 4 times. As you can see this can be done with a for loop. But say you have to run thought that for loop 1000 times. The Dll call is much more efficient. When i do it in the manner that i am now my processor sits at 100 percent for almost 3 seconds while it goes through these loops. In 6.0 using the dll call there is no wait and no processor jump. I need this call to work for program efficiency. Any help would be great. Thank you
|
|
|
|
|
The problem is you CAN'T use this function on managed objects and variables in .NET. The address you provide is not guaranteed to be the address of your object when the call to CopyMemory if made. The speed issue your having is because your marshaling objects back and forth between managed and unmanaged code.
Youe best bet is to trace through the code in VB6, and step by step, follow what happens to the array, then duplicate the steps necessary to perform the same thng in managed code. You'll be writing extra lines of code to do this, but you'll also gain a nice performance benefit by doing it either of there two ways.
So instead of CopyMemory from bytearray2 to bytearray0, you would just do:
bytearray(0) = bytearray(2)
bytearray(1) = bytearray(3)
bytearray(2) = bytearray(4)
bytearray(3) = bytearray(5)
You could also do this:
Array.Copy( bytearray, 2, bytearray, 0, 4)
You'll have to test each method to find out which is going to give you the greatest performance benefit, but both will be MUCH better than calling an unmanaged function on a managed object...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I would like to limit user using the System Menu CANCEL box in order to force them using CANCEL button instead! I can disable MINIMIZE & MAXIMIZE boxes but I can not disable CANCEL box in Property of System.Window.form... anyone knows how to do it?
Thanks,
|
|
|
|
|
Make the ControlBox property of the Form False.
|
|
|
|
|
Hi,
Thank you very much, I got it!
Regards
|
|
|
|
|
hello
well... i posted twice the same problem but it looks like
i wont get any answer
so i just want to know the answer
can i create a connection that enable me to chat with other computer user
(1 on 1) only
i just want to know can or cannot
please answer me cause if cannot i have to change or alter my whole program
but if can then can you please give me a link or help to where i can find such sample or codings
thank you
Gary
|
|
|
|
|
it's possible..
A friend of mine made a nice program to chat and share files on LAN.
do you use VB6 or VB.net ?
in both cases you'll need to know about Windows sockets.
using Winsock control in VB6 or .NET classes for VB.NET.
|
|
|
|
|
|
thank you very much for your help
currently in using VB.Net
so i'll study the winsock
so that i can try to connect or detect other computer
again here i thank you for your help
Gary
|
|
|
|
|
Hi, I want to import data from hundreds if not thousands of password protected excel spreadsheets.
Instead of manually opening them and unprotecting them by hand, how can I modify my program, which already imports the un-protected ones, so that it can read them even tough they are password protected.
|
|
|
|
|
The Open method of the Workbooks collection supports opening the file with a password. All you have to do is supply it. This is the description for the 2003 version of Office. Previous versions support most of the same options, but they all support opening a password protected file:
expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin,
Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
expression must return the Workbooks object.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
hello
please help me
i have the code below that i got from a few books
Private Sub Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Connect.Click
If ipB.Text <> "" And portB.Text <> "" Then
chatB.AppendText("Requesting Connection" & vbCrLf)
On Error GoTo ErrorM
myclient = New TcpClient(ipB.Text, portB.Text)
myclient.GetStream.BeginRead(mydata, 0, 1024, AddressOf DoRead, Nothing)
Status.Panels.Text = "Requesting Connection..."
chatB.AppendText("Connected..." & vbCrLf)
chatB.AppendText("----------------" & vbCrLf)
Status1.Panels(0).Text = "Connected to " & ipB.Text & ":" & portB.Text
Timer1.Enabled = True
a = InputB("Enter Nickname:", "Chat 2003")
Send("nick:" & a)
portB.Enabled = False
SendB.Enabled = True
Connect.Visible = False
DC.Visible = True
ipB.Enabled = False
End If
ErrorM: If SendB.Enabled = False Then
chatB.AppendText("Please try again")
End If
End Sub
somehow the code wont work. i keep getting "Please try again"
im trying detect my college server with the coding
is it possible??
or do i need something else??
can u tell me what else i need
thank you in advance
Gary
|
|
|
|
|
Let's say that I have created 2 interface types that is implemented in 2 classes in a dll, 1 interface implemented by 1 class. Now I need to load those classes and then instantiate an object to invoke the interfaces. Question: How do I determine at runtime the interface implemented by a class so that I can cast to the object's type and then invoke it's interface? Is there a better way than trying to cast it to a specific object hoping it will not raise an exception in which case I'd have to cast it to another type?
I am building an application that is extensible by plugins and I need this functionality.
It hurts to ask, but it hurts more to be ignorant.
|
|
|
|
|
|
I got it!!! I forgot about the Typeof keyword. Thanks.
It really does not hurt to ask, especially when you knew the answer all along.
|
|
|
|
|
I'm trying to use the WM_GETTEXT to get the contents of a textbox in a child window in another app.
I can find out handles using winspector so I dont need to use findwindow but I arn't sure how to target the actuall text box.
Frankly I'm sick of searching for rubbish examples so If anyone can offer any help, please do.
Thanks
Danny
|
|
|
|
|
i am working on a visual basic program (GUI). in this program i am using the VB graphing capabilities to output different grpahs. they are pretty bad. i am trying to somehow create a .mat file so i can graph the data in MATLAB. any ideas on how to create a .mat file, or even better just call matlab to graph it. i do not have the matlab com builder, which looks pretty simple to integrate matlab and VB6.
i am pretty new to VB6, so this might sound like a dumb question, but any help would be GREATLY APPRECIATED!
THANK YOU
Paul
|
|
|
|
|
There is a C program example somewhere in the Program Files\Matlab folder. Good luck translating that into VB6 code...
You'll be much better off doing it with a MATLAB COM component. You can start the the documentation on MATLAB's COM/DDE support here[^]. Specifically, you're look for the External Interfaces/API Reference.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Is there a general way to check if an if statement is semantically correct in vb.net?. For example:
Checking this:
input string:
Cost = 20 + Quantity - Discount and Cost = 49
or it could be:
Cost = 20 * Quantity / Discount and Cost = 49
Note that Cost, Quantity, and Discount is an integer variables.
Thanks in advance for your help.
John
|
|
|
|
|
This question doesn't have an answer until it's put into the context of how it's being used...
Are you saying that you want to check to see if this code is correct before being compiled? Or are you trying to parse this string and evalutate it?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Basically, the string is an if statement.
For example:
if Cost = 20 * Quantity / Discount and Cost = 49 then....
This is an input from user. And i'm trying to parse the string and check the "if" part only.
John
|
|
|
|
|
Let me get this straight... This is your VB.NET code and your trying to do something like this:
'Get some user input and put it in a variable. Then evaluate the expression...
Dim strInput As String = "Cost = 20 * Quantity / Discount and Cost = 49"
EvaluateUserExpression(strInput)
.
.
.
Public Function EvaluateUserExpression(ByVal strExpression As String) As Boolean
If strExpression Then
Return True
Else
Return False
End If
End Function
Now, if I understand you correctly, the Cost, Quantity, and Discount terms are actual variables inside your code. Correct?????
If this is true, then what you want to do can't be done using a simple if statement. You must parse up and validate the expression term-by-term and evaluate it along the way. You would ahve to check to see if the Cost/Quantity/Discount variables exist in your code, handle the equals signs and the operators yourself. You're looking for expression parsing techniques that, if covered in breif, are much too large to be taught over the forums.
Google for 'VB mathematical expression parser' and you'll come up with tons links on various articles, techniques, some source code...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I'm generating charts with dynamic data. My problem is, my default chart options do not save when they are loaded onto another computer.
Can anyone tell me how to dynamically set chart options so that they will generate correctly on other computers?
(Chart type/series type/etc.)
I need to modify the X and Y Axis Scale
I need to modify the Chart Type
And various other chart options as such.
|
|
|
|
|