Home › Java_Volume1 › Flat VBControls Extension
Advertisement
Java_Volume1 Custom Controls/ Forms/ Menus #96078

Flat VBControls Extension

Pedro Lamas
★★★★★
4.8 · Downloads: 2,341

Do you wan't to make your controls really flat, like the ones in Office Toolbars (TextBoxes, CommandButtons, ComboBoxes, etc.)? Then this is what you need! Please, do Vote! By voting, you'll make the programmers efforts well spent!

AI

AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Source Code
original-source 
Upload
Function WriteLongDate()
'//By Jason Howard
'//March 8, 2002
Dim ThisMonth
Dim ThisDay
Dim ThisYear
ThisMonth = month(date)
ThisDay = day(date)
ThisYear = year(date)
Select Case ThisMonth
	Case 1
	       ThisMonth = "January"
	Case 2
			ThisMonth = "February"
	Case 3
		 	ThisMonth = "March"
	Case 4
			ThisMonth = "April"
	Case 5
			ThisMonth = "May"
	Case 6
			ThisMonth = "June"
	Case 7
			ThisMonth = "July"
	Case 8 
			ThisMonth = "August"
	Case 9
			ThisMonth = "September"
	Case 10
			ThisMonth = "October"
	Case 11
			ThisMonth = "November"
	Case 12
			ThisMonth = "December"
End Select
Response.write(ThisMonth) & " " & ThisDay & ", " & ThisYear
set ThisMonth = Nothing
set ThisDay = Nothing
set ThisYear = Nothing
End Function

'To output this just do this anywhere on your page:
<% WriteLongDate %>
Original Comments (3)
Recovered from Wayback Machine