A1VBCode Forums / Visual Basic (VB 4/5/6) / General Visual Basic

How to Load multiple forms using any repetition control structure? Please help.

marksquall — Sun, 04 Jan 2009 00:26:56 GMT

Dear A1VBCode moderators, programmers and members,

Hello, a pleasant day to everyone. Well, it is been a really long time since I used Visual Basic 6, because of my work. Well, I am just wondering how can I load/unload multiple forms using any repetition control structure? Basically a have a main form named frmMain and has a command button named btnLoad. In addition, I have seven (7) other sub forms named as frm1, frm2, so on until frm7. Here's the code of btnLoad:

Private Sub btnLoad_Click()

frm1.show

frm2.show

frm3.show

frm4.show

frm5.show

frm6.show

frm7.show

End Sub

Seems very long enough, but I really want to use a For Loop, but I just can't get the incrementing numbers. I tried this one, I know it's wrong (compile error) so please don't laugh...


Private Sub btnLoad_Click()
    Dim x as Integer
    For x = 1 to 7
           "frm" & x.show
    Next
End Sub

I hope someone will help me on this, and I hope this is not too much to ask. Thanks everyone who will give any suggestion. Wish everyone good health this new year...

Warm regards,

MarkSquall

Please help..code of 8 number puzzle in vb6

funkmaster24 — Sun, 04 Jan 2009 21:37:25 GMT

Please help..code of 8 number puzzle in vb6

Lineage 2 Bug(CHEAT)

GreekAce — Fri, 02 Jan 2009 10:18:44 GMT

Hi to exerybody.
One of my friends asked me if i can find hime one but it was difficult.
So i decided to come here and request one.
So....Is there anyone good programmer that can create a program like this?

THANKS

___________________________________
Good Programmer is someone that can create all requested things

String to HEX

Kiter — Tue, 30 Dec 2008 10:41:23 GMT

I found a piece of code that will convert a string to hex.

It works OK, but……

Private Sub cmdConvert_Click()

Dim txt As String

Dim bytes() As Byte

Dim i As Integer

    ' Display the bytes.

    txt = txtOriginal.Text

    bytes = StrConv(txt, vbFromUnicode)

    txt = ""

    For i = LBound(bytes) To UBound(bytes)

        txt = txt & Format$(Hex$(bytes(i)), "00") & " "

    Next i

    txtBytes.Text = txt

End Sub

Now I want to put the bytes array into another array and add “&H” infront, so you get &H48 for example.

    For i = LBound(bytes) To UBound(bytes)

        Bytes1(i) =  “&H” & Format$(Hex$(bytes(i)))

    Next i

But I get an error message (subscript out of range)

Also when I only want to load the bytes array to another array I get this message

    For i = LBound(bytes) To UBound(bytes)

        Bytes1(i) =  Format$(Hex$(bytes(i)))

    Next i

I need (??) to add the &H because I need to send hex using Winsock

Kiter

Using wildcards in a url

thesilentpyro — Mon, 29 Dec 2008 12:56:13 GMT

I need to pull a file off the internet. I know the root url, and I know the ending filename, but I do not know the full url; it changes every week, and I don't know the system behind it. Is there any way I could use wildcard characters (or some other method) to pull the file down?

Thanks for any and all help.

Mute all Computer Sounds.How?

GreekAce — Mon, 29 Dec 2008 07:44:29 GMT

Hi to everybody
I want to make a question
How Can i mute all Sonds of the computer with a command button
Thanks

Captcha image not working again

khan — Mon, 29 Dec 2008 23:39:00 GMT

Today it has cost me dearly. At least 30 enquries not able to submit
while I pay click fees to get them onto the pages.

The image is back working again now but really do need to know when
it's off.

Moving a file & to change the Boot screen

mvPradeepemb — Fri, 26 Dec 2008 00:37:57 GMT

Hi All,

I want to move a file, and my codes as follows:

