A1VBCode Forums / Classic Visual Basic (VB 6 or earlier) / General Visual Basic

VB 6 software application and Win 7 issues

VB_2010_USA — Wed, 28 Jul 2010 11:41:18 GMT

If you (or someone you know) may be interested in speaking to me re: this project I'd love to hear from you. It's a nice product, has been on the market for five years and I have the code as the sole proprietor. We just need to get past the issues seen with Win 7. If interested in learning more, pls contact reply privately and we'll go from there. If there are other places on this site that this message should appear, pls advise as I wish only to follow the rules towards a successful correction in our code. Thanks.

Help in VB

h81 — Tue, 27 Jul 2010 09:01:03 GMT

Good Evening every one...I m new to programming and specially in VB .I just got an assignment from my company to upload a file in sql server through vb.I m not able to do it.I have created a table in sql server 2005 with the same column name but after having so many visits on search engines m not able to find the exact solution for it.Kindly help me ,will be grate ful .Thanks

One more thing I m trying since morning when I declare a adodb driver as a connection ,system is giving "user defined type not defined "error.

Someone has suggested me this website and I found many wonderful projects in it.Hoping positive response from anyone of u.

Thanks Again..

Digitize Part of Bitmap Image

La Vesey — Tue, 27 Apr 2010 12:18:23 GMT

I am a raw beginner to visual basic (I have ver. 6), I do have some experience with quickbasic 4.5 which is not visual.
I need code to open a large bitmap image in JPG format, size is 2300 by 2697 pix and my screen size is 1024 by 768, placing it on a background ( or layer), which will not be saved. Then on an active layer I want to draw parts of this bitmap image in as points (nodes) and lines, or ploylines, and when done, save this vector data (layer).
Then I want to export or save this vector data to a file in plain text.

Looks like what I need to do is write code for a "picture box" in order to load (open) the jpg bitmat, --- then ---

write code for recording (appending) the screen coordinates of each mouse click, to an ascii text file.

I have read general books for V B but it appears they are assuming that I already know what is going on, which I do not.

There are commercial programs which will do this, but they are very expensive, and the beauty of writing my own is that I have some control over how it works.
La Vesey

8 bit Signal Generator-VB 6

harshato — Sun, 25 Jul 2010 20:21:12 GMT

I am making a small software to automate LED light system
with the use of port programming
pls help me on this.
pls sorry for my bad written English.

In this case i hv used 8 command buttons.
when we click dat button buttons backcolor goes red
when we click dat again its backcolor goes white.
After clicking those 8 buttons as the user likeness there is a button called ADD
when we click dat button generates binary code corresponding to dat buttons backcolors(RED-1/White-0)

ex:
8 command buttons>>
RED | WHITE | RED | WHITE | RED | WHITE | WHITE | WHITE

8bit no added to the list box>>
10101000

like wise we can add several bit patterns to the list box
after adding those patterns we can click play.
When playing, 1st the program analyzes the listbox, those bits in 1st row and generates parrallel port output as well as Buttons Demonstration.(I mean the reverse case of that i mentioned earlier.. analyze bit pattern and blink those buttons)
this process must complete consecutively. row by row program reads the bit pattern sets the button button colors as it should be. delay few seconds. again reads next row..

I programmed this.But i couldnt get the required output. I get the required output when i use break option when executing.

This is the Project coding i hv made.pls refer that.and help me out this.
The problem is in RUN button.
In the body of (For i=0 to listcount-1) Loop

http://www.box.net/shared/jo77sm33gq

Thanks.

Project Explorer, and Properties Window missing

atora — Fri, 16 Jul 2010 09:48:19 GMT

When Writing a visual Basic (VB6) program and load the program I cannot access The Project Explorer or Properties Window. When I click VIEW nothing happens. How do I reset them?

Thanks, Atora

I need some help working out the point positions along a straight line: in vb.net or c#

coolpjmartin — Thu, 22 Jul 2010 03:57:48 GMT

Help needed Calculating New points along a straight line:

I need some help working out the point positions along a straight line:

I will try to explain what I am doing:

I have two points (x1, y1) and (x2,y2) and have a straight line between the 2 points, from this I can work out the distance between the 2 points lets say it is 50.
What I want to do is increase or decrease the length of the line by a predefined amount lets say 10.
So If I increase the line length by 10 (from 50 to 60), What I want to work out is what point(x3,y3) would be at the end of the increased line.
Hope this makes sense.
I have tried to work out the new point using the angle but it does not work correctly, it does not seems to produce a perfectly straight line and the angle from point (x1,y1) to the new (x3,y3) is not the same as the angle from point (x1,y1 to x2,y2).

This is what I have tried:
:I work out the angle
aAngle =Math.Atan((Y2 – Y1) / (X2 – X2))

:get the length of the line and increase by 10
nChngX = Math.Pow((X1 –X2), 2))
nChngY = Math.Pow((Y1 – Y2), 2))
nChng = Math.Sqrt(nChngX + nChngY) + 10

:work out the new points (x3,y3)
X3 = CSng((Math.Cos(aAngle) * nChng))
Y3 = CSng(CSng((Math.Sin(aAngle) * nChng)))

If someone could post some sample code, in either c# or vb.net that would be much appreciated.

How to reset Windows 7/Vista/XP/2000 password if you forgot or lost windows password

passwings — Mon, 19 Jul 2010 02:49:08 GMT

How to reset Windows 7/Vista/XP/2000 password if you forgot or lost windows password

It is truly very often for us to meet the password problem, sometimes we would forgot windows password or lost windows password, and could not login windows system and make a big trouble. At this time, you would hope to find a way to reset and recover the forgotten password.
Actually, a lot of methods are available to recover or reset the Windows password. But most of them are designed for PC experts, not common PC users, those solutions are too complicated to get it work for us. And in this article, I will show you a professional software tool which could help you to reset forgotten windows password easily.

