Post your Vb 6.0 Questions Here

 Can u help me write a program in V b.You can reach me wit 08024074294

please can u with the API calls that can see data that are in the serial port. this is very important from my final year project thanks

Sorry, our server was down that is why I was unable to view consistently your posts.

Dynast you need splash screen which has to be selected from project Exploer, whixh means it has to load first.

I will give u two codes to that effect

The first one will MARQUE a text entered into Label continous on a form;

You need a timer, set its interval to 100
A label and a module

Private Sub Timer1_Timer()
MoveDown Label1, Me
End Sub

paste this in vb module

Public Sub MoveDown(Obj As Control, frm As Form)
Obj.Move Obj.Left, Obj.Top - 30

If (Obj.Top + Obj.Height) < 0 Then
    Obj.Top = frm.Height
End If
End Sub

For splash screen

Load any form
Load a vb module and paste the below control on the module

Option Explicit
Public ControlTblname As String
Private Declare Function CreateEllipticRgn Lib "gdi32" _
   (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
    ByVal Y2 As Long) As Long
   
    Private Declare Function SetWindowRgn Lib "User32" _
  (ByVal hwnd As Long, ByVal hRgn As Long, _
   ByVal bRedraw As Boolean) As Long
   
 
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Public Sub Bubble(frm As Form)

Dim iret
   Dim a As Integer
   Dim b As Integer
   Dim C As Integer
   Dim D As Integer
   Dim e As Integer
   Dim f As Integer
   Dim w As Integer
   Dim X As Integer
   Dim Y As Integer
   Dim z As Integer
   Dim current As Double
Dim pp As Integer
   'frm.Move(0, 0) = 0
   w = frm.Height: X = frm.Width: Y = frm.Top: z = frm.Left
   a = 0: b = 0: C = w: D = X: e = Y: f = z: pp = 0
   Do While a < frm.Height / 17 Or b < frm.Width / 17
      a = a + 25
      b = b + 25
      e = e + 70
      f = f + 70
      If a > frm.Height / 15 Then a = a - 24
      If b > frm.Width / 15 Then b = b - 24
      Call frm.Move(f, e, D, C)
       
      current = Timer
            Do While Timer - current < 0.01
         DoEvents
         
      Loop
     
     iret = SetWindowRgn(frm.hwnd, CreateEllipticRgn(0, 0, b, a), True)
  If pp = 0 Then frm.Show: pp = 1
    Loop
   current = Timer
   Do While Timer - current < 1
      DoEvents
   Loop

   'This will make the bubble "pop" and minimize the form.
   'Comment out if you want it to remain displayed

 'iret = SetWindowRgn(frm.Hwnd, CreateEllipticRgn(0, 0, 0, 0), _
   True)
iret = SetWindowRgn(frm.hwnd, CreateRectRgn(0, 0, 1000, 1000), True)


End Sub

On the form double click, on the load event type Call Bubble(frmSplash)

It will animate it for you

I hope that helps
you

I suggest you go to www.vbsourcecode.com or www.codeproject.com or google it out you see more examples

Thanks very kindly and God bless LuckyCo and IG
I will try it out

Hi Niralanders can any one help me with  VB  Codes that will be able to trap a date entered into a textbox  compare it with the current date of the day and display on a pop up window or on the same form the No of days,Month(S),years below or above that given date entered on a text box.
If the difference in dates can only be in months or days its alright.

Hoping to hear 4m the great programmers in the land
Stay blessed

It seems we don't have any problems in vb6.0?

God bless you ambundantly LuckyCO, you are indeed a guru in programming,
I just dimensioned cdate as date intead of string and the program is running marvellously well
I never know we hav this type of brain in Africa let alone a Nigerian and you're as well very generous with your talent and hardwork.
Infact the sky is your spring board or rather stepping stone. I need comments on the keyword of the codes.I am still learning.
Nwanne Chukwu gozie gi[i][/i]

This question has been bothering me.

I have two listboxes and when I selectan item in one, I want the other list box to lose it's selection/focus.

what happens now is that If i select something in list box a, then go and select something in list box b, the item in list box a remains selected and i don't want this to happen.

Dynast thank for your compliments.

Below are the comments but don't mind if there is any errors in typing.

Private Sub Command1_Click()
Dim sDate As date 'Variable that will hold date that is converted

If IsDate(text1.Text) = False Then Exit Sub ' Checks whether what entered in the textbox is date else it will not do anything. If using DTPicker control, this check would have been unneccessary.