Private Sub Command1_Click()
FileCopy "C:\Documents and Settings\Medical\Desktop\SKAAT.exe", " C:\"
Kill "C:\Documents and Settings\Medical\Desktop\SKAAT.exe"

End Sub

But i am receving an error message as Bad File Name Or Number.... Kindly help me to fix the problem.....

My another doubt is how to chage the bootup sreen and log on screen using VB 6...

Create DB and Field via VB

kellysweet — Wed, 24 Dec 2008 20:13:02 GMT

Hi every one

i have red for some topic about the open connection between VB and DB, at this one we should create the DB at first and after that we connect it to VB, but now I want to use the VB to be an interface or after run the VB will be auto to create the DB is it workable ??

Should use the OPEN to create the DB ?, how about the field in DB, could write the code from VB to create ??

any one pls guide me this one in advance,

How can i create an flv player?

GreekAce — Sun, 21 Dec 2008 04:17:56 GMT

Does anyone have any idea hot to create this app?

PS:Sorry, i am new here

MSDN VB6

kellysweet — Tue, 23 Dec 2008 23:50:21 GMT

Hi all as im new in here,
i try to find MSDN for vb6 for many website, any one here have share me the link to download,

Youtube Video downloader

GreekAce — Wed, 24 Dec 2008 08:55:26 GMT

i.I would like to aks how to make a youtube video downloader?
I am sure that i can find a source code but i just want to know how is it made?
thanks in advance

how to create thumbail for pngimages

shamsam1 — Mon, 15 Dec 2008 01:25:00 GMT

can some some suggest me vb.6 code to create thumbnail for png images.

listview questions

Kiter — Thu, 11 Dec 2008 10:30:45 GMT

I want to use Listview, but have some questions:

How can I change the color of the colomn header?

How can I lock the "header buttons" so when I press it nothing will happen

How can I lock the field of the first colomn?
Now you can change the data when you double click this field

Kite

Read sequentially numbered data files in VB6

JamesBeck — Sun, 21 Dec 2008 01:59:21 GMT

Hi,

I recently joined your forum. It's great. I found answers to all my questions but one without asking.

I'm doing a non-business related research project and I'm not a professional programmer, but I'll try to be clear.

I have 1000 data files sequentially numbered kb0001.txt through kb1000.txt. The data format for each file is the same, but the files are different sizes. I need to cycle through the files sequentially, read the data from each file into arrays and perform some basic statistical operations on the data.

Is there an easy way to cycle through the files in VB6? Any help would be appreciated.

vlookup and cell reference

mexicanhun — Mon, 10 Nov 2008 12:15:16 GMT

hi,
i am trying to write some code to analyse a weightlifting movement that occurs 3 times.
In particular there is a part of the macro where the user will input the start and end time of the movement using input boxes (to only select relevant data).
I want to then use a vlookup function to search for the start and end times in a range (1 column) in the time range and return the cell reference of these so i can select only these values and either create a graph or do more analysis.
My code for this particular part so far looks like:

Code:

 Dim jsstart As Double    jsstart = InputBox("What is the start time for jump squat1?")    Range("n2").Select    ActiveCell.FormulaR1C1 = jsstart              Dim jsend As Double    jsend = InputBox("What is the end time for jump squat1?")    Range("n3").Select    ActiveCell.FormulaR1C1 = jsend             Dim jumpsquatonestarttime As Double      jumpsquatonestarttime = WorksheetFunction.VLookup(jsstart, Range("time"), 1, False)

I would now like the cell references for the start and end times....any ideas as to how to do this? I thought it might be to do with the address function.
Any help much appreciated!!!

Calendar function

Kiter — Wed, 17 Dec 2008 06:56:36 GMT

I want to write a calendar program.

You must fist select a date/time and add a reminder.

When the date/time is correct I want to start an event (like a string to a serial port)

Where can I find more information?

Kiter

web search for key word

shamsam1 — Mon, 15 Dec 2008 01:20:53 GMT