Total Windows Password Reset is powerful password recovery software to reset Windows admin
passwords for you to login Windows OS without reinstalling the OS when you forgot windows password or lost windows password. It could remove windows password and set the password to blank. Just boot from the program CD/DVD or USB flash drive, choose the account you wish to reset and all will be done. It is not a method to crack or bypass windows password, just remove or delete windows password and set it to blank so you could login windows to set new password.
Below is the guide of how to reset windows password with this software, only 3 steps are needed to reset windows 7/Vista/XP password:

Step 1: Download the setup file of Total Windows Password Reset on the official website:
http://www.resetwindowspassword.net/downloads/totalwpr.exe
And install it on another PC. Then you could startup the password recovery software to prepare the bootable disc.

Step 2: Burn the windows password recovery bootable CD/DVD or USB disc with the software.
Now, you may select “Burn DVD/CD Disc” or “Use USB Disc”. If you select first method, you need to have a blank CDR/DVDR disk, a COMBO or DVDRW drive on the PC. If you select to use USB disc, you just need to pay attention: This USB devices would be formatted, so you must make sure to back up all the data before use it. And the maximum capacity of the USB devices cannot exceed 2G.
Tips: We recommend you to use the DVD/CD method to do the windows password reset, because some computers may not support USB start-up.

Below is step by step to show you how to burn the CD/DVD
1. Launch Total Windows Password Reset main window, Click “Burn DVD/CD Disc” button.
2. In BurnCC’s main window, click “Browse” button and in the open window, locate the file “TWPR.iso” on your desktop, select it and click on Open to get back to the main window. Then, click “Start” button.

3 Your DVD drive should open and insert a blank CD-R or DVD-R disc into the drive and close it. Click “OK” button. Your CD will be burned in a few minutes.
Tips: if there is already a CD/DVD disc in the drive before run the software, the CD drive will open automatically . Please close it again. The process will be continuing.

Below is step by step to show you how to burn the USB drive
1 Insert a USB drive into a USB slot on your computer and run Total Windows Password Reset, Click “Use USB Disc” button.
2 Click“Step1”button. Then, Right-click on the usb_format.exe and choose “Run as Administrator”.
3 In USB Disk Storage Format window, set the file system to FAT, Check the Quick Format box, check the Create DOS Bootable Disk, Browse to the DOS_files folder on your Desktop, click OK & then Start.

4. Click OK on the following window and then close the USB format tool. Your USB drive now is formatted.

5. Click “Step2” button and open the USB drive with your computer. Then, copy the files from the USB_files folder and paste them directly to the USB drives main directory. 2 of the files may become hidden and you will not see them on the USB drive. This is okay. Your USB drive is now complete.

Step 3: Boot your PC with the burned CD/DVD or USB disc to reset windows password.
You need to insert the Created CD/DVD or USB drive into the optional drive of the locked computer and reboot it.
Tips: It your computer still boots from hard drive Windows OS, it's necessary for you to change your COMS or BIOS settings to make it boot from CD/DVD or USB drive. If you don’t know how to set it, you may visit the official website: http://www.resetwindowspassword.net or contact the computer manufacture.

The computer boots from CD/DVD or USB drive, then
1 The program will ask for the Windows OS hard drive volume. Enter the ID number of the hard drive volume that Windows is installed.

2 The program has detected all the user names of Windows and asks which user name password is to be removed. Enter the ID number for the User Name.

3 The program asks to confirm weather to remove the password or not. Enter "y" (yes) to confirm your action and "n" (no) to deny the action and hit "Enter".

4 The program asks whether to continue to remove passwords for other accounts. Enter "y" to continue and "n" to finish. Eject your USB from your computer first and press any key to restart the computer from Windows. Now you can log in Windows with an empty password (with no password.), just click “Enter” when you login.

If you have any questions of the procedure and the settings, you could visit the website:http://www.resetwindowspassword.net or send email to support@resetwindowspassword.net.

Now you could see that to reset or recover the admin login password of windows OS: XP, Vista, Windows 7 or 2000 is not so difficult and you can do it with ease.

Diff between VB6.0 and VB in Visual Studio 2005

macroman — Fri, 07 May 2010 09:47:24 GMT

Sorry if this has been asked before, I did a search but I didn't get any hits. I've been using VB6.0 since 2002 and my computer is showing signs of crashing sometime soon. I've had it since 2005. Company still has a copy of VB6.0 but has lost the MSDN help files and samples disk. They list Studio 2005 on their catalog and my question is how much difference is there, how quickly can I adapt to the more recent version of the language?

VBA excel code for copy from 1 sheet to another when cell value = ...

Katrin — Thu, 01 Jul 2010 09:59:24 GMT

Hi,

I need a VBA code that looks at the value in colA and copy that row to another sheet.

fe;

Col A contains country names.

if A2 ="Spain" ... copy row 2 to sheet"Spain"

A3="Italy"... copy row 3 to sheet Italy. etc.

can someone please help me with this code.

thanks Katrin

Combine Text files wrt time

¤ J???íð ¤ — Mon, 05 Jul 2010 13:50:21 GMT

A friend gave me his chat logs and they are saved in different files. I mean that his logs are in one file and his partner's in another. Each line of the log starts with time in the format HH:MM:SS and I want them to be merged with respect to time. Here the example of the logs:
File A:
11:06:50 AM sallu: hi
11:07:25 AM sallu: no
11:07:35 AM sallu: It was not me
11:07:39 AM sallu: i asked
File B:
11:07:18 AM jony: hi
11:07:36 AM jony: u called?
11:07:54 AM jony: ok

I want them to be combined like this
11:06:50 AM sallu: hi
11:07:18 AM jony: hi
11:07:25 AM sallu: no
11:07:35 AM sallu: It was not me
11:07:36 AM jony: u called?
11:07:39 AM sallu: i asked
11:07:54 AM jony: ok

I just want this program for personal use.
Please help me.. its really hard to keep an eye at two files at a time.

How to select a random record from database??

