|
Hi Folks!
I have a BIG problem, i can't work further because of a little thing who doesn't work...!
I want to draw a Line in a VBA Makro but it doesn't work!
The function from PictureBox -- Image.Line(....) -- is not existing!!
Is there another way to draw a line in a picture in VBA?
I have only the x / y koordinates form start an end and between these a wan't to draw a line, i don't need more!
I hope soooooo much that there is a (easy) way to draw such a line!!!
Please help me!!
Thank you very very very much!!!!
Greetings, Ronny
|
|
|
|
|
Draw a line on what control? In what application?
You can draw a line in a PictureBox using it's Line method, but you can't on an Image control.
Line Method
- PictureBox control[^]
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I'm getting this error "Object reference not set to an instance of an object. "
when I'm trying to pass an arraylist into a procedure
Here's the code:
Dim AstrFilenames As New ArrayList<br />
Dim BoolSuccess as boolean<br />
BoolSuccess = ClsZipFiles.CreateZipFiles(AstrFilenames, Val(loadid.Text))<br />
'Here's the declaration of the function<br />
Function CreateZipFiles(ByVal AstrFilenames As ArrayList, ByVal IntLoadId As Long) As Boolean<br />
Could someone please advice me where m getting wrong.
Thnx
g
|
|
|
|
|
If you've class named ClsZipFiles, this should work fine:
Dim MyZipFiles as New ClsZipFiles
Dim AstrFilenames As New ArrayList
Dim BoolSuccess as boolean
'BoolSuccess = ClsZipFiles.CreateZipFiles(AstrFilenames, Val(loadid.Text))
BoolSuccess = MyZipFiles.CreateZipFiles(AstrFilenames, Val(loadid.Text))
'Here's the declaration of the function
Function CreateZipFiles(ByVal AstrFilenames As ArrayList, ByVal IntLoadId As Long) As Boolean
Could you show declaration of ClsZipFiles in your code, and full body of CreateZipFiles?
|
|
|
|
|
Hello,
I wanted to know how one can handle an installation of the application only once.
I mean to say that, if a software has to be installed on a system, then it can be installed only once on that system and if a person tries to install it on another system then that person should not be able to do it.
I hope the problem which I have mentioned is clear and hope to hear for a solution at the earliest. I would like to have a solution either in VC++ or VB and would also appreciate if there is a sample program to guide me.
Regards,
Mythri
|
|
|
|
|
Not possible. Since you can't guarantee that every machine your software runs on will have Internet access or a connection to every other computer that it might be installed on, there is no way your can determine if the software has been installed on more than the authorized number of machines. You can't even do this with a central registration server...
This is a problem that's been plaguing the software industry for decades. The only way your going to get anywhere close to having a customer run only a single copy of your software is to integrate some kind of dongle security device into your product. The customer would have to attach this to the parallel port of the machine in order to run your software.
But! This is by no means a foolproof method of securing your product. When it comes down to it, your code must still execute a single IF instruction that determines wheather or not the software should run, and this single instruction can be modified to allow the software to run no matter if the security device is there or not...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
|
In my opinion, an application should distribute on a read/write memory stick. When the user install an application successfully, then it will erase every source of setup file from the memory. So no one could install for the second time. In my country (Cambodia) some publisher publish a CD with a small scratch on it. When the user run setup it work fine but when they take the CD to copy it said error because it meet the scratch area on the disc. But this method just reduce the speed of illegal copy software. It can't completely a hundred percent victory. Some people just buy one CD and distribute it to his/her family or his/her friend (not all people, just small amount of people).
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
|
I want to have a program in VB, in that program i will input the TIFF image and it will show me it properties not by viewing the image but by writing information on a text file. Though i have image control but they don't support TIFF images. Can any body have any idea about it.
M Naveed Saeed,
naveed@archifiles.com
|
|
|
|
|
First, are you using VB6 or VB.NET?
Second, you might want to check out a 3rd party TIFF library, such as LibTIFF[^].
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Actually i am working on VB Component in AutoCAD. And i want to load and automatically save the image properties specially height and weight.
May be i can move this to VB6 if i don't have enough support within AutoCAD.
|
|
|
|
|
Anonymous wrote:
May be i can move this to VB6 if i don't have enough support within AutoCAD.
?????????????????
In any case, you'll definately need the 3rd party library, like I mentioned before, to get the information you want out of the .TIFF.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi guyz, can somebody help me to convert the VB6 to Vb.Net
VB.CODE:
Dim ConnPort As String
Dim TypeFile As String
Dim psz As String
' Get selected Port
ConnPort = cboPort.List(cboPort.ListIndex)
If ConnPort = "COM" Then
psz = "COM1 =0 "
Else
psz = "USB=0 sharemode=shared "
End If
' Get selected File type
TypeFile = cboFileType.List(cboFileType.ListIndex)
If TypeFile = "Record" Then
psz = psz & "filetype= record"
Else
psz = psz & "filetype=transparent"
End If
DisplayResult "Connection Suscessful"
lngResult = PHOpen(psz, phConn)
DisplayResult "PHOpen : " & lngResult
DisplayResult "Result String : " & GetErrorString(lngResult)
I'll appreciate you guyz for helping me.. thanks in advance..
|
|
|
|
|
Do you have VB.Net installed on your computer? If you have then use Visual Basic Upgrade Wizard in VB.NET. Note that some feature could not upgrade from VB6 to VB.NET. You can read more information from here[^] about upgrading application from VB6 to VB.NET.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
hi yall i need some help here im trying to make an aplication in vb.net that can erase folders and files in side of a folder so say i have a folder called MIKE and in that folder i have 4 files and 2 folders i want my program to be simple so all you do is when the aplication comes up it says what folder would you like all information deleted out of so then i would type MIKE and then the program would delete all files and folders in that folder with out deleting that folder called MIKE and i also want it to erase all hidden and system files in that folder is there any type of code this is basically all i have right now is a .bat file that looks like this
@echo off
cd \
cd mike
echo y |del *.* /a h s
exit
but lets say i want to erase all my temporay internet files i am not able for some reson and i do not know why can some one please help me  
THANK YOU FOR ALL YOUR HELP GUYS IF ANY OF YALL NEED ANY HELP WITH HP PROLIANT OR HP9000 SERVERS JUST LET ME KNOW I KNOW THEM INSIDE AND OUT
|
|
|
|
|
Erasing the Temporary Internet Files folder will require you to use the same API functions that IE uses. You can't just go into the folder and delete everything. You're not really looking at a folder of files. What you looking at is a Shell Extension that presents the cache data in a format that LOOKS like files in folders.
You'll have to enumerate the Cache Groups and Entries and delete them one at a time. The docs for the WinInet Caching functions start here[^].
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Wrong,
the best way to get rid of temporary internet files is, to use a sendkeys code:
First open the folder, with an appactivate(processId) using exlorer, then
SendKeys("%(e+a){delete}%(f+c)")
Which selects all, and deletes, then closes the file.
Cookies are done similarly, but you have to work around the index.dat file.
|
|
|
|
|
TT(n) wrote:
Wrong,
the best way to get rid of temporary internet files is, to use a sendkeys code:
SENDKEYS??? Are you crazy?  SendKeys is DEFINATELY NOT the best way to do it. The method that you're using is problematic at best. One, your relying on the user interface of another application, which can change over time and versions. Two, your using SENDKEYS, which will post keystrokes to the window that has the input focus, which, in a multitasking environment, can change AT ANY TIME. Even between the time when you activate the application your going to send the keys to and the time that you actually call SENDKEYS. This can AND DOES happen even when you put the SendKeys statement directly after your activate.
TT(n) wrote:
Cookies are done similarly, but you have to work around the index.dat file.
If you have to make special exceptions for a file, it makes SendKeys far more difficult to use that it should be.
No... the BEST WAY to do it is using the same API functions that IE uses, using the same methods. And you don't have to make any special exceptions for anything.
EDIT:
I should have put in an example of the problem I talking about. Your AppActiveate statement executes, right then you have an Instant Messager message come in, I don't care what product its running on. When that message comes in, some IM apps will bring the chat window into the foreground and snag the focus, others will let you control this functionality. Now, your SendKeys statement runs. Where do you think your keystrokes are going to go? Hint: Not where your AppActivate statement says!
If your going to tell me, or ANYONE else here, they're "wrong", you better have a mountain of evidence to back it up, not just your opinion. If not, you only have an ALTERNATIVE method to what was suggested as a solution.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
The mountain of evidence, is that I have used to code on 15 PC's with absolutely no problem. I have them automated to clear stuff out after IE is shut down. Since the windows IE advanced property for this does not always work, so go figure.
Some of mine are set on timers, and they always continue focus, though anything is possible, so you could modify the code to cancel out some interference. With your method,... I have seen it not work many times.
Probably due to hacks, etc.
I understand you are offended for being told wrong by a rookie.
But to go on, like there is no way to just delete them, as a user would is incorrect, or INCOMPLETE, is the word i was looking for.
You, can do so more reliably from the;P mountain of evidence that I have seen.
|
|
|
|
|
This code works for someone looking for a simple answer, as asked.
Private Sub Command1_Click()
Dim ExpId As Integer
On Error Resume Next
ExpId = Shell("Explorer c:\Documents and Settings\Users Folder\Local Settings\Temporary Internet Files", vbMaximizedFocus)
AppActivate (ExpId)
SendKeys ("%(e+a){delete}%(f+c), 1")
End Sub
An automated version, could wait until processes are idle or shutdown etc.
The workaround for the index file, in the cookie folder, isn't much for complicated but there are few ways.
|
|
|
|
|
TT(n) wrote:
With your method,... I have seen it not work many times.
Probably due to hacks, etc.
I've never had a problem with it. But I have with other applications stealing focus, especially in Instant Messaging environments and login scripts running concurrent utilities for various tasks. In an environment with 15,000 users, SendKey's flaws shine VERY brightly...
It was just much smaller code to use the right API's correctly, than it was to counteract the flaws using SendKeys...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Backpedal, you said it is required to do it your way, and that you can't just go in and delete the files/folders.
If the API's were smaller, why not post it with a few lines?
API's are flawed too, it is big business to get cookies etc on your machine.
You have a point, sendkeys can be funky but within the correct parameters works just fine. Besides the person asking the question sounds pretty green.
'Here is another approach that works better, than a simple sendkeys.
'Set your timer to 500, or 1000 and set txtTime.text = 5.
Private Sub Command1_Click()
txtTime.Text = 0
End Sub
Private Sub Timer1_Timer()
Dim time As Integer
On Error Resume Next
time = txtTime.Text
txtTime.Text = txtTime.Text + 1
End Sub
Private Sub txtTime_Change()
Dim ProcessId As Integer
On Error Resume Next
If txtTime.Text = 1 Then
ProcessId = Shell("Explorer c:\Documents and Settings\DivinePrime.HAL\Local Settings\Temporary Internet Files", vbMaximizedFocus)
AppActivate ProcessId
End If
If txtTime.Text = 2 Then
AppActivate ProcessId
SendKeys "%(e+a){delete}"
End If
If txtTime.Text = 3 Then
SendKeys "%(y)"
End If
If txtTime.Text = 4 Then
AppActivate ProcessId
SendKeys "%(f+c)"
End If
End Sub
|
|
|
|
|
TT(n) wrote:
If the API's were smaller, why not post it with a few lines?
Because I'm not in the habit of just giving solutions away to everyone. You don't learn anything by being handed every answer. He can attempt to do the research and construct the code himself and then ask questions on what he's doing wrong. But to just be handed the complete answer... I haven't done that yet and am not about to start. Besides, we're here to HELP people with problems, not solve them for everyone.
And I not going to get into a coding contest with you either. I've got better thing to do with my time than to prove myself to you.
TT(n) wrote:
API's are flawed too, it is big business to get cookies etc on your machine.
I haven't had any problem with these. And besides, that what patches and service packs are for. Actually, cookies are just little text files with data in them. No code! Getting you to install the spyware is much bigger business.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Oh you poor thing, you install service packs as directed. lol
You need not defend them, everyone knows how much they stink, except you.
Data is very important regurding how, and when the spyware will go in.
For instance, a common spyware is actually on a comcast cd(broadband) I recieved. It installs it's look-a-like browser, with a some isearch that doesn't even work. The ironic part, is that comcast advertises that they can eliminate certain spyware's, INCLUDING the one on the CD, for a fee ofcour$e.
That's like starting up a windshield repair service, and then at night while no one is looking, go around bashing windows.
Ok now that it's over.
You stand corrected.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
