Introduction

I'm writing this tutorial in response to a random forum question that looked mildly interesting.

The purpose of this tutorial is to introduce a few concepts, such as:

• Teach beginners a few things about VB6
• Show how to automatically resize controls to fit a form
• Do a simple grid drawing operation

I will also say that I do not condone the use of VB6 in a professional environment, nor even in a higher education facility. But for a complete beginner it does make it easier to learn a few basic programming concepts.

OK, firstly, we need to make a new project and put a few things on a form.


Getting Started

When Visual Basic 6 loads, we start off with the following dialog:
Click to view attachment
As Standard EXE is already selected, we can just click Open.

Next, we want to add a command button and picture box to the form. Do so as in the picture below and name the command button as cmdGenerate, and call the picture box picGraph. Set the caption property of cmdGenerate to "Generate Data" or whatever else takes your fancy.
Click to view attachment


Resizing Stuff

Well, that didn't take long. Now we have a really ugly form, and it's time to write some code.

First we'll write the code that automatically resizes the Picture Box so that it always fills up the form.

Double-click on the picture box, and your screen should look like this:
Click to view attachment

Then click on the drop-down donated by the blue arrow (pretty isn't it?) scroll down, and select Resize

Our screen should now look like this:
Click to view attachment

Now put the following code into the picGraph_Resize function, so it looks like this:


I'll break this down, and explain why we are doing certain things.

If (picGraph.width + picGraph.Left) > Me.ScaleWidth Or (picGraph.height + picGraph.Top) > Me.ScaleHeight
This rather complex line of code is just checking if either the width or height of the picGraph picture box is about to become smaller. This is because when a picture box becomes smaller, the Paint event is not called. We are just checking if it needs to be called.

width = Me.ScaleWidth - picGraph.Left
height = Me.ScaleHeight - picGraph.Top
Here we are setting the new width and height. The Me refers to the owner form, and the ScaleWidth (and height) are a sadistic feature of VB6, but basically it lets us know how much space is available inside the form. The arithmetic here should be fairly easy to comprehend.

If width < 0 Then width = 0
If height < 0 Then height = 0
Here we are checking if the new width and height are smaller than 0. Because if they are, the program will crash. We don't like that happening, which is why we check

Anyhow, we now have a form that resizes its picture box control, but still does nothing else.


Pretty Data

OK, so no program is useful without its data. Or pretty even. First we need an array to store all our data.

We'll make an empty array, and a boolean that states whether data is available or not.

Add the following code to the TOP of the form:


Values is going to hold all our data, and dataReady will be set to True when there is data available.

Now we want to generate some data.

Go back to the form view, to do this, choose Object from the View menu.
Click to view attachment

Now double click on the command button cmdGenerate. And put the following code inside


rows = Rnd * 10 + 5
Here, we are creating a random number of rows (between 5 and 15). Rnd is a VB6 function that generates a random number between 0 and 1. We multiply it by 10, which makes a number from 0 to 9. We add, 5, and then the number will be from 5 to 14. (the highest number rnd makes is 0.99999) or something like that.

Because Row is an Integer, assigning a decimal value to it, just chops of the numbers after the decimal point without rounding at all.

ReDim Values(rows, cols)
Here we are making a 2 dimensional array. We can access it in future like so: Values(1, 4) or something of similar ilk.


Here we are iterating through all the new elements of our array. Going through each row, then going through each column inside each row.

Values(row, col) = Rnd * 4 - 1
Here we are assigning a value to our data array. The random number generated here will be in the range of -1 though 2.999.

dataReady = True
Here we simply let the rest of the program know that there is data available.

picGraph.Refresh now we ask picGraph to redraw itself.

---

So far we have created the data, but you might ask. Where are the pretty pictures???

Just wait, they're coming.

---

OK, our pictures need to have colour! So let's add this function that assigns different colours depending on the value of an element:



I think that is pretty self explanatory. Basically, we pass a value to the function, and it returns a colour (in the form of a Long Integer).


Drawing Pretty Data

Let's create a function:


We are still not finished, because we need to call this function to get it to draw something. That can come next, but first let's explain what this function does.


These are just general variable declarations. In this case, cellHeight is going to be the height of a cell. rows: the number of rows.


Here we calculate the number of rows and cols we are going to have. This is gained from the size of the data array we made back in cmdGenerate_Click().


Calculating the width and height each cell (rectangle) is going to be.


Once again, iterating through all the cells (just like in cmdGenerate_Click()).



Here, we find out our x and y. For the first column, x will be 0. (Because 1-1 == 0, and 0 * anything == 0). Same goes for y.

The cellWidth which we have calculated previously will be multiplied by (col - 1), which gives us our evenly placed rectangles. Same for cellHeight.

And finally, we draw the box:
pbox.Line (x, y)-(x + cellWidth, y + cellHeight), getColour(Values(row, col)), BF
This is a more complex one.

Basically we are drawing a diagonal line from x, y
to x + cellWidth, y + cellHeight.
Then we assign it a colour using the value: getColour(Values(row, col)).
And finally make it a filled box: , BF.

Now all we have to do is make sure this function gets called. So we need to add code, to when the picGraph picture box is ready to be repainted.

Go back to the Object View like so:
Click to view attachment

Double click on the picture box (picGraph).

Now select the Paint from the dropdown menu (once again denoted by the friendly blue arrow):
Click to view attachment

And make the code like this:

Basically, we just test if data is ready, and if it is, we pass the values, and the picture box through to our function which does the drawing.

We now have a complete program that works.

Just run the program, and click the "Generate Data" button. You should get something that looks like this:
Click to view attachment

This can be resized at will, and the squares inside will also be resized.

Hope you learnt something today.



Complete code listing:

this is great if only i knew how to do the exact same in VB.net