smart sout — Wed, 26 May 2010 12:35:54 GMT

hi every one

How to select a random record from database ??

For example if I want to choose 36 a record from a database from a particular table and deal with them with the knowledge of the numbers of these records

If I want a query, for example, by choosing de
I saw that the query easier filling all
But the problem is How do you figure out de records randomly
I am very grateful for all professionals who help me
Special thanks too for each of the

vb5prgrmr

Keithuk

thanx

VB6 - Making Form Always Be On Bottom

GGoldenborne — Thu, 01 Jul 2010 16:18:24 GMT

Hi, y'all,

Icons on the Windows desktop are not always sufficient. They don't provide enough space for the name and the font is too small (the older I get). So, I wanted to have something like the Windows desktop where instead of the icons, I could add wide buttons with print large enough for me to read easily. I've created a form and dynamically create buttons for the form based on the contents of a text file. It all works like a charm. The last piece of the puzzle to complete this bit of programming happiness is to make the form always be underneath other windows. I have it as a vertical bar on the right side of the screen, leaving the icons on the deskop uncovered and providing the extra functionality I want. But, of course, when I click on it, it partially covers up whatever window was above it. The MouseMove events (such as to make visual changes to the buttons) fire without making the form jump forward.

There may be some way to add buttons directly to the desktop, and knowing how to do that would be cool, but since I already have everything worked out the other way, it would be nice to just make an adjustment to this method.

Does anyone know how to make the form stay beneath every other form window?

Thanks for input!

Reading file in VB.Net

bizzpu — Wed, 30 Jun 2010 13:05:46 GMT

Hy guys, I'm new here and I have one error...

I wanna read from one *.ini file but not clasic read.

Here is content of file confing.ini that I wanna read:

[Config]
String0=some text1
String1=some text2
String2=some text3
....

Read that I wanna get is value of String1 for example, in this case some text2.

Is this possible and if it is how can I made that?

Thanks,
Bizz

Document Comparer !

Amine — Thu, 24 Jun 2010 03:56:47 GMT

Hi All,

I am working on an application that compares 2 documents of the same type (i.e doc&doc, PDF&PDF, ....), or even compare 2 versions of the same document (after editing it).

The main idea behind this application is to compare these 2 documents & return the changes between them, and return the number of each page modified if it is possible.:confused:

I need such application to integrate it with my Document Management System, so once we need to check 2 documents (with the same extension) or 2 versions of the same document, my workflow should call this application giving it the ID of both documents to be compared outside the DMS.

I was searching for 2 days trying to find any resources to fit my need, but no results. .... Any idea about that !!!!

Thanks in advance.

OCR

Icecold — Wed, 16 Jun 2010 15:50:24 GMT

Can someone help with a simple OCR Snippett. I am looking to recognize a code 39 barcode in a JPG or PDF file by OCR it and then name my files by it. If someone could show me how to reference a .dll that will work for this or how I might go about it. I also have omnipage installed if that helps any is there was a way to reference the OCR dll for it. I just want to rename alot of files by OCR barcodes. A code sample would really help.

Convert PDF to Excel

samermahmoud — Sat, 12 Jun 2010 11:23:23 GMT

I need program to convert PDF to Excel through Visual Basic 6

Random Number

ronetx01 — Thu, 10 Jun 2010 17:19:31 GMT

Hello,

It has been a while since I have used vb6 and I find that I am having trouble trying to creat a random number statement. What I am trying to do is get the statement to do is pull the last two digits of the year follow by the two digits of the month follow by a total of three numbers exmaple YY-MM-###. And I need it to go in order. And help you can give with be thankful

please i need help

samermahmoud — Thu, 10 Jun 2010 21:29:09 GMT

I have a main screen where 2Option new one and update the other want to press the Option writes new value of 2.00 C and when i click on the Update button Option2 screen appears with the years 2006 to 2020
Is it possible chose OCT Rmen years to update with the knowledge that each year update c = 3.00 if the pressure does with more than one years worth in the pool, Text value in the main screen

how to add share icons and share options to my site?

minasaeedi — Thu, 10 Jun 2010 10:46:41 GMT

I need a code to have the ability to share my news on social networks.My site structure is in Asp.net and vb.net.
Please help .
Thank you

Plz Help me

smart sout — Sat, 22 May 2010 12:45:06 GMT

hi evry one

i need make project such as the Auto test for Icdl

and i need the put icon in menu

and open the word document in form vb6

and i try put the ole but i can used it as well

and i wait the reply

thanx

click on DOM tree node & highlight corresponding html tag

ljcharles — Wed, 26 May 2010 06:55:29 GMT

Hey everyone,

I have a webbrowser control & a treeview control...once I load a website I create a HTML DOM tree representation of the website using the code below...

What I want to do now, is the following:
1) mouse over any HTML element, which will then select the corresponding tree node on the HTML DOM Tree
AND the reverse...
2) select any HTML DOM tree node and have the corresponding HTML element highlight (a red border drawn around the HTML element)

Does anyone have any pointers / suggestions - I would really appreciate it...

[code]
Private Sub UpdateDOM(ByVal HTMLDocument As mshtml.IHTMLDocument3)
TreeView1.Nodes.Clear()
TreeView1.BeginUpdate()
Dim domRoot As mshtml.IHTMLElement = HTMLDocument.documentElement
Dim treeRoot As New TreeNode()
treeRoot.Text = ""
treeRoot.Tag = domRoot
TreeView1.Nodes.Add(treeRoot)
CopyElementToTree(domRoot, treeRoot)
TreeView1.EndUpdate()
TreeView1.ExpandAll()
End Sub

Private Shared Sub CopyElementToTree(ByVal element As mshtml.IHTMLElement, ByVal treeNode As TreeNode)
Dim children As mshtml.IHTMLElementCollection = CType(element.children, mshtml.IHTMLElementCollection)

