This is a sample process of Sales and Inventory system that monitor the process of one
Department store,all those process in this program is a basic process of one Department
Store,if you want this system just download it Below:

Happy Coding!!!!
The Hardest thing to do is to do nothing!!!!

Download sample

Continue Reading with Borgy's Blog »

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

0 Comments

Tags: Database, Visual Basic 6.0

To do this, you must add first a component go to PROJECT>COMPONENTS>Microsoft
Windows Common Controls SP6, then add tool bar on the form, and follow the steps on the
image below:

1.) Right-click the tool bar and click properties

at the Caption text property just write,for example Reports and at the Style: select 5 or
tblDropDown, then at the Button Menus click INSERT ButtonMenu and at Text: (your
sub menu name), and at Key: (for example "PR") declaring for a sub menu Key is very
important because this is your sub menu identification.

2.) Then during Run-Time will look like this

a example code on this sub menu reports will look like this: place the code on
ToolBar1_ButtonMenuClick like shown in the statement Below:

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As _

MSComctlLib.ButtonMenu)
    Select Case ButtonMenu.Key
        Case "PR"
            MsgBox "(your code goes here!"
    End Select
End Sub

Happy Coding ^_^
The Hardest Thing to Do is to Do Nothing

Continue Reading with Borgy's Blog »

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

0 Comments

Tags: ToolBar, Vb6 Controls, Visual Basic 6.0

This is the very basic way on how to code or create your own timer using VB 2010, you must
add 2 Labels Control and 1 Timer control and also a 3 command button for you Handle whether
you want to start,stop and reset

So this is the main code for you set up and get the output shown  in the image above, i used
the very basic Nested IF structure
.
 CODE:
 Place at the Timer1_Tick Event
Dim Uno, Dos As Integer

        Uno = "00"
        Dos = "09"

If Val(Label2.Text) >= Uno And Val(Label2.Text) < Dos Then
  Label2.Text = "0" & Val(Label2.Text) + 1      
   ElseIf Val(Label2.Text) = "59" Then
     If Val(Label1.Text) >= Uno And Val(Label1.Text) < Dos Then
         Label1.Text = "0" & Val(Label1.Text) + 1
         Label2.Text = "00"
      ElseIf Val(Label1.Text) = "11" And Val(Label2.Text) = "59" Then
          Label1.Text = "00"
          Label2.Text = "00"
       Else
         Label1.Text = Val(Label1.Text) + 1
       End If
  Else
       Label2.Text = Val(Label2.Text) + 1 
 End If

Download sample


Happy Coding ^_^
The Hardest Thing to Do is to Do Nothing

Continue Reading with Borgy's Blog »

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

0 Comments

Tags: Timer, Visual Basic 2010

This is a sample code on how you to easy Calculate the sum of a list-view column this is my
way on how to do this,determine the listview count, i used FOR LOOP,the most powerful
loop among the loop structures and it will show you like shown in the image below:

so here we go,the code will look like this:

Dim Adrian, Mrhumble As Integer

'Adrian Holds for the listview count or get
'the listview  Rows

 For Adrian = 1 To LV1.ListItems.Count

'Holds for the result of calculated fields

   Mrhumble = Val(Mrhumble) + Val(LV1.ListItems(Adrian))

 Next Adrian

Download Sample

The Hardest Thing to Do is to Do Nothing
Happy Coding ^_^

Continue Reading with Borgy's Blog »

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

0 Comments

Tags: ListView, Vb6 Controls, Visual Basic 6.0

"Data Type Mismatch in Function Object " Solved After i encounter this error message i
found that my Data Type on my database is mismatch, because i want to display a Currency
type on a data report of my project which is a current data type is varchar(50) so obviously
Data Type Mismatch so i found my own solution by changing the Data Type to Float, for me
to display a sum of my database field on my data report through the used of a RptFunction.
So its better to declare a corresponding Data Type for your Data Field inside of Database to
Avoid this type of error.

Hope this will be Help!!
Happy Coding ^_^

Continue Reading with Borgy's Blog »

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

0 Comments

Tags: Data Reports, Database, VB6 Errors, Visual Basic 6.0

This code will teach you on how to load a picture or image on a Picture Box Control from
your hard drive,the basic and simple code will look like this:

Private Sub Command1_Click()
   Picture1.Picture = LoadPicture("E:\Button Cancel copy.jpg")
End Sub

Hope this will help your simple Problem!

Happy Coding ^_^

Continue Reading with Borgy's Blog »

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

0 Comments

Tags: Picture Box, Vb6 Controls, Visual Basic 6.0