1,075,924 Members — Technology Publication meets Social Media

# Posts by abu taher which have been Voted Down

## Re: Expire exe in Visual Basic 4 / 5 / 6

you can write this

``````If Format(Now, "mm/dd/YYYY") >= 29/9/2011 Then
Msgbox "the software has been expired"
End if
abu taher
Practically a Posting Shark
847 posts since Jul 2008
Reputation Points: 14
Skill Endorsements: 0

## Re: Help needed (combo and textbox from a database) in Visual Basic 4 / 5 / 6

Attachments data_show_in_combobox.zip (13.31KB)
abu taher
Practically a Posting Shark
847 posts since Jul 2008
Reputation Points: 14
Skill Endorsements: 0

## Re: converting number to words in Visual Basic 4 / 5 / 6

if you convert 10 to 'ten' then try this
No declarations at all.
1. Create a form and add two textboxes; TextBox1 and TextBox2
2. Add a command button; CommandButton1
3. Copy the code below to the code window.
4. Run the program, enter the number in TextBox1 and click CommandButton1...

``````Function Getword(strNumber)
Dim strtemp As String
Dim x, y, z As Integer
x = Val(Mid\$(strNumber, 1, 1))
y = Val(Mid\$(strNumber, 2, 1))
z = Val(Mid\$(strNumber, 3, 1))

If Len(strNumber) = 1 Then
strtemp = strtemp + Whole(Val(strNumber))
GoTo 20
ElseIf Len(strNumber) = 2 Then
If x = 1 And y = 0 Then
strtemp = strtemp + " Ten"
ElseIf x = 1 And y = 1 Then
strtemp = strtemp + " Eleven"
GoTo 20
ElseIf x = 1 And y = 2 Then
strtemp = strtemp + " Twelve"
GoTo 20
ElseIf x = 1 And y > 2 Then
strtemp = strtemp + Whole2(y) + "een"
GoTo 20
ElseIf x = 0 And y > 0 Then
strtemp = strtemp + Whole(y)
GoTo 20
ElseIf x = 0 And y = 0 Then
strtemp = ""
GoTo 20
Else
strtemp = Whole2(x) + "y"
If y > 0 Then strtemp = strtemp + Whole(y)
GoTo 20
End If

ElseIf Len(strNumber) = 3 Then

If x > 0 Then strtemp = strtemp + Whole(x) + " Hundred"
If y = 1 And z > 2 Then
strtemp = strtemp + Whole2(z) + "een"
GoTo 20
ElseIf y = 1 And z = 1 Then
strtemp = strtemp + " Eleven"
GoTo 20
ElseIf y = 1 And z = 2 Then
strtemp = strtemp + " Twelve"
GoTo 20
ElseIf y = 1 And z = 0 Then
strtemp = strtemp + " Ten"
GoTo 20
ElseIf x = 0 And y = 0 And z = 0 Then
strtemp = ""
GoTo 20
Else
End If
If y > 0 Then strtemp = strtemp + Whole2(y) + "y"
If z > 0 Then strtemp = strtemp + Whole(z)
End If
20 Getword = strtemp

End Function

Function Whole(ByVal x As Integer)
Select Case x
Case Is = 9
Whole = " Nine"
Case 8
Whole = " Eight"
Case 7
Whole = " Seven"
Case 6
Whole = " Six"
Case 5
Whole = " Five"
Case 4
Whole = " Four"
Case 3
Whole = " Three"
Case 2
Whole = " Two"
Case 1
Whole = " One"
End Select
End Function

Function Whole2(ByVal x As Integer)
Select Case x
Case Is = 9
Whole2 = " Ninet"
Case 8
Whole2 = " Eight"
Case 7
Whole2 = " Sevent"
Case 6
Whole2 = " Sixt"
Case 5
Whole2 = " Fift"
Case 4
Whole2 = " Fourt"
Case 3
Whole2 = " Thirt"
Case 2
Whole2 = " Twent"
End Select
End Function

Private Sub CommandButton1_Click()
Dim bigstrNumber(11)
Dim strNumber As String
Dim strtemp As String
TextBox1 = Abs(Int(TextBox1))
strNumber = TextBox1.Text
TextBox2 = ""
bigstrNumber(0) = ""
bigstrNumber(1) = " Thousand"
bigstrNumber(2) = " Million"
bigstrNumber(3) = " Billion"
bigstrNumber(4) = " Trillion"
bigstrNumber(6) = " Pentillion"
bigstrNumber(7) = " Hexillion"
bigstrNumber(8) = " Qentillion"
bigstrNumber(9) = " Octillion"
bigstrNumber(10) = " Nonillion"
bigstrNumber(11) = " Decillion"

If Len(strNumber) > 3 Then
Do While i < 36
m = m + 1
i = i + 3
If i >= Len(strNumber) Then Exit Do
Loop
c = i - Len(strNumber)
If c > 0 Then
For D = 1 To c
Next D
Else
End If
k = 1
For i = 1 To m
TextBox2 = TextBox2 & Getword(Mid\$(strNumber, k, 3))
If Mid\$(strNumber, k, 3) <> "000" Then TextBox2 = TextBox2 & bigstrNumber(m - i)
k = k + 3
Next i
Else
End If
TextBox2 = Trim\$(TextBox2 & Getword(strNumber))
TextBox1 = Format\$(TextBox1, "###,###,###,###,###,###,###,###,###,###,###,###")
End Sub``````
abu taher
Practically a Posting Shark
847 posts since Jul 2008
Reputation Points: 14
Skill Endorsements: 0

## Re: How to Upload Excel File to Access in VB in Visual Basic 4 / 5 / 6

if you mean this: import data from excel spreadsheet to access table then use this

``````'replace this "c:\temp\filename.xls" with your excel filename.

Private Sub ImportXLSheets()

Dim WrksheetName As String
Dim i As Integer
Dim xl As Object
Set xl = CreateObject("Excel.Application")

xl.Visible = True
xl.Workbooks.Open "c:\temp\filename.xls"

With xl
.Visible = True
With .Workbooks(.Workbooks.Count)
For i = 1 To .Worksheets.Count
WrksheetName = .Worksheets(i).NAME
Next i
End With

End With
Set xl = Nothing

End Sub``````
abu taher
Practically a Posting Shark
847 posts since Jul 2008
Reputation Points: 14
Skill Endorsements: 0

## Re: Calling a query to display it on a datagridview in Visual Basic 4 / 5 / 6

hello can you help me how to a upload a photo in visual basic 6.0 using image and picture i need this kind of program thank you

abu taher
Practically a Posting Shark
847 posts since Jul 2008
Reputation Points: 14
Skill Endorsements: 0

## Re: auto shutdown in Windows NT / 2000 / XP

I think scan your computer with anti virus. if your problem will not solve then repair your windows with xp cd

abu taher
Practically a Posting Shark
847 posts since Jul 2008
Reputation Points: 14