If children.length <> 0 Then
For Each e As mshtml.IHTMLElement In children
Dim treeChild As New TreeNode()
treeChild.Text = getAttrs(e)
treeChild.Tag = e
treeNode.Nodes.Add(treeChild)
CopyElementToTree(e, treeChild)
Next e
Else
If Not String.IsNullOrEmpty(element.innerText) Then
Dim textNode As New TreeNode()
textNode.Text = String.Format("""{0}""", element.innerHTML)
textNode.Tag = element
treeNode.Nodes.Add(textNode)
End If
End If
End Sub

Private Shared Function getAttrs(ByVal element As mshtml.IHTMLElement) As String
Dim result As New StringBuilder("<")
result.Append(element.tagName.ToLower())
'result.Append(element.innerHTML);
Dim domnode As mshtml.IHTMLDOMNode = CType(element, mshtml.IHTMLDOMNode)
Dim attrs As mshtml.IHTMLAttributeCollection = CType(domnode.attributes, mshtml.IHTMLAttributeCollection)
If attrs IsNot Nothing Then
For Each attr As mshtml.IHTMLDOMAttribute In attrs
If Not attr.specified Then
Continue For
End If
result.Append(" ")
Dim nodeValue As String = String.Empty
If attr.nodeValue IsNot Nothing Then
nodeValue = attr.nodeValue.ToString()
End If
result.Append(String.Format("{0}=""{1}""", attr.nodeName, nodeValue))
Next attr
End If
result.Append(">")
Return result.ToString()
End Function
[/code]

Request Hep with Programme Logic (Date Manipulation) - Visual Basic

Prasanth Moothedath — Tue, 25 May 2010 09:32:24 GMT

CAN YOU HELP ME WITH THIS.. I NEED THE CODE IN VISUAL BASIC WITH ACCESS DATABASE. I DONT HAVE MUCH PROGRAMMING EXPERIENCE.. SO WOULD BE GRATEFUL FOR YOUR TIME

I have a database with the following structure

IDNO - Text(7),

From Date - Date,

To Date - Date,

Year - Number,

Full_Part - Logical.

what i want the program to give me the result is that i need to take out the missing date ranges (date gaps for each financial year for each ID Number). The table can contain more than one record for each ID Number.. the table can also contain upto four records if if it in Parts (‘P)). For each IDNO for each particular year. ie.. i need to take out the year wise gaps for records. also, if the entire year is missing then the gap will be the entire year with the full_part field in the result showing F. so say..

A sample database is appended below :-

IDNO From Date To Date Year FULL_PART

A247108 01-Apr-99 31-Mar-00 1999 F

A247108 01-Apr-00 31-Mar-01 2000 F

A247108 01-Apr-01 31-Mar-02 2001 F

A247108 01-Oct-02 31-Mar-03 2002 F

A247108 01-Apr-03 31-Mar-04 2003 F

A247111 01-Apr-00 31-Mar-01 2000 F

A247111 01-Apr-01 31-Mar-02 2001 F

A247111 01-Apr-02 31-Mar-03 2002 F

A247111 01-Apr-03 31-Mar-04 2003 F

A247111 01-Apr-99 30-Jun-99 1999 P

A247111 01-Oct-99 31-Dec-99 1999 P

A247124 01-Apr-99 31-Mar-00 1999 F

A247124 01-Apr-00 31-Mar-01 2000 F

A247124 01-Apr-01 31-Mar-02 2001 F

A247124 01-Apr-02 31-Mar-03 2002 F

in this example.. i need the program to return the result as

IDNO From Date To Date Year FULL_PART

A247108 01-Apr-02 30-Sep-02 2002 P

A247111 01-Jul-99 30-Sep-99 1999 P

A247111 01-Jan-00 31-Mar-00 1999 P (year is 1999 because it falls in the 1999-2000 financial year)

(ie only three gaps exist.. for IDNO A247108, the gap is for 01-Apr-02 to 30-Sep-02 for the year 2002 and

for the IDNO A247111 there are two gaps in the same year - ie 1999.

Web site block

Laurence™ — Tue, 04 May 2010 12:41:09 GMT

any one know how to block any website from iexlore and firefox????

how to do it

what will i need to do

Please help me : “Run-time error ‘9′: Subscript out of range !” in VB6 code

sunboy — Sat, 24 Apr 2010 00:18:13 GMT

Private Sub KillVirusProcess()

Dim cb As Long
Dim cbNeeded As Long
Dim NumElements As Long
Dim ProcessIDs() As Long
Dim cbNeeded2 As Long
Dim NumElements2 As Long
Dim Modules(1 To 200) As Long
Dim lRet As Long
Dim ModuleName As String
Dim CurEXEName As String
Dim nSize As Long
Dim hProcess As Long

Dim MeFullPath As String

Dim dStrNoKillMemory As clsString
Dim dStrNoKill As clsString
Dim dStrKill As clsString
Dim dStrSub As clsString
Dim i As Long
Dim j As Long
Dim k As Long

Set dStrNoKillMemory = New clsString
dStrNoKillMemory.Delimiter = "|"
dStrNoKillMemory.Text = NoKillMemory

Set dStrNoKill = New clsString
dStrNoKill.Delimiter = "\"

Set dStrKill = New clsString
dStrKill.Delimiter = "|"
dStrKill.Text = VirusInfo

Set dStrSub = New clsString
dStrSub.Delimiter = ","

cb = 8
cbNeeded = 96
Do While cb <= cbNeeded
cb = cb * 2
ReDim Preserve ProcessIDs(cb / 4)
lRet = EnumProcesses(ProcessIDs(1), cb, cbNeeded)
Loop
NumElements = cbNeeded / 4

For i = 1 To NumElements
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessIDs(i))
If hProcess <> 0 Then
lRet = EnumProcessModules(hProcess, Modules(1), 200, cbNeeded2)
If lRet <> 0 Then
ModuleName = Space(MAX_PATH)
nSize = 500

j = 0