i want to search popular search engine for keywords which i insert in text box and list the total page..

i came across how some code which search for keywords but just dont know how to list the total page for the key word ..i am looking for vb.6 code

How to display the rows and columns generated by SQL query in rdlc report dynamically.

nixdaemon000 — Mon, 15 Dec 2008 16:19:55 GMT

How to display the rows and columns generated by SQL query in rdlc report dynamically.

Before i created the .rdlc file and then add tables and then Column Names to display. Now i dont want to design the .rdlc file and i wanted to fill the .rdlc file with the number of columns and rows returned by SQL Server.
Can anyone give me idea how to do it? I am using the code like this as shown below.

Dim strQry = "select CompanyName,Address,Address1,City,State,Zip,Teleph one,Email from Company"
Dim reportPath = "MyReportApplication.reportCompany.rdlc"
Dim sReportDataSource As ReportDataSource
Connection()
OpenConn()
ds = New DataSet()
dataAdapter = New SqlDataAdapter(strQry, conn)
dataAdapter.Fill(ds, "TestDataBase")
rdlcViewer.LocalReport.ReportEmbeddedResource = reportPath
sReportDataSource = New ReportDataSource()
sReportDataSource.Name = "TestDB_Company"
sReportDataSource.Value = ds.Tables(0)
rdlcViewer.LocalReport.DataSources.Add(sReportData Source)
rdlcViewer.Dock = DockStyle.Fill
CloseConn()
Me.rdlcViewer.RefreshReport()

should i migrate?

cingo — Thu, 11 Dec 2008 12:34:27 GMT

dear all,

i have a small vb6 standalone exe application that uses an online mysql ODBC database at a database server and some online web pages within it. the users are 30 on the client side and are all at distant locations.

should i migrate from vb6 to vb.net?
Please guide me about the advantages for such software.

also i am concerned about the security of the application in .net..
it seems to be easily decompiled? or de-obfuscated?

thanks in advance.
regards
cingo

minimize to systray

azfar — Wed, 10 Dec 2008 10:30:33 GMT

I want.

When I click on form minimize button it minimize to systray

and when I click command button form minimize to systray.

How can I do this?

i tried shsystray component but it I think its not fr it.

count different shades of red pixels in a form

rocchi — Wed, 10 Dec 2008 08:24:02 GMT

I am writing an application where i need to count the number of red pixels within a certain position on a form and then change them to another color.

I can do this by selecting 1 colour using the code below: but what I really want to do is to select a range of red pixel shades and count all of the pixels within the range.

any pointers would be great!

Option Explicit

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, _
ByVal x As Long, ByVal y As Long) As Long

Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, _
ByVal x As Long, ByVal y As Long, ByVal crcolor As Long) As Long

Private Sub Command1_Click()

Dim x As Long, y As Long
Dim h As Long, count As Long

h = Me.hdc

For y = 120 To 200
For x = 120 To 200

If GetPixel(h, x, y) = vbRed Then
SetPixel h, x, y, vbGreen
count = count + 1
End If

Next
Text1.Text = count
End Sub

Adding static ARP entry

azfar — Wed, 10 Dec 2008 05:50:24 GMT

How do I add a static arp entry (windows 2000 and latter) in vb6.

disable ALT+CTRL+DEL, CTRL + ESC in Win2k/XP

Sunil KC — Fri, 16 Jul 2004 08:11:18 GMT

Hi All,

How can we disable ATL+CTRL+DEL, CTRL+ESC key in VB. I can be done in win9x but can't done in win2k/xp/2003.

Anybody have it's right answer ?:p

++skc++

Send HEX data

Kiter — Mon, 08 Dec 2008 15:49:43 GMT

Hello,

This is the first time I’m using winsock.

There is no problem sending ASCII, but I have some problems sending HEX

If is send:

Winsock1.senddata &H51

And I monitor it with a Ethernet sniffer I get the correct data:

[12/8/2008 9:42:43 PM:204]