sDate = CDate(text1.Text) ' Having seen that what you entered is date, it will now convert it to date.


MsgBox Minusdate(sDate, True) ' this calls function Minusdate which return a value that will be displayed as a popup.

End Sub

' Here is the function

Function Minusdate(DComp As Date, AllowNegativeValue As Boolean) As String

'declaration center for year,month and day
Dim K As Integer
Dim yr As Integer
Dim mn As Integer
Dim dy As Integer



K = DateDiff("d", DComp, Date) ' This obtains the difference bw the date entered and the system date in days. 'd' means in days. If I put M or yyyy instead of d it means in month and year respectively. Try and see.

If AllowNegativeValue = True Then K = Abs(K) ' This checks whether if the date entered is greater than the current date. In that case it will be negative. The function allows you to pass a parameter saying whenever a negative value is seen, it should be converted to positive. This happens only when AllowNegativeValue=true


AllowNegativeValue = False ' I initialized it to false because I don't want to create another variable, I still want to uise the same variable for other things.


'This place checks whether the day diffrernce bw the two dates is more than 365 meaning that it is up to a year.

If K > 365 Then
yr = K \ 365 ' to obtain number of years
mn = K Mod 365 ' to obtian number of months

If mn > 30 Then
mn = mn \ 30
dy = mn Mod 30 ' to obtain number of days
End If

ElseIf K < 365 And K > 30 Then ' To check whether the difference is not up to a year and more than a month
yr = 0
mn = K \ 30 ' Obtains number of months
dy = mn Mod mn ' obtains number of days

ElseIf K < 30 Then ' If it is not  up to a year and month definitely it must be up to day.
yr = 0
mn = 0
dy = K ' Obtains number of days

Else

'If you don't want to process any negative date, here return the messsage below
AllowNegativeValue = True
Minusdate = " You cannot have less that zero value"

End If ' closes the check

If AllowNegativeValue = False Then
Minusdate = Str$(yr) + " year(s) " + Str$(mn) + " month(s) " + Str$(dy) + " day(s)"
'converts the yr,mn,dy to string such that both of them will be on the same data type.
End If

End Function

Private Sub Form_Load()
Command1.Caption = "&Execute" ' changes the label name to 'Execute'

End Sub

Please I need a Program to allow an administrator to assign a username and password to users in order to gain entry into a system
The program shld allow the administrator to have overiding previlede using his password to access any users account and view the content and at the same time restrict a user from accesing a given section of a software say an a cashier who post credit shld not have access to debit and vise versa.The administrator shld be allowed to deny access to a user or delete the user when necessary.
The program shld allow as many accout as possible to be created.
Also it shld be able to detect username duplication and prompt for a change

What I need is a VB program that will allow users to create

an account using Username and Password and use same to log

into the main software. However there shld be an

administrative password with the username administrator to

allow for administrative priviledge to enter and can deny a

user from gaining access or still an administrator can delete

a users' account.The program shld be able to detect duplicate

username and prompt for a change. The program shld allow as

many user account as possible to be create. Also the program

sld allow the administrator to view all the accounts created

and delete any one he/she wishes or deny a user access to any

specific part of the software such as cashier who post credit

shld not have access to debit and vise versa

Zule first get their manual data on how the do it. Paper on all financial, grade and personal details should be studied. This will enable you know how database design will look like. If u don't ve them you will find it difficult to achieve the obj in fewer time.


When u get them say;

The next thing is to determine the back end, MYSQL,Access,SQLserver,Oralce. You can as well think whether the program will be network (LAN) based or standalone(Only one system).

I think that will help.

Let me more things u need if this can't help u.

Dynast what do u mean by System? Do u mean your own program or Operating system?

If system u mean is your own program then tell me the backend(database ) you want to use such that I can write the program for u

1. How can I link picture and Image to database?
2. And is it compulsory that I use SQL rather than the built-in VB6 database?
I will be happy for your soonest response.

neeyee You can link Image to your VB program stored in database in two diff ways.

1. You can store the image in a folder and store the path in database as text or string.
   Say the path is C:\pic1.jpg store in the database.
 To reprieve and store in an image control do this;

   Image1.pitcure=Loadpicture( rs!pic)
  rs servers as you recordset already connected and data retirved.
This is the best option

2. To store the image itself to the database. To do that create two field which types must be one Binary and number in access, Blob in MySQl or SQL server.

Find below is one attarchment that will help you out.


It must not be SQL server any database can be of help.