Do While (j <= cbNeeded2 / 4)
MsgBox cbNeeded2 / 4
j = (j + 1)
lRet = GetModuleFileNameExA(hProcess, Modules(j), _
ModuleName, nSize)
If Modules(j) > 0 Then
If (j = 1) Then
dStrNoKill.Text = TrimComplete(ModuleName)
CurEXEName = TrimComplete(dStrNoKill.GetLastToken)

MeFullPath = App.Path & IIf(Right(App.Path, 1) <> "\", "\" & App.EXEName & ".exe", App.EXEName & ".exe")
If (InStr(1, ModuleName, MeFullPath, vbTextCompare) > 0) Then
Exit Do
End If

MeFullPath = App.Path & IIf(Right(App.Path, 1) <> "\", "SKmain.exe", "SKmain.exe")
If (InStr(1, ModuleName, MeFullPath, vbTextCompare) > 0) Then
Exit Do
End If

If (InStr(1, NoKillEXEString, "|" & TrimComplete(ModuleName) & "|", vbTextCompare) > 0) Then
Exit Do
End If

For k = 1 To dStrNoKillMemory.TokenCount
dStrSub.Text = dStrNoKillMemory.TokenAt(k)
Dim tNoKillBool As Boolean
tNoKillBool = CBool(ReadMemory(hProcess, dStrSub.TokenAt(1), Len(dStrSub.TokenAt(2))) = dStrSub.TokenAt(2))
If tNoKillBool Then
Exit Do
End If
Next k
End If

For k = 1 To dStrKill.TokenCount
dStrSub.Text = dStrKill.TokenAt(k)
If (CLng(dStrSub.TokenAt(1)) = VIRUS_MODULE) Then
If (InStr(1, ModuleName, TrimComplete(dStrSub.TokenAt(2)), vbTextCompare) > 0) Then
If Not (ProcessTerminate(ProcessIDs(i))) Then
EndProcess CurEXEName
End If
Exit Do
End If
ElseIf ((dStrSub.TokenAt(1) = VIRUS_MEMORY) And (j = 1)) Then
Dim tKillBool As Boolean
tKillBool = CBool(ReadMemory(hProcess, dStrSub.TokenAt(2), Len(dStrSub.TokenAt(3))) = dStrSub.TokenAt(3))
If tKillBool Then
If Not (ProcessTerminate(ProcessIDs(i))) Then
EndProcess CurEXEName
End If
Exit Do
End If
End If
Next k
End If
Loop
End If
End If
lRet = CloseHandle(hProcess)
Next
Exit Sub
Isexit

End Sub

This code Work Fine on Win Xp and Vista but i dont know why i got Error “Run-time error ‘9′: Subscript out of range !” in Win 7 . Please Fix it for thax so much

Write and read text with a carriage-return/line-feed (vbNewLine)

PeteP — Sat, 03 Apr 2010 02:38:16 GMT

' My program opens a "PlayList.ppl" file for a theatre production.

' Rather than using a database record, I chose to attach a data-string onto the full path
' to a sound file (For example: C:\Production\Overture.mp3=100#47#Stage#0#Test-Note#C#0#2)

' The "=" divides the sound-file path from the data-string.

' This is how I open the file to read each line. ("OneLine" is a string.
' (The other strings are all Declared.)

ChDir PlayListPath
Open PlayListFile For Input As #1
While Not EOF(1)
Line Input #1, OneLine
SplitFileStr (OneLine)
List1.AddItem FileString
List2.AddItem FileVolume
List3.AddItem PageNum
List4.AddItem Speakers
List5.AddItem TaskStr
List6.AddItem NoteStr
List7.AddItem CurtainCmd
List8.AddItem CurtainDelay
List9.AddItem MixerScheme
Wend
Close #1

' THE PROBLEM OCCURS WHEN THERE IS A CARRIAGE-RETURN/LINE-FEED IN THE TEXT NOTE ("NoteStr")

Public Sub SplitFileStr(WorkingStr As String)
On Error GoTo ErrMsg

Pos = InStr(WorkingStr, "=") ' Split "OneLine" to get the "Data-String"
FileString = Left(WorkingStr, Pos - 1)
WorkingStr = Right(WorkingStr, Len(WorkingStr) - Pos)
' Use a "#" to get each value
Pos = InStr(WorkingStr, "#")
FileVolume = Left(WorkingStr, Pos - 1)
WorkingStr = Right(WorkingStr, Len(WorkingStr) - Pos)

Pos = InStr(WorkingStr, "#")
PageNum = Left(WorkingStr, Pos - 1)
WorkingStr = Right(WorkingStr, Len(WorkingStr) - Pos)

Pos = InStr(WorkingStr, "#")
Speakers = Left(WorkingStr, Pos - 1)
WorkingStr = Right(WorkingStr, Len(WorkingStr) - Pos)

Pos = InStr(WorkingStr, "#")
TaskStr = Left(WorkingStr, Pos - 1)
WorkingStr = Right(WorkingStr, Len(WorkingStr) - Pos)

Pos = InStr(WorkingStr, "#")
NoteStr = Left(WorkingStr, Pos - 1) ' THIS IS WHERE I MIGHT WANT A "vbNewLine"
WorkingStr = Right(WorkingStr, Len(WorkingStr) - Pos)

Pos = InStr(WorkingStr, "#")
CurtainCmd = Left(WorkingStr, Pos - 1)
WorkingStr = Right(WorkingStr, Len(WorkingStr) - Pos)

Pos = InStr(WorkingStr, "#")
CurtainDelay = Left(WorkingStr, Pos - 1)
MixerScheme = Right(WorkingStr, Len(WorkingStr) - Pos)

Exit Sub
ErrMsg:
Resume Next
End Sub

This might all be confusing to you, but I hope I can get a suggestion. Perhaps reading one Chr at a time and coding the insert of a vbNewLine?

Thanks all, Pete.

How to view word in vb6 form

smart sout — Sat, 08 May 2010 09:51:22 GMT

hi every one

plz help me

i need view the word in the vb 6

i need used it in autotest for icdl as the exam training

plz every one know how to do it ???

plz tell me

and thank every one

Addressing a USB port

PeteP — Thu, 29 Apr 2010 00:03:59 GMT

My program needs to “look” directly at a USB switching device.

My understanding is that the USB unit is supposed to recognize which port it is plugged into, but it seems to be a “lucky-dip” at present.

Hence my wish to “hard-code” it to a dedicated USB port (or is there another way?)

myInt is an integer

myBool is a Boolean

(The whole process is via the unit’s DLL driver)

My calling code (supplied by the unit manufacturer) is ---

myInt = myUSB.FindFirst()

If myInt <> 0 Then myBool = myUSB.SetAddr(myInt - 1, 0)

Everything works fine once I hunt about finding a port it recognizes. The operational port keeps changing each time the computer is switched on.

How can I point my program to a dedicated USB socket?

Adding lines to the end of the text file

shadowcat2021 — Tue, 27 Apr 2010 15:41:22 GMT

I looked at the expired forums that talked about how to edit save and print out a file and I thought it was very useful. I was hoping that you can clear up some topics. Here is the code I pulled out from earlier forums:

[code]

Option Explicit

Dim FileNum As Integer
Dim NextLine As String
Dim LineCount As Long

FileNum = FreeFile()
Open App.Path & "c:\host2.txt" For Input As #23
LineCount = 1
Do While Not EOF(FileNum)
Line Input #FileNum, NextLine
If LineCount = 23 Then
Line Input #23, NextLine
Text1.Text = Text1.Text & "Your new line of text" & vbCrLf
Else
Line Input #23, NextLine
Text1.Text = Text1.Text & NextLine & vbCrLf
End If
LineCount = LineCount + 1
Loop
Close #FileNum

Private Sub cmdSave_Click()

Dim FileNum As Integer

FileNum = FreeFile()
Open App.Path & "\host2.txt" For Output As #FileNum
Print #FileNum, host2.txt
Close #FileNum

End Sub

[/code]

as you can see I changed a few things but it is a little off. I am confused with the #FileNum and I'm getting a error: expected end of statement

Any thoughts anyone

Thank you

Open and move around an excel from VB 2008

samuvk — Tue, 20 Apr 2010 10:21:58 GMT

I'm trying to open an excel file and then move around a little bit in the excel from VB 2008 and I having some problems.

I'm trying next:

dim objExcel as excel.application

objExce = new excel.application

objExcel.visible=true

'I get a error while trying next

objExcel.sheetsInNewBook = 1 'To indicate how many sheets in the book

'I get a error while trying next

objExcel.Workbooks.add()

I would like how can I move from a book to other and from a Sheet to other. I tried next and it didn't work:

windows("Book.xls").activate()

sheets("Sheet1").select()

My last question is: How can I open directly a templete book that already exist to work with it?

Thank you very much for all your help

need help in forming loop..

badwl24 — Sat, 17 Apr 2010 02:55:31 GMT

Hello once again...

i have an macros program where string "strComp.Name2" is printing strings like...
"casting-1"
"Nut-1"

"casting-1"
"Nut-1"

"Nut-1"
"screw-1"

"Nut-1"
"screw-1"

"screw-1"
"CUP-1"

"screw-1"
"CUP-1"

"CUP-1"
"WASHER-1"

"screw-1"
"WASHER-1"

"WASHER-1"
"setscrew-1"

"screw-1"
"tommybar-1"

"screw-1"
"tommybar-1"

here each pair represents relation with each other. so if they occurs more than one they will b considered as one like..

"casting-1"
"Nut-1"

"Nut-1"
"screw-1"

"screw-1"
"CUP-1"

"CUP-1"
"WASHER-1"

"screw-1"
"WASHER-1"

"WASHER-1"
"setscrew-1"

"screw-1"
"tommybar-1"

Now i need to form a loop so that i can print

casting-1 = 1
nut-1 =1
screw-1 =4
cup-1 = 2
washer-1 = 3
setscrew-1 = 1
tommybar-1 = 1

can any one give me some hints regarding this...

sample code is appreciable because i am from basically Mechanical side..

thanks in adv...

reading a text file and find the maximum value of a string...

badwl24 — Mon, 12 Apr 2010 05:58:38 GMT

Hello everybody,

i have a text file which look like this......
"------------------------------------------------"
MASS-PROPERTY"
"------------------------------------------------"
"Part Name : screw-1"
""
"
Thickness = .20"
"
Size = 21"
"
Mass = 2535.65398101001"
"
Volume = 325083.843719233"
"
Density = 0.0078"
"
Surface Area = 37097.6602694409"
"
Center of Mass : "
"
X = -6.91050791665524E-06"
"
Y = 134.941447450814"
"
Z = -6.59803695112839E-06"
"------------------------------------------------"
"Part Name : Nut-1"
""
"
Thickness = 21"
"
Size = 32"
"
Mass = 457.955780496337"
"
Volume = 58712.2795508125"
"
Density = 0.0078"
"
Surface Area = 18086.5657361828"
"
Center of Mass : "
"
X = 7.57409354074984E-16"
"
Y = 18.1650756175473"
"
Z = 8.16080627967202E-16"

in this first i have to read the "Part Name" (in this case screw-1 and nut-1) and read the value of Volume and find out max of these two.. and print part "screw-1" has maximum volume. Any help in this regard will be appreciable...

thanks in adv.

special character should be accepted

manilyn — Thu, 08 Apr 2010 10:09:36 GMT

hi to all, yesterday i have a dry-run for my project in vb6 programming and i found out when my records have a special character.. the program will error, says that missing operation. it because of the ' so i conclude because of the special character. so, what should i do that my searching will ignore all special character when the record have it.

best regards
manilyn
thankz guys..

Client / Server (Send Messages to Other Client Through Server?)

IasamSensei — Fri, 09 Apr 2010 16:27:48 GMT

Using System.Net.Sockets

I have successfully implemented a console server and multiple client setup, however

I have noticed that the server only communicates with the client that sends the stream to it.

I am trying to find a way to send a data stream from Client A to the Server and redirect the information to Client B in a p2s setup.

Thanks!

(Edit: I was trying to post this in the VB.NET section, however it told me permissions were denied...)

Accounting Program Source Codes

Akinyemi — Thu, 08 Apr 2010 17:32:43 GMT

Dear Sir,

I am looking for a working Accounting program source codes so that I can learn from it.

I am an accountant by profession. I entered into Visual basic programming so that I could write Accounting software.

I have actually dowloaded a few Accounting Programs from this Forum. Unfortunately, none is working. I am sorry, and I regret to say that most Vb programmers don't take the pain to comment their codes well. Some declare variables with meaningless names. I spend wasted effort trying to figure out what their variables mean. Some even remove the Option Explicit from the code editor so that vb will not force them to declare their variables.

Due to all these problems I have not been able to lay my hands on any working Acounting Program from this Forum.

Please, please, I need help. Kindly send me a working Accounting Program so that

I can study it and write mine based on our tax system.

Thank you. I wait eagerly for your help.

Akinyemi

dbEngine item not found in this collection

manilyn — Sun, 04 Apr 2010 07:22:51 GMT

why my dbengine not find ?? i am using vb6.

Private Sub Command1_Click()
Dim mydb As Database
Dim mytab As Recordset
Dim str As String

Set mydb = DBEngine.Workspaces(0).Databases(0)
Set mytab = mydb.OpenRecordset("pasuser", dbOpenDynaset)

str = " delete "
str = str & "FROM [pasuser]"
str = str & "WHERE [pasuser].username = '" & (Text1.Text) & "'"

mydb.Execute str
End Sub

is thier something wrong on my declaration??
plz help me

adjust the paper size using Printer.PaperSize = vbPRPSA5

manilyn — Sun, 04 Apr 2010 03:05:24 GMT

hi to all specially to the moderator of this site on my project im on the level of printing witch can print the info base on the text-box with the paper of 3x4 inches

i use it because i want to align my text in center but it doesn't work how can i re size my paper in 3x4 please...
I'm beginner for using ah vb

my code :

Printer.ScaleMode = vbInches
Printer.ScaleLeft = -0.7 '---->> from left
Printer.ScaleTop = -2.1
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.FontName = "Comic Sans MS"
Printer.FontSize = 16
Printer.Print Text3.Text

'for drugstore
Printer.ScaleMode = vbInches
Printer.ScaleLeft = -0.7
Printer.ScaleTop = -2.6
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.FontName = "MS Sans Serif"
Printer.FontSize = 12
Printer.Print Text4.Text

'for chapter
Printer.ScaleMode = vbInches
Printer.ScaleLeft = -0.7
Printer.ScaleTop = -2.8
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.FontName = "MS Sans Serif"
Printer.FontSize = 12
Printer.Print Text5.Text

Printer.EndDoc

but the output are always

aaaaaaaaaaa
aaaaaaaa
aaaa
aaaaaaaaaaa

i want it to align it in center

aaaaaaaaaaa
aaaaaaaa
aaaa
aaaaaaaaaaa

any one can help me plzzz??????

best regards..
manily

Captured image from web cam

manilyn — Thu, 01 Apr 2010 22:33:01 GMT

hi to all can any one here know or any idea fro capturing image from web cam in vb 6??

please help me answer these questions Correctly

salman1986 — Thu, 01 Apr 2010 01:00:59 GMT

Actually these are Some of Interviews Questions that i have to answer in an interview. I have got Some Confusion :confused: in My answers that why posting here .. So that Any Genius Can Answer these Question Correctly

1) Which of the following are true about Extension methods?

1) They must be declared static (Correct)
2) They can be declared either static or instance members
3) they must be declares in the same assembly(but may be in different sources files)
4) Extension methods can be used to override existing instance methods (Correct)
5) Extension methods with the same signature for the same class may be declared in multiple namespace without
causing compilation errors