00000000 51 00 Q.

But if I send

Winsock1.senddata &H51 & &H52

I get string data:

[12/8/2008 9:43:44 PM:882]

8182

How can I send multiple HEX values?

Kiter

Reading web content using VB

Sunil KC — Tue, 21 Oct 2008 05:41:39 GMT

Dear All,

How to read content of a web address or a file of web using Visual Basic 6 ?

New Software Ideas

Amerigo — Mon, 08 Dec 2008 01:31:59 GMT

Rather than repost all of my ideas here, I will send you where I have already listed them...
http://adsa.myfreeforum.org/sutra322.php#322

File Extension Filter

igglepiggle — Fri, 28 Nov 2008 04:22:50 GMT

I have developed a form that runs a folder browser dialog and then details all filenames within the chosen folder in a listbox. Currently the filenames populate a 1-D array before they are written out to the listbox.

I need to introduce a combobox that will act as an extension filter. So, when the filenames are written to the listbox, the combobox is populated with the unique file extensions from this list. When the extension is clicked, only those files with that extension are shown in the listbox. <None> may be selected from the combo box to again show the full list of filenames.

Advice would be appreciated on the best way to go about this, I see two possibilities, either to act upon the 1-D array as it stands, or introduce a 2-D array that does the stripping out of the extensions at the same time the filenames are written and then filter using these.

Mank thanks

Vertical Scroll Bars and Erased Text

husker5674 — Mon, 01 Dec 2008 15:32:43 GMT

Hello all, i have 2 problems that i need to figure out...and i'm using VB6 btw

First, i am printing on a form, and because of the amount of lines i'm printing (and the size of the screen), i'm thinking i might need to use a vertical scroll bar...how can i do this? I'm printing with a loop, so i dont see how using a text box or label would work (since i would end up with only the last text from the loop in the textbox/label)...any help would be great!

Also, a problem i am having is that when i print onto the form, then either move another window in front of that form, or minimize that form, it will erase the printed text...how do i solve this?

Thanks

Compareing Strings

LostCause101382 — Tue, 02 Dec 2008 23:38:03 GMT

Ok so i havew a VB class in college and as a last project we were assinged a coding assignment to make a program which selected the name of a state from a listbox which contains the names of all fifty states... basically you type in the fewest letters possiable and then hit a search button and the program highlights the most likely state your trying to name

Example

Input Alab

Output Alabama

I by no means want anybody to do my home work for me, but i was wondering if sombody here could provide me with some code which will atleast lead me in the right direction, We are allowed to use what ever resource nessesary, including the internet... short of say buying a program which does this and copying the code, so this completely ethical and you are in no way helping me cheat. I was just hopeing for some help in the area of which to go. My class text hints that a Compare Method would be useful, but give no code examples and is horridly unhelpful in the area of language, like most poorly written instructions it just assumes you already know what your doing, any help would be greatly apprieciated...Thankx for at least reading i hope to get an answer soon

Lost

files extractor

Phokojoe — Tue, 02 Dec 2008 22:43:16 GMT

hi everone

i have many files of different types in many folders in my pc. i want to develop a program that will, given a particular folder empty the folder contents say to another (given folder) so that i may start organizing my files ncely without duplicates. while emptying the folder also want those files to be deleted from the original folder.

thanks

How to pause code execution until button is pressed

husker5674 — Mon, 24 Nov 2008 17:24:13 GMT

Fellow programmers,

I am currently working on a project in VB6 and am need of assistance. In my project, I execute the main form code, and halfway through, i use form1.show to show another form with multiple radio (option) buttons and a continue button. Does anyone know how i could possibly pause the main form's code execution until the continue button is pressed and then resume when it is pressed?

Thanks

Dynamic Menu Generation in Desktop Application

hafeez_munawar — Wed, 26 Nov 2008 02:10:04 GMT

Hi, i want to generate dynamic menu items in desktop application. Menu items are based on user rights store in a table. How can i generate them , i just want to have a menustrip control. Then all item are required to be added dynamically.