More than one can be correct?

2) which of the following can one use to detect the user's current language?

1) Examining the user languages property of the current request object
2) Examining the currentCulture property of the current request object
3) Examining the CurrentCulture property of the current thread Object (Correct)
4) Examining the language property of the current page object

3) which of the following are true about Declarative Attributes?

1) They must be inherited from the system.Attribute
2) Attributes are instantiated at the same time as instances of the class to which they are applied
3) Attributes classes may be restricted to be applied only to application element types
4) By default, a given attribute may be applied multiple times to the same application element

More than one can be correct?

4) with Which class is the task of mapping a specfic point in time into units such as weeks, months and year accomplished?

1) System.datetime (Correct)
2) System.timeSpan
3) System.Globalization.Calender
4) System.Globalization.CultureInfo

5) Which of the follwoing elements can be adjusted when using the processModel element of the Machine.Config File ?

1) The number of queued requests befoer returning "Server Busy (error: 503)"
2) The maximum number of threads per processor
3) The maximum number of threads per request
4) The Maximum amount of memory utilized per request (Correct)

6) Determining the availablity of sufficient memory for an operation can be accompished by

1) There is no supported application level means to determine if a specfic amount of memory
is available
2) using static methods of system.runtime.memoryfailpoint and checking the return value
3) creating an instance of system.runtime.memoryfailpoint and monitoring for an insuffcientMemoryException
(Correct)

4) Creating an instance of system.runtime.memoryfailpoint and monitoring for an outofmemoryException

What would be the correct answer?

7) which of the following are true about anonymous types?

1) They can be dervied from any reference type (Correct)
2) Two anonymous types with the same named parameters in the same order declared in different
classed have the same type
3) Anonymous types can have methods
4) All properties of an anonymous types are read/write
5) Anonymous types cannot cross method boundaries

8) which of the following mechanisma are not suitable for returning a single row froma datatable
containing a large number of records?

1) Datatable.rows.find (Correct)
2) Datatable.rows.select
3) Datatable.select
4) Enumerating across datatable.rows

9) Which of the following are valid mechanisms for adding an event handler for public Event someEvent() on class Sample?

1) AddHandler Sample.SomeEvent Addressof MyEventHandler (Correct)
Public Sub MyEventHandler

2) AddHandler Sample.SomeEvent,AddressOf Sample.SomeEvent

3) Private WithEvents Sample As New Sample
Public Sub MyEventHandler(sender As Object,e As EventArgs) Handles sample.SomeEvent

4) Private withEvents sample As New Sample
Public Sub MyEventHandler() Handles sample.SomeEvent (Correct)

More than one can be Correct?

10) Which of the following are true of ADO.NET?

1) it uses a connected provider model (Correct)
2) it uses a Disconnected provider Model (Correct)
3) it includes a dataAdapter class, which provides a high-performance mechanism for retrieving data
4) system.data.common provides classes that are database agnostic