VB-6 VS Vista

vlaius — Sat, 01 Nov 2008 05:59:17 GMT

Hi!

Any body know, does OS Vista support programs written on VB-6?

I have one small program, it's good working on XP but working with errors on Vista?

That can I do? Learn VB-2008 Express?

Stopping USB device

vlaius — Tue, 25 Nov 2008 02:10:16 GMT

Hi to everyone!

Any body know, how I can stop USB devise for safety remove?

Thanks in advance.

Serial Port

mvPradeepemb — Thu, 06 Nov 2008 01:28:15 GMT

Hi All,

I am new to VB.... I am using serial port to interface the controller with PC... My VB code as follows:

Private Sub Form_Load()
MSComm1.Settings = "9600,N,8,1"
MSComm1.CommPort = 1
MSComm1.InputLen = 1
MSComm1.PortOpen = True
MSComm1.RThreshold = 1

End Sub

Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub

Private Sub MSComm1_OnComm()
Text1.Text = Text1.text & MSComm1.input

End Sub

I transmitted a number (03) from controller, but i am receiving garbage value like (*?????|||......) and finally my serial port now doesn't work.... Kindly help me to solve the Problem...

Best Regards

Pradeep

user make .exe file

daveofgv — Fri, 21 Nov 2008 13:00:26 GMT

Would anyone know how jigs@w was created or how can I make a program that lets the user build an .exe file like jigs@w?

I am not looking at making a clone of jigs@w or a puzzle for that sort.

daveofgv

about my counter and date

d9 — Wed, 19 Nov 2008 21:13:13 GMT

Hi good day to all. I'm a beginner of vb6. Right now I'm doing my first project which is the Sales System of a resto bar. I encounter some errors though this is just a minimal but I'm already stack in this part. This is about my counter as well as displaying the totals sales in descending order. The Code of my counter that I make doesn't work again and also in displaying the total sales in descending order. anybody can help me on this....

-----------------------------------------------------------------
counter

For i = 1 To grd.Rows - 1
With INV
If grd.TextMatrix(i, 0) = INV!ProdCode Then
.Edit
!Quantity = !Quantity + Val(grd.TextMatrix(i, 3))
.Update
Else
.AddNew
!ProdCode = grd.TextMatrix(i, 0)
!ProdName = grd.TextMatrix(i, 2)
!Quantity = grd.TextMatrix(i, 3)
!Date = DTPicker1.Value
.Update
End If
End With
Next i

---------------------------------------------------------------------------------------
Display the Total Sale in descending order

Set SH = Dbase.OpenRecordset("Select * from SalesHeader where iDate <= cDate (' " & CStr(DTPicker1.Value) & " ') and iDate >= cDate(' " & CStr(DTPicker2.Value) & " ')Order by cDate Desc ")

----------------------------------------------------------------------------

Regards

Denine

Wait function..

tomas.salat — Fri, 14 Nov 2008 03:03:10 GMT

Hi, i have more or less big problems to do a specific function which ll be doing something in a loop but the one step in the loop will be exactly one minute. For example:

For i =0 TO 10
Print ; Timevalue(now)
"something"
next i

my main problems is i have some function which is doing in one step in the loop for cca. 40 sec +-5sec, and i want that it ll do the step exactly in 1min, so i need to measure somehow the time at the begining, wait until the function inside the loop is finished and after wait the time which ll be to 1min.

iam lost already and dont know what to do with this.
Thx, T

communicate to other device

Kiter — Mon, 17 Nov 2008 08:03:01 GMT

I want to communicatie with a mixer.

IP: 192.168.1.100
Port: 2005
Protocol: UDP

To get the IP of the mixer I have to send: "IP" & VBCR

So I want to send and receive data.

What should I use? WinSock?

where can I find more information about communication between a PC and a device (mixer)
Most of the tutorials are communication between PC and PC

Kiter