More than One can be Correct..

11) which of the following are true of the system.text.StringBuilder class?

1) it is less efficient than string concatenation when many concatenation are performed
2) There is a method which formats the string being appended to the stringBuilder, much like the string format (Correct)
3) The StringBuilder is most efficient when initialized using the parameterless constructor
4) All of the above
5) None of the Above.

12) in which of the Following Ways do structures differ from classes?

1) Structures cannot implement interfaces
2) Structures cannot inherit from a base structure (Correct)
3) Structures Cannot have events
4) Structures cannot have overrideable methods

13) which of the following is true regarding the system.datetimeoffset structure?

1) it provides an exact point in time relative to the UTC time zone (Correct)
2) it combines a date time structure with a timeZone structure
3) it provides arithemetical operations using values with differenet offsets from the UTC
4) it can be used to determine the specific timeZone for a localtime

More than one Can be Correct

14)Which of the following are true about Nullable Types?

1) A Nullable type is a reference type
2) A Nullable type is a structure (Correct)
3) An implicit converstion exists from any Non-nullable value type to a nullable from of that type (Correct)
4) An implicit conversion exists from any nullable value type to a non-nullable from of that type
5) A predefined conversion from the nullable type S to the nullable type T exists if there is a predefined conversion
non-nullable type S to the non-nullable type T (Correct)

15) which of the following is true about VB Generics?

1) VB Allows non-type template parameters
2) VB supports explicit specialization
3) VB allows the type parameters to be used as the base class for the generic type
4) VB allows a generic type parameter itself to to be a generic
5) VB enforces that all codes are valid for all types of parametrs (Correct)

what would be the Best Choice ?

16) which of the following statements do expression trees fit best?

1) Expression trees are a data structure which can be intially composed using language syntax (Correct)
2) Expression trees are a dynamically generated code which is executed to perform the desired function
3) Expression trees can be created only from Lambda Expressions
4) Expression trees can be modified once again
5) All of the above

17) when using an implicitly typed array, which of the followoing is most appropriate?

1) All elements in the initializer list must of the same type

2)All elements in the initializer list must be implicitly convetable to a known type which is the base type of
atleast one member in the initialize
3) All elements in the initializer list must be implicitly convertable to a common type which is the base type
of the items actually in the list
4) There are no restrictions on the items in the initializer list as the array is not declared to be a specific type
(Correct)

I have also mentioned my answers with my poor knowledge so Please Answer These Question just by the Alphabets(A,B...or E) corresponding with Indexes.
I hope U all will help me to get This Job while answering these question correctly.
Thanks
Best Regards
Salman

operation not allowed?

manilyn — Wed, 31 Mar 2010 03:30:31 GMT

i would like to know how to edit,delete and modify the records in data grid
actually i have create AN ARMY RECORD SYSTEM
and i have made searchign avaiable at datagrid
what i have done is dat i made a search button and a combo for army number to search through.
and firstly it will find out the personal info in one datagrid and then will show other infos in another grid as per requirement by using different buttons..
now what i want to do is that...i have made a button for editin n i want to allow editing and deleting in datagrid using that button and also the other button named as "MODIFY RECORDS" should modify those eidited records which hav been eidited using datagrid

and i trap on the editing i tried to delete first the record before i can edit to aware the duplicate primary key but when i delete thiers a lot of error

my code is look like this:

Private Sub Command1_Click()
Dim rResult

rResult = MsgBox("Do you want to delete the record", vbYesNo)

If rResult = vbYes Then

conn.Execute "Delete REPRESENTATIVE,DRUGSTORE,CHAPTER,AMOUNTPAID from Registered where CONTROLNUMBER ='" & Text1.Text & "'"

Set DataGrid1.DataSource = Nothing
Set rec = Nothing

Set rec = New ADODB.Recordset
rec.Open "Select * from Registered", conn, adUseClient, adLockOptimistic
Set DataGrid1.DataSource = rec
End If
End Sub

and the error was the conn.Execute "Delete REPRESENTATIVE,DRUGSTORE,CHAPTER,AMOUNTPAID from Registered where CONTROLNUMBER ='" & Text1.Text & "'"...

any one could help me plzzz....

kindly answer me as soon as possible
thank you

MDI Parent Child Control

runtest — Wed, 31 Mar 2010 12:09:52 GMT

Bear with me here. This one souds a little complicated.

I have a parent control. It is frmMain
I have a child called frmBack

I removed the controlbox, title and icon from frmBack and want it maximized inside the frmMain.
Inside frmMain there is a toolbar. This stays.

When I start the program, everything works, the frmBack maximizes. Except a control box and bar appears above the toolbar in frmMain and, besides looking tacky, allows you to close, minimize ect the form.

How do I remove that bar and control that appears?
If the windows is in normal mode those are not there. I had removed them already.

Thanks in advance to any reply on this subject.